loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.153, 2002/08/16 13:52:51	version 1.153.2.1, 2002/09/16 13:05:54
Line 171 sub handler {	Line 171 sub handler {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
	##
	## Prevent caching of the search interface window. Hopefully this means
	## we will get the launch=1 passed in a little more.
	&Apache::loncommon::no_cache($r);
##	##
## Pick up form fields passed in the links.	## Pick up form fields passed in the links.
##	##
Line 226 END	Line 230 END
## Clear out old values from groupsearch database	## Clear out old values from groupsearch database
##	##
untie %groupsearch_db if (tied(%groupsearch_db));	untie %groupsearch_db if (tied(%groupsearch_db));
if ($ENV{'form.launch'} eq '1' &&	if (($ENV{'form.launch'} eq '1') &&
($ENV{'form.catalogmode'} eq 'groupsearch') &&	($ENV{'form.catalogmode'} eq 'groupsearch')) {
($ENV{'form.phase'} eq 'results')) {
if (tie(%groupsearch_db,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {	if (tie(%groupsearch_db,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
&start_fresh_session();	&start_fresh_session();
untie %groupsearch_db;	untie %groupsearch_db;