--- loncom/lonnet/perl/lonnet.pm	2013/07/25 19:11:12	1.1231
+++ loncom/lonnet/perl/lonnet.pm	2013/07/31 17:37:18	1.1232
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1231 2013/07/25 19:11:12 raeburn Exp $
+# $Id: lonnet.pm,v 1.1232 2013/07/31 17:37:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9773,21 +9773,43 @@ sub EXT {
 	    if (!$symbparm) { $symbparm=&symbread(); }
 	}
 
-	if ($space eq 'title') {
-	    if (!$symbparm) { $symbparm = $env{'request.filename'}; }
-	    return &gettitle($symbparm);
-	}
+        if ($qualifier eq '') {
+	    if ($space eq 'title') {
+	        if (!$symbparm) { $symbparm = $env{'request.filename'}; }
+	        return &gettitle($symbparm);
+	    }
 	
-	if ($space eq 'map') {
-	    my ($map) = &decode_symb($symbparm);
-	    return &symbread($map);
-	}
-	if ($space eq 'filename') {
-	    if ($symbparm) {
-		return &clutter((&decode_symb($symbparm))[2]);
+	    if ($space eq 'map') {
+	        my ($map) = &decode_symb($symbparm);
+	        return &symbread($map);
 	    }
-	    return &hreflocation('',$env{'request.filename'});
-	}
+            if ($space eq 'maptitle') {
+                my ($map) = &decode_symb($symbparm);
+                return &gettitle($map);
+            }
+	    if ($space eq 'filename') {
+	        if ($symbparm) {
+		    return &clutter((&decode_symb($symbparm))[2]);
+	        }
+	        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});
+                    }
+                    undef($navmap);
+                }
+                return $item;
+            }
+        }
 
 	my ($section, $group, @groups);
 	my ($courselevelm,$courselevel);