Lines 330-338
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
330 |
$subfield_data{visibility} = "display:none;" if (($tagslib->{$tag}->{$subfield}->{hidden} > 4) || ($tagslib->{$tag}->{$subfield}->{hidden} < -4)); |
330 |
$subfield_data{visibility} = "display:none;" if (($tagslib->{$tag}->{$subfield}->{hidden} > 4) || ($tagslib->{$tag}->{$subfield}->{hidden} < -4)); |
331 |
# testing branch value if IndependentBranches. |
331 |
# testing branch value if IndependentBranches. |
332 |
|
332 |
|
333 |
my $attributes_no_value = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="50" maxlength="255" ); |
|
|
334 |
my $attributes = qq($attributes_no_value value="$value" ); |
335 |
|
336 |
if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) { |
333 |
if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) { |
337 |
my @authorised_values; |
334 |
my @authorised_values; |
338 |
my %authorised_lib; |
335 |
my %authorised_lib; |
Lines 383-407
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
383 |
} |
380 |
} |
384 |
$value=""; |
381 |
$value=""; |
385 |
} |
382 |
} |
386 |
$subfield_data{marc_value} =CGI::scrolling_list( # FIXME: factor out scrolling_list |
383 |
$subfield_data{marc_value} = { |
387 |
-name => "field_value", |
384 |
type => 'select', |
388 |
-values => \@authorised_values, |
385 |
id => "tag_".$tag."_subfield_".$subfield."_".$index_subfield, |
389 |
-default => $value, |
386 |
name => "field_value", |
390 |
-labels => \%authorised_lib, |
387 |
values => \@authorised_values, |
391 |
-override => 1, |
388 |
labels => \%authorised_lib, |
392 |
-size => 1, |
389 |
default => $value, |
393 |
-multiple => 0, |
390 |
}; |
394 |
-tabindex => 1, |
|
|
395 |
-id => "tag_".$tag."_subfield_".$subfield."_".$index_subfield, |
396 |
-class => "input_marceditor", |
397 |
); |
398 |
# it's a thesaurus / authority field |
391 |
# it's a thesaurus / authority field |
399 |
} |
392 |
} |
400 |
elsif ( $tagslib->{$tag}->{$subfield}->{authtypecode} ) { |
393 |
elsif ( $tagslib->{$tag}->{$subfield}->{authtypecode} ) { |
401 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes /> |
394 |
$subfield_data{marc_value} = { |
402 |
<a href=\"#\" class=\"buttonDot\" |
395 |
type => 'text1', |
403 |
onclick=\"Dopop('/cgi-bin/koha/authorities/auth_finder.pl?authtypecode=".$tagslib->{$tag}->{$subfield}->{authtypecode}."&index=$subfield_data{id}','$subfield_data{id}'); return false;\" title=\"Tag Editor\">...</a> |
396 |
id => $subfield_data{id}, |
404 |
"; |
397 |
value => $value, |
|
|
398 |
authtypecode => $tagslib->{$tag}->{$subfield}->{authtypecode}, |
399 |
} |
405 |
# it's a plugin field |
400 |
# it's a plugin field |
406 |
} |
401 |
} |
407 |
elsif ( $tagslib->{$tag}->{$subfield}->{value_builder} ) { |
402 |
elsif ( $tagslib->{$tag}->{$subfield}->{value_builder} ) { |
Lines 411-431
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
411 |
my $temp; |
406 |
my $temp; |
412 |
my $extended_param = plugin_parameters( $dbh, $temp, $tagslib, $subfield_data{id}, \@loop_data ); |
407 |
my $extended_param = plugin_parameters( $dbh, $temp, $tagslib, $subfield_data{id}, \@loop_data ); |
413 |
my ( $function_name, $javascript ) = plugin_javascript( $dbh, $temp, $tagslib, $subfield_data{id}, \@loop_data ); |
408 |
my ( $function_name, $javascript ) = plugin_javascript( $dbh, $temp, $tagslib, $subfield_data{id}, \@loop_data ); |
414 |
$subfield_data{marc_value} = qq[<input type="text" $attributes |
409 |
$subfield_data{marc_value} = { |
415 |
onfocus="Focus$function_name($subfield_data{random}, '$subfield_data{id}');" |
410 |
type => 'text2', |
416 |
onblur=" Blur$function_name($subfield_data{random}, '$subfield_data{id}');" /> |
411 |
id => $subfield_data{id}, |
417 |
<a href="#" class="buttonDot" onclick="Clic$function_name('$subfield_data{id}'); return false;" title="Tag Editor">...</a> |
412 |
value => $value, |
418 |
$javascript]; |
413 |
function => $function_name, |
|
|
414 |
random => $subfield_data{random}, |
415 |
javascript => $javascript, |
416 |
}; |
419 |
} else { |
417 |
} else { |
420 |
warn "Plugin Failed: $plugin"; |
418 |
warn "Plugin Failed: $plugin"; |
421 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes />"; # supply default input form |
419 |
$subfield_data{marc_value} = { # supply default input form |
|
|
420 |
type => 'text', |
421 |
id => $subfield_data{id}, |
422 |
value => $value, |
423 |
}; |
422 |
} |
424 |
} |
423 |
} |
425 |
} |
424 |
elsif ( $tag eq '' ) { # it's an hidden field |
426 |
elsif ( $tag eq '' ) { # it's an hidden field |
425 |
$subfield_data{marc_value} = qq(<input type="hidden" $attributes />); |
427 |
$subfield_data{marc_value} = { |
|
|
428 |
type => 'hidden', |
429 |
id => $subfield_data{id}, |
430 |
value => $value, |
431 |
}; |
426 |
} |
432 |
} |
427 |
elsif ( $tagslib->{$tag}->{$subfield}->{'hidden'} ) { # FIXME: shouldn't input type be "hidden" ? |
433 |
elsif ( $tagslib->{$tag}->{$subfield}->{'hidden'} ) { # FIXME: shouldn't input type be "hidden" ? |
428 |
$subfield_data{marc_value} = qq(<input type="text" $attributes />); |
434 |
$subfield_data{marc_value} = { |
|
|
435 |
type => 'text', |
436 |
id => $subfield_data{id}, |
437 |
value => $value, |
438 |
}; |
429 |
} |
439 |
} |
430 |
elsif ( length($value) > 100 |
440 |
elsif ( length($value) > 100 |
431 |
or (C4::Context->preference("marcflavour") eq "UNIMARC" and |
441 |
or (C4::Context->preference("marcflavour") eq "UNIMARC" and |
Lines 434-443
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
434 |
500 <= $tag && $tag < 600 ) |
444 |
500 <= $tag && $tag < 600 ) |
435 |
) { |
445 |
) { |
436 |
# oversize field (textarea) |
446 |
# oversize field (textarea) |
437 |
$subfield_data{marc_value} = "<textarea $attributes_no_value>$value</textarea>\n"; |
447 |
$subfield_data{marc_value} = { |
|
|
448 |
type => 'textarea', |
449 |
id => $subfield_data{id}, |
450 |
value => $value, |
451 |
}; |
438 |
} else { |
452 |
} else { |
439 |
# it's a standard field |
453 |
# it's a standard field |
440 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes />"; |
454 |
$subfield_data{marc_value} = { |
|
|
455 |
type => 'text', |
456 |
id => $subfield_data{id}, |
457 |
value => $value, |
458 |
}; |
441 |
} |
459 |
} |
442 |
# $subfield_data{marc_value}="<input type=\"text\" name=\"field_value\">"; |
460 |
# $subfield_data{marc_value}="<input type=\"text\" name=\"field_value\">"; |
443 |
push (@loop_data, \%subfield_data); |
461 |
push (@loop_data, \%subfield_data); |
444 |
- |
|
|