version 1.26, 2006/04/04 15:32:12
|
version 1.27, 2006/06/08 13:56:40
|
Line 26
|
Line 26
|
# |
# |
# http://www.lon-capa.org/ |
# http://www.lon-capa.org/ |
# |
# |
# (Handler to resolve ambiguous file locations |
|
# |
|
|
|
package Apache::lonsequence; |
package Apache::lonsequence; |
|
|
Line 108 onClick="javascript:select_group()">
|
Line 106 onClick="javascript:select_group()">
|
</form> |
</form> |
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'}_sel_res.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 116 ENDSELECT
|
Line 114 ENDSELECT
|
$successtied=1; |
$successtied=1; |
|
|
# - Evaluate actions from previous page (both cumulatively and chronologically) |
# - Evaluate actions from previous page (both cumulatively and chronologically) |
if ($env{'form.catalogmode'} eq 'groupimport') { |
if ($env{'form.catalogmode'} eq 'import') { |
my $acts=$env{'form.acts'}; |
my $acts=$env{'form.acts'}; |
my @Acts=split(/b/,$acts); |
my @Acts=split(/b/,$acts); |
my %ahash; |
my %ahash; |