version 1.103, 2001/11/01 15:59:11
|
version 1.104, 2001/11/28 14:02:31
|
Line 3
|
Line 3
|
# Search Catalog |
# Search Catalog |
# |
# |
# YEAR=2001 |
# YEAR=2001 |
# 03/08/2001 Scott Harrison |
# 3/8, 3/12, 3/13, 3/14, 3/15, 3/19 Scott Harrison |
# Scott Harrison: 03/12/2001, 03/13/2001, 03/14/2001, 03/15/2001, 03/19/2001 |
# 3/20, 3/21, 3/22, 3/26, 3/27, 4/2, 8/15, 8/24, 8/25 Scott Harrison |
# Scott Harrison: 03/20/2001, 03/21/2001, 03/22/2001, 03/26/2001, 03/27/2001 |
# 10/12,10/14,10/15,10/16,11/28 Scott Harrison |
# Scott Harrison: 04/02/2001, 08/15/2001, 08/24/2001, 08/25/2001 |
# |
# 10/12,10/14,10/15,10/16 Scott Harrison |
# $Id$ |
|
# |
|
### |
|
|
############################################################################### |
############################################################################### |
## ## |
## ## |
## ORGANIZATION OF THIS PERL MODULE ## |
## ORGANIZATION OF THIS PERL MODULE ## |
Line 211 sub handler {
|
Line 214 sub handler {
|
|
|
$domain = $r->dir_config('lonDefDomain'); |
$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 ($ENV{'form.launch'} eq '1') { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
Line 1554 $message
|
Line 1557 $message
|
RESULTS |
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 { |
sub start_fresh_session { |
delete $hash{'mode_catalog'}; |
delete $hash{'mode_catalog'}; |
map { |
map { |