[BACK]Return to loncoursequeueadmin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.14 and 1.18

version 1.14, 2010/01/15 03:29:54 version 1.18, 2010/02/21 02:38:23
Line 69  described at http://www.lon-capa.org. Line 69  described at http://www.lon-capa.org.
 package Apache::loncoursequeueadmin;  package Apache::loncoursequeueadmin;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonmsg;  use Apache::lonmsg;
Line 957  sub build_batchcreatehash { Line 956  sub build_batchcreatehash {
     my %batchhash;      my %batchhash;
     my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};      my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};
     if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {      if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {
         my $emailenc = &Apache::lonnet::escape($owneremail);          my $emailenc = &escape($owneremail);
         my $owner = $details->{'owner'}.':'.$details->{'domain'};          my $owner = $details->{'owner'}.':'.$details->{'domain'};
         foreach my $item (@items) {          foreach my $item (@items) {
             $batchhash{$item} = $details->{$item};              $batchhash{$item} = $details->{$item};
Line 1040  sub can_clone_course { Line 1039  sub can_clone_course {
                 $canclone = 1;                  $canclone = 1;
             }              }
         }          }
           unless ($canclone) {
               if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) {
                   $can_clone = 1;
               }
           }
     }      }
     return $canclone;      return $canclone;
 }  }
Line 1150  sub queued_selfenrollment { Line 1154  sub queued_selfenrollment {
         }          }
     }      }
     if (keys(%reqs_by_date)) {      if (keys(%reqs_by_date)) {
         my $rolename = &Apache::lonnet::plaintext('st');  
         unless ($notitle) {          unless ($notitle) {
             $output .= '<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';              $output .= '<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
         }          }
Line 1165  sub queued_selfenrollment { Line 1168  sub queued_selfenrollment {
                 foreach my $crs (@{$reqs_by_date{$item}}) {                  foreach my $crs (@{$reqs_by_date{$item}}) {
                     my %courseinfo = &Apache::lonnet::coursedescription($crs);                      my %courseinfo = &Apache::lonnet::coursedescription($crs);
                     my $usec = $selfenrollrequests{$crs}{'section'};                      my $usec = $selfenrollrequests{$crs}{'section'};
                       my $rolename = &Apache::lonnet::plaintext('st',$courseinfo{'type'},$crs);
                     if ($usec eq '') {                      if ($usec eq '') {
                         $usec = &mt('No section');                          $usec = &mt('No section');
                     }                      }
Removed from v.1.14  
changed lines
  Added in v.1.18

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>