Changeset 64

Show
Ignore:
Timestamp:
2007-12-05 14:13:24 (10 months ago)
Author:
tdb01r
Message:
  • Supply the eprint object to render_value as well (avoid an undef warning?)
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/irstats/perl_lib/IRStats/CLI/extract_metadata_from_archive.pm

    r45 r64  
    145145                                elsif( ref($code) eq 'HASH' ) 
    146146                                { 
    147                                         $code = EPrints::XML::to_string( $code_field->render_value( $session, $multiple ? [$code] : $value )); 
     147                                        $code = EPrints::XML::to_string( $code_field->render_value( $session, $multiple ? [$code] : $value, undef, undef, $eprint )); 
    148148                                } 
    149149                                if( not exists $data->{$field_name}->{$code} ) 
    150150                                { 
    151                                         my $full_citation = EPrints::XML::to_string( $field->render_value( $session, $multiple ? [$value] : $value ), "utf-8"); 
     151                                        my $full_citation = EPrints::XML::to_string( $field->render_value( $session, $multiple ? [$value] : $value, undef, undef, $eprint ), "utf-8"); 
    152152                                        my $short_citation = ref($value) eq 'HASH' ? 
    153153                                                $full_citation :