projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 9811: Remove useless orderby management
[koha_fer]
/
tools
/
tools-home.pl
diff --git
a/tools/tools-home.pl
b/tools/tools-home.pl
index
cca60e9
..
055f7f4
100755
(executable)
--- a/
tools/tools-home.pl
+++ b/
tools/tools-home.pl
@@
-16,9
+16,13
@@
# Suite 330, Boston, MA 02111-1307 USA
use strict;
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use warnings;
+
use CGI;
use C4::Auth;
use C4::Output;
use CGI;
use C4::Auth;
use C4::Output;
+use C4::Review qw/numberofreviews/;
+use C4::Tags qw/get_count_by_tag_status/;
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
my $query = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@
-27,9
+31,17
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $query,
type => "intranet",
authnotrequired => 0,
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { tools =>
1
},
+ flagsrequired => { tools =>
'*'
},
debug => 1,
}
);
debug => 1,
}
);
+my $pendingcomments = numberofreviews(0);
+my $pendingtags = get_count_by_tag_status(0);
+
+$template->param(
+ pendingcomments => $pendingcomments,
+ pendingtags => $pendingtags
+);
+
output_html_with_http_headers $query, $cookie, $template->output;
output_html_with_http_headers $query, $cookie, $template->output;