Diff for /rat/lonpageflip.pm between versions 1.19 and 1.20

version 1.19, 2002/04/11 01:57:36 version 1.20, 2002/04/11 15:43:40
Line 156  sub handler { Line 156  sub handler {
   my $redirecturl='';    my $redirecturl='';
   my $next='';    my $next='';
   my @possibilities=();    my @possibilities=();
   
   if (($ENV{'form.postdata'})&&($ENV{'request.course.fn'})) {    if (($ENV{'form.postdata'})&&($ENV{'request.course.fn'})) {
       $ENV{'form.postdata'}=~/(\w+)\:(.*)/;        $ENV{'form.postdata'}=~/(\w+)\:(.*)/;
       my $direction=$1;        my $direction=$1;
Line 206  sub handler { Line 205  sub handler {
 # ------------------------------------------------------------------------- Yes  # ------------------------------------------------------------------------- Yes
   my ($mapurl,$mapnum,$thisurl)=split(/\_\_\_/,$position);    my ($mapurl,$mapnum,$thisurl)=split(/\_\_\_/,$position);
           $cachehash{$mapurl}{$thisurl}=$mapnum;            $cachehash{$mapurl}{$thisurl}=$mapnum;
             $cachehash{$mapurl}{'last_known'}=&Apache::lonnet::declutter($currenturl);
   
 # ============================================================ Tie the big hash  # ============================================================ Tie the big hash
           if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db',            if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                         &GDBM_READER,0640)) {                          &GDBM_READER,0640)) {
Line 253  sub handler { Line 254  sub handler {
       untie(%hash);        untie(%hash);
 # --------------------------------------------------------- Store position info  # --------------------------------------------------------- Store position info
               $cachehash{$mapurl}{'last_direction'}=$direction;                $cachehash{$mapurl}{'last_direction'}=$direction;
               $cachehash{$mapurl}{'last_known'}=  
                                        &Apache::lonnet::declutter($currenturl);  
               foreach my $thismap (keys %cachehash) {                foreach my $thismap (keys %cachehash) {
                  &Apache::lonnet::symblist($thismap,%{$cachehash{$thisurl}});                   &Apache::lonnet::symblist($thismap,%{$cachehash{$thismap}});
       }        }
 # ============================================== Do not return before this line  # ============================================== Do not return before this line
               if ($redirecturl) {                if ($redirecturl) {

Removed from v.1.19  
changed lines
  Added in v.1.20


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>