#!/usr/bin/perl
+# Converted to new plugin style (Bug 13437)
+
# Copyright 2000-2002 Katipo Communications
#
# This file is part of Koha.
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
+use Modern::Perl;
-#use warnings; FIXME - Bug 2505
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use C4::Output;
-sub plugin_javascript {
- my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
- my $function_name = $field_number;
+my $builder = sub {
+ my ( $params ) = @_;
+ my $function_name = $params->{id};
my $res = "
<script type=\"text/javascript\">
//<![CDATA[
-function Focus$function_name(subfield_managed) {
- if(!document.getElementById(\"$field_number\").value){
- document.getElementById(\"$field_number\").value = ' nz a22 n 4500';
+function Focus$function_name(event) {
+ if(!document.getElementById(event.data.id).value){
+ document.getElementById(event.data.id).value = ' nz a22 n 4500';
}
return 1;
}
-function Clic$function_name(i) {
- defaultvalue=document.getElementById(\"$field_number\").value;
- newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_leader_authorities.pl&index=$field_number&result=\"+defaultvalue,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
+function Click$function_name(event) {
+ defaultvalue=document.getElementById(event.data.id).value;
+ newin=window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=marc21_leader_authorities.pl&index=\"+ event.data.id +\"&result=\"+defaultvalue,\"tag_editor\",'width=1000,height=600,toolbar=false,scrollbars=yes');
}
//]]>
</script>
";
- return ( $function_name, $res );
-}
+ return $res;
+};
-sub plugin {
- my ($input) = @_;
+my $launcher = sub {
+ my ( $params ) = @_;
+ my $input = $params->{cgi};
my $index = $input->param('index');
my $result = $input->param('result');
"f2023" => $f2023,
);
output_html_with_http_headers $input, $cookie, $template->output;
-}
+};
+
+return { builder => $builder, launcher => $launcher };
\ No newline at end of file