[Koha-cvs] CVS: koha/value_builder unimarc_field_4XX.pl,1.5,1.6

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13056/value_builder

Modified Files:
        unimarc_field_4XX.pl 
Log Message:
Fixing : $0 never written

Index: unimarc_field_4XX.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** unimarc_field_4XX.pl        20 Mar 2005 21:18:48 -0000      1.5
--- unimarc_field_4XX.pl        21 Mar 2005 16:35:46 -0000      1.6
***************
*** 104,108 ****
                my $subfield_value_9=$bibid;
                my $subfield_value_0;
!               $subfield_value_0=$marcrecord->field('001')->data if 
$marcrecord->field;
                my $subfield_value_a;
                if ($marcrecord->field('200')){
--- 104,108 ----
                my $subfield_value_9=$bibid;
                my $subfield_value_0;
!               $subfield_value_0=$marcrecord->field('001')->data if 
$marcrecord->field('001');
                my $subfield_value_a;
                if ($marcrecord->field('200')){
***************
*** 113,127 ****
                        
$subfield_value_a=$marcrecord->field('701')->subfield("a");
                }
!               my $subfield_value_c = $marcrecord->field('210')->subfield("d") 
if ($marcrecord->field('210'));
!               my $subfield_value_d;
!               if ($marcrecord->field('100')){
!                       my $publicationdate;
!                       #warn "date de publication 
1".substr($marcrecord->field('100')->subfield("a"),9,4)."   date de publication 
2 ".substr($marcrecord->field('100')->subfield("a"),12,4);
!                       $publicationdate = 
substr($marcrecord->field('100')->subfield("a"),9,4);
!                       if 
(substr($marcrecord->field('100')->subfield("a"),12,4)>$publicationdate){
!                       
$publicationdate=substr($marcrecord->field('100')->subfield("a"),12,4);
!                       }
!                       $subfield_value_d=$publicationdate;
!               }
                my $subfield_value_e= $marcrecord->field('205')->subfield("a") 
if ($marcrecord->field('205'));
                
--- 113,119 ----
                        
$subfield_value_a=$marcrecord->field('701')->subfield("a");
                }
!               my $subfield_value_c = $marcrecord->field('210')->subfield("a") 
if ($marcrecord->field('210'));
!               my $subfield_value_d = $marcrecord->field('210')->subfield("d") 
if ($marcrecord->field('210'));
!               
                my $subfield_value_e= $marcrecord->field('205')->subfield("a") 
if ($marcrecord->field('205'));
                
***************
*** 155,159 ****
                }
                
!               my $subfield_value_u = $marcrecord->field('856')->subfield("p") 
if ($marcrecord->field('856'));
                
                my $subfield_value_v;
--- 147,151 ----
                }
                
!               my $subfield_value_u = $marcrecord->field('856')->subfield("u") 
if ($marcrecord->field('856'));
                
                my $subfield_value_v;