--- loncom/lonnet/perl/lonnet.pm 2008/02/26 10:39:44 1.944 +++ loncom/lonnet/perl/lonnet.pm 2008/02/29 21:01:24 1.945 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.944 2008/02/26 10:39:44 foxr Exp $ +# $Id: lonnet.pm,v 1.945 2008/02/29 21:01:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1064,8 +1064,8 @@ sub inst_rulecheck { $response=&unescape(&reply('instidrulecheck:'.&escape($udom). ':'.&escape($id).':'.$rulestr, $homeserver)); - } elsif ($item eq 'selfenroll') { - $response=&unescape(&reply('instselfenrollcheck:'. + } elsif ($item eq 'selfcreate') { + $response=&unescape(&reply('instselfcreatecheck:'. &escape($udom).':'.&escape($uname). ':'.$rulestr,$homeserver)); }