loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2001/03/26 21:24:12	version 1.79, 2001/03/27 02:48:02
Line 685 sub output_results {	Line 685 sub output_results {
split(/\s+/,$customshow);	split(/\s+/,$customshow);
$extrashow="<ul><li>".join("</li><li>",@fields)."</li></ul>\n";	$extrashow="<ul><li>".join("</li><li>",@fields)."</li></ul>\n";
}	}
	my $customdata='';
	foreach my $result (@results) {
	$result=~/(\&custom.*)$/; # grab all custom metadata
	$custom=$1;
	$result=~s/\&custom.*$//; # remove custom metadata
	}
foreach my $result (@results) {	foreach my $result (@results) {
my @fields=map	my @fields=map
{&Apache::lonnet::unescape($_)}	{&Apache::lonnet::unescape($_)}
Line 770 SCRIPT	Line 776 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">
	$custom
<input type='button' value='Revise search request'	<input type='button' value='Revise search request'
onClick='this.form.submit();'>	onClick='this.form.submit();'>
$closebutton	$closebutton
Line 875 sub detailed_citation_view {	Line 882 sub detailed_citation_view {
<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>Copyright/Distribution:</b> $cprtag{$copyright}<br>	<b>Copyright/Distribution:</b> $cprtag{$copyright}<br>
	</p>
$extrashow	$extrashow
	<p>
$shortabstract	$shortabstract
</p>	</p>
END	END