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

Diff for /loncom/interface/lonsearchcat.pm between versions 1.8 and 1.9

version 1.8, 2001/03/13 15:36:15 version 1.9, 2001/03/14 15:26:47
Line 111  END Line 111  END
 <br>  <br>
 between:  between:
 CREATIONDATESTART  CREATIONDATESTART
     $scrout.=&dateboxes('creationdatestart');      $scrout.=&dateboxes('creationdatestart',1,1,1976);
     $scrout.=<<CREATIONDATEEND;      $scrout.=<<CREATIONDATEEND;
 and:  and:
 CREATIONDATEEND  CREATIONDATEEND
     $scrout.=&dateboxes('creationdateend');      $scrout.=&dateboxes('creationdateend',12,31,2051);
     $scrout.="</p>";      $scrout.="</p>";
   
     $scrout.=<<LASTREVISIONDATESTART;      $scrout.=<<LASTREVISIONDATESTART;
Line 124  CREATIONDATEEND Line 124  CREATIONDATEEND
 </b></font>  </b></font>
 <br>between:  <br>between:
 LASTREVISIONDATESTART  LASTREVISIONDATESTART
     $scrout.=&dateboxes('lastrevisiondatestart');      $scrout.=&dateboxes('lastrevisiondatestart',1,1,1976);
     $scrout.=<<LASTREVISIONDATEEND;      $scrout.=<<LASTREVISIONDATEEND;
 and:  and:
 LASTREVISIONDATEEND  LASTREVISIONDATEEND
     $scrout.=&dateboxes('lastrevisiondateend');      $scrout.=&dateboxes('lastrevisiondateend',12,31,2051);
     $scrout.='</p>';      $scrout.='</p>';
   
     $scrout.=&searchphrasefield('Limit by publisher/owner','owner',      $scrout.=&searchphrasefield('Limit by publisher/owner','owner',
Line 200  END Line 200  END
 }  }
   
 sub dateboxes {  sub dateboxes {
     my ($name)=@_;      my ($name,$defaultmonth,$defaultday,$defaultyear)=@_;
     return<<END;      return<<END;
 <select name="${name}_month">  <select name="${name}_month">
 <option value="01"> </option>  <option value="$defaultmonth"> </option>
 <option value="01">January</option>  <option value="01">January</option>
 <option value="02">February</option>  <option value="02">February</option>
 <option value="03">March</option>  <option value="03">March</option>
Line 218  sub dateboxes { Line 218  sub dateboxes {
 <option value="12">December</option>  <option value="12">December</option>
 </select>  </select>
 <select name="${name}_day">  <select name="${name}_day">
 <option value="1"> </option>  <option value="$defaultday"> </option>
 <option value=1>1</option>  <option value=1>1</option>
 <option value=2>2</option>  <option value=2>2</option>
 <option value=3>3</option>  <option value=3>3</option>
Line 252  sub dateboxes { Line 252  sub dateboxes {
 <option value=31>31</option>  <option value=31>31</option>
 </select>  </select>
 <select name="${name}_year">  <select name="${name}_year">
 <option value=1976> </option>  <option value="$defaultyear"> </option>
 <option value=1976>1976</option>  <option value=1976>1976</option>
 <option value=1977>1977</option>  <option value=1977>1977</option>
 <option value=1978>1978</option>  <option value=1978>1978</option>
Line 377  sub basicsearch { Line 377  sub basicsearch {
     my $compiledresult='';      my $compiledresult='';
   
     foreach my $result (@results) {      foreach my $result (@results) {
  my ($title,$author,$subject,$notes,$abstract,$mime,$lang,   my ($title,$author,$subject,$url,$keywords,$version,
       $notes,$abstract,$mime,$lang,
     $creationdate,$lastrevisiondate,$owner,$copyright      $creationdate,$lastrevisiondate,$owner,$copyright
     )=map {&Apache::lonnet::unescape($_)} (split(/\,/,$result));      )=map {&Apache::lonnet::unescape($_)} (split(/\,/,$result));
  my $shortabstract=$abstract;   my $shortabstract=$abstract;
Line 392  onClick="javascript:select_data('$title' Line 393  onClick="javascript:select_data('$title'
 <br>  <br>
 END  END
         $compiledresult.=<<END;          $compiledresult.=<<END;
   <b>URL: </b> $url<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>
 <b>Keyword(s):</b> <i>not available yet</i><br>  <b>Keyword(s):</b> $keywords<br>
 <b>Notes:</b> $notes<br>  <b>Notes:</b> $notes<br>
 <b>Abstract:</b> $shortabstract<br>  <b>Abstract:</b> $shortabstract<br>
 <b>MIME Type:</b> $mimetag{$mime}<br>  <b>MIME Type:</b> $mimetag{$mime}<br>
Line 413  END Line 415  END
  $compiledresult="There were no results that matched your query";   $compiledresult="There were no results that matched your query";
     }      }
   
 # Question... allow to ask question from this page, or click to      # make query information persistent to allow for subsequent revision
 # search again?      my $persistent='';
       map {
    if (/^form\./ && !/submit/) {
       my $name=$_;
       my $key=$name;
       $name=~s/^form\.//;
       $persistent.=<<END;
   <INPUT TYPE='hidden' NAME='$name' VALUE='$ENV{$key}'>
   END
           }
       } (keys %ENV);
   
     $r->print(<<BEGINNING);      $r->print(<<BEGINNING);
 <html>  <html>
 <head>  <head>
Line 444  SCRIPT Line 457  SCRIPT
 <img align=right src=/adm/lonIcons/lonlogos.gif>  <img align=right src=/adm/lonIcons/lonlogos.gif>
 <h1>Search Catalog</h1>  <h1>Search Catalog</h1>
 <form method="post" action="/adm/searchcat">  <form method="post" action="/adm/searchcat">
 <a href=''>Revise search request</a>  <input type='button' value='Revise search request'
   onClick='this.form.submit();'>
   $persistent
 <hr>  <hr>
 <h3>Search Query</h3>  <h3>Search Query</h3>
 <p>  <p>
Removed from v.1.8  
changed lines
  Added in v.1.9

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