version 1.30, 2002/09/03 12:27:05
|
version 1.31, 2002/09/14 18:57:59
|
Line 322 sub ProcessTopResourceMap {
|
Line 322 sub ProcessTopResourceMap {
|
my (@sequences, @currentResource, @finishResource); |
my (@sequences, @currentResource, @finishResource); |
my ($currentSequence, $currentResourceID, $lastResourceID); |
my ($currentSequence, $currentResourceID, $lastResourceID); |
|
|
$currentResourceID=$hash{'ids_/res/'.$ENV{'request.course.uri'}}; |
$currentResourceID=$hash{'ids_'. |
|
&Apache::lonnet::clutter($ENV{'request.course.uri'})}; |
push(@currentResource, $currentResourceID); |
push(@currentResource, $currentResourceID); |
$lastResourceID=-1; |
$lastResourceID=-1; |
$currentSequence=-1; |
$currentSequence=-1; |