projects
/
srvgit
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 17600: Standardize our EXPORT_OK
[srvgit]
/
cataloguing
/
value_builder
/
unimarc_field_130.pl
diff --git
a/cataloguing/value_builder/unimarc_field_130.pl
b/cataloguing/value_builder/unimarc_field_130.pl
index
04d0fb9
..
19db6d6
100755
(executable)
--- a/
cataloguing/value_builder/unimarc_field_130.pl
+++ b/
cataloguing/value_builder/unimarc_field_130.pl
@@
-22,12
+22,12
@@
use strict;
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
#use warnings; FIXME - Bug 2505
use Koha::Util::FrameworkPlugin qw(wrapper);
-use C4::Auth;
+use C4::Auth
qw( get_template_and_user )
;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
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) = @_;
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
@@
-59,7
+59,6
@@
my ($template, $loggedinuser, $cookie)
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
query => $input,
type => "intranet",
flagsrequired => {editcatalogue => '*'},
- debug => 1,
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);
});
my $f1 = substr($result,0,1);
my $f2 = substr($result,1,1);