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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.291 and 1.298

version 1.291, 2008/02/14 18:04:09 version 1.298, 2008/08/08 08:51:39
Line 281  sub handler { Line 281  sub handler {
             $closebutton .="onClick='self.close()'";              $closebutton .="onClick='self.close()'";
         }          }
         $closebutton .= ">";          $closebutton .= ">";
           my $txt_import = &mt('IMPORT');
         $importbutton=<<END;          $importbutton=<<END;
 <input type='button' name='import' value='IMPORT'  <input type='button' name='import' value='$txt_import'
 onClick='javascript:select_group()'>  onClick='javascript:select_group()'>
 END  END
     } else {      } else {
Line 759  sub setup_basic_search { Line 760  sub setup_basic_search {
                                        $r->dir_config('lonDefDomain')),                                         $r->dir_config('lonDefDomain')),
       $r->dir_config('lonDefDomain')).        $r->dir_config('lonDefDomain')).
                         '</label>';                          '</label>';
     if ($area eq 'res') {  
         $inclext= '<label>'.&mt('[_1] include external resources',  
              &Apache::lonhtmlcommon::checkbox('inclext',$env{'form.inclext'})).  
                   '</label>';  
     }  
     $adv_search_link = '<a href="/adm/searchcat?'.      $adv_search_link = '<a href="/adm/searchcat?'.
                &Apache::loncommon::inhibit_menu_check().                 &Apache::loncommon::inhibit_menu_check().
        '&phase=disp_adv'.         '&phase=disp_adv'.
Line 926  ENDHEADER Line 922  ENDHEADER
     &Apache::loncommon::domain_select('domains',      &Apache::loncommon::domain_select('domains',
    $env{'form.domains'},1).     $env{'form.domains'},1).
    '<br /><label>';     '<br /><label>';
             if ($env{'form.area'} ne 'portfolio') {  
                 $scrout .= &mt('[_1] include external resources',  
                            &Apache::lonhtmlcommon::checkbox  
                            ('inclext',$env{'form.inclext'})).'</label>'  
             }  
      $scrout .= '</td></tr>'.$/;       $scrout .= '</td></tr>'.$/;
     #      #
     # Misc metadata      # Misc metadata
Line 1044  ENDHEADER Line 1035  ENDHEADER
     # Creation/Modification date limits      # Creation/Modification date limits
     $scrout .= '<h3>'.&mt('Creation and Modification dates').'</h3>';      $scrout .= '<h3>'.&mt('Creation and Modification dates').'</h3>';
     $scrout .= "\n<table>\n";      $scrout .= "\n<table>\n";
     $scrout .= "<tr><td>&nbsp;</td><td>".&mt('(Month - Day - Year)')."</td></tr>\n";      $scrout .= "<tr><td>&nbsp;</td><td>".&mt('Month[_1]Day[_2]Year','&nbsp;'x14,'&nbsp;'x6)."</td></tr>\n";
     my $cafter =       my $cafter = 
         &Apache::lonhtmlcommon::date_setter('advsearch',         # formname          &Apache::lonhtmlcommon::date_setter('advsearch',         # formname
                                             'creationdate1', # fieldname                                              'creationdate1', # fieldname
Line 2126  sub copyright_check { Line 2117  sub copyright_check {
         ($env{'user.domain'} ne $resdom)) {          ($env{'user.domain'} ne $resdom)) {
         return 0;          return 0;
     }      }
       # Check for custom rights
       if ($Metadata->{'copyright'} eq 'custom') {
          return &Apache::lonnet::customaccess('bre',$Metadata->{'url'});
       }
     return 1;      return 1;
 }  }
   
Line 2506  END Line 2501  END
         pop(@Lines);          pop(@Lines);
     }      }
     if (@Lines > 2) {      if (@Lines > 2) {
         $pretty_string = join '<br />',(@Lines[0..2],'....<br />');          $pretty_string = join '<br />',(@Lines[0..2],'...<br />');
     }      }
     $r->print(&mt("Search: [_1]",$pretty_string));      $r->print(&mt("Search: [_1]",$pretty_string));
     $r->rflush();      $r->rflush();
Line 2561  END Line 2556  END
     my $server;       my $server; 
     my $status;      my $status;
     my $revise = &revise_button();      my $revise = &revise_button();
     $r->print(<<END);      $r->print(&Apache::loncommon::start_data_table());
 <table>      $r->print(&Apache::loncommon::start_data_table_header_row()
 <tr><th>Status</th><th>Total Matches</th><th>Time Remaining</th><th></th></tr>               .'<th>'.&mt('Status').'</th>'
 <tr>               .'<th>'.&mt('Total Matches').'</th>'
 <td><input type="text" name="status"  value="" size="50" /></td>               .'<th>'.&mt('Time Remaining').'</th>'
 <td><input type="text" name="count"   value="" size="10" /></td>  #             .'<th>&nbsp;</th>'
 <td><input type="text" name="seconds" value="" size="8" /></td>               .&Apache::loncommon::end_data_table_header_row());
 <td>$revise</td>      $r->print(&Apache::loncommon::start_data_table_row()
 </tr>               .'<td><input type="text" name="status"  value="" size="50" readonly="readonly" /></td>'
 </table>               .'<td><input type="text" name="count"   value="" size="10" readonly="readonly" /></td>'
 </form>               .'<td><input type="text" name="seconds" value="" size="8" readonly="readonly" /></td>'
 END  #             ."<td>$revise</td>"
                .&Apache::loncommon::end_data_table_row());
       $r->print(&Apache::loncommon::start_data_table());
       $r->print($revise
                .'</form>');
     $r->rflush();      $r->rflush();
     &reset_timing();      &reset_timing();
     &update_seconds($r);      &update_seconds($r);
Line 2644  END Line 2643  END
                     my %Fields = &parse_raw_result($result,$server,$tabletype);                      my %Fields = &parse_raw_result($result,$server,$tabletype);
                     $Fields{'hostname'} = $server;                      $Fields{'hostname'} = $server;
                     #                      #
                     # Skip if external and we did not want that  
                     next if ((! $env{'form.inclext'}) && ($Fields{'url'}=~/^\/ext\//));  
                     # Skip based on copyright                      # Skip based on copyright
                     next if (! &copyright_check(\%Fields));                      next if (! &copyright_check(\%Fields));
   
Removed from v.1.291  
changed lines
  Added in v.1.298

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