version 1.162, 2003/01/06 13:54:25
|
version 1.165, 2003/02/10 21:22:59
|
Line 79 use Apache::lonnet();
|
Line 79 use Apache::lonnet();
|
use Apache::File(); |
use Apache::File(); |
use CGI qw(:standard); |
use CGI qw(:standard); |
use Text::Query; |
use Text::Query; |
use DBI; |
|
use GDBM_File; |
use GDBM_File; |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonmysql(); |
use Apache::lonmysql(); |
Line 571 ENDHEADER
|
Line 570 ENDHEADER
|
my @domains =&Apache::loncommon::get_domains(); |
my @domains =&Apache::loncommon::get_domains(); |
# adjust the size of the select box |
# adjust the size of the select box |
my $size = 4; |
my $size = 4; |
my $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size); |
$size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size); |
$scrout.="\n".'<font color="#800000" face="helvetica"><b>'. |
$scrout.="\n".'<font color="#800000" face="helvetica"><b>'. |
'DOMAINS</b></font><br />'. |
'DOMAINS</b></font><br />'. |
'<select name="domains" size="'.$size.'" multiple>'."\n". |
'<select name="domains" size="'.$size.'" multiple>'."\n". |
Line 2963 sub start_fresh_session {
|
Line 2962 sub start_fresh_session {
|
1; |
1; |
|
|
sub cleanup { |
sub cleanup { |
untie %groupsearch_db if (tied(%groupsearch_db)); |
if (tied(%groupsearch_db)) { |
|
&Apache::lonnet::logthis('Cleanup searchcat: groupsearch_db'); |
|
unless (untie(%groupsearch_db)) { |
|
&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db'); |
|
} |
|
} |
&Apache::lonmysql::disconnect_from_db(); |
&Apache::lonmysql::disconnect_from_db(); |
} |
} |
|
|