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

[raeburn]

raeburn		Wed Aug 11 13:00:45 2010 EDT

  Modified files:              
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Bug 6338. 
    - When DC displays details of queued course request, checking of cloning
    rights needs to be for course reqestor instead of current user (DC).
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.55 loncom/interface/lonrequestcourse.pm:1.56
--- loncom/interface/lonrequestcourse.pm:1.55	Tue Aug 10 17:16:05 2010
+++ loncom/interface/lonrequestcourse.pm	Wed Aug 11 13:00:45 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.55 2010/08/10 17:16:05 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.56 2010/08/11 13:00:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2534,8 +2534,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'},