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