--- loncom/LONCAPA.pm	2009/10/29 03:23:52	1.29
+++ loncom/LONCAPA.pm	2010/06/15 05:31:43	1.30
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Base routines
 #
-# $Id: LONCAPA.pm,v 1.29 2009/10/29 03:23:52 raeburn Exp $
+# $Id: LONCAPA.pm,v 1.30 2010/06/15 05:31:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -103,8 +103,8 @@ sub unescape {
     return $str;
 }
 
-$match_domain     = $LONCAPA::domain_re     = qr{[\w\-.]+};
-$match_not_domain = $LONCAPA::not_domain_re = qr{[^\w\-.]+};
+$match_domain     = $LONCAPA::domain_re     = qr{[[:alnum:]\-.]+};
+$match_not_domain = $LONCAPA::not_domain_re = qr{[^[:alnum:]\-.]+};
 sub clean_domain {
     my ($domain) = @_;
     $domain =~ s/$match_not_domain//g;