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

raeburn raeburn@source.lon-capa.org
Wed, 11 Aug 2010 13:24:22 -0000


raeburn		Wed Aug 11 13:24:22 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Backport 1.56.
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.54.2.2 loncom/interface/lonrequestcourse.pm:1.54.2.3
--- loncom/interface/lonrequestcourse.pm:1.54.2.2	Tue Aug 10 17:20:02 2010
+++ loncom/interface/lonrequestcourse.pm	Wed Aug 11 13:24:21 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.54.2.2 2010/08/10 17:20:02 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.54.2.3 2010/08/11 13:24:21 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2538,8 +2538,8 @@
     if (($env{'form.cloning'}) &&
         ($env{'form.clonecrs'} =~ /^$match_name$/) && 
         ($env{'form.clonedom'} =~ /^$match_domain$/)) {
-        my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
-                           $env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},
+        my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname,
+                           $udom,$env{'form.clonecrs'},$env{'form.clonedom'},
                            $env{'form.crstype'});
         if ($canclone) {
             my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},