[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface loncommon.pm

[raeburn]

raeburn		Tue Jan 19 16:34:57 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	loncommon.pm 
  Log:
  - Backport 1.800.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.692.4.24 loncom/interface/loncommon.pm:1.692.4.25
--- loncom/interface/loncommon.pm:1.692.4.24	Tue Jan 19 16:27:47 2010
+++ loncom/interface/loncommon.pm	Tue Jan 19 16:34:57 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.4.24 2010/01/19 16:27:47 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.4.25 2010/01/19 16:34:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -515,6 +515,10 @@
             else {
                 if (formname == 'portform') {
                     url += '&setroles='+extra_element;
+                } else {
+                    if (formname == 'rules') {
+                        url += '&fixeddom='+extra_element;
+                    }
                 }
             }     
         }