View | Details | Raw Unified | Return to bug 5955
Collapse All | Expand All

(-)a/C4/Biblio.pm (-1 / +25 lines)
Lines 2376-2381 sub PrepareItemrecordDisplay { Link Here
2376
                        -tabindex => '',
2376
                        -tabindex => '',
2377
                        -multiple => 0,
2377
                        -multiple => 0,
2378
                    );
2378
                    );
2379
2380
                } elsif ( $tagslib->{$tag}->{$subfield}->{value_builder} ) {
2381
					# opening plugin
2382
					my $plugin = C4::Context->intranetdir . "/cataloguing/value_builder/" . $tagslib->{$tag}->{$subfield}->{'value_builder'};
2383
					my $id = "tag_".$tag."_subfield_".$subfield;
2384
					my $attributes = " id=\"$id\" type=\"text\" name=\"field_value\" value=\"$defaultvalue\" size=\"50\" maxlength=\"255\" ";
2385
					if (do $plugin) {
2386
						my $temp;
2387
						my $loop_data;
2388
						my $random = int(rand(1000000));
2389
						my $extended_param = plugin_parameters( $dbh, $temp, $tagslib, $id, $loop_data );
2390
						my ( $function_name, $javascript ) = plugin_javascript( $dbh, $temp, $tagslib, $id, $loop_data );
2391
						my $change = index($javascript, 'function Change') > -1 ?
2392
						"return Change$function_name($random, '$id');" :
2393
						'return 1;';
2394
						$subfield_data{marc_value} = qq[<input $attributes
2395
						onfocus="Focus$function_name($random, '$id');"
2396
						onchange=" $change"
2397
						 onblur=" Blur$function_name($random, '$id');" />
2398
						<a href="#" class="buttonDot" onclick="Clic$function_name('$id'); return false;" title="Tag Editor">...</a>
2399
						$javascript];
2400
					} else {
2401
						warn "Plugin Failed: $plugin";
2402
						$subfield_data{marc_value} = "<input $attributes />"; # supply default input form
2403
					}
2379
                } else {
2404
                } else {
2380
                    $subfield_data{marc_value} = "<input type=\"text\" name=\"field_value\" value=\"$defaultvalue\" size=\"50\" maxlength=\"255\" />";
2405
                    $subfield_data{marc_value} = "<input type=\"text\" name=\"field_value\" value=\"$defaultvalue\" size=\"50\" maxlength=\"255\" />";
2381
                }
2406
                }
2382
- 

Return to bug 5955