[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Sun Aug  4 02:55:41 2013 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - In &EXT(), check $qualifier is null, when retrieving: 
    &EXT("resource.visibleparts") in case this is a multi-part problem 
    with a part ID matching visibleparts.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1232 loncom/lonnet/perl/lonnet.pm:1.1233
--- loncom/lonnet/perl/lonnet.pm:1.1232	Wed Jul 31 17:37:18 2013
+++ loncom/lonnet/perl/lonnet.pm	Sun Aug  4 02:55:41 2013
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1232 2013/07/31 17:37:18 raeburn Exp $
+# $Id: lonnet.pm,v 1.1233 2013/08/04 02:55:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9793,21 +9793,21 @@
 	        }
 	        return &hreflocation('',$env{'request.filename'});
 	    }
-        }
 
-        if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) {
-            if ($space eq 'visibleparts') {
-                my $navmap = Apache::lonnavmaps::navmap->new();
-                my $item;
-                if (ref($navmap)) {
-                    my $res = $navmap->getBySymb($symbparm);
-                    my $parts = $res->parts();
-                    if (ref($parts) eq 'ARRAY') {
-                        $item = join(',',@{$parts});
+            if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) {
+                if ($space eq 'visibleparts') {
+                    my $navmap = Apache::lonnavmaps::navmap->new();
+                    my $item;
+                    if (ref($navmap)) {
+                        my $res = $navmap->getBySymb($symbparm);
+                        my $parts = $res->parts();
+                        if (ref($parts) eq 'ARRAY') {
+                            $item = join(',',@{$parts});
+                        }
+                        undef($navmap);
                     }
-                    undef($navmap);
+                    return $item;
                 }
-                return $item;
             }
         }