Diff for /rat/lonambiguous.pm between versions 1.2 and 1.3

version 1.2, 2000/10/12 14:54:08 version 1.3, 2000/10/16 20:47:39
Line 5 Line 5
 #  #
 # 05/29/00,05/30,10/11 Gerd Kortemeyer)  # 05/29/00,05/30,10/11 Gerd Kortemeyer)
 #  #
 # 10/11,10/12 Gerd Kortemeyer  # 10/11,10/12,10/16 Gerd Kortemeyer
   
 package Apache::lonambiguous;  package Apache::lonambiguous;
   
Line 48  sub handler { Line 48  sub handler {
                     &GDBM_READER,0640)) {                      &GDBM_READER,0640)) {
           foreach $envkey (keys %ENV) {            foreach $envkey (keys %ENV) {
              if ($envkey=~/^form\.(\d+)\.(\d+)$/) {               if ($envkey=~/^form\.(\d+)\.(\d+)$/) {
   # ---------------------------------------------------- Update symb and redirect
          my $mapid=$1;           my $mapid=$1;
                  my $resid=$2;                   my $resid=$2;
                  my $resurl=$bighash{'src_'.$mapid.'.'.$resid};                   my $resurl=$bighash{'src_'.$mapid.'.'.$resid};
                  &Apache::lonnet::symblist($bighash{'map_id_'.$mapid},                   &Apache::lonnet::symblist($bighash{'map_id_'.$mapid},
            $resurl => $resid);             $resurl => $resid);
                    untie(%bighash);
                  $r->header_out(Location =>                    $r->header_out(Location => 
                                 'http://'.$ENV{'HTTP_HOST'}.$resurl);                                  'http://'.$ENV{'HTTP_HOST'}.$resurl);
                  return REDIRECT;                   return REDIRECT;
              }               }
   }    }
           untie(%bighash);            untie(%bighash);
 # ---------------------------------------------------- Update symb and redirect  
        } else {         } else {
           &getlost($r,'Could not access course structure.');            &getlost($r,'Could not access course structure.');
           return OK;            return OK;

Removed from v.1.2  
changed lines
  Added in v.1.3


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