Date Created:
_____EoI2_____
print strftime("%A, %B %e, %Y: %X",localtime($info_creation[$holding[$i]]));
print ' ' ;
if ( $author_to_url{$info_author[$holding[$i]]} ne "" )
{
print <<"_____EoI2_____";
Author:
_____EoI2_____
} else {
print <<"_____EoI2_____";
Author:
_____EoI2_____
}
if ( $author_to_url{$info_author[$holding[$i]]} ne "" )
{ print '', $author_to_name{$info_author[$holding[$i]]}, '' ; }
else
{ print $author_to_name{$info_author[$holding[$i]]} ; }
print ' (More)', "\n" ;
print <<"_____EoI2_____";
|
_____EoI2_____
}
}
sub build_clone_output {
for ( $i = 0 + $offset_in_holding ; ($i <= $#holding) && ($i <= $offset_in_holding + $max_images); $i++ )
{
print <<"_____EoI2_____";