--- loncom/interface/lonsearchcat.pm 2002/03/08 18:36:00 1.117 +++ loncom/interface/lonsearchcat.pm 2002/06/10 23:55:47 1.120 @@ -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.120 2002/06/10 23:55:47 harris41 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 @@ -81,7 +82,8 @@ my %hash; # XML/SGML ---> sub xml_sgml_view my $basicviewselect=< - + @@ -89,7 +91,8 @@ my $basicviewselect=< - + @@ -142,8 +145,13 @@ sub handler { } } +# --------------------------- Produce some output, so people know it is working + + $r->print("\n"); + $r->rflush; + # ----------------------------------- configure dynamic components of interface - my $hidden=''; + if ($ENV{'form.catalogmode'} eq 'interactive') { $hidden="". "\n"; @@ -826,7 +834,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 +866,7 @@ SCRIPT CATALOGBEGIN $r->print(< +$hidden @@ -1084,6 +1094,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 +1146,8 @@ END $hash{"pre_${fnum}_link"}=$url; $hash{"pre_${fnum}_title"}=$title; $compiledresult.=< +