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

[Henri-Damien LAURENT]

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

Modified Files:
        unimarc_field_4XX.pl 
Log Message:
Minor Bug Fixing

Index: unimarc_field_4XX.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_4XX.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** unimarc_field_4XX.pl        16 Mar 2005 17:40:00 -0000      1.3
--- unimarc_field_4XX.pl        18 Mar 2005 15:52:29 -0000      1.4
***************
*** 97,108 ****
                $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;
! #             my @loop_data =();
! #             my @subfields_data;
                
                my $subfield_value_9=$bibid;
--- 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 $subfield_value_9=$bibid;
***************
*** 120,124 ****
                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){
--- 116,120 ----
                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){
***************
*** 169,192 ****
                my $subfield_value_y = $marcrecord->field('013')->subfield("a") 
if ($marcrecord->field('013'));
                if ($marcrecord->field('010')){
!                       my $subfield_value_y = 
$marcrecord->field('010')->subfield("a");
                }
- #             my @subf;
- #             #=(a,c,d,e,h,i,p,t,u,v,x,y,0,9);
- #                     # loop through each subfield
- #             for my $i (0..$#subf) {
- #                     $subf[$i][0] = "@" unless $subf[$i][0];
- #                     my %subfield_data;
- #                     $subfield_data{marc_value}=$subf[$i][1];
- #                     $subfield_data{marc_subfield}=$subf[$i][0];
- #                     $subfield_data{marc_tag}="";#$field->tag();
- #                     push(@subfields_data, \%subfield_data);
- #             }
- #             if ($#subfields_data>=0) {
- #                     my %tag_data;
- #                     $tag_data{tag}="";#$field->tag().' -'. "";
- #                     $tag_data{subfield} = address@hidden;
- #                     push (@loop_data, \%tag_data);
- #             }
- #             $template->param("0XX" =>address@hidden);
                $template->param(fillinput => 1,
                                                index => 
$query->param('index')."",
--- 165,170 ----
                my $subfield_value_y = $marcrecord->field('013')->subfield("a") 
if ($marcrecord->field('013'));
                if ($marcrecord->field('010')){
!                       $subfield_value_y = 
$marcrecord->field('010')->subfield("a");
                }
                $template->param(fillinput => 1,
                                                index => 
$query->param('index')."",