[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} = \@subfields_data;
  			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} = \@subfields_data;
  			push (@loop_data, \%tag_data);