From e03a18467cb9b8948bb715e145fec521a75e9f83 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 17 Mar 2004 16:55:40 +0000
Subject: [PATCH] removing maxlength=80 in MARC editor : Koha can handle fields
 >> 255, so the marxlength is stupid.

---
 acqui.simple/addbiblio.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index a3960476eb..f637628447 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -221,7 +221,7 @@ sub build_tabs ($$$$) {
 						foreach my $subfieldcount (0..$#subfields) {
 							my $subfield=$subfields[$subfieldcount][0];
 							my $value=$subfields[$subfieldcount][1];
-							next if subfield_is_koha_internal_p($subfield);
+							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));
 							$i++;
@@ -229,7 +229,7 @@ sub build_tabs ($$$$) {
 					}
 # 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 (length $subfield !=1);
 						next if ($tagslib->{$tag}->{$subfield}->{tab} ne $tabloop);
 						next if ($tag<10);
 						next if (defined($record->field($tag)->subfield($subfield)));
@@ -261,7 +261,7 @@ sub build_tabs ($$$$) {
 			} else {
 				my @subfields_data;
 				foreach my $subfield (sort(keys %{$tagslib->{$tag}})) {
-					next if subfield_is_koha_internal_p($subfield);
+					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));
 					$i++;
@@ -448,4 +448,4 @@ if ($op eq "addbiblio") {
 		oldbiblioitemnumtagsubfield => $oldbiblioitemnumtagsubfield,
 		oldbiblioitemnumber         => $oldbiblioitemnumber );
 }
-output_html_with_http_headers $input, $cookie, $template->output;
+output_html_with_http_headers $input, $cookie, $template->output;
\ No newline at end of file
-- 
2.39.5