Lines 133-140
builds the <input ...> entry for a subfield.
Link Here
|
133 |
=cut |
133 |
=cut |
134 |
|
134 |
|
135 |
sub create_input { |
135 |
sub create_input { |
136 |
my ( $tag, $subfield, $value, $index_tag, $tabloop, $rec, $authorised_values_sth,$cgi ) = @_; |
136 |
my ( $tag, $subfield, $value, $index_tag, $rec, $authorised_values_sth,$cgi ) = @_; |
137 |
|
137 |
|
138 |
my $index_subfield = CreateKey(); # create a specifique key for each subfield |
138 |
my $index_subfield = CreateKey(); # create a specifique key for each subfield |
139 |
|
139 |
|
140 |
# determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008 |
140 |
# determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008 |
Lines 213-219
sub create_input {
Link Here
|
213 |
name => $tagslib->{$tag}->{$subfield}->{'value_builder'}, |
213 |
name => $tagslib->{$tag}->{$subfield}->{'value_builder'}, |
214 |
}); |
214 |
}); |
215 |
my $pars= { dbh => $dbh, record => $rec, tagslib =>$tagslib, |
215 |
my $pars= { dbh => $dbh, record => $rec, tagslib =>$tagslib, |
216 |
id => $subfield_data{id}, tabloop => $tabloop }; |
216 |
id => $subfield_data{id} }; |
217 |
$plugin->build( $pars ); |
217 |
$plugin->build( $pars ); |
218 |
if( !$plugin->errstr ) { |
218 |
if( !$plugin->errstr ) { |
219 |
$subfield_data{marc_value} = { |
219 |
$subfield_data{marc_value} = { |
Lines 410-416
sub build_tabs {
Link Here
|
410 |
push( |
410 |
push( |
411 |
@subfields_data, |
411 |
@subfields_data, |
412 |
&create_input( |
412 |
&create_input( |
413 |
$tag, $subfield, $value, $index_tag, $tabloop, $record, |
413 |
$tag, $subfield, $value, $index_tag, $record, |
414 |
$authorised_values_sth,$input |
414 |
$authorised_values_sth,$input |
415 |
) |
415 |
) |
416 |
); |
416 |
); |
Lines 426-432
sub build_tabs {
Link Here
|
426 |
push( |
426 |
push( |
427 |
@subfields_data, |
427 |
@subfields_data, |
428 |
&create_input( |
428 |
&create_input( |
429 |
$tag, $subfield, $value, $index_tag, $tabloop, |
429 |
$tag, $subfield, $value, $index_tag, |
430 |
$record, $authorised_values_sth,$input |
430 |
$record, $authorised_values_sth,$input |
431 |
) |
431 |
) |
432 |
); |
432 |
); |
Lines 444-450
sub build_tabs {
Link Here
|
444 |
push( |
444 |
push( |
445 |
@subfields_data, |
445 |
@subfields_data, |
446 |
&create_input( |
446 |
&create_input( |
447 |
$tag, $subfield, '', $index_tag, $tabloop, $record, |
447 |
$tag, $subfield, '', $index_tag, $record, |
448 |
$authorised_values_sth,$input |
448 |
$authorised_values_sth,$input |
449 |
) |
449 |
) |
450 |
); |
450 |
); |
Lines 486-492
sub build_tabs {
Link Here
|
486 |
push( |
486 |
push( |
487 |
@subfields_data, |
487 |
@subfields_data, |
488 |
&create_input( |
488 |
&create_input( |
489 |
$tag, $subfield->{subfield}, '', $index_tag, $tabloop, $record, |
489 |
$tag, $subfield->{subfield}, '', $index_tag, $record, |
490 |
$authorised_values_sth,$input |
490 |
$authorised_values_sth,$input |
491 |
) |
491 |
) |
492 |
); |
492 |
); |