--- loncom/interface/lonsearchcat.pm 2001/11/01 15:59:11 1.103 +++ loncom/interface/lonsearchcat.pm 2001/11/28 14:02:31 1.104 @@ -3,11 +3,14 @@ # Search Catalog # # YEAR=2001 -# 03/08/2001 Scott Harrison -# Scott Harrison: 03/12/2001, 03/13/2001, 03/14/2001, 03/15/2001, 03/19/2001 -# Scott Harrison: 03/20/2001, 03/21/2001, 03/22/2001, 03/26/2001, 03/27/2001 -# Scott Harrison: 04/02/2001, 08/15/2001, 08/24/2001, 08/25/2001 -# 10/12,10/14,10/15,10/16 Scott Harrison +# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison +# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison +# 10/12,10/14,10/15,10/16,11/28 Scott Harrison +# +# $Id: lonsearchcat.pm,v 1.104 2001/11/28 14:02:31 harris41 Exp $ +# +### + ############################################################################### ## ## ## ORGANIZATION OF THIS PERL MODULE ## @@ -211,7 +214,7 @@ sub handler { $domain = $r->dir_config('lonDefDomain'); - $diropendb = "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_indexer.db"; + $diropendb= "/home/httpd/perl/tmp/$domain\_$ENV{'user.name'}_searchcat.db"; if ($ENV{'form.launch'} eq '1') { if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { @@ -1554,7 +1557,7 @@ $message RESULTS } -# --------- settings whenever the user causes the indexer window to be launched +# --------- settings whenever the user causes the search window to be launched sub start_fresh_session { delete $hash{'mode_catalog'}; map {