--- rat/map.pm	2006/12/04 14:59:55	1.2
+++ rat/map.pm	2006/12/05 02:55:55	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # routines for modyfing .sequence and .page files
 #
-# $Id: map.pm,v 1.2 2006/12/04 14:59:55 raeburn Exp $
+# $Id: map.pm,v 1.3 2006/12/05 02:55:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -690,7 +690,7 @@ sub savemap {
 	    }
         }
         $outstr.="</map>\n";
-	if ($fn=~/^\/*uploaded\/(\w+)\/(\w+)\/(.*)$/) {
+	if ($fn=~m{^/*uploaded/($LONCAPA::domain_re)/($LONCAPA::courseid_re)/(.*)$}) {
 	    $env{'form.output'}=$outstr;
             my $result=&Apache::lonnet::finishuserfileupload($2,$1,
 							     'output',$3);