[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm
bowersj2
lon-capa-cvs@mail.lon-capa.org
Mon, 02 Dec 2002 14:20:24 -0000
bowersj2 Mon Dec 2 09:20:24 2002 EDT
Modified files:
/loncom/interface lonnavmaps.pm
Log:
Oh, and let's not print kilobytes of perl-y garbage.
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.119 loncom/interface/lonnavmaps.pm:1.120
--- loncom/interface/lonnavmaps.pm:1.119 Mon Dec 2 09:19:38 2002
+++ loncom/interface/lonnavmaps.pm Mon Dec 2 09:20:24 2002
@@ -2,7 +2,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.119 2002/12/02 14:19:38 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.120 2002/12/02 14:20:24 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -282,7 +282,7 @@
while ($depth > 0 && !$ENV{'form.alreadyHere'}) {
if ($curRes == $mapIterator->BEGIN_MAP()) { $depth++; }
if ($curRes == $mapIterator->END_MAP()) { $depth--; }
- $r->print($curRes . ' ');
+
if (ref($curRes) && !$ENV{'form.alreadyHere'} &&
($hereType == $SYMB && $curRes->symb() eq $here) ||
(ref($curRes) && $hereType == $URL && $curRes->src() eq $here)) {