--- loncom/interface/lonsearchcat.pm	2006/04/07 21:56:01	1.261
+++ loncom/interface/lonsearchcat.pm	2006/05/12 16:45:41	1.264
@@ -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.264 2006/05/12 16:45:41 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -660,9 +660,8 @@ sub print_basic_search_form {
     my ($r,$closebutton,$hidden_fields) = @_;
     my $result = ($env{'form.catalogmode'} ne 'groupsearch');
     my $bread_crumb =
-        &Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Search_Basic',
-                                   undef,undef,
-                                   $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Basic',
+					    $env{'form.catalogmode'} ne 'groupsearch');
     my $scrout = &Apache::loncommon::start_page('Search').$bread_crumb;
     if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) {
         # Define interface components
@@ -704,10 +703,8 @@ sub print_basic_search_form {
         }
         $scrout.='<table>'.
             '<tr><td align="center" valign="top">'.
-            &Apache::lonhtmlcommon::textbox
-            ('basicexp',
-             &HTML::Entities::encode($env{'form.basicexp'},'<>&"'),50
-             ).
+            &Apache::lonhtmlcommon::textbox('basicexp',
+					    $env{'form.basicexp'},50).
              '<br />'.
             '<font size="-1">'.&searchhelp().'</font>'.'</td>'.
             '<td><font size="-1">'.
@@ -794,10 +791,8 @@ Prints the advanced search form.
 sub print_advanced_search_form{
     my ($r,$closebutton,$hidden_fields) = @_;
     my $bread_crumb = 
-        &Apache::lonhtmlcommon::breadcrumbs(undef,'Searching',
-                                            'Search_Advanced',
-                                            undef,undef,
-                                  $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Advanced',
+					    $env{'form.catalogmode'} ne 'groupsearch');
     my %lt=&Apache::lonlocal::texthash('srch' => 'Search',
 				       'reset' => 'Reset',
 				       'help' => 'Help');
@@ -2109,9 +2104,8 @@ END
     my $start_page = &Apache::loncommon::start_page('Results',$js,
 						    {'only_body' => 1});
     my $breadcrumbs=
-        &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Searching','Searching',undef,undef,
-         $env{'form.catalogmode'} ne 'groupsearch');
+        &Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
+					    $env{'form.catalogmode'} ne 'groupsearch');
 
     my $result = <<END;
 $start_page
@@ -2339,9 +2333,9 @@ sub run_search {
     #
     my $start_page = &Apache::loncommon::start_page('Search Status',undef,
 						    {'only_body' => 1});
-    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs
-        (undef,'Searching','Searching',undef,undef,
-         $env{'form.catalogmode'} ne 'groupsearch');
+    my $breadcrumbs =
+	&Apache::lonhtmlcommon::breadcrumbs('Searching','Searching',
+					    $env{'form.catalogmode'} ne 'groupsearch');
     $r->print(<<END);
 $start_page
 $breadcrumbs
@@ -3131,16 +3125,21 @@ var targetwin = opener;
 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);