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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.289 and 1.297

version 1.289, 2008/02/12 18:48:03 version 1.297, 2008/08/04 15:28:21
Line 266  sub handler { Line 266  sub handler {
     ## Configure dynamic components of interface      ## Configure dynamic components of interface
     ##      ##
     if ($env{'form.catalogmode'} eq 'interactive') {      if ($env{'form.catalogmode'} eq 'interactive') {
         $closebutton="<input type='button' name='close' value='CLOSE' ";          $closebutton="<input type='button' name='close' value='".&mt('CLOSE')."' ";
         if ($env{'form.phase'} =~ /(results|run_search)/) {          if ($env{'form.phase'} =~ /(results|run_search)/) {
     $closebutton .="onClick='parent.close()'";      $closebutton .="onClick='parent.close()'";
         } else {          } else {
Line 274  sub handler { Line 274  sub handler {
         }          }
         $closebutton .=">\n";          $closebutton .=">\n";
     } elsif ($env{'form.catalogmode'} eq 'import') {      } elsif ($env{'form.catalogmode'} eq 'import') {
         $closebutton="<input type='button' name='close' value='CLOSE' ";          $closebutton="<input type='button' name='close' value='".&mt('CLOSE')."' ";
         if ($env{'form.phase'} =~ /(results|run_search)/) {          if ($env{'form.phase'} =~ /(results|run_search)/) {
     $closebutton .="onClick='parent.close()'";      $closebutton .="onClick='parent.close()'";
         } else {          } else {
             $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[_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 1062  ENDHEADER Line 1054  ENDHEADER
                                             '',          # state                                              '',          # state
                                             1,           # no_hh_mm_ss                                              1,           # no_hh_mm_ss
                                             );                                              );
     $scrout .= &mt('<tr><td align="right">Created between</td>'.      $scrout .= '<tr><td align="right">'.&mt('Created between').'</td>'
                    '<td>[_1]</td></tr>'.                .'<td>'.$cafter.'</td></tr>'
                    '<tr><td align="right">and </td>'.                .'<tr><td align="right">'.&mt('and').'</td>'
                    '<td>[_2]</td></tr>',$cafter,$cbefore);                .'<td>'.$cbefore.'</td></tr>';
     my $lafter =       my $lafter = 
         &Apache::lonhtmlcommon::date_setter('advsearch',          &Apache::lonhtmlcommon::date_setter('advsearch',
                                             'revisiondate1',                                               'revisiondate1', 
Line 1084  ENDHEADER Line 1076  ENDHEADER
                                             '',          # state                                              '',          # state
                                             1,           # no_hh_mm_ss                                              1,           # no_hh_mm_ss
                                             );                                              );
     $scrout .= &mt('<tr><td align="right">Last modified between </td>'.      $scrout .= '<tr><td align="right">'.&mt('Last modified between').'</td>'
                    '<td>[_1]</td></tr>'.                .'<td>'.$lafter.'</td></tr>'
                    '<tr><td align="right">and</td>'.                .'<tr><td align="right">'.&mt('and').'</td>'
                    '<td>[_2]</td></tr>',$lafter,$lbefore);                .'<td>'.$lbefore.'</td></tr>';
     $scrout.="</table>\n";      $scrout.="</table>\n";
     $scrout.=<<ENDDOCUMENT;      $scrout.=<<ENDDOCUMENT;
 $advanced_buttons  $advanced_buttons
Line 2125  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 2560  END Line 2556  END
     my $server;       my $server; 
     my $status;      my $status;
     my $revise = &revise_button();      my $revise = &revise_button();
       my $txt_total = &mt('Total Matches');
       my $txt_remain = &mt('Time Remaining');
       my $txt_status = &mt('Status');
     $r->print(<<END);      $r->print(<<END);
 <table>  <table>
 <tr><th>Status</th><th>Total Matches</th><th>Time Remaining</th><th></th></tr>  <tr><th>$txt_status</th><th>$txt_total</th><th>$txt_remain</th><th></th></tr>
 <tr>  <tr>
 <td><input type="text" name="status"  value="" size="50" /></td>  <td><input type="text" name="status"  value="" size="50" /></td>
 <td><input type="text" name="count"   value="" size="10" /></td>  <td><input type="text" name="count"   value="" size="10" /></td>
Line 2643  END Line 2642  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.289  
changed lines
  Added in v.1.297

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