--- loncom/lonnet/perl/lonnet.pm	2007/08/08 22:24:34	1.904
+++ loncom/lonnet/perl/lonnet.pm	2007/08/10 23:02:36	1.906
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.904 2007/08/08 22:24:34 albertel Exp $
+# $Id: lonnet.pm,v 1.906 2007/08/10 23:02:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6317,6 +6317,12 @@ sub EXT {
 	    my ($map) = &decode_symb($symbparm);
 	    return &symbread($map);
 	}
+	if ($space eq 'filename') {
+	    if ($symbparm) {
+		return &clutter((&decode_symb($symbparm))[2]);
+	    }
+	    return &hreflocation('',$env{'request.filename'});
+	}
 
 	my ($section, $group, @groups);
 	my ($courselevelm,$courselevel);
@@ -8562,7 +8568,7 @@ explanation of a user role term
 get_my_roles($uname,$udom,$context,$types,$roles,$roledoms) :
 All arguments are optional. Returns a hash of a roles, either for
 co-author/assistant author roles for a user's Construction Space
-(default), or if $context is 'user', roles for the user himself,
+(default), or if $context is 'userroles', roles for the user himself,
 In the hash, keys are set to colon-sparated $uname,$udom,and $role,
 and value is set to colon-separated start and end times for the role.
 If no username and domain are specified, will default to current