Diff for /rat/lonsequence.pm between versions 1.9 and 1.10

version 1.9, 2002/05/23 10:58:05 version 1.10, 2002/05/23 13:04:59
Line 179  sub handler { Line 179  sub handler {
        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 $whatend='';  
            if ($direction eq 'back') {             if ($direction eq 'back') {
        $disid=$bighash{'map_finish_'.$requrl};         $disid=$bighash{'map_finish_'.$requrl};
                $whatend='End';  
            } else {             } else {
                $disid=$bighash{'map_start_'.$requrl};                 $disid=$bighash{'map_start_'.$requrl};
                $whatend='Beginning';  
            }              } 
            if ($disid) {             if ($disid) {
        $disurl=$bighash{'src_'.$disid};         $disurl=$bighash{'src_'.$disid};
                $dismapid=(split(/\./,$disid))[1];                 $dismapid=(split(/\./,$disid))[1];
            }             }
            my $symb='';  
            my $sequencetitle='';  
            unless($disurl) {  
                if ($symb=&Apache::lonnet::symbread()) {  
    my ($mapurl,$mapid)=split(/\_\_\_/,$symb);  
                    $sequencetitle=$bighash{'title_'.  
           $bighash{'map_pc_/res/'.$mapurl}.'.'.  
   $mapid};  
                }  
            }  
 # --------------------------------------- Untie hash, make sure to come by here  # --------------------------------------- Untie hash, make sure to come by here
            untie(%bighash);             untie(%bighash);
        }         }

Removed from v.1.9  
changed lines
  Added in v.1.10


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