Lines 189-197
if ( $op eq 'add_form' ) {
Link Here
|
189 |
. "\" id=\"tagsubfield\" />"; |
189 |
. "\" id=\"tagsubfield\" />"; |
190 |
$row_data{subfieldcode} = $data->{'tagsubfield'} eq '@'?'_':$data->{'tagsubfield'}; |
190 |
$row_data{subfieldcode} = $data->{'tagsubfield'} eq '@'?'_':$data->{'tagsubfield'}; |
191 |
$row_data{urisubfieldcode} = $row_data{subfieldcode} eq '%' ? 'pct' : $row_data{subfieldcode}; |
191 |
$row_data{urisubfieldcode} = $row_data{subfieldcode} eq '%' ? 'pct' : $row_data{subfieldcode}; |
192 |
$row_data{liblibrarian} = CGI::escapeHTML( $data->{'liblibrarian'} ); |
192 |
$row_data{liblibrarian} = $data->{'liblibrarian'}; |
193 |
$row_data{libopac} = CGI::escapeHTML( $data->{'libopac'} ); |
193 |
$row_data{libopac} = $data->{'libopac'}; |
194 |
$row_data{seealso} = CGI::escapeHTML( $data->{'seealso'} ); |
194 |
$row_data{seealso} = $data->{'seealso'}; |
195 |
$row_data{kohafield} = { |
195 |
$row_data{kohafield} = { |
196 |
id => "kohafield$i", |
196 |
id => "kohafield$i", |
197 |
values => \@kohafields, |
197 |
values => \@kohafields, |
Lines 226-232
if ( $op eq 'add_form' ) {
Link Here
|
226 |
-label => '', |
226 |
-label => '', |
227 |
-id => "mandatory$i" |
227 |
-id => "mandatory$i" |
228 |
); |
228 |
); |
229 |
$row_data{hidden} = CGI::escapeHTML( $data->{hidden} ); |
229 |
$row_data{hidden} = $data->{hidden}; |
230 |
$row_data{isurl} = CGI::checkbox( |
230 |
$row_data{isurl} = CGI::checkbox( |
231 |
-name => "isurl$i", |
231 |
-name => "isurl$i", |
232 |
-id => "isurl$i", |
232 |
-id => "isurl$i", |
Lines 235-241
if ( $op eq 'add_form' ) {
Link Here
|
235 |
-label => '' |
235 |
-label => '' |
236 |
); |
236 |
); |
237 |
$row_data{row} = $i; |
237 |
$row_data{row} = $i; |
238 |
$row_data{link} = CGI::escapeHTML( $data->{'link'} ); |
238 |
$row_data{link} = $data->{'link'}; |
239 |
push( @loop_data, \%row_data ); |
239 |
push( @loop_data, \%row_data ); |
240 |
$i++; |
240 |
$i++; |
241 |
} |
241 |
} |
Lines 299-305
if ( $op eq 'add_form' ) {
Link Here
|
299 |
values => \@authtypes, |
299 |
values => \@authtypes, |
300 |
default => $data->{'authtypecode'}, |
300 |
default => $data->{'authtypecode'}, |
301 |
}; |
301 |
}; |
302 |
$row_data{link} = CGI::escapeHTML( $data->{'link'} ); |
302 |
$row_data{link} = $data->{'link'}; |
303 |
$row_data{row} = $i; |
303 |
$row_data{row} = $i; |
304 |
push( @loop_data, \%row_data ); |
304 |
push( @loop_data, \%row_data ); |
305 |
|
305 |
|