projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 12508: adding an error message if a contract cannot be removed
[koha_fer]
/
admin
/
marc_subfields_structure.pl
diff --git
a/admin/marc_subfields_structure.pl
b/admin/marc_subfields_structure.pl
index
615fbcf
..
0589968
100755
(executable)
--- a/
admin/marc_subfields_structure.pl
+++ b/
admin/marc_subfields_structure.pl
@@
-276,6
+276,7
@@
if ( $op eq 'add_form' ) {
my %row_data; # get a fresh hash for the row data
$row_data{'new_subfield'} = 1;
$row_data{'subfieldcode'} = '';
my %row_data; # get a fresh hash for the row data
$row_data{'new_subfield'} = 1;
$row_data{'subfieldcode'} = '';
+ $row_data{'maxlength'} = 9999;
$row_data{tab} = CGI::scrolling_list(
-name => 'tab',
$row_data{tab} = CGI::scrolling_list(
-name => 'tab',
@@
-425,7
+426,7
@@
elsif ( $op eq 'add_validate' ) {
my $isurl = $input->param("isurl$i") ? 1 : 0;
my $link = $link[$i];
my $defaultvalue = $defaultvalue[$i];
my $isurl = $input->param("isurl$i") ? 1 : 0;
my $link = $link[$i];
my $defaultvalue = $defaultvalue[$i];
- my $maxlength = $maxlength[$i];
+ my $maxlength = $maxlength[$i]
? $maxlength[$i] : 9999
;
if (defined($liblibrarian) && $liblibrarian ne "") {
unless ( C4::Context->config('demo') eq 1 ) {
if (defined($liblibrarian) && $liblibrarian ne "") {
unless ( C4::Context->config('demo') eq 1 ) {