Lines 154-159
sub generate_subfield_form {
Link Here
|
154 |
$value = $input->param('barcode'); |
154 |
$value = $input->param('barcode'); |
155 |
} |
155 |
} |
156 |
my $attributes_no_value = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="$subfield_data{maxlength}" ); |
156 |
my $attributes_no_value = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="$subfield_data{maxlength}" ); |
|
|
157 |
my $attributes_no_value_textarea = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" rows="5" cols="64" ); |
157 |
my $attributes = qq($attributes_no_value value="$value" ); |
158 |
my $attributes = qq($attributes_no_value value="$value" ); |
158 |
|
159 |
|
159 |
if ( $subfieldlib->{authorised_value} ) { |
160 |
if ( $subfieldlib->{authorised_value} ) { |
Lines 270-276
sub generate_subfield_form {
Link Here
|
270 |
500 <= $tag && $tag < 600 ) |
271 |
500 <= $tag && $tag < 600 ) |
271 |
) { |
272 |
) { |
272 |
# oversize field (textarea) |
273 |
# oversize field (textarea) |
273 |
$subfield_data{marc_value} = "<textarea $attributes_no_value>$value</textarea>\n"; |
274 |
$subfield_data{marc_value} = "<textarea $attributes_no_value_textarea>$value</textarea>\n"; |
274 |
} else { |
275 |
} else { |
275 |
# it's a standard field |
276 |
# it's a standard field |
276 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes />"; |
277 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes />"; |
277 |
- |
|
|