|
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 |
); |