[EP-tech] Bug in $doc.icon: size not allowed

John Salter J.Salter at leeds.ac.uk
Thu Nov 22 18:03:32 GMT 2012

In ~/lib/defaultcfg/citations/eprint/summary_page.xml, the following expression is used:
<epc:print expr="$doc.icon('HoverPreview','noNewWindow')}" />

This results in 'run_icon' being called from ~perl_lib/EPrints/Script/Compiled.pm, which in turn calls 

render_icon_link allows a 'size' to be specified:
$opts{size} = "small" unless defined $opts{size};
 - but run_icon can not pass this value to the function call.

Not quite sure how to fix it (brain shutting down for the day), 
Something like (in run_icon):
foreach my $opt ( @opts )
                my $optv = $opt->[0];
                if( $optv eq "HoverPreview" ) { $args{preview}=1; }
                elsif( $optv eq "noHoverPreview" ) { $args{preview}=0; }
                elsif( $optv eq "NewWindow" ) { $args{new_window}=1; }
                elsif( $optv eq "noNewWindow" ) { $args{new_window}=0; }
+ (PSEUDO-CODE) elsif( $optv in $config{thumbnail_types} ) $args{size}=$optv; }
                else { $self->runtime_error( "Unknown option to doc->icon(): $optv" ); }


More information about the Eprints-tech mailing list