--- loncom/interface/lonsearchcat.pm 2003/05/30 20:54:28 1.175
+++ loncom/interface/lonsearchcat.pm 2003/06/14 00:15:01 1.177
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.175 2003/05/30 20:54:28 www Exp $
+# $Id: lonsearchcat.pm,v 1.177 2003/06/14 00:15:01 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -82,7 +82,6 @@ use Text::Query;
use GDBM_File;
use Apache::loncommon();
use Apache::lonmysql();
-use Apache::lonmenu();
# ---------------------------------------- variables used throughout the module
@@ -215,8 +214,7 @@ sub handler {
## Initialize global variables
##
my $domain = $r->dir_config('lonDefDomain');
- $diropendb= "/home/httpd/perl/tmp/".&Apache::lonnet::escape($domain).
- "\_".&Apache::lonnet::escape($ENV{'user.name'})."_searchcat.db";
+ $diropendb= "/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db";
#
# set the name of the persistent database
# $ENV{'form.persistent_db_id'} can only have digits in it.
@@ -2755,9 +2753,6 @@ sub print_frames_interface {
"&persistent_db_id=".$ENV{'form.persistent_db_id'};
my $run_search_link = $basic_link."&phase=run_search";
my $results_link = &results_link();
- my $loadevents=&Apache::lonmenu::loadevents();
- my $unloadevents=&Apache::lonmenu::unloadevents();
- my $addscript=&Apache::lonmenu::registerurl();
my $result = <<"ENDFRAMES";
@@ -2765,10 +2760,9 @@ sub print_frames_interface {
var targetwin = opener;
var queue = '';
-$addscript
LON-CAPA Digital Library Search Results
-