|
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; |