loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.3, 2009/08/16 23:04:42
+version 1.4, 2009/08/17 04:39:15
  Line 895  sub build_batchcreatehash {
      return %batchhash;
  }
+ sub can_clone_course {
+     my ($uname,$udom,$clonecrs,$clonedom) = @_;
+     my $canclone;
+     my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],
+                                                   ['cc'],[$clonedom]);
+     if (exists($roleshash{$clonedom.':'.$clonecrs.':cc'})) {
+         $canclone = 1;
+     } else {
+         my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners'));
+         my $cloners = $courseenv{'cloners'};
+         if ($cloners ne '') {
+             my @cloneable = split(',',$cloners);
+             if (grep(/^\*$/,@cloneable)) {
+                 $canclone = 1;
+             }
+             if (grep(/^\*:\Q$udom\E$/,@cloneable)) {
+                 $canclone = 1;
+             }
+             if (grep(/^\Q$uname\E:\Q$udom\E$/,@cloneable)) {
+                 $canclone = 1;
+             }
+         }
+     }
+     return $canclone;
+ }
 ;