|
Lines 154-162
sub generate_subfield_form {
Link Here
|
| 154 |
my $input = new CGI; |
154 |
my $input = new CGI; |
| 155 |
$value = $input->param('barcode'); |
155 |
$value = $input->param('barcode'); |
| 156 |
} |
156 |
} |
| 157 |
my $attributes_no_value = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="50" maxlength="$subfield_data{maxlength}" ); |
|
|
| 158 |
my $attributes_no_value_textarea = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" rows="5" cols="64" ); |
| 159 |
my $attributes = qq($attributes_no_value value="$value" ); |
| 160 |
|
157 |
|
| 161 |
if ( $subfieldlib->{authorised_value} ) { |
158 |
if ( $subfieldlib->{authorised_value} ) { |
| 162 |
my @authorised_values; |
159 |
my @authorised_values; |
|
Lines 213-242
sub generate_subfield_form {
Link Here
|
| 213 |
} |
210 |
} |
| 214 |
|
211 |
|
| 215 |
if ($subfieldlib->{'hidden'}) { |
212 |
if ($subfieldlib->{'hidden'}) { |
| 216 |
$subfield_data{marc_value} = qq(<input type="hidden" $attributes /> $authorised_lib{$value}); |
213 |
$subfield_data{marc_value} = { |
|
|
214 |
type => 'hidden', |
| 215 |
id => $subfield_data{id}, |
| 216 |
maxlength => $subfield_data{max_length}, |
| 217 |
value => $value, |
| 218 |
avalue => $authorised_lib{$value}, |
| 219 |
}; |
| 217 |
} |
220 |
} |
| 218 |
else { |
221 |
else { |
| 219 |
$subfield_data{marc_value} =CGI::scrolling_list( # FIXME: factor out scrolling_list |
222 |
$subfield_data{marc_value} = { |
| 220 |
-name => "field_value", |
223 |
type => 'select', |
| 221 |
-values => \@authorised_values, |
224 |
id => "tag_".$tag."_subfield_".$subfieldtag."_".$index_subfield, |
| 222 |
-default => $value, |
225 |
name => "field_value", |
| 223 |
-labels => \%authorised_lib, |
226 |
values => \@authorised_values, |
| 224 |
-override => 1, |
227 |
labels => \%authorised_lib, |
| 225 |
-size => 1, |
228 |
default => $value, |
| 226 |
-multiple => 0, |
229 |
}; |
| 227 |
-tabindex => 1, |
|
|
| 228 |
-id => "tag_".$tag."_subfield_".$subfieldtag."_".$index_subfield, |
| 229 |
-class => "input_marceditor", |
| 230 |
); |
| 231 |
} |
230 |
} |
| 232 |
|
231 |
|
| 233 |
} |
232 |
} |
| 234 |
# it's a thesaurus / authority field |
233 |
# it's a thesaurus / authority field |
| 235 |
elsif ( $subfieldlib->{authtypecode} ) { |
234 |
elsif ( $subfieldlib->{authtypecode} ) { |
| 236 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes /> |
235 |
$subfield_data{marc_value} = { |
| 237 |
<a href=\"#\" class=\"buttonDot\" |
236 |
type => 'text1', |
| 238 |
onclick=\"Dopop('/cgi-bin/koha/authorities/auth_finder.pl?authtypecode=".$subfieldlib->{authtypecode}."&index=$subfield_data{id}','$subfield_data{id}'); return false;\" title=\"Tag Editor\">...</a> |
237 |
id => $subfield_data{id}, |
| 239 |
"; |
238 |
maxlength => $subfield_data{max_length}, |
|
|
239 |
value => $value, |
| 240 |
authtypecode => $subfieldlib->{authtypecode}, |
| 241 |
}; |
| 240 |
} |
242 |
} |
| 241 |
# it's a plugin field |
243 |
# it's a plugin field |
| 242 |
elsif ( $subfieldlib->{value_builder} ) { |
244 |
elsif ( $subfieldlib->{value_builder} ) { |
|
Lines 248-269
sub generate_subfield_form {
Link Here
|
| 248 |
my $change = index($javascript, 'function Change') > -1 ? |
250 |
my $change = index($javascript, 'function Change') > -1 ? |
| 249 |
"return Change$function_name($subfield_data{random}, '$subfield_data{id}');" : |
251 |
"return Change$function_name($subfield_data{random}, '$subfield_data{id}');" : |
| 250 |
'return 1;'; |
252 |
'return 1;'; |
| 251 |
$subfield_data{marc_value} = qq[<input type="text" $attributes |
253 |
$subfield_data{marc_value} = { |
| 252 |
onfocus="Focus$function_name($subfield_data{random}, '$subfield_data{id}');" |
254 |
type => 'text2', |
| 253 |
onchange=" $change" |
255 |
id => $subfield_data{id}, |
| 254 |
onblur=" Blur$function_name($subfield_data{random}, '$subfield_data{id}');" /> |
256 |
maxlength => $subfield_data{max_length}, |
| 255 |
<a href="#" class="buttonDot" onclick="Clic$function_name('$subfield_data{id}'); return false;" title="Tag Editor">...</a> |
257 |
value => $value, |
| 256 |
$javascript]; |
258 |
function => $function_name, |
|
|
259 |
data_random => $subfield_data{random}, |
| 260 |
change => $change, |
| 261 |
javascript => $javascript, |
| 262 |
}; |
| 257 |
} else { |
263 |
} else { |
| 258 |
warn "Plugin Failed: $plugin"; |
264 |
warn "Plugin Failed: $plugin"; |
| 259 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes />"; # supply default input form |
265 |
$subfield_data{marc_value} = { |
|
|
266 |
type => 'text', |
| 267 |
id => $subfield_data{id}, |
| 268 |
maxlength => $subfield_data{max_length}, |
| 269 |
value => $value, |
| 270 |
}; # supply default input form |
| 260 |
} |
271 |
} |
| 261 |
} |
272 |
} |
| 262 |
elsif ( $tag eq '' ) { # it's an hidden field |
273 |
elsif ( $tag eq '' ) { # it's an hidden field |
| 263 |
$subfield_data{marc_value} = qq(<input type="hidden" $attributes />); |
274 |
$subfield_data{marc_value} = { |
|
|
275 |
type => 'hidden', |
| 276 |
id => $subfield_data{id}, |
| 277 |
maxlength => $subfield_data{max_length}, |
| 278 |
value => $value, |
| 279 |
}; |
| 264 |
} |
280 |
} |
| 265 |
elsif ( $subfieldlib->{'hidden'} ) { # FIXME: shouldn't input type be "hidden" ? |
281 |
elsif ( $subfieldlib->{'hidden'} ) { # FIXME: shouldn't input type be "hidden" ? |
| 266 |
$subfield_data{marc_value} = qq(<input type="text" $attributes />); |
282 |
$subfield_data{marc_value} = { |
|
|
283 |
type => 'text', |
| 284 |
id => $subfield_data{id}, |
| 285 |
maxlength => $subfield_data{max_length}, |
| 286 |
value => $value, |
| 287 |
}; |
| 267 |
} |
288 |
} |
| 268 |
elsif ( length($value) > 100 |
289 |
elsif ( length($value) > 100 |
| 269 |
or (C4::Context->preference("marcflavour") eq "UNIMARC" and |
290 |
or (C4::Context->preference("marcflavour") eq "UNIMARC" and |
|
Lines 272-281
sub generate_subfield_form {
Link Here
|
| 272 |
500 <= $tag && $tag < 600 ) |
293 |
500 <= $tag && $tag < 600 ) |
| 273 |
) { |
294 |
) { |
| 274 |
# oversize field (textarea) |
295 |
# oversize field (textarea) |
| 275 |
$subfield_data{marc_value} = "<textarea $attributes_no_value_textarea>$value</textarea>\n"; |
296 |
$subfield_data{marc_value} = { |
|
|
297 |
type => 'textarea', |
| 298 |
id => $subfield_data{id}, |
| 299 |
value => $value, |
| 300 |
}; |
| 276 |
} else { |
301 |
} else { |
| 277 |
# it's a standard field |
302 |
# it's a standard field |
| 278 |
$subfield_data{marc_value} = "<input type=\"text\" $attributes />"; |
303 |
$subfield_data{marc_value} = { |
|
|
304 |
type => 'text', |
| 305 |
id => $subfield_data{id}, |
| 306 |
maxlength => $subfield_data{max_length}, |
| 307 |
value => $value, |
| 308 |
}; |
| 279 |
} |
309 |
} |
| 280 |
|
310 |
|
| 281 |
return \%subfield_data; |
311 |
return \%subfield_data; |