Marcel de Rooy
c4a8e5fb3e
This report is connected to bug 10480 which will change the general
mechanism of loading plugins, but can be tested independently and ahead
of that proposed change.
Several unimarc plugins use a wrapper sub. The code of this subroutine
is not exactly the same for all plugins: in some cases the routine is
extended for double character strings (dblspace and dblpipe). It would
not hurt to use the extended code for all plugins.
By moving the code to a module, we prevent redefinition
when two or more plugins are loading wrapper in a do-statement.
NOTE: You will not see wrapper redefine errors in your log, since the
plugins do not use the warnings pragma (yet). Since this patch touches
seventeen unimarc plugins, a unimarc signoff is preferred :)
Test plan:
Use some plugins changed in this patch (if not in use already).
Load the MARC editor.
Click on some tag editor-buttons to check unchanged behavior.
Signed-off-by: Frederic Demians <f.demians@tamil.fr>
Unimarc plugins work as usual. No regression. Simple code
factorization.
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
136 lines
4.2 KiB
Perl
Executable file
136 lines
4.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
#use warnings; FIXME - Bug 2505
|
|
|
|
use Koha::Util::FrameworkPlugin qw(wrapper);
|
|
use C4::Auth;
|
|
use CGI;
|
|
use C4::Context;
|
|
|
|
use C4::Search;
|
|
use C4::Output;
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=head2 plugin_parameters
|
|
|
|
Other parameters added when the plugin is called by the dopop function
|
|
|
|
=cut
|
|
|
|
sub plugin_parameters {
|
|
my ( $dbh, $record, $tagslib, $i, $tabloop ) = @_;
|
|
return "";
|
|
}
|
|
|
|
sub plugin_javascript {
|
|
my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
|
|
my $res = "
|
|
<script type=\"text/javascript\">
|
|
function Focus$field_number() {
|
|
return 1;
|
|
}
|
|
|
|
function Blur$field_number() {
|
|
return 1;
|
|
}
|
|
|
|
function Clic$field_number(i) {
|
|
var defaultvalue;
|
|
try {
|
|
defaultvalue = document.getElementById(i).value;
|
|
} catch(e) {
|
|
alert('error when getting '+i);
|
|
return;
|
|
}
|
|
window.open(\"../cataloguing/plugin_launcher.pl?plugin_name=unimarc_field_115a.pl&index=$field_number&result=\"+defaultvalue,\"unimarc_field_115a\",'width=1200,height=600,toolbar=false,scrollbars=yes');
|
|
}
|
|
|
|
</script>
|
|
";
|
|
|
|
return ( $field_number, $res );
|
|
}
|
|
|
|
|
|
sub plugin {
|
|
my ($input) = @_;
|
|
my $index = $input->param('index');
|
|
my $result = $input->param('result');
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name =>
|
|
"cataloguing/value_builder/unimarc_field_115a.tt",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { editcatalogue => '*' },
|
|
debug => 1,
|
|
}
|
|
);
|
|
my $f1 = substr( $result, 0, 1 ); $f1 = wrapper( $f1 ) if $f1;
|
|
my $f2 = substr( $result, 1, 3 );
|
|
my $f3 = substr( $result, 4, 1 ); $f3 = wrapper( $f3 ) if $f3;
|
|
my $f4 = substr( $result, 5, 1 ); $f4 = wrapper( $f4 ) if $f4;
|
|
my $f5 = substr( $result, 6, 1 ); $f5 = wrapper( $f5 ) if $f5;
|
|
my $f6 = substr( $result, 7, 1 ); $f6 = wrapper( $f6 ) if $f6;
|
|
my $f7 = substr( $result, 8, 1 ); $f7 = wrapper( $f7 ) if $f7;
|
|
my $f8 = substr( $result, 9, 1 ); $f8 = wrapper( $f8 ) if $f8;
|
|
my $f9 = substr( $result, 10, 1 ); $f9 = wrapper( $f9 ) if $f9;
|
|
my $f10 = substr( $result, 11, 1 ); $f10 = wrapper( $f10 ) if $f10;
|
|
my $f11 = substr( $result, 12, 1 ); $f11 = wrapper( $f11 ) if $f11;
|
|
my $f12 = substr( $result, 13, 1 ); $f12 = wrapper( $f12 ) if $f12;
|
|
my $f13 = substr( $result, 14, 1 ); $f13 = wrapper( $f13 ) if $f13;
|
|
my $f14 = substr( $result, 15, 1 ); $f14 = wrapper( $f14 ) if $f14;
|
|
my $f15 = substr( $result, 16, 1 ); $f15 = wrapper( $f15 ) if $f15;
|
|
my $f16 = substr( $result, 17, 1 ); $f16 = wrapper( $f16 ) if $f16;
|
|
my $f17 = substr( $result, 18, 1 ); $f17 = wrapper( $f17 ) if $f17;
|
|
my $f18 = substr( $result, 19, 1 ); $f18 = wrapper( $f18 ) if $f18;
|
|
|
|
$template->param(
|
|
index => $index,
|
|
"f1$f1" => 1,
|
|
"f2" => $f2,
|
|
"f3$f3" => 1,
|
|
"f4$f4" => 1,
|
|
"f5$f5" => 1,
|
|
"f6$f6" => 1,
|
|
"f7$f7" => 1,
|
|
"f8$f8" => 1,
|
|
"f9$f9" => 1,
|
|
"f10$f10" => 1,
|
|
"f11$f11" => 1,
|
|
"f12$f12" => 1,
|
|
"f13$f13" => 1,
|
|
"f14$f14" => 1,
|
|
"f15$f15" => 1,
|
|
"f16$f16" => 1,
|
|
"f17$f17" => 1,
|
|
"f18$f18" => 1
|
|
);
|
|
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|
|
}
|
|
|
|
1;
|