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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.11 and 1.15

version 1.11, 2001/03/15 13:23:15 version 1.15, 2001/03/15 14:31:05
Line 167  LASTREVISIONDATEEND Line 167  LASTREVISIONDATEEND
     $scrout.=&selectbox('Limit by copyright/distribution','copyright',      $scrout.=&selectbox('Limit by copyright/distribution','copyright',
  $ENV{'form.copyright'},%cprtag);   $ENV{'form.copyright'},%cprtag);
   
   # ------------------------------------------- Compute customized metadata field
       $scrout.=<<CUSTOMMETADATA;
   <p>
   <font color="#800000" face="helvetica"><b>LIMIT BY OTHER METADATA FIELDS:</b>
   </font>
   For author-specific metadata, enter in an expression in the form of 
   <i>key</i>=<i>value</i> separated by operators such as AND or OR.<br>
   <b>Example:</b> grandmother=75 OR grandfather=85
   <br>
   CUSTOMMETADATA
   $scrout.=&simpletextfield('custommetadata',$ENV{'form.custommetadata'});
   $scrout.=' <i>initial users of this system do not need to worry about this option</i>';
   
 # ---------------------------------------------------------------- Print screen  # ---------------------------------------------------------------- Print screen
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 <html>  <html>
Line 409  sub basicsearch { Line 422  sub basicsearch {
   
     my $query=$expression;      my $query=$expression;
     $query="select * from metadata where concat(title,\"    \",author) like '\%$expression\%'";      $query="select * from metadata where concat(title,\"    \",author) like '\%$expression\%'";
     my $reply=&Apache::lonnet::reply("querysend:$query",'msul3');  #    my $reply=&Apache::lonnet::reply("querysend:$query",'msul3');
       my $reply=&Apache::lonnet::metadata_query($query);
   
     my @results;      my @results;
   
Line 450  onClick="javascript:select_data('$title' Line 464  onClick="javascript:select_data('$title'
 <br>  <br>
 END  END
         $compiledresult.=<<END;          $compiledresult.=<<END;
 <b>URL: </b> $url<br>  <b>URL: </b> <A HREF='res/msu/shh1/poobah1.html'>$url</A><br>
 <b>Title:</b> $title<br>  <b>Title:</b> $title<br>
 <b>Author(s):</b> $author<br>  <b>Author(s):</b> $author<br>
 <b>Subject:</b> $subject<br>  <b>Subject:</b> $subject<br>
Removed from v.1.11  
changed lines
  Added in v.1.15

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