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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.259 and 1.261

version 1.259, 2006/03/21 21:07:31 version 1.261, 2006/04/07 21:56:01
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 &Apache::loncommon::simple_error_page($r,'Search Error',   &Apache::loncommon::simple_error_page($r,'Search Error',
      $msg);        $msg);
    return OK;
             }              }
         }          }
     } else {      } else {
Line 221  sub handler { Line 222  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 &Apache::loncommon::simple_error_page($r,'Search Error',      &Apache::loncommon::simple_error_page($r,'Search Error',
  $msg);    $msg);
       return OK;
  }   }
     }      }
     ##      ##
Line 363  END Line 365  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 &Apache::loncommon::simple_error_page($r,'Search Error',      &Apache::loncommon::simple_error_page($r,'Search Error',
  $msg);    $msg);
       return OK;
         }          }
         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 &Apache::loncommon::simple_error_page($r,'Search Error',      &Apache::loncommon::simple_error_page($r,'Search Error',
  $msg);    $msg);
       return OK;
  }   }
         ##          ##
         ## Print out the frames interface          ## Print out the frames interface
Line 3121  sub print_frames_interface { Line 3125  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.259  
changed lines
  Added in v.1.261

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>