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

[albertel]

albertel		Tue Apr 11 15:53:12 2006 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  
  - start_page + frameset
  
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.261 loncom/interface/lonsearchcat.pm:1.262
--- loncom/interface/lonsearchcat.pm:1.261	Fri Apr  7 17:56:01 2006
+++ loncom/interface/lonsearchcat.pm	Tue Apr 11 15:53:11 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.261 2006/04/07 21:56:01 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.262 2006/04/11 19:53:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3131,16 +3131,21 @@
 var queue = '';
 </script>
 JS
-    my $html     = &Apache::lonxml::xmlbegin();
-    my $head     = &Apache::loncommon::head('LON-CAPA Digital Library Search Results',$js);
+
+    my $start_page =
+        &Apache::loncommon::start_page('LON-CAPA Digital Library Search Results',
+				       $js,
+				       {'frameset'    => 1,
+					'add_entries' => {
+					    'rows' => "150,*",},});
+    my $end_page =
+        &Apache::loncommon::end_page({'frameset' => 1});
+
     my $result = <<"ENDFRAMES";
-$html
-$head
-<frameset rows="150,*">
+$start_page
     <frame name="statusframe"  src="$run_search_link">
     <frame name="resultsframe" src="$results_link">
-</frameset>
-</html>
+$end_page
 ENDFRAMES
 
     $r->print($result);