[Koha-cvs] CVS: koha MARCdetail.pl,1.2,1.3

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv27411

Modified Files:
        MARCdetail.pl 
Log Message:
minor bugfixes and improvements

Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** MARCdetail.pl       9 Oct 2002 15:45:59 -0000       1.2
--- MARCdetail.pl       11 Oct 2002 09:29:38 -0000      1.3
***************
*** 33,37 ****
  my $dbh=C4::Context->dbh;
  
! my $biblionumber=$query->param('biblionumber');
  my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
  
--- 33,37 ----
  my $dbh=C4::Context->dbh;
  
! my $biblionumber=$query->param('bib');
  my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
  
***************
*** 60,69 ****
                        
$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
                        $subfield_data{marc_value}=$subf[$i][1];
!                       $subfield_data{marc_tag}=$field->tag().$subf[$i][0];
                        push(@subfields_data, \%subfield_data);
                }
                if ($#subfields_data>=0) {
                        my %tag_data;
!                       $tag_data{tag}=$field->tag().' '. 
$tagslib->{$field->tag()}->{lib};
                        $tag_data{subfield} = address@hidden;
                        push (@loop_data, \%tag_data);
--- 60,69 ----
                        
$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);
                }
                if ($#subfields_data>=0) {
                        my %tag_data;
!                       $tag_data{tag}=$field->tag().' -'. 
$tagslib->{$field->tag()}->{lib};
                        $tag_data{subfield} = address@hidden;
                        push (@loop_data, \%tag_data);