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

Fri, 30 May 2003 20:54:28 -0000

www		Fri May 30 16:54:28 2003 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  Bug #1537: make search frameset register with Remote Control.
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.174 loncom/interface/lonsearchcat.pm:1.175

--- loncom/interface/lonsearchcat.pm:1.174	Tue May 27 16:12:26 2003
+++ loncom/interface/lonsearchcat.pm	Fri May 30 16:54:28 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.174 2003/05/27 20:12:26 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.175 2003/05/30 20:54:28 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -82,6 +82,7 @@
 use GDBM_File;
 use Apache::loncommon();
 use Apache::lonmysql();
+use Apache::lonmenu();
 
 # ---------------------------------------- variables used throughout the module
 
@@ -2754,6 +2755,9 @@
         "&persistent_db_id=".$ENV{'form.persistent_db_id'};
     my $run_search_link = $basic_link."&phase=run_search";
     my $results_link = &results_link();
+    my $loadevents=&Apache::lonmenu::loadevents();
+    my $unloadevents=&Apache::lonmenu::unloadevents();
+    my $addscript=&Apache::lonmenu::registerurl();
     my $result = <<"ENDFRAMES";
 <html>
 <head>
@@ -2761,9 +2765,10 @@
 var targetwin = opener;
 var queue = '';
 </script>
+$addscript
 <title>LON-CAPA Digital Library Search Results</title>
 </head>
-<frameset rows="150,*">
+<frameset rows="150,*" onLoad="$loadevents" onUnload="$unloadevents">
     <frame name="statusframe"  src="$run_search_link">
     <frame name="resultsframe" src="$results_link">
 </frameset>



