--- loncom/interface/loncommon.pm	2014/03/18 01:29:49	1.1184
+++ loncom/interface/loncommon.pm	2014/04/23 10:11:26	1.1185
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1184 2014/03/18 01:29:49 raeburn Exp $
+# $Id: loncommon.pm,v 1.1185 2014/04/23 10:11:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9427,7 +9427,14 @@ sub personal_data_fieldtitles {
 
 sub sorted_inst_types {
     my ($dom) = @_;
-    my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+    my ($usertypes,$order);
+    my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
+    if (ref($domdefaults{'inststatus'}) eq 'HASH') {
+        $usertypes = $domdefaults{'inststatus'}{'inststatustypes'};
+        $order = $domdefaults{'inststatus'}{'inststatusorder'};
+    } else {
+        ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+    }
     my $othertitle = &mt('All users');
     if ($env{'request.course.id'}) {
         $othertitle  = &mt('Any users');