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

albertel lon-capa-cvs-allow@mail.lon-capa.org
Fri, 24 Aug 2007 18:41:09 -0000


albertel		Fri Aug 24 14:41:09 2007 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - corect intra-domain check
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.567 loncom/interface/loncommon.pm:1.568
--- loncom/interface/loncommon.pm:1.567	Thu Aug 23 18:21:15 2007
+++ loncom/interface/loncommon.pm	Fri Aug 24 14:41:06 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.567 2007/08/23 22:21:15 albertel Exp $
+# $Id: loncommon.pm,v 1.568 2007/08/24 18:41:06 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6982,7 +6982,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'],