version 1.50, 2001/03/21 02:09:38
|
version 1.56, 2001/03/21 03:06:50
|
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 615 sub output_results {
|
Line 623 sub output_results {
|
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
my $shortabstract=$abstract; |
my $shortabstract=$abstract; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
|
$fields[7]=$shortabstract; |
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<p> |
<p> |
END |
END |
Line 624 onClick="javascript:select_data('$title'
|
Line 633 onClick="javascript:select_data('$title'
|
</font> |
</font> |
<br> |
<br> |
END |
END |
|
my $httphost=$ENV{'HTTP_HOST'}; |
if ($ENV{'form.viewselect'} eq 'Detailed Citation View') { |
|
$compiledresult.=&detailed_citation_view(@fields); |
my $viewselect; |
|
if ($mode eq 'Basic') { |
|
$viewselect=$ENV{'form.basicviewselect'}; |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'Summary View') { |
elsif ($mode eq 'Advanced') { |
$compiledresult.=&summary_view(@fields); |
$viewselect=$ENV{'form.advancedviewselect'}; |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'Fielded Format') { |
|
$compiledresult.=&fielded_format_view(@fields); |
if ($viewselect eq 'Detailed Citation View') { |
|
$compiledresult.=&detailed_citation_view(@fields, |
|
$hostname,$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'XML/SGML') { |
elsif ($viewselect eq 'Summary View') { |
$compiledresult.=&xml_sgml_view(@fields); |
$compiledresult.=&summary_view(@fields,$hostname,$httphost); |
|
} |
|
elsif ($viewselect eq 'Fielded Format') { |
|
$compiledresult.=&fielded_format_view(@fields,$hostname, |
|
$httphost); |
|
} |
|
elsif ($viewselect eq 'XML/SGML') { |
|
$compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost); |
} |
} |
|
|
} |
} |
Line 761 sub recursive_SQL_query_build {
|
Line 781 sub recursive_SQL_query_build {
|
# ------------------------------------------------------ Detailed Citation View |
# ------------------------------------------------------ Detailed Citation View |
sub detailed_citation_view { |
sub detailed_citation_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
|
return 'abc'; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
<i>$owner</i>, last revised $lastrevisiondate |
<br> |
<h3><A HREF="http://$httphost$url" TARGET='search_preview'>$title</A></h3> |
<b>Title:</b> $title<br> |
<h3>$author</h3> |
<b>Author(s):</b> $author<br> |
</p> |
|
<p> |
<b>Subject:</b> $subject<br> |
<b>Subject:</b> $subject<br> |
<b>Keyword(s):</b> $keywords<br> |
<b>Keyword(s):</b> $keywords<br> |
<b>Notes:</b> $notes<br> |
<b>Notes:</b> $notes<br> |
<b>Abstract:</b> $shortabstract<br> |
|
<b>MIME Type:</b> $mimetag{$mime}<br> |
<b>MIME Type:</b> $mimetag{$mime}<br> |
<b>Language:</b> $language{$lang}<br> |
<b>Language:</b> $language{$lang}<br> |
<b>Creation Date:</b> $creationdate<br> |
<b>Copyright/Distribution:</b> $cprtag{$copyright}<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
$shortabstract |
<b>Publisher/Owner:</b> $owner<br> |
|
<b>Copyright/Distribution:</b> $copyright<br> |
|
<b>Repository Location:</b> $hostname |
|
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 787 END
|
Line 806 END
|
# ---------------------------------------------------------------- Summary View |
# ---------------------------------------------------------------- Summary View |
sub summary_view { |
sub summary_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
<a href="http://$httphost$url" TARGET='search_preview'>$author</a><br /> |
<br> |
$title<br /> |
<b>Title:</b> $title<br> |
$owner -- $lastrevisiondate<br /> |
<b>Author(s):</b> $author<br> |
$cprtag{$copyright}<br /> |
<b>Subject:</b> $subject<br> |
|
<b>Keyword(s):</b> $keywords<br> |
|
<b>Notes:</b> $notes<br> |
|
<b>Abstract:</b> $shortabstract<br> |
|
<b>MIME Type:</b> $mimetag{$mime}<br> |
|
<b>Language:</b> $language{$lang}<br> |
|
<b>Creation Date:</b> $creationdate<br> |
|
<b>Last Revision Date:</b> $lastrevisiondate<br> |
|
<b>Publisher/Owner:</b> $owner<br> |
|
<b>Copyright/Distribution:</b> $copyright<br> |
|
<b>Repository Location:</b> $hostname |
|
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 813 END
|
Line 822 END
|
# -------------------------------------------------------------- Fielded Format |
# -------------------------------------------------------------- Fielded Format |
sub fielded_format_view { |
sub fielded_format_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<br> |
<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> $keywords<br> |
<b>Keyword(s):</b> $keywords<br /> |
<b>Notes:</b> $notes<br> |
<b>Notes:</b> $notes<br /> |
<b>Abstract:</b> $shortabstract<br> |
<b>MIME Type:</b> $mimetag{$mime}<br /> |
<b>MIME Type:</b> $mimetag{$mime}<br> |
<b>Language:</b> $language{$lang}<br /> |
<b>Language:</b> $language{$lang}<br> |
<b>Creation Date:</b> $creationdate<br /> |
<b>Creation Date:</b> $creationdate<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br /> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<b>Publisher/Owner:</b> $owner<br /> |
<b>Publisher/Owner:</b> $owner<br> |
<b>Copyright/Distribution:</b> $cprtag{$copyright}<br /> |
<b>Copyright/Distribution:</b> $copyright<br> |
<b>Repository Location:</b> $hostname<br /> |
<b>Repository Location:</b> $hostname |
<b>Abstract:</b> $shortabstract<br /> |
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 839 END
|
Line 849 END
|
# -------------------------------------------------------------------- XML/SGML |
# -------------------------------------------------------------------- XML/SGML |
sub xml_sgml_view { |
sub xml_sgml_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
<pre> |
<br> |
<LonCapaResource> |
<b>Title:</b> $title<br> |
<url>http://$httphost$url</url> |
<b>Author(s):</b> $author<br> |
<title>$title</title> |
<b>Subject:</b> $subject<br> |
<author>$author</author> |
<b>Keyword(s):</b> $keywords<br> |
<subject>$subject</subject> |
<b>Notes:</b> $notes<br> |
<keywords>$keywords</keywords> |
<b>Abstract:</b> $shortabstract<br> |
<notes>$notes</notes> |
<b>MIME Type:</b> $mimetag{$mime}<br> |
<mimeInfo> |
<b>Language:</b> $language{$lang}<br> |
<mime>$mime</mime> |
<b>Creation Date:</b> $creationdate<br> |
<mimetag>$mimetag{$mime}</mimetag> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
</mimeInfo> |
<b>Publisher/Owner:</b> $owner<br> |
<languageInfo> |
<b>Copyright/Distribution:</b> $copyright<br> |
<language>$lang</language> |
<b>Repository Location:</b> $hostname |
<languagetag>$language{$lang}</languagetag> |
</p> |
</languageInfo> |
|
<creationdate>$creationdate</creationdate> |
|
<lastrevisiondate>$lastrevisiondate</lastrevisiondate> |
|
<owner>$owner</owner> |
|
<copyrightInfo> |
|
<copyright>$copyright</copyright> |
|
<copyrighttag>$cprtag{$copyright}</copyrighttag> |
|
</copyrightInfo> |
|
<repositoryLocation>$hostname</repositoryLocation> |
|
<shortabstract>$shortabstract</shortabstract> |
|
</pre> |
END |
END |
return $result; |
return $result; |
} |
} |