Lines 239-256
sub build_authorized_values_list {
Link Here
|
239 |
} |
239 |
} |
240 |
} |
240 |
} |
241 |
$authorised_values_sth->finish; |
241 |
$authorised_values_sth->finish; |
242 |
return CGI::scrolling_list( |
242 |
return { |
243 |
-name => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
243 |
type => 'select', |
244 |
-values => \@authorised_values, |
244 |
id => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
245 |
-default => $value, |
245 |
name => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
246 |
-labels => \%authorised_lib, |
246 |
default => $value, |
247 |
-override => 1, |
247 |
values => \@authorised_values, |
248 |
-size => 1, |
248 |
labels => \%authorised_lib, |
249 |
-multiple => 0, |
249 |
}; |
250 |
-tabindex => 1, |
250 |
|
251 |
-id => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
|
|
252 |
-class => "input_marceditor", |
253 |
); |
254 |
} |
251 |
} |
255 |
|
252 |
|
256 |
=head2 CreateKey |
253 |
=head2 CreateKey |
Lines 366-402
sub create_input {
Link Here
|
366 |
defined($tagslib->{$tag}->{'a'}->{authtypecode}) and |
363 |
defined($tagslib->{$tag}->{'a'}->{authtypecode}) and |
367 |
$tagslib->{$tag}->{'a'}->{authtypecode} ne '') { |
364 |
$tagslib->{$tag}->{'a'}->{authtypecode} ne '') { |
368 |
|
365 |
|
369 |
$subfield_data{marc_value} = |
366 |
$subfield_data{marc_value} = { |
370 |
"<input type=\"text\" |
367 |
type => 'text', |
371 |
id=\"".$subfield_data{id}."\" |
368 |
id => $subfield_data{id}, |
372 |
name=\"".$subfield_data{id}."\" |
369 |
name => $subfield_data{id}, |
373 |
value=\"$value\" |
370 |
value => $value, |
374 |
class=\"input_marceditor readonly\" |
371 |
size => 5, |
375 |
tabindex=\"1\" |
372 |
maxlength => $subfield_data{maxlength}, |
376 |
size=\"5\" |
373 |
readonly => 1, |
377 |
maxlength=\"".$subfield_data{maxlength}."\" |
374 |
}; |
378 |
readonly=\"readonly\" |
|
|
379 |
\/>"; |
380 |
|
375 |
|
381 |
# it's a thesaurus / authority field |
376 |
# it's a thesaurus / authority field |
382 |
} |
377 |
} |
383 |
elsif ( $tagslib->{$tag}->{$subfield}->{authtypecode} ) { |
378 |
elsif ( $tagslib->{$tag}->{$subfield}->{authtypecode} ) { |
384 |
# when authorities auto-creation is allowed, do not set readonly |
379 |
# when authorities auto-creation is allowed, do not set readonly |
385 |
my $is_readonly = !C4::Context->preference("BiblioAddsAuthorities"); |
380 |
my $is_readonly = !C4::Context->preference("BiblioAddsAuthorities"); |
386 |
$subfield_data{marc_value} = |
381 |
|
387 |
"<input type=\"text\" |
382 |
$subfield_data{marc_value} = { |
388 |
id=\"".$subfield_data{id}."\" |
383 |
type => 'text', |
389 |
name=\"".$subfield_data{id}."\" |
384 |
id => $subfield_data{id}, |
390 |
value=\"$value\" |
385 |
name => $subfield_data{id}, |
391 |
class=\"input_marceditor readonly\" |
386 |
value => $value, |
392 |
tabindex=\"1\" |
387 |
size => 67, |
393 |
size=\"67\" |
388 |
maxlength => $subfield_data{maxlength}, |
394 |
maxlength=\"".$subfield_data{maxlength}."\"". |
389 |
readonly => ($is_readonly) ? 1 : 0, |
395 |
($is_readonly ? "readonly=\"readonly\"" : ""). |
390 |
authtype => $tagslib->{$tag}->{$subfield}->{authtypecode}, |
396 |
"\/> |
391 |
}; |
397 |
<span class=\"subfield_controls\"><a href=\"#\" class=\"buttonDot tag_editor\" |
392 |
|
398 |
onclick=\"openAuth(this.parentNode.parentNode.getElementsByTagName('input')[1].id,'".$tagslib->{$tag}->{$subfield}->{authtypecode}."','biblio'); return false;\" tabindex=\"1\" title=\"Tag editor\">Tag editor</a></span> |
|
|
399 |
"; |
400 |
# it's a plugin field |
393 |
# it's a plugin field |
401 |
} |
394 |
} |
402 |
elsif ( $tagslib->{$tag}->{$subfield}->{'value_builder'} ) { |
395 |
elsif ( $tagslib->{$tag}->{$subfield}->{'value_builder'} ) { |
Lines 413-458
sub create_input {
Link Here
|
413 |
my $extended_param = plugin_parameters( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); |
406 |
my $extended_param = plugin_parameters( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); |
414 |
my ( $function_name, $javascript ) = plugin_javascript( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); |
407 |
my ( $function_name, $javascript ) = plugin_javascript( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); |
415 |
|
408 |
|
416 |
$subfield_data{marc_value} = |
409 |
$subfield_data{marc_value} = { |
417 |
"<input tabindex=\"1\" |
410 |
type => 'text_complex', |
418 |
type=\"text\" |
411 |
id => $subfield_data{id}, |
419 |
id=\"".$subfield_data{id}."\" |
412 |
name => $subfield_data{id}, |
420 |
name=\"".$subfield_data{id}."\" |
413 |
value => $value, |
421 |
value=\"$value\" |
414 |
size => 67, |
422 |
class=\"input_marceditor\" |
415 |
maxlength => $subfield_data{maxlength}, |
423 |
onfocus=\"Focus$function_name($index_tag)\" |
416 |
function_name => $function_name, |
424 |
size=\"67\" |
417 |
index_tag => $index_tag, |
425 |
maxlength=\"".$subfield_data{maxlength}."\" |
418 |
javascript => $javascript, |
426 |
onblur=\"Blur$function_name($index_tag); \" \/> |
419 |
}; |
427 |
<span class=\"subfield_controls\"><a href=\"#\" class=\"buttonDot tag_editor\" onclick=\"Clic$function_name('$subfield_data{id}'); return false;\" tabindex=\"1\" title=\"Tag editor\">Tag editor</a></span> |
420 |
|
428 |
$javascript"; |
|
|
429 |
} else { |
421 |
} else { |
430 |
warn "Plugin Failed: $plugin"; |
422 |
warn "Plugin Failed: $plugin"; |
431 |
# supply default input form |
423 |
# supply default input form |
432 |
$subfield_data{marc_value} = |
424 |
$subfield_data{marc_value} = { |
433 |
"<input type=\"text\" |
425 |
type => 'text', |
434 |
id=\"".$subfield_data{id}."\" |
426 |
id => $subfield_data{id}, |
435 |
name=\"".$subfield_data{id}."\" |
427 |
name => $subfield_data{id}, |
436 |
value=\"$value\" |
428 |
value => $value, |
437 |
tabindex=\"1\" |
429 |
size => 67, |
438 |
size=\"67\" |
430 |
maxlength => $subfield_data{maxlength}, |
439 |
maxlength=\"".$subfield_data{maxlength}."\" |
431 |
readonly => 0, |
440 |
class=\"input_marceditor\" |
432 |
}; |
441 |
\/> |
433 |
|
442 |
"; |
|
|
443 |
} |
434 |
} |
444 |
# it's an hidden field |
435 |
# it's an hidden field |
445 |
} |
436 |
} |
446 |
elsif ( $tag eq '' ) { |
437 |
elsif ( $tag eq '' ) { |
447 |
$subfield_data{marc_value} = |
438 |
$subfield_data{marc_value} = { |
448 |
"<input tabindex=\"1\" |
439 |
type => 'hidden', |
449 |
type=\"hidden\" |
440 |
id => $subfield_data{id}, |
450 |
id=\"".$subfield_data{id}."\" |
441 |
name => $subfield_data{id}, |
451 |
name=\"".$subfield_data{id}."\" |
442 |
value => $value, |
452 |
size=\"67\" |
443 |
size => 67, |
453 |
maxlength=\"".$subfield_data{maxlength}."\" |
444 |
maxlength => $subfield_data{maxlength}, |
454 |
value=\"$value\" \/> |
445 |
}; |
455 |
"; |
446 |
|
456 |
} |
447 |
} |
457 |
else { |
448 |
else { |
458 |
# it's a standard field |
449 |
# it's a standard field |
Lines 466-493
sub create_input {
Link Here
|
466 |
&& C4::Context->preference("marcflavour") eq "MARC21" ) |
457 |
&& C4::Context->preference("marcflavour") eq "MARC21" ) |
467 |
) |
458 |
) |
468 |
{ |
459 |
{ |
469 |
$subfield_data{marc_value} = |
460 |
$subfield_data{marc_value} = { |
470 |
"<textarea cols=\"70\" |
461 |
type => 'textarea', |
471 |
rows=\"4\" |
462 |
id => $subfield_data{id}, |
472 |
id=\"".$subfield_data{id}."\" |
463 |
name => $subfield_data{id}, |
473 |
name=\"".$subfield_data{id}."\" |
464 |
value => $value, |
474 |
class=\"input_marceditor\" |
465 |
}; |
475 |
tabindex=\"1\" |
466 |
|
476 |
>$value</textarea> |
|
|
477 |
"; |
478 |
} |
467 |
} |
479 |
else { |
468 |
else { |
480 |
$subfield_data{marc_value} = |
469 |
$subfield_data{marc_value} = { |
481 |
"<input type=\"text\" |
470 |
type => 'text', |
482 |
id=\"".$subfield_data{id}."\" |
471 |
id => $subfield_data{id}, |
483 |
name=\"".$subfield_data{id}."\" |
472 |
name => $subfield_data{id}, |
484 |
value=\"$value\" |
473 |
value => $value, |
485 |
tabindex=\"1\" |
474 |
size => 67, |
486 |
size=\"67\" |
475 |
maxlength => $subfield_data{maxlength}, |
487 |
maxlength=\"".$subfield_data{maxlength}."\" |
476 |
readonly => 0, |
488 |
class=\"input_marceditor\" |
477 |
}; |
489 |
\/> |
478 |
|
490 |
"; |
|
|
491 |
} |
479 |
} |
492 |
} |
480 |
} |
493 |
$subfield_data{'index_subfield'} = $index_subfield; |
481 |
$subfield_data{'index_subfield'} = $index_subfield; |