use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
-use C4::Output;
+use C4::Output qw( output_html_with_http_headers );
sub plugin_javascript {
-my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
+my ($dbh,$record,$tagslib,$field_number) = @_;
my $function_name= $field_number;
my $res="
<script>
-function Clic$function_name(i) {
- defaultvalue=document.getElementById(\"$field_number\").value;
- newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_124a.pl&index=$field_number&result=\"+defaultvalue,\"unimarc_field_124a\",'width=1000,height=375,toolbar=false,scrollbars=yes');
+function Clic$function_name(event) {
+ event.preventDefault();
+ defaultvalue=document.getElementById(event.data.id).value;
+ newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_124a.pl&index=\" + event.data.id + \"&result=\"+defaultvalue,\"unimarc_field_124a\",'width=1000,height=375,toolbar=false,scrollbars=yes');
}
</script>
query => $input,
type => "intranet",
flagsrequired => { editcatalogue => '*' },
- debug => 1,
}
);
my $f1 = substr($result,0,1);