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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.331.4.10 and 1.340

version 1.331.4.10, 2014/02/23 22:16:20 version 1.340, 2013/12/31 01:07:28
Line 170  sub handler { Line 170  sub handler {
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
   
     my @allowed_searches = ('portfolio');      my @allowed_searches = ('portfolio');
     if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'}) eq 'F') {      if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) {
         push(@allowed_searches,'res');          push(@allowed_searches,'res');
     }       } 
     my $crumb_text = 'Portfolio Search';      my $crumb_text = 'Portfolio Search';
Line 193  sub handler { Line 193  sub handler {
                 &Apache::lonnet::logthis('lonsearchcat:'.                  &Apache::lonnet::logthis('lonsearchcat:'.
                                          'Unable to recover data from '.                                           'Unable to recover data from '.
                                          $persistent_db_file);                                           $persistent_db_file);
                 my $msg =   my $msg =
                     &mt('We were unable to retrieve data describing your search.').      'We were unable to retrieve data describing your search. '.
                     ' '.&mt('This is a serious error and has been logged.').      'This is a serious error and has been logged. '.
                     '<br />'.      'Please alert your LON-CAPA administrator.';
                     &mt('Please alert your LON-CAPA administrator.');   &Apache::loncommon::simple_error_page($r,'Search Error',
                 &Apache::loncommon::simple_error_page(        $msg);
                     $r,'Search Error',  
                     $msg,  
                     {'no_auto_mt_msg' => 1});  
  return OK;   return OK;
             }              }
         }          }
Line 432  sub hidden_field { Line 429  sub hidden_field {
 =pod  =pod
   
 =over 4  =over 4
    
 =item &print_basic_search_form()   =item &print_basic_search_form() 
   
 Prints the form for the basic search.  Sorry the name is so cryptic.  Prints the form for the basic search.  Sorry the name is so cryptic.
Line 449  sub print_basic_search_form { Line 446  sub print_basic_search_form {
     $env{'form.catalogmode'} ne 'import');      $env{'form.catalogmode'} ne 'import');
     my $scrout = &Apache::loncommon::start_page('Content Library').$bread_crumb;      my $scrout = &Apache::loncommon::start_page('Content Library').$bread_crumb;
 # Search form for resource space   # Search form for resource space 
     if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'}) eq 'F') {      if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'})) {
         $scrout .= &setup_basic_search($r,'res',$hidden_fields,$closebutton);          $scrout .= &setup_basic_search($r,'res',$hidden_fields,$closebutton);
         $scrout .= '<hr /><br />';          $scrout .= '<hr /><br />';
     }      }
Removed from v.1.331.4.10  
changed lines
  Added in v.1.340

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