Modified:
   trunk/irstats/perl_lib/IRStats/CLI/extract_metadata_from_archive.pm
Log:
 * Supply the eprint object to render_value as well (avoid an undef warning?)

Modified: trunk/irstats/perl_lib/IRStats/CLI/extract_metadata_from_archive.pm
===================================================================
--- trunk/irstats/perl_lib/IRStats/CLI/extract_metadata_from_archive.pm 2007-11-28 13:55:01 UTC (rev 63)
+++ trunk/irstats/perl_lib/IRStats/CLI/extract_metadata_from_archive.pm 2007-12-05 14:13:24 UTC (rev 64)
@@ -144,11 +144,11 @@
                                # The code is complex, so lets render it to get the 'code'
                                elsif( ref($code) eq 'HASH' )
                                {
-                                       $code = EPrints::XML::to_string( $code_field->render_value( $session, $multiple ? [$code] : $value ));
+                                       $code = EPrints::XML::to_string( $code_field->render_value( $session, $multiple ? [$code] : $value, undef, undef, $eprint ));
                                }
                                if( not exists $data->{$field_name}->{$code} )
                                {
-                                       my $full_citation = EPrints::XML::to_string( $field->render_value( $session, $multiple ? [$value] : $value ), "utf-8");
+                                       my $full_citation = EPrints::XML::to_string( $field->render_value( $session, $multiple ? [$value] : $value, undef, undef, $eprint ), "utf-8");
                                        my $short_citation = ref($value) eq 'HASH' ?
                                                $full_citation :
                                                uc($value);