Lines 172-178
if ( $op eq 'add_form' ) {
Link Here
|
172 |
$row_data{maxlength} = $data->{maxlength}; |
172 |
$row_data{maxlength} = $data->{maxlength}; |
173 |
$row_data{tab} = $data->{tab}; |
173 |
$row_data{tab} = $data->{tab}; |
174 |
$row_data{tagsubfield} = $data->{tagsubfield}; |
174 |
$row_data{tagsubfield} = $data->{tagsubfield}; |
175 |
$row_data{subfieldcode} = $data->{'tagsubfield'} eq '@' ? '_' : $data->{'tagsubfield'}; |
175 |
$row_data{subfieldcode} = $data->{'tagsubfield'}; |
176 |
$row_data{urisubfieldcode} = $row_data{subfieldcode} eq '%' ? 'pct' : $row_data{subfieldcode}; |
176 |
$row_data{urisubfieldcode} = $row_data{subfieldcode} eq '%' ? 'pct' : $row_data{subfieldcode}; |
177 |
$row_data{liblibrarian} = $data->{'liblibrarian'}; |
177 |
$row_data{liblibrarian} = $data->{'liblibrarian'}; |
178 |
$row_data{libopac} = $data->{'libopac'}; |
178 |
$row_data{libopac} = $data->{'libopac'}; |
Lines 263-269
elsif ( $op eq 'add_validate' ) {
Link Here
|
263 |
my $tagfield = $input->param('tagfield'); |
263 |
my $tagfield = $input->param('tagfield'); |
264 |
my $tagsubfield = $tagsubfield[$i]; |
264 |
my $tagsubfield = $tagsubfield[$i]; |
265 |
$tagsubfield = "@" unless $tagsubfield ne ''; |
265 |
$tagsubfield = "@" unless $tagsubfield ne ''; |
266 |
$tagsubfield = "@" if $tagsubfield eq '_'; |
|
|
267 |
my $liblibrarian = $liblibrarian[$i]; |
266 |
my $liblibrarian = $liblibrarian[$i]; |
268 |
my $libopac = $libopac[$i]; |
267 |
my $libopac = $libopac[$i]; |
269 |
my $repeatable = $input->param("repeatable$i") ? 1 : 0; |
268 |
my $repeatable = $input->param("repeatable$i") ? 1 : 0; |