--- loncom/interface/loncreateuser.pm	2001/12/19 17:17:46	1.22
+++ loncom/interface/loncreateuser.pm	2002/01/06 01:29:52	1.23
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.22 2001/12/19 17:17:46 albertel Exp $
+# $Id: loncreateuser.pm,v 1.23 2002/01/06 01:29:52 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -46,7 +46,7 @@
 # 05/10,10/16 Gerd Kortemeyer 
 # 11/12,11/13,11/15 Scott Harrison
 #
-# $Id: loncreateuser.pm,v 1.22 2001/12/19 17:17:46 albertel Exp $
+# $Id: loncreateuser.pm,v 1.23 2002/01/06 01:29:52 harris41 Exp $
 ###
 
 package Apache::loncreateuser;
@@ -63,7 +63,7 @@ my $authformint;
 my $authformfsys;
 my $authformloc;
 
-sub BEGIN {
+BEGIN {
     $ENV{'SERVER_NAME'}=~/(\w+\.\w+)$/;
     my $krbdefdom=$1;
     $krbdefdom=~tr/a-z/A-Z/;