version 1.52, 2001/03/21 02:24:00
|
version 1.54, 2001/03/21 02:30:01
|
Line 617 sub output_results {
|
Line 617 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 626 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') { |
if ($ENV{'form.viewselect'} eq 'Detailed Citation View') { |
$compiledresult.=&detailed_citation_view(@fields, |
$compiledresult.=&detailed_citation_view(@fields, |
$hostname,$httphost); |
$hostname,$httphost); |
Line 767 sub detailed_citation_view {
|
Line 768 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> |