[LON-CAPA-cvs] cvs: loncom /interface lonsearchcat.pm

[matthew]

matthew		Tue Jun 17 11:53:56 2003 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  Automatically referesh the lower frame every 1 sec if there are no results.
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.180 loncom/interface/lonsearchcat.pm:1.181
--- loncom/interface/lonsearchcat.pm:1.180	Mon Jun 16 16:54:39 2003
+++ loncom/interface/lonsearchcat.pm	Tue Jun 17 11:53:56 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.180 2003/06/16 20:54:39 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.181 2003/06/17 15:53:56 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -207,7 +207,7 @@
     ##     this once, so the pause indicator is deleted
     ##
     if (exists($ENV{'form.pause'})) {
-        sleep(3);
+        sleep(1);
         delete($ENV{'form.pause'});
     }
     ##
@@ -866,6 +866,7 @@
     untie (%persistent_db);
     return 1;
 }
+
 ######################################################################
 ######################################################################
 
@@ -2394,7 +2395,8 @@
          ."</center>\n"
          );
     if ($total_results == 0) {
-        $r->print("<h3>There are currently no results.</h3>Please try to reload this page, which will update the display.\n".
+        $r->print('<meta HTTP-EQUIV="Refresh" CONTENT="1">'.
+                  '<h3>There are currently no results.</h3>'.
                   "</form></body></html>");
         return;
     } else {