version 1.23, 2005/03/01 00:22:57
|
version 1.24, 2005/04/07 06:56:27
|
Line 71 sub mapread {
|
Line 71 sub mapread {
|
sub viewmap { |
sub viewmap { |
my ($r,$url)=@_; |
my ($r,$url)=@_; |
$r->print('<html>'); |
$r->print('<html>'); |
if ($ENV{'form.forceselect'}) { $r->print(<<ENDSCRIPT); |
if ($env{'form.forceselect'}) { $r->print(<<ENDSCRIPT); |
<script> |
<script> |
|
|
function select_group() { |
function select_group() { |
Line 96 ENDSCRIPT
|
Line 96 ENDSCRIPT
|
} |
} |
$r->print(&Apache::loncommon::bodytag('Map Contents').'<h1>'.$url.'</h1>'); |
$r->print(&Apache::loncommon::bodytag('Map Contents').'<h1>'.$url.'</h1>'); |
# ------------------ This is trying to select. Provide buttons and tie %selhash |
# ------------------ This is trying to select. Provide buttons and tie %selhash |
if ($ENV{'form.forceselect'}) { $r->print(<<ENDSELECT); |
if ($env{'form.forceselect'}) { $r->print(<<ENDSELECT); |
<form name=fileattr><input type=hidden name=acts value=''> |
<form name=fileattr><input type=hidden name=acts value=''> |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
<input type="button" name="close" value='CLOSE' onClick="self.close()"> |
<input type="button" name="groupimport" value='GROUP IMPORT' |
<input type="button" name="groupimport" value='GROUP IMPORT' |
Line 104 onClick="javascript:select_group()">
|
Line 104 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'}_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(); |
} |
} |
$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 'groupimport') { |
my $acts=$ENV{'form.acts'}; |
my $acts=$env{'form.acts'}; |
my @Acts=split(/b/,$acts); |
my @Acts=split(/b/,$acts); |
my %ahash; |
my %ahash; |
my %achash; |
my %achash; |
Line 242 sub handler {
|
Line 242 sub handler {
|
my $exitdisid = ''; |
my $exitdisid = ''; |
my $arrow_dir = ''; |
my $arrow_dir = ''; |
|
|
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 255 sub handler {
|
Line 255 sub handler {
|
($prevmap,undef,$direction)=&Apache::lonnet::decode_symb($last); |
($prevmap,undef,$direction)=&Apache::lonnet::decode_symb($last); |
} |
} |
# ------------------------------------------------------------- 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=''; |
my $randomout =''; |
my $randomout =''; |
Line 269 sub handler {
|
Line 269 sub handler {
|
$disurl=$bighash{'src_'.$disid}; |
$disurl=$bighash{'src_'.$disid}; |
$dismapid=(split(/\./,$disid))[1]; |
$dismapid=(split(/\./,$disid))[1]; |
$randomout = $bighash{'randomout_'.$disid}; |
$randomout = $bighash{'randomout_'.$disid}; |
} elsif (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
} elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
untie(%hash); |
untie(%hash); |