[Koha-cvs] CVS: koha/value_builder unimarc_field_4XX.pl,1.2,1.3

[Henri-Damien LAURENT]

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

Modified Files:
	unimarc_field_4XX.pl 
Log Message:
Fixing process for $0 subfield

Index: unimarc_field_4XX.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** unimarc_field_4XX.pl	16 Mar 2005 16:24:38 -0000	1.2
--- unimarc_field_4XX.pl	16 Mar 2005 17:40:00 -0000	1.3
***************
*** 97,104 ****
  		$req->execute($bibnum);
  		($bibid,$bibnum) = $req->fetchrow;
! 		warn "bibid :".$bibid;
  		#get marc record
  		$marcrecord = MARCgetbiblio($dbh,$bibid);
! 		warn "record : ".$marcrecord->as_formatted;
  # 		my @loop_data =();
  # 		my $tag;
--- 97,104 ----
  		$req->execute($bibnum);
  		($bibid,$bibnum) = $req->fetchrow;
! #		warn "bibid :".$bibid;
  		#get marc record
  		$marcrecord = MARCgetbiblio($dbh,$bibid);
! #		warn "record : ".$marcrecord->as_formatted;
  # 		my @loop_data =();
  # 		my $tag;
***************
*** 107,111 ****
  		
  		my $subfield_value_9=$bibid;
! 		my $subfield_value_0=$marcrecord->field('001');
  		my $subfield_value_a;
  		if ($marcrecord->field('200')){
--- 107,111 ----
  		
  		my $subfield_value_9=$bibid;
! 		my $subfield_value_0=$marcrecord->field('001')->data;
  		my $subfield_value_a;
  		if ($marcrecord->field('200')){