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

[Paul POULAIN]

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

Modified Files:
        unimarc_field_4XX.pl 
Log Message:
bugfix : don't try to get ->data if 001 field is undefined, or you'll get a 
'internal server error'

Index: unimarc_field_4XX.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** unimarc_field_4XX.pl        18 Mar 2005 15:52:29 -0000      1.4
--- unimarc_field_4XX.pl        20 Mar 2005 21:18:48 -0000      1.5
***************
*** 100,107 ****
                #get marc record
                $marcrecord = MARCgetbiblio($dbh,$bibid);
!               warn "record : ".$marcrecord->as_formatted;
                
                my $subfield_value_9=$bibid;
!               my $subfield_value_0=$marcrecord->field('001')->data;
                my $subfield_value_a;
                if ($marcrecord->field('200')){
--- 100,108 ----
                #get marc record
                $marcrecord = MARCgetbiblio($dbh,$bibid);
! #             warn "record : ".$marcrecord->as_formatted;
                
                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')){