projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 8256: Teach webservice to select reports by name
[koha_fer]
/
opac
/
opac-tags.pl
diff --git
a/opac/opac-tags.pl
b/opac/opac-tags.pl
index
0953f82
..
a0ed523
100755
(executable)
--- a/
opac/opac-tags.pl
+++ b/
opac/opac-tags.pl
@@
-38,11
+38,13
@@
use CGI::Cookie; # need to check cookies before having CGI parse the POST reques
use C4::Auth qw(:DEFAULT check_cookie_auth);
use C4::Context;
use C4::Debug;
use C4::Auth qw(:DEFAULT check_cookie_auth);
use C4::Context;
use C4::Debug;
-use C4::Output
3.02
qw(:html :ajax pagination_bar);
+use C4::Output qw(:html :ajax pagination_bar);
use C4::Scrubber;
use C4::Biblio;
use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag);
use C4::Scrubber;
use C4::Biblio;
use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag);
+use Data::Dumper;
+
my %newtags = ();
my @deltags = ();
my %counts = ();
my %newtags = ();
my @deltags = ();
my %counts = ();
@@
-52,7
+54,7
@@
my $perBibResults = {};
# Indexes of @errors that do not apply to a particular biblionumber.
my @globalErrorIndexes = ();
# Indexes of @errors that do not apply to a particular biblionumber.
my @globalErrorIndexes = ();
-sub ajax_auth_cgi
($)
{ # returns CGI object
+sub ajax_auth_cgi { # returns CGI object
my $needed_flags = shift;
my %cookies = fetch CGI::Cookie;
my $input = CGI->new;
my $needed_flags = shift;
my %cookies = fetch CGI::Cookie;
my $input = CGI->new;