--- loncom/automation/batchcreatecourse.pm	2010/01/30 15:47:01	1.34
+++ loncom/automation/batchcreatecourse.pm	2010/01/30 22:16:50	1.35
@@ -1,5 +1,5 @@
 #
-# $Id: batchcreatecourse.pm,v 1.34 2010/01/30 15:47:01 raeburn Exp $
+# $Id: batchcreatecourse.pm,v 1.35 2010/01/30 22:16:50 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -320,7 +320,7 @@ sub parse_coursereqs {
                     @{$$details{$num}{'users'}{$userkey}{'roles'}} = ();
                  } elsif ("@state" eq "class users user email") {
                     $$details{$num}{'users'}{$userkey}{'emailaddr'} = $text;
-                    $$details{$num}{'users'}{$userkey}{'emailenc'} = &LONCAPA:escape($text); 
+                    $$details{$num}{'users'}{$userkey}{'emailenc'} = &LONCAPA::escape($text); 
                  } elsif ("@state" eq "class users user roles role start") {
                      if (grep(/^\Q$role\E$/,@possroles)) {
                          $$details{$num}{'users'}{$userkey}{$role}{'start'} = &process_date($text);