[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')){