package EPrints::Plugin::Export::HTML; # eprint needs magic documents field # documents needs magic files field use Unicode::String qw( utf8 ); use EPrints::Plugin::Export; @ISA = ( "EPrints::Plugin::Export" ); use strict; sub new { my( $class, %opts ) = @_; my $self = $class->SUPER::new( %opts ); $self->{name} = "HTML Citation"; $self->{accept} = [ 'dataobj/eprint', 'list/eprint' ]; $self->{visible} = "all"; $self->{suffix} = ".html"; $self->{mimetype} = "text/html; charset=utf-8"; return $self; } sub output_dataobj { my( $plugin, $dataobj ) = @_; my $xml = $plugin->xml_dataobj( $dataobj ); return EPrints::XML::to_string( $xml ); } sub xml_dataobj { my( $plugin, $dataobj ) = @_; my $p = $plugin->{session}->make_element( "p", class=>"citation" ); $p->appendChild( $dataobj->render_citation_link ); return $p; } 1;