version 1.12, 2002/05/24 14:44:32
|
version 1.13, 2002/08/12 18:21:42
|
Line 100 onClick="javascript:select_group()">
|
Line 100 onClick="javascript:select_group()">
|
ENDSELECT |
ENDSELECT |
my $diropendb = |
my $diropendb = |
"/home/httpd/perl/tmp/$ENV{'user.domain'}\_$ENV{'user.name'}_groupsec.db"; |
"/home/httpd/perl/tmp/$ENV{'user.domain'}\_$ENV{'user.name'}_groupsec.db"; |
if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { |
if ($ENV{'form.launch'} eq '1') { |
if ($ENV{'form.launch'} eq '1') { |
&start_fresh_session(); |
&start_fresh_session(); |
} |
} |
Line 234 sub handler {
|
Line 234 sub handler {
|
if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) { |
if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) { |
my $last; |
my $last; |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
&GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
$last=$hash{'last_direction'}; |
$last=$hash{'last_direction'}; |
untie(%hash); |
untie(%hash); |
} |
} |
Line 245 sub handler {
|
Line 245 sub handler {
|
} |
} |
# ------------------------------------------------------------- Tie big db file |
# ------------------------------------------------------------- Tie big db file |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
&GDBM_READER,0640)) { |
&GDBM_READER(),0640)) { |
my $disid=''; |
my $disid=''; |
|
|
if ($direction eq 'back') { |
if ($direction eq 'back') { |