[Koha-cvs] CVS: koha MARCdetail.pl,1.10,1.11

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv32062

Modified Files:
        MARCdetail.pl 
Log Message:
small fix

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** MARCdetail.pl       2 Feb 2003 07:18:37 -0000       1.10
--- MARCdetail.pl       13 Feb 2003 18:02:26 -0000      1.11
***************
*** 64,73 ****
  
  my $biblionumber=$query->param('bib');
! my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
  
  my $tagslib = &MARCgettagslib($dbh,1);
  
  my $record =MARCgetbiblio($dbh,$bibid);
! #warn $record->as_formatted();
  # open template
  my ($template, $loggedinuser, $cookie)
--- 64,74 ----
  
  my $biblionumber=$query->param('bib');
! my $bibid = $query->param('bibid');
! $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless 
$bibid;
  
  my $tagslib = &MARCgettagslib($dbh,1);
  
  my $record =MARCgetbiblio($dbh,$bibid);
! warn $record->as_formatted();
  # open template
  my ($template, $loggedinuser, $cookie)
***************
*** 90,102 ****
        foreach my $field (@fields) {
                my @subf=$field->subfields;
!               my $previous_tag = '';
                my @subfields_data;
  # loop through each subfield
                for my $i (0..$#subf) {
!                       $previous_tag = $field->tag();
                        next if 
($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
                        my %subfield_data;
                        
$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
!                       $subfield_data{marc_value}=$subf[$i][1];
                        $subfield_data{marc_tag}=$subf[$i][0];
                        push(@subfields_data, \%subfield_data);
--- 91,108 ----
        foreach my $field (@fields) {
                my @subf=$field->subfields;
! #             my $previous_tag = '';
                my @subfields_data;
  # loop through each subfield
                for my $i (0..$#subf) {
! #                     $previous_tag = $field->tag();
!                       $subf[$i][0] = "@" unless $subf[$i][0];
                        next if 
($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
                        my %subfield_data;
                        
$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
!                       if ($field->tag()<10) {
!                               $subfield_data{marc_value}=$field->data();
!                       } else {
!                               $subfield_data{marc_value}=$subf[$i][1];
!                       }
                        $subfield_data{marc_tag}=$subf[$i][0];
                        push(@subfields_data, \%subfield_data);