--- loncom/lonnet/perl/lonnet.pm	2006/01/10 16:06:07	1.692
+++ loncom/lonnet/perl/lonnet.pm	2006/01/10 16:08:10	1.693
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.692 2006/01/10 16:06:07 albertel Exp $
+# $Id: lonnet.pm,v 1.693 2006/01/10 16:08:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4823,11 +4823,21 @@ sub EXT {
         return $env{'course.'.$courseid.'.'.$spacequalifierrest};
     } elsif ($realm eq 'resource') {
 
-	my $section;
-        my @groups = ();
 	if (defined($courseid) && $courseid eq $env{'request.course.id'}) {
 	    if (!$symbparm) { $symbparm=&symbread(); }
 	}
+
+	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);
+	}
+
+	my ($section, $group, @groups);
 	my ($courselevelm,$courselevel);
 	if ($symbparm && defined($courseid) && 
 	    $courseid eq $env{'request.course.id'}) {