--- loncom/interface/lonsearchcat.pm 2004/06/03 20:32:33 1.229
+++ loncom/interface/lonsearchcat.pm 2004/06/28 15:55:09 1.230
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.229 2004/06/03 20:32:33 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.230 2004/06/28 15:55:09 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -781,7 +781,7 @@ ENDHEADER
$scrout.='
'.
&titlefield(&mt('Copyright/Distribution')).' | '.
&Apache::lonmeta::selectbox('copyright',
- '',,
+ $ENV{'form.copyright'},
\&Apache::loncommon::copyrightdescription,
( undef,
&Apache::loncommon::copyrightids)
@@ -789,7 +789,7 @@ ENDHEADER
$scrout.=' |
'.
&titlefield(&mt('Language')).' | '.
&Apache::lonmeta::selectbox('language',
- 'notset',,
+ $ENV{'form.language'},
\&Apache::loncommon::languagedescription,
('any',&Apache::loncommon::languageids)
).' |
';
@@ -1201,7 +1201,7 @@ sub parse_advanced_search {
my @StatsFields = &statfields();
my @EvalFields = &evalfields();
my $fillflag=0;
- my $pretty_search_string = "
\n";
+ my $pretty_search_string = "";
# Clean up fields for safety
for my $field (@BasicFields,
'creationdatestart_month','creationdatestart_day',
@@ -1327,7 +1327,7 @@ sub parse_advanced_search {
push @queries,"(copyright like \"$ENV{'form.copyright'}\")";
$pretty_search_string.=$font."copyright = ".
&Apache::loncommon::copyrightdescription($ENV{'form.copyright'}).
- "
\n";
+ "
\n";
}
#
# Statistics
@@ -2245,12 +2245,16 @@ $bodytag