--- loncom/interface/lonnavmaps.pm 2006/02/24 22:54:50 1.363
+++ loncom/interface/lonnavmaps.pm 2006/03/02 19:45:22 1.365
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.363 2006/02/24 22:54:50 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.365 2006/03/02 19:45:22 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1135,8 +1135,8 @@ sub render_resource {
# Don't allow users to manipulate folder
$icon = "navmap.$folderType." . ($nowOpen ? 'closed' : 'open') .
'.nomanip.gif';
- $icon = "
";
+ $icon = "
";
$linkopen = "";
$linkclose = "";
@@ -2756,7 +2756,7 @@ sub usedVersion {
1;
package Apache::lonnavmaps::iterator;
-use WeakRef;
+use Scalar::Util qw(weaken);
use Apache::lonnet;
=pod
@@ -3237,7 +3237,7 @@ sub populateStack {
1;
package Apache::lonnavmaps::DFSiterator;
-use WeakRef;
+use Scalar::Util qw(weaken);
use Apache::lonnet;
# Not documented in the perldoc: This is a simple iterator that just walks
@@ -3421,7 +3421,7 @@ sub populateStack {
1;
package Apache::lonnavmaps::resource;
-use WeakRef;
+use Scalar::Util qw(weaken);
use Apache::lonnet;
=pod