--- loncom/interface/lonsearchcat.pm	2002/08/21 17:18:08	1.154
+++ loncom/interface/lonsearchcat.pm	2002/08/26 14:34:19	1.155
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.154 2002/08/21 17:18:08 www Exp $
+# $Id: lonsearchcat.pm,v 1.155 2002/08/26 14:34:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,6 +115,11 @@ that produces it.  Adding a new view typ
 adding a line to the definition of this hash and making sure the function
 takes the proper parameters.
 
+=item $bodytag
+
+LON-CAPA standard body tag, gotten from &Apache::lonnet::bodytag.
+No title, no table, just a <body> tag.
+
 =back 
 
 =cut
@@ -136,6 +141,8 @@ my %Views = ("Detailed Citation View" =>
              "Compact View"           => \&compact_view);
 my %persistent_db;
 my $hidden_fields;
+my $bodytag;
+
 ######################################################################
 ######################################################################
 
@@ -201,6 +208,7 @@ sub handler {
         ($ENV{'form.launch'} eq '1')) {
         $ENV{'form.persistent_db_id'} = time;
     }
+    $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1);
     my $persistent_db_file = "/home/httpd/perl/tmp/".
         &Apache::lonnet::escape($domain).
             '_'.&Apache::lonnet::escape($ENV{'user.name'}).
@@ -213,7 +221,7 @@ sub handler {
             $r->print(<<END);
 <html>
 <head><title>LON-CAPA Search Error</title></head>
-<body>
+$bodytag
 We were unable to retrieve data describing your search.  This is a serious
 error and has been logged.  Please alert your LON-CAPA administrator.
 </body>
@@ -233,8 +241,10 @@ END
 	    &start_fresh_session();
 	    untie %groupsearch_db;
 	} else {
-	    $r->print('<html><head></head><body>Unable to tie hash to db '.
-		      'file</body></html>');
+            # This is a stupid error to give to the user.  
+            # It really tells them nothing.
+	    $r->print('<html><head></head>'.$bodytag.
+                      'Unable to tie hash to db file</body></html>');
 	    return OK;
 	}
     }
@@ -329,7 +339,7 @@ END
         if (! defined(&create_results_table())) {
             $r->print(<<END);
 <html><head><title>Search Error</title></head>
-<body>
+$bodytag
 Unable to create table in which to store search results.  
 The search has been aborted.
 </body>
@@ -341,7 +351,7 @@ END
         if (! &make_form_data_persistent($r,$persistent_db_file)) {
             $r->print(<<END);
 <html><head><title>Search Error</title></head>
-<body>
+$bodytag
 Unable to properly store search information.  The search has been aborted.
 </body>
 </html>
@@ -1667,7 +1677,7 @@ sub print_sort_form {
 </script>
 <title>Results</title>
 </head>
-<body>
+$bodytag
 <form name="statusform" action="" method="post">
 <input type="hidden" name="Queue" value="" />
 END
@@ -1885,7 +1895,7 @@ sub run_search {
     $r->print(<<END);
 <html>
 <head><title>Search Status</title></head>
-<body>
+$bodytag
 <form name="statusform" action="" method="post">
 <input type="hidden" name="Queue" value="" />
 END
@@ -2539,6 +2549,7 @@ SCRIPT
 SCRIPT
     $result.=<<END;
 </head>
+$bodytag
 <form name="results" method="post" action="" >
 <input type="hidden" name="Queue" value="" />
 $importbutton
@@ -2551,7 +2562,7 @@ END
 sub search_status_header {
     return <<ENDSTATUS;
 <html><head><title>Search Status</title></head>
-<body>
+$bodytag
 <h3>Search Status</h3>
 Sending search request to LON-CAPA servers.<br />
 ENDSTATUS
@@ -2823,7 +2834,7 @@ sub output_blank_field_error {
 BEGINNING
     $r->print(<<RESULTS);
 </head>
-<body bgcolor="#ffffff">
+$bodytag
 <img align='right' src='/adm/lonIcons/lonlogos.gif' />
 <h1>Search Catalog</h1>
 <form method="post" action="/adm/searchcat">
@@ -2870,7 +2881,7 @@ sub output_date_error {
 <head>
 <title>The LearningOnline Network with CAPA</title>
 </head>
-<body bgcolor="#ffffff">
+$bodytag
 <img align='right' src='/adm/lonIcons/lonlogos.gif' />
 <h1>Search Catalog</h1>
 <form method="post" action="/adm/searchcat">
