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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.201 and 1.202

version 1.201, 2004/01/02 16:34:03 version 1.202, 2004/01/02 19:23:47
Line 629  ENDHEADER Line 629  ENDHEADER
     $scrout.='<table>';      $scrout.='<table>';
     $scrout.="<tr><th>".&mt('Field').'</th><th>'.&mt('Value').'</th><th>'      $scrout.="<tr><th>".&mt('Field').'</th><th>'.&mt('Value').'</th><th>'
  .&mt('Related').'<br />'.&mt('Words')."</td></tr>\n";   .&mt('Related').'<br />'.&mt('Words')."</td></tr>\n";
     foreach ('title','author','keywords','notes','abstract','standards',      foreach ('title','author','owner','authorspace','modifyinguser',
        'keywords','notes','abstract','standards',
      'lowestgradelevel','highestgradelevel','mime') {       'lowestgradelevel','highestgradelevel','mime') {
  $scrout.='<tr bgcolor="#FFFFBB"><td>'.&titlefield($fields{$_}).'</td><td>'.   $scrout.='<tr bgcolor="#FFFFBB"><td>'.&titlefield($fields{$_}).'</td><td>'.
     &Apache::lonmeta::prettyinput($_,$ENV{'form.'.$_},$_,'advsearch',      &Apache::lonmeta::prettyinput($_,$ENV{'form.'.$_},$_,'advsearch',
   1,'</td><td>',$ENV{'form.'.$_.'_related'}).    1,'</td><td>',$ENV{'form.'.$_.'_related'}).
     '</td></tr>';      '</td></tr>';
     }      }
       $scrout.='<tr bgcolor="#FFFFBB"><td>'.
    &titlefield(&mt('MIME Type Category')).'</td><td>'. 
       &Apache::loncommon::filecategoryselect('category',
      $ENV{'form.category'}).
       '</td><td>&nbsp;</td></td></tr>';
       $scrout.='<tr bgcolor="#FFFFBB"><td>'.
    &titlefield(&mt('Limit Search to Domains')).'</td><td>'. 
       &Apache::loncommon::domain_select('domains',
      $ENV{'form.domains'},1).
       '</td><td>&nbsp;</td></td></tr>';
     my %dates=&Apache::lonlocal::texthash('creationdatestart'     => 'Creation Date After',      my %dates=&Apache::lonlocal::texthash('creationdatestart'     => 'Creation Date After',
     'creationdateend'       => 'Creation Date Before',      'creationdateend'       => 'Creation Date Before',
   'lastrevisiondatestart' => 'Last Revision Date After',    'lastrevisiondatestart' => 'Last Revision Date After',
   'lastrevisiondateend'   => 'Last Revision Date Before');    'lastrevisiondateend'   => 'Last Revision Date Before');
     foreach (sort keys %dates) {      foreach (sort keys %dates) {
  $scrout.='<tr><td>'.&titlefield($dates{$_}).'</td><td>'.    $scrout.='<tr bgcolor="#FFFFBB"><td>'.&titlefield($dates{$_}).'</td><td>'. 
     &Apache::lonhtmlcommon::date_setter('advsearch',$_,0,'',1).      &Apache::lonhtmlcommon::date_setter('advsearch',$_,0,'',1).
     '</td><td>&nbsp;</td></td></tr>';      '</td><td>&nbsp;</td></td></tr>';
     }      }
       
   
   
     # Hack - an empty table row.  
     $scrout.="<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>\n";  
 #    $scrout.=&searchphrasefield('file<br />extension','extension',  
 #                        $ENV{'form.extension'});  
 #    $scrout.="<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>\n";  
 #    $scrout.=&searchphrasefield('publisher<br />owner','owner',  
  # $ENV{'form.owner'});  
     $scrout.="</table>\n";      $scrout.="</table>\n";
 #    $scrout.=&Apache::lonmeta::selectbox('File Category','category',  
 # $ENV{'form.category'},  
 # 'any','Any category',  
 # undef,  
 # (&Apache::loncommon::filecategories()));  
     #----------------------------------------------------------------  
     # Allow restriction to multiple domains.  
     #   I make the crazy assumption that there will never be a domain 'any'.  
     #  
     my @allowed_domains = (ref($ENV{'form.domains'}) ? @{$ENV{'form.domains'}}   
                            :  ($ENV{'form.domains'}) );  
     my %domain_hash = ();  
     foreach (@allowed_domains) {  
         $domain_hash{$_}++;  
     }  
     my @domains =&Apache::loncommon::get_domains();  
     # adjust the size of the select box  
     my $size = 4;  
     $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size);  
     $scrout.="\n".&titlefield(&mt('Domain to be searched')).  
             '<select name="domains" size="'.$size.'" multiple>'."\n".  
                 '<option name="any" value="any" '.  
                     ($domain_hash{'any'}? 'selected ' :'').  
                         '>all domains</option>'."\n";  
     foreach my $dom (sort @domains) {  
         $scrout.="<option name=\"$dom\" ".  
             ($domain_hash{$dom} ? 'selected ' :'').">$dom</option>\n";  
     }  
     $scrout.="</select>\n";  
   
 # ------------------------------------------- Compute customized metadata field  
 #    $scrout.=<<CUSTOMMETADATA;  
 #<p>  
 #<font color="#800000" face="helvetica"><b>LIMIT BY SPECIAL METADATA FIELDS:</b>  
 #</font>  
 #For resource-specific metadata, enter in an expression in the form of   
 #<i>key</i>=<i>value</i> separated by operators such as AND, OR or NOT.<br />  
 #<b>Example:</b> grandmother=75 OR grandfather=85  
 #<br />  
 #CUSTOMMETADATA  
 #    $scrout.=&simpletextfield('custommetadata',$ENV{'form.custommetadata'});  
 #    $scrout.=<<CUSTOMSHOW;  
 #<p>  
 #<font color="#800000" face="helvetica"><b>SHOW SPECIAL METADATA FIELDS:</b>  
 #</font>  
 #Enter in a space-separated list of special metadata fields to show  
 #in a fielded listing for each record result.  
 #<br />  
 #CUSTOMSHOW  
 #    $scrout.=&simpletextfield('customshow',$ENV{'form.customshow'});  
     $scrout.=<<ENDDOCUMENT;      $scrout.=<<ENDDOCUMENT;
 $advanced_buttons  $advanced_buttons
 </form>  </form>
Removed from v.1.201  
changed lines
  Added in v.1.202

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