Diff for /rat/lonsequence.pm between versions 1.24 and 1.25

version 1.24, 2005/04/07 06:56:27 version 1.25, 2006/01/05 20:57:55
Line 268  sub handler { Line 268  sub handler {
            if ($disid) {             if ($disid) {
        $disurl=$bighash{'src_'.$disid};         $disurl=$bighash{'src_'.$disid};
                $dismapid=(split(/\./,$disid))[1];                 $dismapid=(split(/\./,$disid))[1];
                $randomout = $bighash{'randomout_'.$disid};         if (!$env{'request.role.adv'}) {
      $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'};
Line 285  sub handler { Line 287  sub handler {
                if ($disid) {                 if ($disid) {
            $disurl=$bighash{'src_'.$disid};             $disurl=$bighash{'src_'.$disid};
                    $dismapid=(split(/\./,$disid))[1];                     $dismapid=(split(/\./,$disid))[1];
                    $randomout = $bighash{'randomout_'.$disid};     if (!$env{'request.role.adv'}) {
          $randomout = $bighash{'randomout_'.$disid};
      }
                }                 }
     }      }
            $exitdisid = $disid;             $exitdisid = $disid;

Removed from v.1.24  
changed lines
  Added in v.1.25


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