loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.79, 2001/03/27 02:48:02	version 1.80, 2001/03/27 02:51:15
Line 688 sub output_results {	Line 688 sub output_results {
my $customdata='';	my $customdata='';
foreach my $result (@results) {	foreach my $result (@results) {
$result=~/(\&custom.*)$/; # grab all custom metadata	$result=~/(\&custom.*)$/; # grab all custom metadata
$custom=$1;	$customdata=$1;
$result=~s/\&custom.*$//; # remove custom metadata	$result=~s/\&custom.*$//; # remove custom metadata
}	}
foreach my $result (@results) {	foreach my $result (@results) {
Line 776 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	$customdata
<input type='button' value='Revise search request'	<input type='button' value='Revise search request'
onClick='this.form.submit();'>	onClick='this.form.submit();'>
$closebutton	$closebutton