loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.641, 2008/02/24 22:59:13
+version 1.642, 2008/02/29 19:07:07
  Line 6653  sub personal_data_fieldtitles {
      return %fieldtitles;
  }
+ sub sorted_inst_types {
+     my ($dom) = @_;
+     my ($usertypes,$order) = &Apache::lonnet::retrieve_inst_usertypes($dom);
+     my $othertitle = &mt('All users');
+     if ($env{'request.course.id'}) {
+         $othertitle  = 'any';
+     }
+     my @types;
+     if (ref($order) eq 'ARRAY') {
+         @types = @{$order};
+     }
+     if (@types == 0) {
+         if (ref($usertypes) eq 'HASH') {
+             @types = sort(keys(%{$usertypes}));
+         }
+     }
+     if (keys(%{$usertypes}) > 0) {
+         $othertitle = &mt('Other users');
+         if ($env{'request.course.id'}) {
+             $othertitle = 'other';
+         }
+     }
+     return ($othertitle,$usertypes,\@types);
+ }
  =pod
  =back