--- rat/lonsequence.pm 2005/03/01 00:22:57 1.23 +++ rat/lonsequence.pm 2005/04/07 06:56:27 1.24 @@ -2,7 +2,7 @@ # # Sequence Handler # -# $Id: lonsequence.pm,v 1.23 2005/03/01 00:22:57 albertel Exp $ +# $Id: lonsequence.pm,v 1.24 2005/04/07 06:56:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -71,7 +71,7 @@ sub mapread { sub viewmap { my ($r,$url)=@_; $r->print(''); - if ($ENV{'form.forceselect'}) { $r->print(<print(< function select_group() { @@ -96,7 +96,7 @@ ENDSCRIPT } $r->print(&Apache::loncommon::bodytag('Map Contents').'

'.$url.'

'); # ------------------ This is trying to select. Provide buttons and tie %selhash - if ($ENV{'form.forceselect'}) { $r->print(<print(< ENDSELECT 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 ($ENV{'form.launch'} eq '1') { + if ($env{'form.launch'} eq '1') { &start_fresh_session(); } $successtied=1; # - Evaluate actions from previous page (both cumulatively and chronologically) - if ($ENV{'form.catalogmode'} eq 'groupimport') { - my $acts=$ENV{'form.acts'}; + if ($env{'form.catalogmode'} eq 'groupimport') { + my $acts=$env{'form.acts'}; my @Acts=split(/b/,$acts); my %ahash; my %achash; @@ -242,9 +242,9 @@ sub handler { my $exitdisid = ''; my $arrow_dir = ''; - if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) { + if (($env{'request.course.fn'}) && (!$env{'form.forceselect'})) { 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)) { $last=$hash{'last_direction'}; untie(%hash); @@ -255,7 +255,7 @@ sub handler { ($prevmap,undef,$direction)=&Apache::lonnet::decode_symb($last); } # ------------------------------------------------------------- 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)) { my $disid=''; my $randomout =''; @@ -269,7 +269,7 @@ sub handler { $disurl=$bighash{'src_'.$disid}; $dismapid=(split(/\./,$disid))[1]; $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)) { $last=$hash{'last_known'}; untie(%hash);