[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 11 Apr 2005 15:28:55 -0000


albertel		Mon Apr 11 11:28:55 2005 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - comment was seperated from it's function
  - removed unneccessary copy variable
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.321 loncom/interface/lonnavmaps.pm:1.322
--- loncom/interface/lonnavmaps.pm:1.321	Mon Apr 11 08:20:22 2005
+++ loncom/interface/lonnavmaps.pm	Mon Apr 11 11:28:55 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.321 2005/04/11 12:20:22 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.322 2005/04/11 15:28:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2298,22 +2298,21 @@
     }
 }
 
-# Private method: Does the given resource (as a symb string) have
-# current feedback? Returns the string in the feedback hash, which
-# will be false if it does not exist.
-
 sub wrap_symb {
-    my $self=shift;
+    my $self = shift;
     my $symb = shift;
-    my $ressymb = $symb;
-    if ($ressymb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {
-        unless ($ressymb =~ m|adm/wrapper/adm|) {
-            $ressymb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3;
+    if ($symb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {
+        unless ($symb =~ m|adm/wrapper/adm|) {
+            $symb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3;
         }
     }
-    return $ressymb;
+    return $symb;
 }
 
+# Private method: Does the given resource (as a symb string) have
+# current feedback? Returns the string in the feedback hash, which
+# will be false if it does not exist.
+
 sub getFeedback { 
     my $self = shift;
     my $symb = shift;