--- loncom/interface/loncreateuser.pm	2008/07/07 23:54:27	1.250
+++ loncom/interface/loncreateuser.pm	2008/07/10 22:07:18	1.251
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.250 2008/07/07 23:54:27 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.251 2008/07/10 22:07:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3538,7 +3538,7 @@ sub selfenroll_inst_types {
     my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);
     my $othervalue = 'any';
     if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {
-        if (@{$types} > 0) {
+        if (keys(%{$usertypes}) > 0) {
             $othervalue = 'other';
         }
         $output .= '<table><tr>';