--- loncom/lonnet/perl/lonnet.pm	2001/11/16 06:21:39	1.169
+++ loncom/lonnet/perl/lonnet.pm	2001/11/16 07:00:07	1.170
@@ -36,7 +36,7 @@
 # 10/2 Gerd Kortemeyer
 # 10/5,10/10,11/13,11/15 Scott Harrison
 #
-# $Id: lonnet.pm,v 1.169 2001/11/16 06:21:39 harris41 Exp $
+# $Id: lonnet.pm,v 1.170 2001/11/16 07:00:07 harris41 Exp $
 ###
 
 # Functions for use by content handlers:
@@ -1746,6 +1746,7 @@ sub modifyuserauth {
     unless ($reply eq 'ok') {
 	return 'error: '.$reply;
     }   
+    return 'ok';
 }
 
 # --------------------------------------------------------------- Modify a user