version 1.51, 2001/03/21 02:18:14
|
version 1.55, 2001/03/21 02:34:35
|
Line 52 my %metadatafields;
|
Line 52 my %metadatafields;
|
my %cprtag; |
my %cprtag; |
my %mimetag; |
my %mimetag; |
my $closebutton; |
my $closebutton; |
my $viewselect=<<END; |
my $basicviewselect=<<END; |
<select name='view'> |
<select name='basicviewselect'> |
|
<option value='Detailed Citation View'>Detailed Citation View</option> |
|
<option value='Summary View'>Summary View</option> |
|
<option value='Fielded Format'>Fielded Format</option> |
|
<option value='XML/SGML'>XML/SGML</option> |
|
</select> |
|
END |
|
my $advancedviewselect=<<END; |
|
<select name='advancedviewselect'> |
<option value='Detailed Citation View'>Detailed Citation View</option> |
<option value='Detailed Citation View'>Detailed Citation View</option> |
<option value='Summary View'>Summary View</option> |
<option value='Summary View'>Summary View</option> |
<option value='Fielded Format'>Fielded Format</option> |
<option value='Fielded Format'>Fielded Format</option> |
Line 262 ENDDOCUMENT
|
Line 270 ENDDOCUMENT
|
<input type="submit" name="basicsubmit" value="SEARCH"> |
<input type="submit" name="basicsubmit" value="SEARCH"> |
<input type="reset" name="reset" value="RESET"> |
<input type="reset" name="reset" value="RESET"> |
$closebutton |
$closebutton |
$viewselect |
$basicviewselect |
</p> |
</p> |
<hr> |
<hr> |
<h3>Advanced Search</h3> |
<h3>Advanced Search</h3> |
Line 271 $scrout
|
Line 279 $scrout
|
<input type="submit" name="advancedsubmit" value="SEARCH"> |
<input type="submit" name="advancedsubmit" value="SEARCH"> |
<input type="reset" name="reset" value="RESET"> |
<input type="reset" name="reset" value="RESET"> |
$closebutton |
$closebutton |
$viewselect |
$advancedviewselect |
</p> |
</p> |
</form> |
</form> |
</body> |
</body> |
Line 593 sub output_results {
|
Line 601 sub output_results {
|
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
$reply=~/(.*?)\_/; |
$reply=~/(.*?)\_/; |
my $hostname=$1; |
my $hostname=$1; |
|
sleep 3; # temporary fix, need to check for completion and status |
{ |
{ |
while (1) { |
while (1) { |
last if -e $replyfile; |
last if -e $replyfile; |
Line 617 sub output_results {
|
Line 625 sub output_results {
|
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$fields[7]=$shortabstract; |
$fields[7]=$shortabstract; |
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<p> |
<p>($title) |
END |
END |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
Line 626 onClick="javascript:select_data('$title'
|
Line 634 onClick="javascript:select_data('$title'
|
<br> |
<br> |
END |
END |
my $httphost=$ENV{'HTTP_HOST'}; |
my $httphost=$ENV{'HTTP_HOST'}; |
if ($ENV{'form.viewselect'} eq 'Detailed Citation View') { |
|
|
my $viewselect; |
|
if ($mode eq 'Basic') { |
|
$viewselect=$ENV{'form.basicviewselect'}; |
|
} |
|
elsif ($mode eq 'Advanced') { |
|
$viewselect=$ENV{'form.advancedviewselect'}; |
|
} |
|
|
|
if ($viewselect eq 'Detailed Citation View') { |
$compiledresult.=&detailed_citation_view(@fields, |
$compiledresult.=&detailed_citation_view(@fields, |
$hostname,$httphost); |
$hostname,$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'Summary View') { |
elsif ($viewselect eq 'Summary View') { |
$compiledresult.=&summary_view(@fields,$hostname,$httphost); |
$compiledresult.=&summary_view(@fields,$hostname,$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'Fielded Format') { |
elsif ($viewselect eq 'Fielded Format') { |
$compiledresult.=&fielded_format_view(@fields,$hostname, |
$compiledresult.=&fielded_format_view(@fields,$hostname, |
$httphost); |
$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'XML/SGML') { |
elsif ($viewselect eq 'XML/SGML') { |
$compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost); |
$compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost); |
} |
} |
|
|
Line 767 sub detailed_citation_view {
|
Line 784 sub detailed_citation_view {
|
$notes,$shortabstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$hostname,$httphost)=@_; |
$hostname,$httphost)=@_; |
|
return 'abc'; |
my $result=<<END; |
my $result=<<END; |
DETAILED |
DETAILED |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |