[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.29,1.30

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv18263/acqui.simple

Modified Files:
	addbiblio.pl 
Log Message:
small fix for biblio modif : when modifying a biblio, fields that were left 100% empty during add were no more in the editor. Thus, it was impossible to add them forever. This 1 line fix restore correct behaviour.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -r1.29 -r1.30
*** addbiblio.pl	20 Jun 2003 14:32:08 -0000	1.29
--- addbiblio.pl	26 Jun 2003 14:11:09 -0000	1.30
***************
*** 206,210 ****
  	# if MARC::Record is not empty => use it as master loop, then add missing subfields that should be in the tab.
  	# if MARC::Record is empty => use tab as master loop.
! 			if ($record ne -1) {
  				my @fields = $record->field($tag);
  				foreach my $field (@fields)  {
--- 206,210 ----
  	# if MARC::Record is not empty => use it as master loop, then add missing subfields that should be in the tab.
  	# if MARC::Record is empty => use tab as master loop.
! 			if ($record ne -1 && $record->field($tag)) {
  				my @fields = $record->field($tag);
  				foreach my $field (@fields)  {
***************
*** 213,217 ****
  						my $value=$field->data();
  						my $subfield="@";
! 						push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth));
  						$i++;
  					} else {
--- 213,218 ----
  						my $value=$field->data();
  						my $subfield="@";
! 						push(@subfields_data, &create_input($tag,$subfield,$value,$i,$tabloop,$record,$authorised_values_sth))
! 								unless ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  						$i++;
  					} else {