--- loncom/interface/lonsearchcat.pm 2002/03/08 18:36:00 1.117
+++ loncom/interface/lonsearchcat.pm 2002/05/22 16:08:52 1.118
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.117 2002/03/08 18:36:00 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.118 2002/05/22 16:08:52 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -68,6 +68,7 @@ my %hitcount; # stores number of hits pe
# -- dynamically rendered interface components
my $closebutton; # button that closes the search window
my $importbutton; # button to take the selected results and go to group sorting
+my $hidden;
# -- miscellaneous variables
my $scrout; # string that holds portions of the screen output
@@ -143,7 +144,7 @@ sub handler {
}
# ----------------------------------- configure dynamic components of interface
- my $hidden='';
+
if ($ENV{'form.catalogmode'} eq 'interactive') {
$hidden="".
"\n";
@@ -826,7 +827,8 @@ SCRIPT
}
}
function select_group() {
- window.location="/adm/groupsort?catalogmode=groupsearch&acts="+
+ window.location=
+ "/adm/groupsort?mode=$ENV{'form.mode'}&catalogmode=groupsearch&acts="+
document.forms.results.acts.value;
}
@@ -857,6 +859,7 @@ SCRIPT
CATALOGBEGIN
$r->print(<
+$hidden
@@ -1084,6 +1087,7 @@ ENDPOP
$notes,$abstract,$mime,$lang,
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields;
+ unless ($title) { $title='Untitled'; }
unless ($ENV{'user.adv'}) {
$keywords='- not displayed -';
$fields[4]=$keywords;
@@ -1135,7 +1139,8 @@ END
$hash{"pre_${fnum}_link"}=$url;
$hash{"pre_${fnum}_title"}=$title;
$compiledresult.=<
+