[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.12 and 1.331.4.14

version 1.331.4.12, 2016/08/04 21:23:57 version 1.331.4.14, 2016/11/09 22:32:42
Line 479  sub setup_basic_search { Line 479  sub setup_basic_search {
                      .&mt('use related words')                       .&mt('use related words')
                      .'</label>';                       .'</label>';
   
       my $anydom = 1;
       if ($area eq 'res') {
           unless (&Apache::lonnet::allowed('bre','/res/') eq 'F') {
               $anydom = 0;
           }
       }
       my $singledom;
       my ($disabled,$checked);
       if ($anydom) {
          $singledom = $r->dir_config('lonDefDomain');
          if ($env{'form.domains'} eq $singledom) {
              $checked = 1;
          }
       } else {
          $singledom = $env{'user.domain'};
          $disabled = ' disabled="disabled"';
          $checked = 1;
       }
     $onlysearchdomain = '<label>'      $onlysearchdomain = '<label>'
                        .&Apache::lonhtmlcommon::checkbox(                         .&Apache::lonhtmlcommon::checkbox(
                            'domains',                             'domains',$checked,
                            $env{'form.domains'},                             $singledom,$disabled)
                            $r->dir_config('lonDefDomain'))  
                        .' '                         .' '
                        .&mt('only search domain [_1]'                         .&mt('only search domain [_1]'
                                ,'<b>'.$r->dir_config('lonDefDomain').'</b>')                                 ,'<b>'.$singledom.'</b>')
                        .'</label>';                         .'</label>';
   
     $adv_search_link = '<a href="/adm/searchcat?'.      $adv_search_link = '<a href="/adm/searchcat?'.
Line 661  function additional_metadata() { Line 678  function additional_metadata() {
                    $env{'form.category'})                     $env{'form.category'})
               .&Apache::lonhtmlcommon::row_closure();                .&Apache::lonhtmlcommon::row_closure();
   
     $scrout .= &Apache::lonhtmlcommon::row_title(&titlefield(&mt('Domains')))      my $anydomain = 1;
               .&Apache::loncommon::domain_select('domains',      if ($env{'form.area'} ne 'portfolio') {
                    $env{'form.domains'},1)          unless (&Apache::lonnet::allowed('bre','/res/')) {
               .&Apache::lonhtmlcommon::row_closure();              $anydomain = 0;
           }
       }
   
       $scrout .= &Apache::lonhtmlcommon::row_title(&titlefield(&mt('Domains')));
       if ($anydomain) {
           $scrout .= &Apache::loncommon::domain_select('domains',
                      $env{'form.domains'},1);
       } else {
           $scrout .= &Apache::loncommon::select_dom_form($env{'user.domain'},
                                                          'domains','','','',[$env{'user.domain'}],'',1);
       }
       $scrout .= &Apache::lonhtmlcommon::row_closure();
   
     # Misc metadata      # Misc metadata
     if ($env{'form.area'} ne 'portfolio') {      if ($env{'form.area'} ne 'portfolio') {
Line 3553  sub display_url { Line 3582  sub display_url {
                   $url,                    $url,
                   'preview',                    'preview',
                   '',                    '',
                   (($env{'form.catalogmode'} eq 'import')?'parent.statusframe.document.forms.statusform':''),                    '',
                   $skiplast,$onclick).' ';                    $skiplast,$onclick).' ';
         # replace the links to open in a new window  
         # (because the search opens in a new window, it gets  
         # confusing when the links open a tab in the  
         # parent window; ideally we should not force windows)  
         $link =~ s/(href="[^"]*")/\1 onclick="window.open(this.href, '_blank', 'toolbar=1,location=1,menubar=0');return false;"/g;  
     }      }
     return $link;      return $link;
 }  }
Removed from v.1.331.4.12  
changed lines
  Added in v.1.331.4.14

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