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