|
Lines 179-207
if ( $op eq 'add_form' ) {
Link Here
|
| 179 |
my %row_data; # get a fresh hash for the row data |
179 |
my %row_data; # get a fresh hash for the row data |
| 180 |
$row_data{defaultvalue} = $data->{defaultvalue}; |
180 |
$row_data{defaultvalue} = $data->{defaultvalue}; |
| 181 |
$row_data{maxlength} = $data->{maxlength}; |
181 |
$row_data{maxlength} = $data->{maxlength}; |
| 182 |
$row_data{tab} = CGI::scrolling_list( |
182 |
$row_data{tab} = { |
| 183 |
-name => 'tab', |
183 |
id => "tab$i", |
| 184 |
-id => "tab$i", |
184 |
default => $data->{'tab'}, |
| 185 |
-values => |
185 |
}; |
| 186 |
[ '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10' ], |
186 |
|
| 187 |
-labels => { |
|
|
| 188 |
'-1' => 'ignore', |
| 189 |
'0' => '0', |
| 190 |
'1' => '1', |
| 191 |
'2' => '2', |
| 192 |
'3' => '3', |
| 193 |
'4' => '4', |
| 194 |
'5' => '5', |
| 195 |
'6' => '6', |
| 196 |
'7' => '7', |
| 197 |
'8' => '8', |
| 198 |
'9' => '9', |
| 199 |
'10' => 'items (10)', |
| 200 |
}, |
| 201 |
-default => $data->{'tab'}, |
| 202 |
-size => 1, |
| 203 |
-multiple => 0, |
| 204 |
); |
| 205 |
$row_data{tagsubfield} = |
187 |
$row_data{tagsubfield} = |
| 206 |
$data->{'tagsubfield'} |
188 |
$data->{'tagsubfield'} |
| 207 |
. "<input type=\"hidden\" name=\"tagsubfield\" value=\"" |
189 |
. "<input type=\"hidden\" name=\"tagsubfield\" value=\"" |
|
Lines 212-249
if ( $op eq 'add_form' ) {
Link Here
|
| 212 |
$row_data{liblibrarian} = CGI::escapeHTML( $data->{'liblibrarian'} ); |
194 |
$row_data{liblibrarian} = CGI::escapeHTML( $data->{'liblibrarian'} ); |
| 213 |
$row_data{libopac} = CGI::escapeHTML( $data->{'libopac'} ); |
195 |
$row_data{libopac} = CGI::escapeHTML( $data->{'libopac'} ); |
| 214 |
$row_data{seealso} = CGI::escapeHTML( $data->{'seealso'} ); |
196 |
$row_data{seealso} = CGI::escapeHTML( $data->{'seealso'} ); |
| 215 |
$row_data{kohafield} = CGI::scrolling_list( |
197 |
$row_data{kohafield} = { |
| 216 |
-name => "kohafield", |
198 |
id => "kohafield$i", |
| 217 |
-id => "kohafield$i", |
199 |
values => \@kohafields, |
| 218 |
-values => \@kohafields, |
200 |
default => "$data->{'kohafield'}", |
| 219 |
-default => "$data->{'kohafield'}", |
201 |
}; |
| 220 |
-size => 1, |
202 |
$row_data{authorised_value} = { |
| 221 |
-multiple => 0, |
203 |
id => "authorised_value$i", |
| 222 |
); |
204 |
values => \@authorised_values, |
| 223 |
$row_data{authorised_value} = CGI::scrolling_list( |
205 |
default => $data->{'authorised_value'}, |
| 224 |
-name => "authorised_value", |
206 |
}; |
| 225 |
-id => "authorised_value$i", |
207 |
$row_data{value_builder} = { |
| 226 |
-values => \@authorised_values, |
208 |
id => "value_builder$i", |
| 227 |
-default => $data->{'authorised_value'}, |
209 |
values => \@value_builder, |
| 228 |
-size => 1, |
210 |
default => $data->{'value_builder'}, |
| 229 |
-multiple => 0, |
211 |
}; |
| 230 |
); |
212 |
$row_data{authtypes} = { |
| 231 |
$row_data{value_builder} = CGI::scrolling_list( |
213 |
id => "authtypecode$i", |
| 232 |
-name => "value_builder", |
214 |
values => \@authtypes, |
| 233 |
-id => "value_builder$i", |
215 |
default => $data->{'authtypecode'}, |
| 234 |
-values => \@value_builder, |
216 |
}; |
| 235 |
-default => $data->{'value_builder'}, |
|
|
| 236 |
-size => 1, |
| 237 |
-multiple => 0, |
| 238 |
); |
| 239 |
$row_data{authtypes} = CGI::scrolling_list( |
| 240 |
-name => "authtypecode", |
| 241 |
-id => "authtypecode$i", |
| 242 |
-values => \@authtypes, |
| 243 |
-default => $data->{'authtypecode'}, |
| 244 |
-size => 1, |
| 245 |
-multiple => 0, |
| 246 |
); |
| 247 |
$row_data{repeatable} = CGI::checkbox( |
217 |
$row_data{repeatable} = CGI::checkbox( |
| 248 |
-name => "repeatable$i", |
218 |
-name => "repeatable$i", |
| 249 |
-checked => $data->{'repeatable'} ? 'checked' : '', |
219 |
-checked => $data->{'repeatable'} ? 'checked' : '', |
|
Lines 278-306
if ( $op eq 'add_form' ) {
Link Here
|
| 278 |
$row_data{'subfieldcode'} = ''; |
248 |
$row_data{'subfieldcode'} = ''; |
| 279 |
$row_data{'maxlength'} = 9999; |
249 |
$row_data{'maxlength'} = 9999; |
| 280 |
|
250 |
|
| 281 |
$row_data{tab} = CGI::scrolling_list( |
251 |
$row_data{tab} = { |
| 282 |
-name => 'tab', |
252 |
id => "tab$i", |
| 283 |
-id => "tab$i", |
253 |
default => $data->{'tab'}, |
| 284 |
-values => |
254 |
}; |
| 285 |
[ '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10' ], |
|
|
| 286 |
-labels => { |
| 287 |
'-1' => 'ignore', |
| 288 |
'0' => '0', |
| 289 |
'1' => '1', |
| 290 |
'2' => '2', |
| 291 |
'3' => '3', |
| 292 |
'4' => '4', |
| 293 |
'5' => '5', |
| 294 |
'6' => '6', |
| 295 |
'7' => '7', |
| 296 |
'8' => '8', |
| 297 |
'9' => '9', |
| 298 |
'10' => 'items (10)', |
| 299 |
}, |
| 300 |
-default => "", |
| 301 |
-size => 1, |
| 302 |
-multiple => 0, |
| 303 |
); |
| 304 |
$row_data{tagsubfield} = |
255 |
$row_data{tagsubfield} = |
| 305 |
"<input type=\"text\" name=\"tagsubfield\" value=\"" |
256 |
"<input type=\"text\" name=\"tagsubfield\" value=\"" |
| 306 |
. $data->{'tagsubfield'} |
257 |
. $data->{'tagsubfield'} |
|
Lines 308-321
if ( $op eq 'add_form' ) {
Link Here
|
| 308 |
$row_data{liblibrarian} = ""; |
259 |
$row_data{liblibrarian} = ""; |
| 309 |
$row_data{libopac} = ""; |
260 |
$row_data{libopac} = ""; |
| 310 |
$row_data{seealso} = ""; |
261 |
$row_data{seealso} = ""; |
| 311 |
$row_data{kohafield} = CGI::scrolling_list( |
262 |
$row_data{kohafield} = { |
| 312 |
-name => 'kohafield', |
263 |
id => "kohafield$i", |
| 313 |
-id => "kohafield$i", |
264 |
values => \@kohafields, |
| 314 |
-values => \@kohafields, |
265 |
default => "$data->{'kohafield'}", |
| 315 |
-default => "", |
266 |
}; |
| 316 |
-size => 1, |
|
|
| 317 |
-multiple => 0, |
| 318 |
); |
| 319 |
$row_data{hidden} = ""; |
267 |
$row_data{hidden} = ""; |
| 320 |
$row_data{repeatable} = CGI::checkbox( |
268 |
$row_data{repeatable} = CGI::checkbox( |
| 321 |
-name => "repeatable$i", |
269 |
-name => "repeatable$i", |
|
Lines 338-365
if ( $op eq 'add_form' ) {
Link Here
|
| 338 |
-value => 1, |
286 |
-value => 1, |
| 339 |
-label => '' |
287 |
-label => '' |
| 340 |
); |
288 |
); |
| 341 |
$row_data{value_builder} = CGI::scrolling_list( |
289 |
$row_data{value_builder} = { |
| 342 |
-name => "value_builder", |
290 |
id => "value_builder$i", |
| 343 |
-id => "value_builder$i", |
291 |
values => \@value_builder, |
| 344 |
-values => \@value_builder, |
292 |
default => $data->{'value_builder'}, |
| 345 |
-default => $data->{'value_builder'}, |
293 |
}; |
| 346 |
-size => 1, |
294 |
$row_data{authorised_value} = { |
| 347 |
-multiple => 0, |
295 |
id => "authorised_value$i", |
| 348 |
); |
296 |
values => \@authorised_values, |
| 349 |
$row_data{authorised_value} = CGI::scrolling_list( |
297 |
default => $data->{'authorised_value'}, |
| 350 |
-name => "authorised_value", |
298 |
}; |
| 351 |
-id => "authorised_value$i", |
299 |
$row_data{authtypes} = { |
| 352 |
-values => \@authorised_values, |
300 |
id => "authtypecode$i", |
| 353 |
-size => 1, |
301 |
values => \@authtypes, |
| 354 |
-multiple => 0, |
302 |
default => $data->{'authtypecode'}, |
| 355 |
); |
303 |
}; |
| 356 |
$row_data{authtypes} = CGI::scrolling_list( |
|
|
| 357 |
-name => "authtypecode", |
| 358 |
-id => "authtypecode$i", |
| 359 |
-values => \@authtypes, |
| 360 |
-size => 1, |
| 361 |
-multiple => 0, |
| 362 |
); |
| 363 |
$row_data{link} = CGI::escapeHTML( $data->{'link'} ); |
304 |
$row_data{link} = CGI::escapeHTML( $data->{'link'} ); |
| 364 |
$row_data{row} = $i; |
305 |
$row_data{row} = $i; |
| 365 |
push( @loop_data, \%row_data ); |
306 |
push( @loop_data, \%row_data ); |