Lines 152-160
sub create_input {
Link Here
|
152 |
$value =~ s/DD/$day/g; |
152 |
$value =~ s/DD/$day/g; |
153 |
} |
153 |
} |
154 |
my $dbh = C4::Context->dbh; |
154 |
my $dbh = C4::Context->dbh; |
|
|
155 |
|
156 |
# map '@' as "subfield" label for fixed fields |
157 |
# to something that's allowed in a div id. |
158 |
my $id_subfield = $subfield; |
159 |
$id_subfield = "00" if $id_subfield eq "@"; |
160 |
|
155 |
my %subfield_data = ( |
161 |
my %subfield_data = ( |
156 |
tag => $tag, |
162 |
tag => $tag, |
157 |
subfield => $subfield, |
163 |
subfield => $id_subfield, |
158 |
marc_lib => substr( $tagslib->{$tag}->{$subfield}->{lib}, 0, 22 ), |
164 |
marc_lib => substr( $tagslib->{$tag}->{$subfield}->{lib}, 0, 22 ), |
159 |
marc_lib_plain => $tagslib->{$tag}->{$subfield}->{lib}, |
165 |
marc_lib_plain => $tagslib->{$tag}->{$subfield}->{lib}, |
160 |
tag_mandatory => $tagslib->{$tag}->{mandatory}, |
166 |
tag_mandatory => $tagslib->{$tag}->{mandatory}, |
Lines 162-175
sub create_input {
Link Here
|
162 |
repeatable => $tagslib->{$tag}->{$subfield}->{repeatable}, |
168 |
repeatable => $tagslib->{$tag}->{$subfield}->{repeatable}, |
163 |
kohafield => $tagslib->{$tag}->{$subfield}->{kohafield}, |
169 |
kohafield => $tagslib->{$tag}->{$subfield}->{kohafield}, |
164 |
index => $index_tag, |
170 |
index => $index_tag, |
165 |
id => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
171 |
id => "tag_".$tag."_subfield_".$id_subfield."_".$index_tag."_".$index_subfield, |
166 |
value => $value, |
172 |
value => $value, |
|
|
173 |
random => CreateKey(), |
174 |
fixedfield => $tag < 10 ? 1 : 0, |
167 |
); |
175 |
); |
168 |
if($subfield eq '@'){ |
|
|
169 |
$subfield_data{id} = "tag_".$tag."_subfield_00_".$index_tag."_".$index_subfield; |
170 |
} else { |
171 |
$subfield_data{id} = "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield; |
172 |
} |
173 |
|
176 |
|
174 |
if(exists $mandatory_z3950->{$tag.$subfield}){ |
177 |
if(exists $mandatory_z3950->{$tag.$subfield}){ |
175 |
$subfield_data{z3950_mandatory} = $mandatory_z3950->{$tag.$subfield}; |
178 |
$subfield_data{z3950_mandatory} = $mandatory_z3950->{$tag.$subfield}; |
Lines 441-447
sub build_tabs {
Link Here
|
441 |
repeatable => $tagslib->{$tag}->{repeatable}, |
444 |
repeatable => $tagslib->{$tag}->{repeatable}, |
442 |
mandatory => $tagslib->{$tag}->{mandatory}, |
445 |
mandatory => $tagslib->{$tag}->{mandatory}, |
443 |
subfield_loop => \@subfields_data, |
446 |
subfield_loop => \@subfields_data, |
444 |
fixedfield => ($tag < 10)?(1):(0), |
447 |
fixedfield => $tag < 10 ? 1 : 0, |
445 |
random => CreateKey, |
448 |
random => CreateKey, |
446 |
); |
449 |
); |
447 |
if ($tag >= 10){ # no indicator for theses tag |
450 |
if ($tag >= 10){ # no indicator for theses tag |
Lines 481-487
sub build_tabs {
Link Here
|
481 |
indicator2 => $indicator2, |
484 |
indicator2 => $indicator2, |
482 |
subfield_loop => \@subfields_data, |
485 |
subfield_loop => \@subfields_data, |
483 |
tagfirstsubfield => $subfields_data[0], |
486 |
tagfirstsubfield => $subfields_data[0], |
484 |
fixedfield => ($tag < 10)?(1):(0) |
487 |
fixedfield => $tag < 10 ? 1 : 0, |
485 |
); |
488 |
); |
486 |
|
489 |
|
487 |
push @loop_data, \%tag_data ; |
490 |
push @loop_data, \%tag_data ; |