Bug 7259 - Show a count of items pending approval on staff client home and tools...

[koha-equinox.git] / C4 / Tags.pm

diff --git a/C4/Tags.pm b/C4/Tags.pm
index a260383..06c1e1d 100644 (file)
--- a/C4/Tags.pm
+++ b/C4/Tags.pm
@@ -40,6 +40,7 @@ BEGIN {
                &whitelist
                &is_approved
                &approval_counts
+               &get_count_by_tag_status
                &get_filters
        );
        # %EXPORT_TAGS = ();
@@ -92,6 +93,24 @@ sub approval_counts () {
        return $result;
 }
 
+=head2 get_count_by_tag_status
+
+  get_count_by_tag_status($status);
+
+Takes a status and gets a count of tags with that status
+
+=cut
+
+sub get_count_by_tag_status  {
+    my ($status) = @_;
+    my $dbh            = C4::Context->dbh;
+    my $query          =
+      "SELECT count(*) FROM tags_approval WHERE approved=?";
+    my $sth = $dbh->prepare($query);
+    $sth->execute( $status );
+  return $sth->fetchrow;
+}
+
 sub remove_tag ($;$) {
        my $tag_id  = shift or return undef;
        my $user_id = (@_) ? shift : undef;