[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