[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 28 Oct 2002 13:58:58 -0000
www Mon Oct 28 08:58:58 2002 EDT
Modified files:
/loncom/interface lonnavmaps.pm
Log:
Previous version had syntax errors and bombed on Apache start. Just guessing
what it should have said to get things going again.
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.86 loncom/interface/lonnavmaps.pm:1.87
--- loncom/interface/lonnavmaps.pm:1.86 Thu Oct 24 15:10:07 2002
+++ loncom/interface/lonnavmaps.pm Mon Oct 28 08:58:58 2002
@@ -2,7 +2,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.86 2002/10/24 19:10:07 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.87 2002/10/28 13:58:58 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2922,7 +2922,7 @@
sub getPrevious {
my $self = shift;
- my @alreadySeen = shift;
+ my $alreadySeenHash = shift;
my @branches;
my $from = $self->from();
foreach my $branch ( split /,/, $from) {
@@ -2934,9 +2934,9 @@
# browse privs
my $browsePriv = &Apache::lonnet::allowed('bre', $self->src);
if (!defined($alreadySeenHash) ||
- !defined($alreadySeenHash->{$next->{ID}}) ||
+ !defined($alreadySeenHash->{$prev->{ID}}) ||
($browsePriv ne '2' && $browsePriv ne 'F')) {
- push @branches, $next;
+ push @branches, $prev;
}
}
return \@branches;