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> |