|
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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsequence.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat