loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1288, 2017/08/11 00:24:52
+version 1.1289, 2017/08/11 00:32:07
  Line 2477  sub create_text_file {
  # ------------------------------------------
  sub domain_select {
-     my ($name,$value,$multiple)=@_;
+     my ($name,$value,$multiple,$incdoms,$excdoms)=@_;
+     my @possdoms;
+     if (ref($incdoms) eq 'ARRAY') {
+         @possdoms = @{$incdoms};
+     } else {
+         @possdoms = &Apache::lonnet::all_domains();
+     }
      my %domains=map {
  	$_ => $_.' '. &Apache::lonnet::domain($_,'description')
-     } &Apache::lonnet::all_domains();
+     } @possdoms;
+     if ((ref($excdoms) eq 'ARRAY') && (@{$excdoms} > 0)) {
+         foreach my $dom (@{$excdoms}) {
+             delete($domains{$dom});
+         }
+     }
      if ($multiple) {
  	$domains{''}=&mt('Any domain');
  	$domains{'select_form_order'} = [sort {lc($a) cmp lc($b) } (keys(%domains))];