package EPrints::Plugin::Screen::REPOSITORYID::Minimal; use EPrints::Plugin::Screen; @ISA = ( 'EPrints::Plugin::Screen' ); use strict; sub new { my( $class, %params ) = @_; my $self = $class->SUPER::new(%params); # Register $self->{appears} = [ { place => "key_tools", position => 1000, }, ]; return $self; } sub render { my( $self ) = @_; my $session = $self->{session}; # Create empty document my $html = $session->make_doc_fragment; # Create paragraph, and add it to document my $p = $session->make_element( "p" ); $p->appendChild( $session->make_text( "An example paragraph." ) ); $html->appendChild( $p ); return $html; } 1;