use EPrints; use strict; my $session = new EPrints::Session; exit unless( defined $session ); my $url = $session->get_repository()->get_conf("base_url")."/view/keywords/"; my $tag_cloud = EPrints::Plugin::TagCloud->new( session => $session, min_percent => 75, max_percent => 250, link_url_begin => $url, link_url_end => ".html", fieldname => 'keywords', ); my $tag_cloud_container = $session->make_element( 'div', class => 'ed_tag_cloud' ); $tag_cloud_container->appendChild( $tag_cloud->render() ); my $frag = $session->param( 'frag' ); if( defined $frag && $frag == 1 ) { binmode( STDOUT, ":utf8" ); print STDOUT $tag_cloud_container->toString; } else { my $title = $session->make_text( "Tag Cloud" ); my $page = $session->make_doc_fragment; $page->appendChild( $tag_cloud_container ); $session->build_page( $title, $page, "tag_cloud" ); $session->send_page; } $session->terminate;