[LON-CAPA-cvs] cvs: rat / lonsequence.pm

www lon-capa-cvs@mail.lon-capa.org
Thu, 23 May 2002 13:04:59 -0000


www		Thu May 23 09:04:59 2002 EDT

  Modified files:              
    /rat	lonsequence.pm 
  Log:
  Remove left-over garbage from old functionality
  
  
Index: rat/lonsequence.pm
diff -u rat/lonsequence.pm:1.9 rat/lonsequence.pm:1.10
--- rat/lonsequence.pm:1.9	Thu May 23 06:58:05 2002
+++ rat/lonsequence.pm	Thu May 23 09:04:59 2002
@@ -2,7 +2,7 @@
 #
 # Sequence Handler
 #
-# $Id: lonsequence.pm,v 1.9 2002/05/23 10:58:05 www Exp $
+# $Id: lonsequence.pm,v 1.10 2002/05/23 13:04:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -179,27 +179,15 @@
        if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',
                     &GDBM_READER,0640)) {
 	   my $disid='';
-           my $whatend='';
+
            if ($direction eq 'back') {
 	       $disid=$bighash{'map_finish_'.$requrl};
-               $whatend='End';
            } else {
                $disid=$bighash{'map_start_'.$requrl};
-               $whatend='Beginning';
            } 
            if ($disid) {
 	       $disurl=$bighash{'src_'.$disid};
                $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(%bighash);