[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);