[Koha-cvs] CVS: koha admin-home.pl,1.8.4.1,1.8.4.2

[Paul POULAIN]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5384

Modified Files:
      Tag: rel_2_2
	admin-home.pl 
Log Message:
adding a warning to librarian if there is no stopwords

Index: admin-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin-home.pl,v
retrieving revision 1.8.4.1
retrieving revision 1.8.4.2
diff -C2 -r1.8.4.1 -r1.8.4.2
*** admin-home.pl	29 Mar 2005 15:41:43 -0000	1.8.4.1
--- admin-home.pl	1 Aug 2005 15:34:58 -0000	1.8.4.2
***************
*** 18,21 ****
--- 18,26 ----
  			     debug => 1,
  			     });
+ my $dbh = C4::Context->dbh;
+ my $sth = $dbh->prepare("select count(*) from stopwords");
+ $sth->execute;
+ my ($total) = $sth->fetchrow;
+ $template->param(stopwords => $total);
  
  output_html_with_http_headers $query, $cookie, $template->output;