[BACK]Return to lonsearchcat.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsearchcat.pm between versions 1.258 and 1.260

version 1.258, 2006/03/19 22:08:38 version 1.260, 2006/03/23 22:01:58
Line 199  sub handler { Line 199  sub handler {
     'We were unable to retrieve data describing your search. '.      'We were unable to retrieve data describing your search. '.
     'This is a serious error and has been logged. '.      'This is a serious error and has been logged. '.
     'Please alert your LON-CAPA administrator.';      'Please alert your LON-CAPA administrator.';
  return &error_page($r,$msg);   return &Apache::loncommon::simple_error_page($r,'Search Error',
        $msg);
             }              }
         }          }
     } else {      } else {
Line 220  sub handler { Line 221  sub handler {
             # This is a stupid error to give to the user.                # This is a stupid error to give to the user.  
             # It really tells them nothing.              # It really tells them nothing.
     my $msg = 'Unable to tie hash to db file.';      my $msg = 'Unable to tie hash to db file.';
     return &error_page($r,$msg);      return &Apache::loncommon::simple_error_page($r,'Search Error',
    $msg);
  }   }
     }      }
     ##      ##
Line 361  END Line 363  END
     my $msg =       my $msg = 
  'Unable to create table in which to store search results. '.   'Unable to create table in which to store search results. '.
  'The search has been aborted.';   'The search has been aborted.';
     return &error_page($r,$msg);      return &Apache::loncommon::simple_error_page($r,'Search Error',
    $msg);
         }          }
         delete($env{'form.launch'});          delete($env{'form.launch'});
         if (! &make_form_data_persistent($r,$persistent_db_file)) {          if (! &make_form_data_persistent($r,$persistent_db_file)) {
     my $msg=      my $msg=
  'Unable to properly store search information. '.   'Unable to properly store search information. '.
  'The search has been aborted.';   'The search has been aborted.';
             return &error_page($r,$msg);      return &Apache::loncommon::simple_error_page($r,'Search Error',
    $msg);
  }   }
         ##          ##
         ## Print out the frames interface          ## Print out the frames interface
Line 380  END Line 384  END
     return OK;      return OK;
 }   } 
   
 sub error_page {  
     my ($r,$msg) = @_;  
     $r->print(&Apache::loncommon::start_page('Search Error').  
       &mt($msg).  
       &Apache::loncommon::end_page());  
     return OK;  
 }  
   
 #  #
 # The mechanism used to store values away and retrieve them does not  # The mechanism used to store values away and retrieve them does not
 # handle the case of missing environment variables being significant.  # handle the case of missing environment variables being significant.
Line 3125  sub print_frames_interface { Line 3121  sub print_frames_interface {
         "&persistent_db_id=".$env{'form.persistent_db_id'};          "&persistent_db_id=".$env{'form.persistent_db_id'};
     my $run_search_link = $basic_link."&phase=run_search";      my $run_search_link = $basic_link."&phase=run_search";
     my $results_link = &results_link();      my $results_link = &results_link();
       my $js = <<JS;
   <script type="text/javascript">
   var targetwin = opener;
   var queue = '';
   </script>
   JS
     my $html     = &Apache::lonxml::xmlbegin();      my $html     = &Apache::lonxml::xmlbegin();
     my $head     = &Apache::loncommon::headtag('LON-CAPA Digital Library Search Results');      my $head     = &Apache::loncommon::head('LON-CAPA Digital Library Search Results',$js);
     my $end_head = &Apache::loncommon::endheadtag();  
     my $result = <<"ENDFRAMES";      my $result = <<"ENDFRAMES";
 $html  $html
 $head  $head
 <script>  
 var targetwin = opener;  
 var queue = '';  
 </script>  
 $end_head  
 <frameset rows="150,*">  <frameset rows="150,*">
     <frame name="statusframe"  src="$run_search_link">      <frame name="statusframe"  src="$run_search_link">
     <frame name="resultsframe" src="$results_link">      <frame name="resultsframe" src="$results_link">
Removed from v.1.258  
changed lines
  Added in v.1.260

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.