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

[albertel]

albertel		Fri Aug 24 14:41:51 2007 EDT

  Modified files:              (Branch: version_2_5_X)
    /loncom/interface	loncommon.pm 
  Log:
  - backport 1.568
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.564.2.1 loncom/interface/loncommon.pm:1.564.2.2
--- loncom/interface/loncommon.pm:1.564.2.1	Fri Aug 24 03:20:22 2007
+++ loncom/interface/loncommon.pm	Fri Aug 24 14:41:50 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.564.2.1 2007/08/24 07:20:22 albertel Exp $
+# $Id: loncommon.pm,v 1.564.2.2 2007/08/24 18:41:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6925,7 +6925,7 @@
 			$args->{'crstype'});
     } else {
 	my %clonedesc = &Apache::lonnet::coursedescription($cloneid,{'one_time' => 1});
-	if ($env{'request.role.domain'} eq $args->{'form.clonedomain'}) {
+	if ($env{'request.role.domain'} eq $args->{'clonedomain'}) {
 	    $can_clone = 1;
 	} else {
 	    my %clonehash = &Apache::lonnet::get('environment',['cloners'],