[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);