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

[raeburn]

raeburn		Sat Jun 19 01:28:35 2010 EDT

  Modified files:              
    /loncom/interface	lonpickcourse.pm 
  Log:
  - Selection of clonable courses based on *:domain.
    - Need to match on $clonerudom ($env{'form.clonerudom'} doesn't exist). 
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.96 loncom/interface/lonpickcourse.pm:1.97
--- loncom/interface/lonpickcourse.pm:1.96	Tue Jun  8 16:37:20 2010
+++ loncom/interface/lonpickcourse.pm	Sat Jun 19 01:28:35 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.96 2010/06/08 16:37:20 bisitz Exp $
+# $Id: lonpickcourse.pm,v 1.97 2010/06/19 01:28:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -415,7 +415,7 @@
                             if (grep(/^\*$/,@cloneable)) {
                                 $canclone = 1;
                             }
-                            if (grep(/^\*:\Q$env{'form.clonerudom'}\E$/,@cloneable)) {
+                            if (grep(/^\*:\Q$clonerudom\E$/,@cloneable)) {
                                 $canclone = 1;
                             }
                             if (grep(/^\Q$cloneruname\E:\Q$clonerudom\E$/,@cloneable)) {