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

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

version 1.200, 2004/01/01 20:13:17 version 1.202, 2004/01/02 19:23:47
Line 485  $bodytag Line 485  $bodytag
 ENDDOCUMENT  ENDDOCUMENT
 if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) {  if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) {
     my $CatalogSearch=&mt('Catalog Search');      my $CatalogSearch=&mt('Catalog Search');
     my $Statement=&mt('Enter terms or phrases separated by AND, OR, or NOT then press SEARCH below');      my $Statement=&searchhelp();
     $scrout.=(<<ENDDOCUMENT);      $scrout.=(<<ENDDOCUMENT);
 <h1>$CatalogSearch</h1>  <h1>$CatalogSearch</h1>
 <form name="loncapa_search" method="post" action="/adm/searchcat">  <form name="loncapa_search" method="post" action="/adm/searchcat">
Line 602  $closebutton Line 602  $closebutton
 <input type="button" value="$lt{'help'}" onClick="openhelp()" />  <input type="button" value="$lt{'help'}" onClick="openhelp()" />
 </p>  </p>
 END  END
     if (!defined($ENV{'form.viewselect'})) {  
         $ENV{'form.viewselect'} ="Detailed Citation View";  
     }  
     my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search');      my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search');
       my $searchhelp=&searchhelp();
     my $scrout=<<"ENDHEADER";      my $scrout=<<"ENDHEADER";
 <html>  <html>
 <head>  <head>
Line 619  END Line 617  END
 </script>  </script>
 </head>  </head>
 $bodytag  $bodytag
 Enter terms or phrases separated by search operators   $searchhelp
 such as AND, OR, or NOT.<br />  
 <form method="post" action="/adm/searchcat" name="advsearch">  <form method="post" action="/adm/searchcat" name="advsearch">
 $advanced_buttons  $advanced_buttons
 $hidden_fields  $hidden_fields
Line 628  $hidden_fields Line 625  $hidden_fields
 ENDHEADER  ENDHEADER
     $scrout.=&viewoptions();      $scrout.=&viewoptions();
     my %fields=&Apache::lonmeta::fieldnames();      my %fields=&Apache::lonmeta::fieldnames();
 # set undefined to "any"  
     $ENV{'form.language'}='any' unless length($ENV{'form.language'});  
     $ENV{'form.domains'} = 'any' if (! exists($ENV{'form.domains'}));  
     $ENV{'form.category'}='any' if (! defined($ENV{'form.category'}));  
   
   
     $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><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>';
     }      }
     # Hack - an empty table row.      $scrout.='<tr bgcolor="#FFFFBB"><td>'.
     $scrout.="<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>\n";   &titlefield(&mt('MIME Type Category')).'</td><td>'. 
 #    $scrout.=&searchphrasefield('file<br />extension','extension',      &Apache::loncommon::filecategoryselect('category',
 #                        $ENV{'form.extension'});     $ENV{'form.category'}).
 #    $scrout.="<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>\n";      '</td><td>&nbsp;</td></td></tr>';
 #    $scrout.=&searchphrasefield('publisher<br />owner','owner',      $scrout.='<tr bgcolor="#FFFFBB"><td>'.
  # $ENV{'form.owner'});   &titlefield(&mt('Limit Search to Domains')).'</td><td>'. 
     $scrout.="</table>\n";      &Apache::loncommon::domain_select('domains',
 #    $scrout.=&Apache::lonmeta::selectbox('File Category','category',     $ENV{'form.domains'},1).
 # $ENV{'form.category'},      '</td><td>&nbsp;</td></td></tr>';
 # 'any','Any category',      my %dates=&Apache::lonlocal::texthash('creationdatestart'     => 'Creation Date After',
 # undef,      'creationdateend'       => 'Creation Date Before',
 # (&Apache::loncommon::filecategories()));    'lastrevisiondatestart' => 'Last Revision Date After',
     #----------------------------------------------------------------    'lastrevisiondateend'   => 'Last Revision Date Before');
     # Allow restriction to multiple domains.      foreach (sort keys %dates) {
     #   I make the crazy assumption that there will never be a domain 'any'.   $scrout.='<tr bgcolor="#FFFFBB"><td>'.&titlefield($dates{$_}).'</td><td>'. 
     #      &Apache::lonhtmlcommon::date_setter('advsearch',$_,0,'',1).
     my @allowed_domains = (ref($ENV{'form.domains'}) ? @{$ENV{'form.domains'}}       '</td><td>&nbsp;</td></td></tr>';
                            :  ($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.="</table>\n";
 #    $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>
Line 789  sub viewoptions { Line 746  sub viewoptions {
 }  }
   
 ######################################################################  ######################################################################
   
   =pod 
   
   =item searchhelp
   
   Inputs: none
   
   Outputs: return little blurb on how to enter searches
   
   =cut
   
   ######################################################################
   ######################################################################
   
   sub searchhelp {
       return &mt('Enter terms or phrases separated by AND, OR, or NOT');
   }
   
   ######################################################################
 ######################################################################  ######################################################################
   
 =pod   =pod 
Removed from v.1.200  
changed lines
  Added in v.1.202

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