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