[LON-CAPA-cvs] cvs: loncom /metadata_database cleanup_database.pl

[albertel]

albertel		Mon Nov 20 12:07:57 2006 EDT

  Modified files:              
    /loncom/metadata_database	cleanup_database.pl 
  Log:
  - older DBI versions don't support the arrarref usage
  
  
Index: loncom/metadata_database/cleanup_database.pl
diff -u loncom/metadata_database/cleanup_database.pl:1.6 loncom/metadata_database/cleanup_database.pl:1.7
--- loncom/metadata_database/cleanup_database.pl:1.6	Mon Aug 21 17:30:02 2006
+++ loncom/metadata_database/cleanup_database.pl	Mon Nov 20 12:07:57 2006
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # cleanup_database.pl Remove stale temporary search results.
 #
-# $Id: cleanup_database.pl,v 1.6 2006/08/21 21:30:02 albertel Exp $
+# $Id: cleanup_database.pl,v 1.7 2006/11/20 17:07:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -119,7 +119,7 @@
 
 my $sth = $dbh->prepare("SHOW TABLE STATUS");
 $sth->execute();
-my $results = $sth->fetchall_hashref(['Name']);
+my $results = $sth->fetchall_hashref('Name');
 
 foreach my $name (keys(%$results)) {
     next if ($results->{$name}{Comment} ne 'temporary');