[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.34,1.35

[Paul POULAIN]

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

Modified Files:
	addbiblio.pl 
Log Message:
removing maxlength=80 in MARC editor : Koha can handle fields >> 255, so the marxlength is stupid.

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -r1.34 -r1.35
*** addbiblio.pl	11 Feb 2004 08:40:11 -0000	1.34
--- addbiblio.pl	17 Mar 2004 16:55:40 -0000	1.35
***************
*** 222,226 ****
  							my $subfield=$subfields[$subfieldcount][0];
  							my $value=$subfields[$subfieldcount][1];
! 							next if subfield_is_koha_internal_p($subfield);
  							next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  							push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
--- 222,226 ----
  							my $subfield=$subfields[$subfieldcount][0];
  							my $value=$subfields[$subfieldcount][1];
! 							next if (length $subfield !=1);
  							next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  							push(@subfields_data, &create_input($tag,$subfield,char_decode($value,$encoding),$i,$tabloop,$record,$authorised_values_sth));
***************
*** 230,234 ****
  # now, loop again to add parameter subfield that are not in the MARC::Record
  					foreach my $subfield (sort( keys %{$tagslib->{$tag}})) {
! 						next if subfield_is_koha_internal_p($subfield);
  						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  						next if ($tag<10);
--- 230,234 ----
  # now, loop again to add parameter subfield that are not in the MARC::Record
  					foreach my $subfield (sort( keys %{$tagslib->{$tag}})) {
! 						next if (length $subfield !=1);
  						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  						next if ($tag<10);
***************
*** 262,266 ****
  				my @subfields_data;
  				foreach my $subfield (sort(keys %{$tagslib->{$tag}})) {
! 					next if subfield_is_koha_internal_p($subfield);
  					next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  					push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
--- 262,266 ----
  				my @subfields_data;
  				foreach my $subfield (sort(keys %{$tagslib->{$tag}})) {
! 					next if (length $subfield !=1);
  					next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
  					push(@subfields_data, &create_input($tag,$subfield,'',$i,$tabloop,$record,$authorised_values_sth));
***************
*** 449,451 ****
  		oldbiblioitemnumber         => $oldbiblioitemnumber );
  }
! output_html_with_http_headers $input, $cookie, $template->output;
--- 449,451 ----
  		oldbiblioitemnumber         => $oldbiblioitemnumber );
  }
! output_html_with_http_headers $input, $cookie, $template->output;
\ No newline at end of file