[LON-CAPA-cvs] cvs: loncom /interface lonpickcourse.pm

[albertel]

albertel		Tue Mar 20 11:39:12 2007 EDT

  Modified files:              
    /loncom/interface	lonpickcourse.pm 
  Log:
  - bugs#5226, need to set a default domain in port conditions
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.62 loncom/interface/lonpickcourse.pm:1.63
--- loncom/interface/lonpickcourse.pm:1.62	Wed Mar  7 20:58:45 2007
+++ loncom/interface/lonpickcourse.pm	Tue Mar 20 11:39:11 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.62 2007/03/08 01:58:45 albertel Exp $
+# $Id: lonpickcourse.pm,v 1.63 2007/03/20 15:39:11 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -279,8 +279,15 @@
             }
         }
         if ($item eq 'domainfilter') {
+	    my $allow_blank = 1;
+	    if ($formname eq 'portform') {
+		$filter->{$item} ||= $env{'user.domain'};
+		$allow_blank=0;
+	    }
             $domainselectform =
-     &Apache::loncommon::select_dom_form($filter->{$item},'domainfilter',1);
+		&Apache::loncommon::select_dom_form($filter->{$item},
+						    'domainfilter',
+						    $allow_blank);
         } elsif ($item eq 'ownerdomfilter') {
             $ownerdomselectform =
      &Apache::loncommon::select_dom_form($filter->{$item},'ownerdomfilter',1);