Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.1 and 1.15

version 1.1, 2009/08/11 00:39:45 version 1.15, 2010/01/16 16:15:08
Line 33  Apache::loncoursequeueadmin.pm Line 33  Apache::loncoursequeueadmin.pm
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 Adminitsration utilities used by domain coordinators for queued course creation requests, and by course coordinators for queued self-enrollment requests.  Utilities used by domain coordinators to administer queued course creation requests,
   and by course coordinators for queued self-enrollment requests, and by general
   users to display their queued self-enrollment requests.  
   
 This is part of the LearningOnline Network with CAPA project  This is part of the LearningOnline Network with CAPA project
 described at http://www.lon-capa.org.  described at http://www.lon-capa.org.
Line 50  described at http://www.lon-capa.org. Line 52  described at http://www.lon-capa.org.
   
 =item get_student_counts()  =item get_student_counts()
   
   =item course_creation()
   
   =item build_batchcreatehash()
    
   =item can_clone_course()
   
   =item get_processtype()
   
   =item queued_selfenrollment()
   
 =back  =back
   
 =cut  =cut
Line 57  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;
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonuserutils;
 use LONCAPA;  use LONCAPA;
   
 sub send_selfserve_notification {  sub send_selfserve_notification {
     my ($notifylist,$textstr,$cid,$coursedesc,$timestamp,$context,$sender,      my ($notifylist,$textstr,$cid,$contextdesc,$timestamp,$context,$sender,
         $approvedlist,$rejectedlist) = @_;          $approvedlist,$rejectedlist,$crstype) = @_;
 # FIXME locallocaltime needs to be able to take $sender_lh as an argument  # FIXME locallocaltime needs to be able to take $sender_lh as an argument
 #       so this can be localized to the recipients date display format/time zone  #       so this can be localized to the recipients date display format/time zone
     $timestamp =&Apache::lonlocal::locallocaltime($timestamp);      $timestamp =&Apache::lonlocal::locallocaltime($timestamp);
     my $msgcc;      my $msgcc;
     my ($rawsubj,@rawmsg,$subject,$message,$namelink);      my ($rawsubj,@rawmsg,$subject,$message,$reviewer,$msgtxt);
     $namelink = &Apache::loncommon::aboutmewrapper(  
                 &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}));  
     if ($context eq 'coursemanagers') {      if ($context eq 'coursemanagers') {
         $rawsubj = 'Self-enrollment requests processed';          $rawsubj = 'Self-enrollment requests processed';
         push(@rawmsg,{          push(@rawmsg,{
                       mt => 'Enrollment requests in the following course: [_1] have been processed.',                        mt => 'Enrollment requests in the following course: [_1] have been processed.',
                       args => ["\n$coursedesc\n"],                        args => ["\n  $contextdesc"],
                      });                       });
     } elsif ($context eq 'domainmanagers') {      } elsif ($context eq 'domainmanagers') {
         $rawsubj = 'Course request';          $rawsubj = 'Course/Community requests reviewed';
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Your request for creation of the following course: [_1], requested on [_2], has been reviewed by a Domain Coordinator.',                        mt  => 'Course/Community creation requests in the following domain: [_1] have been reviewed.',
                       args => ["\n$coursedesc\n","$timestamp\n"],                        args => ["\n  $contextdesc"],
   
                      });                       });
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
         }          }
     } elsif ($context eq 'enroller') {      } elsif ($context eq 'enroller') {
         $rawsubj = 'Enrollment request';          $rawsubj = 'Enrollment request';
           if ($crstype eq 'community') {
               $msgtxt = 'Your request for enrollment in the following community: [_1]requested on [_2]has been reviewed by a Coordinator.'
           } else {
               $msgtxt = 'Your request for enrollment in the following course: [_1]requested on [_2]has been reviewed by a Course Coordinator.';
           } 
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Your request for enrollment in the following course: [_1], requested on [_2], has been reviewed by a Course Coordinator.',                        mt  => $msgtxt,
                       args => ["\n$coursedesc\n","$timestamp\n"],                        args => ["\n  ".$contextdesc.",\n",$timestamp.",\n"],
   
                      });                       });
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
         }          }
     } elsif ($context eq 'courserequestor') {      } elsif ($context eq 'courserequestor') {
         $rawsubj = 'Course request';          if ($crstype eq 'Community') {
               $rawsubj = 'Community request';
               $msgtxt = 'Your request for creation of the following community: [_1]requested on [_2]has been reviewed by a Domain Coordinator.';
           } else {
               $rawsubj = 'Course request';
               $msgtxt = 'Your request for creation of the following course: [_1]requested on [_2]has been reviewed by a Domain Coordinator.';
           }
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Your request for creation of the following course: [_1], requested on [_2], has been reviewed by a Domain Coordinator.',                        mt  => $msgtxt,
                       args => ["\n$coursedesc\n","$timestamp\n"],                        args => ["\n".$contextdesc.",\n",$timestamp.",\n"],
   
                      });                       });
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
         }          }
     } elsif ($context eq 'coursereq') {      } elsif ($context eq 'coursereq') {
           if ($crstype eq 'community') {
               $rawsubj = 'Community request to review';
               $msgtxt = 'Creation of the following community: [_1]was requested by [_2] on [_3].';
           } else {
               $rawsubj = 'Course request to review';
               $msgtxt = 'Creation of the following course: [_1]was requested by [_2] on [_3].';
           }
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Creation of the following course: [_1] was requested by [_2] on [_3].',                        mt  => $msgtxt,
                       args => ["\n$coursedesc\n",$textstr,$timestamp],                        args => ["\n  $contextdesc\n",$textstr,$timestamp],
                      },                       },
                      {                       {
                       mt =>'As Domain Coordinator, use: [_1]Main Menu -> Create a new course -> Manage Course Requests[_1] to display a list of pending course requests,[_1] which you can either approve or reject.',                        mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Course and community creation -> Approve or reject requests[_3]to display a list of pending requests, which you can either approve or reject.',
                       args => ["\n"],                        args => ["\n","\n\n  ","\n\n"],
                      });                       });
     } elsif ($context eq 'selfenrollreq') {      } elsif ($context eq 'selfenrollreq') {
         $rawsubj = 'Self-enrollment request';          $rawsubj = 'Self-enrollment request';
           if ($crstype eq 'community') {
               $msgtxt = 'Enrollment in the following community: [_1] was requested by [_2] on [_3].'
           } else {
               $msgtxt = 'Enrollment in the following course: [_1] was requested by [_2] on [_3].'
           }
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Enrollment in the following course: [_1] was requested by [_2] on [_3].',                        mt  => $msgtxt,
                       args => ["\n$coursedesc\n",$textstr,$timestamp],                        args => ["\n  $contextdesc\n",$textstr,$timestamp."\n"],
                      },                       });
           my $directions;  
           if ($crstype eq 'community') {
               $directions = 'As Coordinator, use: [_1]Main Menu -> Manage Community Users -> Enrollment Requests[_2]to display a list of pending enrollment requests, which you can either approve or reject.';
           } else {
               $directions = 'As Course Coordinator, use: [_1]Main Menu -> Manage Course Users -> Enrollment Requests[_2]to display a list of pending enrollment requests, which you can either approve or reject.';
           }
           push(@rawmsg,
                      {                       {
                       mt =>'As Course Coordinator, use: [_1]Main Menu -> Manage Course Users -> Enrollment Requests[_1] to display a list of pending enrollment requests,[_1] which you can either approve or reject.',                        mt   => $directions,
                       args => ["\n"],                        args => ["  \n\n","\n"],
                      });                       });
   
     }      }
     my @to_notify = split(/,/,$notifylist);      my @to_notify = split(/,/,$notifylist);
     my $numsent = 0;      my $numsent = 0;
Line 149  sub send_selfserve_notification { Line 189  sub send_selfserve_notification {
     my ($uname,$udom);      my ($uname,$udom);
     if ($sender =~ /:/) {      if ($sender =~ /:/) {
         ($uname,$udom) = split(/:/,$sender);          ($uname,$udom) = split(/:/,$sender);
     } else {      } elsif ($context eq 'course') {
         $uname = $sender;          $uname = $sender;
         my %courseinfo = &Apache::lonnet::coursedescription($cid);          my %courseinfo = &Apache::lonnet::coursedescription($cid);
         $udom = $courseinfo{'num'};          $udom = $courseinfo{'num'};
Line 179  sub send_selfserve_notification { Line 219  sub send_selfserve_notification {
                                                        @{$item->{args}})."\n";                                                         @{$item->{args}})."\n";
             }              }
         }          }
         if ($context eq 'managers') {          if ($context eq 'coursemanagers') {
             if ($approvedlist) {              if ($approvedlist) {
                 $message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;                  $message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;
             }              }
Line 202  sub send_selfserve_notification { Line 242  sub send_selfserve_notification {
   
 sub display_queued_requests {  sub display_queued_requests {
     my ($context,$dom,$cnum) = @_;      my ($context,$dom,$cnum) = @_;
     my ($namespace,$formaction,%requesthash);      my ($namespace,$formaction,$nextelement,%requesthash);
     if ($context eq 'course') {      if ($context eq 'course') {
         $formaction = '/adm/createuser';          $formaction = '/adm/createuser';
         $namespace = 'selfenrollrequests';          $namespace = 'selfenrollrequests';
         %requesthash = &Apache::lonnet::dump($namespace,$dom,$cnum);          %requesthash = &Apache::lonnet::dump($namespace,$dom,$cnum);
           $nextelement = '<input type="hidden" name="state" value="done" />';
     } else {      } else {
         $formaction = '/adm/createcourse';          $formaction = '/adm/createcourse';
         $namespace = 'courserequestqueue';          $namespace = 'courserequestqueue';
         %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,undef,'_approval');          %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_approval');
           $nextelement = '<input type="hidden" name="phase" value="requestchange" />';
     }      }
     my ($output,%queue_by_date,%crstypes);      my ($output,%queue_by_date,%crstypes);
     if (keys(%requesthash) > 0) {      if (keys(%requesthash) > 0) {
         $output = '<form method="post" name="changequeue" action="'.$formaction.'" />'.          $output = '<form method="post" name="changequeue" action="'.$formaction.'" />'."\n".
                   '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.                    '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".
                   '<input type="hidden" name="state" value="done" />'.                    $nextelement."\n".
                   &Apache::loncommon::start_data_table().                    &Apache::loncommon::start_data_table().
                   &Apache::loncommon::start_data_table_header_row().                    &Apache::loncommon::start_data_table_header_row().
                   '<th>'.&mt('Action').'</th>'.                    '<th>'.&mt('Action').'</th>'.
Line 224  sub display_queued_requests { Line 266  sub display_queued_requests {
         if ($context eq 'course') {          if ($context eq 'course') {
             $output .= '<th>'.&mt('Section').'</th>'.              $output .= '<th>'.&mt('Section').'</th>'.
                        '<th>'.&mt('Date requested').'</th>';                         '<th>'.&mt('Date requested').'</th>';
           } else {
             %crstypes = &Apache::lonlocal::texthash (              %crstypes = &Apache::lonlocal::texthash (
                             official   => 'Official course',                              official   => 'Official course',
                             unofficial => 'Unofficial course',                              unofficial => 'Unofficial course',
                             community  => 'Community',                              community  => 'Community',
                         );                          );
         } else {  
             $output .= '<th>'.&mt('Type').'</th>'.              $output .= '<th>'.&mt('Type').'</th>'.
                        '<th>'.&mt('Date requested').'</th>'.                         '<th>'.&mt('Date requested').'</th>'.
                        '<th>'.&mt('Details').'</th>';                         '<th>'.&mt('Details').'</th>';
Line 243  sub display_queued_requests { Line 285  sub display_queued_requests {
             } else {              } else {
                 $timestamp = $requesthash{$item}{'timestamp'};                  $timestamp = $requesthash{$item}{'timestamp'};
                 if (ref($requesthash{$item}) eq 'HASH') {                  if (ref($requesthash{$item}) eq 'HASH') {
                     $entry = $item.':'.$requesthash{$item}{'ownername'}.':'.                      my ($cnum,$disposition) = split('_',$item);
                       $entry = $cnum.':'.$requesthash{$item}{'ownername'}.':'.
                              $requesthash{$item}{'ownerdom'}.':'.                               $requesthash{$item}{'ownerdom'}.':'.
                              $requesthash{$item}{'crstype'}.':'.                               $requesthash{$item}{'crstype'}.':'.
                              $requesthash{$item}{'description'};                               $requesthash{$item}{'description'};
Line 280  sub display_queued_requests { Line 323  sub display_queued_requests {
                                     $puname,$pudom);                                      $puname,$pudom);
   
                     } else {                      } else {
                         my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request);                          my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5);
                         $detailslink='<a href="javascript::opencoursereqdisplay('.                          $detailslink='<a href="javascript:opencoursereqdisplay('.
                                       "'$dom".'_'."$cnum'".');">'.$cdesc.'</a>';                                        "'$dom','$cnum'".');">'.$cdesc.'</a>';
                         $crstype = $type;                          $crstype = $type;
                         if (defined($crstypes{$type})) {                          if (defined($crstypes{$type})) {
                             $crstype = $crstypes{$type};                              $crstype = $crstypes{$type};
Line 320  sub display_queued_requests { Line 363  sub display_queued_requests {
         if ($context eq 'course') {          if ($context eq 'course') {
             $output .= &mt('There are currently no enrollment requests.');              $output .= &mt('There are currently no enrollment requests.');
         } else {          } else {
             $output .= &mt('There are currently no course requests awaiting approval.');              $output .= &mt('There are currently no course or community requests awaiting approval.');
         }          }
     }      }
     return $output;      return $output;
Line 329  sub display_queued_requests { Line 372  sub display_queued_requests {
 sub update_request_queue {  sub update_request_queue {
     my ($context,$cdom,$cnum,$coursedesc) = @_;      my ($context,$cdom,$cnum,$coursedesc) = @_;
     my ($output,$access_start,$access_end,$limit,$cap,$notifylist,$namespace,      my ($output,$access_start,$access_end,$limit,$cap,$notifylist,$namespace,
         $stucounts,$idx,$classlist,%requesthash,$coursedesc,$cid,$hostname,          $stucounts,$idx,$classlist,%requesthash,$cid,$hostname,$protocol,
         $protocol,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary,          $domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary,
         @existing,@missingreq,@invalidusers,@limitexceeded,@enrolled,@created,          @existing,@missingreq,@invalidusers,@limitexceeded,@completed,
         @enrollerrors,@create_errors,@warn_approves,@warn_rejects,@approvals,          @processing_errors,@warn_approves,@warn_rejects,@approvals,
         @rejections);          @rejections,@rejectionerrors,@nopermissions,%courseroles,
           %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype);
     @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');      @approvals = &Apache::loncommon::get_env_multiple('form.approvereq');
     @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');      @rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');
     $now = time;      $now = time;
Line 342  sub update_request_queue { Line 386  sub update_request_queue {
         $namespace = 'selfenrollrequests';          $namespace = 'selfenrollrequests';
         $beneficiary = 'enroller';          $beneficiary = 'enroller';
         $cid = $env{'request.course.id'};          $cid = $env{'request.course.id'};
           $crstype = lc(&Apache::loncommon::course_type());
         my $chome = &Apache::lonnet::homeserver($cnum,$cdom);          my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
         $hostname = &Apache::lonnet::hostname($chome);          $hostname = &Apache::lonnet::hostname($chome);
         $protocol = $Apache::lonnet::protocol{$chome};          $protocol = $Apache::lonnet::protocol{$chome};
Line 352  sub update_request_queue { Line 397  sub update_request_queue {
         $limit = $env{'course.'.$cid.'.internal.selfenroll_limit'};          $limit = $env{'course.'.$cid.'.internal.selfenroll_limit'};
         $cap = $env{'course.'.$cid.'.internal.selfenroll_cap'};          $cap = $env{'course.'.$cid.'.internal.selfenroll_cap'};
         $notifylist = $env{'course.'.$cid.'.internal.selfenroll_notifylist'};          $notifylist = $env{'course.'.$cid.'.internal.selfenroll_notifylist'};
         $namespace = 'selfenrollrequests';  
         ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);          ($stucounts,$idx,$classlist) = &get_student_counts($cdom,$cnum);
         $approvedmsg = [{          $approvedmsg = [{
                             mt => 'Your request for enrollment has been approved.',                              mt => 'Your request for enrollment has been approved.',
Line 365  sub update_request_queue { Line 409  sub update_request_queue {
                             mt => 'Your request for enrollment has not been approved.',                              mt => 'Your request for enrollment has not been approved.',
                         }];                          }];
     } else {      } else {
         $beneficiary = 'requestor';          $domdesc = &Apache::lonnet::domain($cdom);
           $namespace = 'courserequestqueue';
           $beneficiary = 'courserequestor';
           %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_approval');
           my $chome = &Apache::lonnet::domain($cdom,'primary');
           $hostname = &Apache::lonnet::hostname($chome);
           $protocol = $Apache::lonnet::protocol{$chome};
           $protocol = 'http' if ($protocol ne 'https');
           my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom);
           if (ref($domconfig{'requestcourses'}) eq 'HASH') {
               if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') { 
                   $notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'};
               }
           }
           $approvalmsg{'course'} = 
                           [{
                               mt => 'Your course request has been approved.',
                           },
                           {
                               mt   => 'Visit [_1], to log-in and access the course',
                               args => [$protocol.'://'.$hostname],
                           }];
           $rejectionmsg{'course'} =
                           [{
                               mt => 'Your course request has not been approved.',
                           }];
   
           $approvalmsg{'community'} = 
                           [{
                               mt => 'Your community request has been approved.',
                           },
                           {
                               mt   => 'Visit [_1], to log-in and access the community',
                               args => [$protocol.'://'.$hostname],
                           }];
   
           $rejectionmsg{'community'} = 
                           [{
                               mt => 'Your community request has not been approved.',
                           }];
   
           %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
           my @roles = &Apache::lonuserutils::roles_by_context('course');
           foreach my $role (@roles) {
               $courseroles{$role}=&Apache::lonnet::plaintext($role,'Course');
           }
           foreach my $role (@roles) {
               $communityroles{$role}=&Apache::lonnet::plaintext($role,'Community');
           }
   
     }      }
     foreach my $item (sort {$a <=> $b} @approvals) {      foreach my $item (sort {$a <=> $b} @approvals) {
         if ($context eq 'course') {          if ($context eq 'course') {
Line 402  sub update_request_queue { Line 495  sub update_request_queue {
                     my $result =                      my $result =
                         &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$usec,$access_end,$access_start,'selfenroll',undef,$cdom.'_'.$cnum,1);                          &Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef,undef,undef,$usec,$access_end,$access_start,'selfenroll',undef,$cdom.'_'.$cnum,1);
                     if ($result eq 'ok') {                      if ($result eq 'ok') {
                         push(@enrolled,$uname.':'.$udom);                          push(@completed,$uname.':'.$udom);
                         $stucounts->{'allstudents'} ++;                          $stucounts->{'allstudents'} ++;
                         $stucounts->{'selfenrolled'} ++;                          $stucounts->{'selfenrolled'} ++;
                         &send_selfserve_notification($uname.':'.$udom,$approvedmsg,                          &send_selfserve_notification($uname.':'.$udom,$approvedmsg,
                                        $cid,$coursedesc,$now,$beneficiary,$sender);                                         $cid,$coursedesc,$now,$beneficiary,$sender,undef,undef,$crstype);
                         my %userrequest;                          my %userrequest = (
                         if ($context eq 'course') {                              $cdom.'_'.$cnum => {
                             %userrequest = (                                  timestamp   => $now,
                                 $cdom.'_'.$cnum => {                                  section     => $usec,
                                     timestamp   => $now,                                  adjudicator => $env{'user.name'}.':'.$env{'user.domain'},
                                     section     => $usec,                                  status      => 'approved',
                                     adjudicator => $env{'user.name'}.':'.$env{'user.domain'},                              }
                                     status      => 'approved',                          );
                                 }  
                             );  
                         } else {  
                             %userrequest = ();  
                         }  
                         my $userresult =                          my $userresult =
                             &Apache::lonnet::put($namespace,\%userrequest,$udom,$uname);                              &Apache::lonnet::put($namespace,\%userrequest,$udom,$uname);
                         if ($userresult ne 'ok') {                          if ($userresult ne 'ok') {
                             push(@warn_approves,$uname.':'.$udom);                              push(@warn_approves,$uname.':'.$udom);
                         }                          }
                     } else {                      } else {
                         push(@enrollerrors,$uname.':'.$udom);                          push(@processing_errors,$uname.':'.$udom);
                     }                      }
                 }                  }
             } else {              } else {
                 push(@invalidusers,$uname.':'.$udom);                  push(@invalidusers,$uname.':'.$udom);
             }              }
         } else {          } else {
               my ($num,$cnum) = split(':',$item);
               if (ref($requesthash{$cnum.'_approval'}) eq 'HASH') {
                   if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
                       my $ownername = $requesthash{$cnum.'_approval'}{'ownername'};
                       my $ownerdom = $requesthash{$cnum.'_approval'}{'ownerdom'};
                       $crstype = $requesthash{$cnum.'_approval'}{'crstype'};
                       my $coursedesc = $requesthash{$cnum.'_approval'}{'description'};
                       my $longroles = \%courseroles;
                       if ($crstype eq 'community') {
                           $longroles = \%communityroles;
                       }
                       my $cancreate;
                       if ($cdom eq $ownerdom) {
                           if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype,
                                                                 undef,'requestcourses')) {
                               $cancreate = 1;
                           }
                       } else {
                           my %userenv = &Apache::lonnet::userenvironment($ownerdom,$ownername,'reqcrsotherdom.'.$crstype);
                           if ($userenv{'reqcrsotherdom.'.$crstype}) {
                               my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype});
                               if (grep(/^\Q$cdom\E:/,@doms)) {
                                   $cancreate = 1;
                               }
                           }
                       }
                       if ($cancreate) {
                           my $requestkey = $cdom.'_'.$cnum;
                           my %history = 
                               &Apache::lonnet::restore($requestkey,'courserequests',
                                                        $ownerdom,$ownername);
                           if ((ref($history{'details'}) eq 'HASH') && 
                               ($history{'disposition'} eq 'approval')) {
                               my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);
                               my $result = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,
                                                         \$newusermsg,\$addresult,\$enrollcount,
                                                         \$response,\$keysmsg,\%domdefs,$longroles);
                               if ($result eq 'created') {
                                   if ($crstype eq 'community') {
                                       $approvedmsg = $approvalmsg{'community'};
                                   } else {
                                       $approvedmsg = $approvalmsg{'course'};
                                   }
                                   push(@completed,$cnum);
                                   &send_selfserve_notification($ownername.':'.$ownerdom,$approvedmsg,
                                                 $cid,$coursedesc,$now,$beneficiary,$sender,undef,undef,$crstype);
                                   my %reqhash = (
                                                   reqtime     => $history{'reqtime'},
                                                   crstype     => $history{'crstype'},
                                                   details     => $history{'details'},
                                                   disposition => $history{'disposition'},
                                                   status      => 'created',
                                                   adjudicator => $env{'user.name'}.':'.
                                                                  $env{'user.domain'},
                                                 );
                                   my $userresult =
                                       &Apache::lonnet::store_userdata(\%reqhash,$requestkey,
                                                      'courserequests',$ownerdom,$ownername);
                                   if ($userresult eq 'ok') {
                                       my %status = (
                                                      'status:'.$cdom.':'.$cnum => 'created'
                                                    );
                                       my $statusresult = 
                                           &Apache::lonnet::put('courserequests',\%status,
                                                                $ownerdom,$ownername);
                                       if ($statusresult ne 'ok') {
                                           push(@warn_approves,$cnum);
                                       }
                                   }
                                   if ($userresult ne 'ok') {
                                       push(@warn_approves,$cnum);
                                   }
                               } else {
                                   push(@processing_errors,$cnum);
                               }
                           } else {
                               push(@processing_errors,$cnum);
                           }
                       } else {
                           push(@nopermissions,$cnum);
                       }
                   } else {
                       push(@existing,$cnum);
                   }
               } else {
                   push(@missingreq,$cnum);
               }
         }          }
     }      }
     my @changes = (@enrolled,@rejections);      my @changes = (@completed,@rejections);
       if ($context eq 'domain') {
           @changes = map {$_.'_approval'} (@changes);
       }
     if (@rejections) {      if (@rejections) {
         foreach my $user (@rejections) {          foreach my $item (@rejections) {
             &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,  
                                          $now,$beneficiary,$sender);  
             if ($context eq 'course') {              if ($context eq 'course') {
                   my $user = $item;
                   &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,
                                                $now,$beneficiary,$sender,undef,undef,$crstype);
                 my ($uname,$udom) = split(/:/,$user);                  my ($uname,$udom) = split(/:/,$user);
                 my %userrequest = (                  my %userrequest = (
                     $cdom.'_'.$cnum => {                      $cdom.'_'.$cnum => {
Line 456  sub update_request_queue { Line 634  sub update_request_queue {
                     push(@warn_rejects,$user);                      push(@warn_rejects,$user);
                 }                  }
             } else {              } else {
                   my $cnum = $item;
                   if (ref($requesthash{$cnum.'_approval'}) eq 'HASH') {
                       if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
                           my $requestkey = $cdom.'_'.$cnum;
                           my $ownername = $requesthash{$cnum.'_approval'}{'ownername'};
                           my $ownerdom = $requesthash{$cnum.'_approval'}{'ownerdom'};
                           my $coursedesc = $requesthash{$cnum.'_approval'}{'description'};
                           $crstype = $requesthash{$cnum.'_approval'}{'crstype'};
                           if ($crstype eq 'community') {
                               $rejectedmsg = $rejectionmsg{'community'};
                           } else {
                               $rejectedmsg = $rejectionmsg{'course'};
                           }
                           &send_selfserve_notification($ownername.':'.$ownerdom,$rejectedmsg,
                                                        $cid,$coursedesc,$now,$beneficiary,
                                                        $sender,undef,undef,$crstype);
                           my %history =
                               &Apache::lonnet::restore($requestkey,'courserequests',
                                                        $ownerdom,$ownername);
                           if ((ref($history{'details'}) eq 'HASH') &&
                               ($history{'disposition'} eq 'approval')) {
                               my %reqhash = (
                                               reqtime     => $history{'reqtime'},
                                               crstype     => $history{'crstype'},
                                               details     => $history{'details'},
                                               disposition => $history{'disposition'},
                                               status      => 'rejected',
                                               adjudicator => $env{'user.name'}.':'.$env{'user.domain'},
                                                 );
                               my $userresult =
                                   &Apache::lonnet::store_userdata(\%reqhash,$requestkey,
                                                   'courserequests',$ownerdom,$ownername);
                               if ($userresult eq 'ok') {
                                   my %status = (
                                                  'status:'.$cdom.':'.$cnum => 'rejected'
                                                );
                                   my $statusresult =
                                       &Apache::lonnet::put('courserequests',\%status,
                                                            $ownerdom,$ownername);
                                   if ($statusresult ne 'ok') {
                                       push(@warn_rejects,$cnum);
                                   }
                               } else {
                                   push(@warn_rejects,$cnum);
                               }
                           } else {
                               push(@warn_rejects,$cnum);
                           }
                       } else {
                           push(@existing,$cnum);
                       }
                   } else {
                       push(@rejectionerrors,$cnum);
                   }
             }              }
         }          }
     }      }
Line 473  sub update_request_queue { Line 704  sub update_request_queue {
             my ($chgmsg,$approvedlist,$rejectedlist);              my ($chgmsg,$approvedlist,$rejectedlist);
             if ($context eq 'course') {              if ($context eq 'course') {
                 $chgmsg = "'Action was taken on the following enrollment requests by [_1].',$namelink";                  $chgmsg = "'Action was taken on the following enrollment requests by [_1].',$namelink";
                 if (@enrolled) {                  if (@completed) {
                     $approvedlist = join("\n",@enrolled);                      $approvedlist = join("\n",@completed);
                     $output .= '<p>'.&mt('The following were enrolled in the course:').'<ul>';                      if ($crstype eq 'community') {
                     foreach my $user (@enrolled) {                          $output .= '<p>'.&mt('The following were enrolled in the community:').'<ul>';
                       } else {
                           $output .= '<p>'.&mt('The following were enrolled in the course:').'<ul>';
                       }
                       foreach my $user (@completed) {
                         my ($uname,$udom) = split(/:/,$user);                          my ($uname,$udom) = split(/:/,$user);
                         my $userlink =                          my $userlink =
                             &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom);                              &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$udom),$uname,$udom);
Line 492  sub update_request_queue { Line 727  sub update_request_queue {
                     }                      }
                     $output .= '</ul></p>';                      $output .= '</ul></p>';
                 }                  }
                   if ($notifylist ne '') {
                       &send_selfserve_notification($notifylist,$chgmsg,$cid,$coursedesc,
                                                    $now,'coursemanagers',$sender,
                                                    $approvedlist,$rejectedlist,$crstype);
                   }
             } else {              } else {
                   $chgmsg = "'Action was taken on the following course and community requests by [_1].',$namelink";
                   if (@completed) {
                       $approvedlist = join("\n",@completed);
                       $output .= '<p>'.&mt('The following courses/communities were created:').'<ul>';
                       foreach my $cnum (@completed) {
                           my $showcourse;
                           if (ref($requesthash{$cnum.'_approval'})) {
                               $showcourse = $requesthash{$cnum.'_approval'}{'description'};
                           } else {
                               $showcourse = $cnum;
                           }
                           my $syllabuslink =
                               &Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);
                           $output .= '<li>'.$syllabuslink.'</li>';
                       }
                       $output .= '</ul></p>';
                   }
                   if (@rejections) {
                       $rejectedlist = join("\n",@rejections);
                       $output .= '<p>'.&mt('The following requests were rejected:').'<ul>';
                       foreach my $cnum (@rejections) {
                           my $showcourse;
                           if (ref($requesthash{$cnum.'_approval'})) {
                               $showcourse = $requesthash{$cnum.'_approval'}{'description'};
                           } else {
                               $showcourse = $cnum;
                           }
                           $output .= '<li>'.$showcourse.'</li>';
                       }
                       $output .= '</ul></p>';
                   }
                   if ($notifylist ne '') {
                       &send_selfserve_notification($notifylist,$chgmsg,$cid,$domdesc,
                                                    $now,'domainmanagers',$sender,
                                                    $approvedlist,$rejectedlist,$crstype);
                   }
             }              }
             &send_selfserve_notification($notifylist,$chgmsg,$cid,$coursedesc,  
                                          $now,'coursemanagers',$sender,  
                                          $approvedlist,$rejectedlist);  
         }          }
     }      }
     if (@existing) {      if (@existing) {
Line 509  sub update_request_queue { Line 780  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
               $output .= '<p>'.&mt('The following course/community creation requests were deleted because the course or community has already been created:').'<ul>';
               foreach my $cnum (@existing) {
                   my $showcourse;
                   my %coursehash = &Apache::lonnet::coursedescription($cdom.'/'.$cnum);
                   if ($coursehash{'description'} ne '') {
                       $showcourse = $coursehash{'description'};
                   } else {
                       $showcourse = $cnum;
                   }
                   $output .= '<li>'.$showcourse.'</li>';
               }
               $output .= '</ul></p>';
         }          }
     }      }
     if (@missingreq) {      if (@missingreq) {
Line 519  sub update_request_queue { Line 801  sub update_request_queue {
                 $output .= '<li>'.$user.'</li>';                  $output .= '<li>'.$user.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
           } else {
               $output .= '<p>'.&mt('The following course/community creation requests were ignored because the request is no longer in the queue:').'<ul>';
               foreach my $cnum (@missingreq) {
                   $output .= '<li>'.$cnum.'</li>';
               }
               $output .= '</ul></p>';
   
         }          }
     }      }
     if (@invalidusers) {      if (@invalidusers) {
Line 528  sub update_request_queue { Line 817  sub update_request_queue {
                 $output .= '<li>'.$user.'</li>';                  $output .= '<li>'.$user.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {  
   
         }          }
     }      }
     if (@limitexceeded) {      if (@limitexceeded) {
Line 539  sub update_request_queue { Line 826  sub update_request_queue {
                 $output .= '<li>'.$user.'</li>';                  $output .= '<li>'.$user.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {  
   
         }          }
     }      }
     if (@enrollerrors) {      if (@nopermissions) {
           $output .= '<p>'.&mt('The following course/community creation requests could not be processed because the owner does not have rights to create this type of course:').'<ul>';
           foreach my $cnum (@nopermissions) {
               my $showcourse;
               if (ref($requesthash{$cnum.'_approval'})) {
                   $showcourse = $requesthash{$cnum.'_approval'}{'description'};
               } else {
                   $showcourse = $cnum;
               }
               $output .= '<li>'.$showcourse.'</li>';
           }
           $output .= '</ul></p>';
       }
       if (@processing_errors) {
         if ($context eq 'course') {          if ($context eq 'course') {
             $output .= '<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>';              $output .= '<p>'.&mt('The following enrollment requests could not be processed because an error occurred:').'<ul>';
             foreach my $user (@enrollerrors) {              foreach my $user (@processing_errors) {
                 $output .= '<li>'.$user.'</li>';                  $output .= '<li>'.$user.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
               $output .= '<p>'.&mt('The following course/community creation requests could not be processed because an error occurred:').'<ul>';
               foreach my $cnum (@processing_errors) {
                   my $showcourse;
                   if (ref($requesthash{$cnum.'_approval'})) {
                       $showcourse = $requesthash{$cnum.'_approval'}{'description'};
                   } else {
                       $showcourse = $cnum;
                   }
                   $output .= '<li>'.$showcourse.'</li>';
               }
               $output .= '</ul></p>';
         }          }
     }      }
     if (@warn_approves) {      if (@rejectionerrors) {
         if ($context eq 'course') {          $output .= '<p>'.&mt('The following course/community creation request rejections could not be fully processed because an error occurred:').'<ul>';
             $output .= '<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>';          foreach my $cnum (@rejectionerrors) {
             foreach my $user (@warn_approves) {              my $showcourse;
                 $output .= '<li>'.$user.'</li>';              if (ref($requesthash{$cnum.'_approval'})) {
                   $showcourse = $requesthash{$cnum.'_approval'}{'description'};
               } else {
                   $showcourse = $cnum;
             }              }
             $output .= '</ul></p>';              $output .= '<li>'.$showcourse.'</li>';
         } else {  
   
         }          }
           $output .= '</ul></p>';
     }      }
     if (@warn_rejects) {      if (@warn_approves || @warn_rejects) {
         if ($context eq 'course') {          if ($context eq 'course') {
             $output .= '<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>';              $output .= '<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>';
             foreach my $user (@warn_rejects) {              foreach my $user (@warn_approves) {
                 $output .= '<li>'.$user.'</li>';                  $output .= '<li>'.$user.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
               $output .= '<p>'.&mt("For the following course/community requests an error occurred when updating the requestor's own requests record:").'<ul>';
               foreach my $cnum (@warn_approves,@warn_rejects) {
                   my $showcourse;
                   if (ref($requesthash{$cnum.'_approval'})) {
                       $showcourse = $requesthash{$cnum.'_approval'}{'description'};
                   } else {
                       $showcourse = $cnum;
                   }
                   $output .= '<li>'.$showcourse.'</li>';
               }
               $output .= '</ul></p>';
         }          }
     }      }
     return $output;      return $output;
Line 597  sub get_student_counts { Line 917  sub get_student_counts {
     return (\%stucounts,\%idx,$classlist);      return (\%stucounts,\%idx,$classlist);
 }  }
   
   sub course_creation {
       my ($dom,$cnum,$context,$details,$logmsg,$newusermsg,$addresult,$enrollcount,$output,
           $keysmsg,$domdefs,$longroles) =  @_;
       unless ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH') && 
               (ref($longroles) eq 'HASH')) {
           return 'error: Invalid request';
       }
       my ($result,$ownername,$ownerdom);
       my $crstype = $details->{'crstype'};
       if ($context eq 'domain') {
           $ownername = $details->{'owner'};
           $ownerdom  = $details->{'domain'};
       } else {
           $ownername = $env{'user.name'};
           $ownerdom  = $env{'user.domain'};
       }
       my $owneremail;
       my %emails = &Apache::loncommon::getemails($ownername,$ownerdom);
       foreach my $email ('permanentemail','critnotification','notification') {
           $owneremail = $emails{$email};
           last if ($owneremail ne '');
       }
       my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs);
       my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',
                     \%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult,
                     \$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype);
       if ($cid eq "/$dom/$cnum") {
           $result = 'created';
       } else {
           $result = 'error: '.$cid;
       }
       return $result;
   }
   
   sub build_batchcreatehash {
       my ($dom,$context,$details,$owneremail,$domdefs) = @_;
       my %batchhash;
       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')) {
           my $emailenc = &Apache::lonnet::escape($owneremail);
           my $owner = $details->{'owner'}.':'.$details->{'domain'};
           foreach my $item (@items) {
               $batchhash{$item} = $details->{$item};
           }
           $batchhash{'title'} = $details->{'cdescr'};
           $batchhash{'coursecode'} = $details->{'instcode'};
           $batchhash{'emailenc'} = $emailenc;
           $batchhash{'adds'} = $details->{'autoadds'};
           $batchhash{'drops'} = $details->{'autodrops'};
           $batchhash{'authtype'} = $domdefs->{'auth_def'};
           $batchhash{'authparam'} = $domdefs->{'auth_arg_def'};
           if ($details->{'crstype'} eq 'community') {
               $batchhash{'crstype'} = 'Community';
           } else {
               $batchhash{'crstype'} = 'Course';
           }
           my ($owner_firstname,$owner_lastname);
           if ($context eq 'domain') {
               my %userenv = &Apache::lonnet::userenvironment($details->{'domain'},
                                                              $details->{'owner'},
                                                              'firstname','lastname');
               $owner_firstname = $userenv{'firstname'};
               $owner_lastname = $userenv{'lastname'};
           } else {
               $owner_firstname = $env{'environment.firstname'};
               $owner_lastname = $env{'environment.lastname'};
           }
           if (ref($details->{'personnel'}) eq 'HASH') {
               %{$batchhash{'users'}} = %{$details->{'personnel'}};
               if (ref($batchhash{'users'}) eq 'HASH') {  
                   foreach my $userkey (keys(%{$batchhash{'users'}})) {
                       if (ref($batchhash{'users'}{$userkey}) eq 'HASH') {
                           if (ref($batchhash{'users'}{$userkey}{'roles'}) eq 'ARRAY') {
                               foreach my $role (@{$batchhash{'users'}{$userkey}{'roles'}}) {
                                   my $start = '';
                                   my $end = '';
                                   if ($role eq 'st') {
                                       $start = $details->{'accessstart'};
                                       $end = $details->{'accessend'};
                                   }
                                   $batchhash{'users'}{$userkey}{$role}{'start'} = $start;
                                   $batchhash{'users'}{$userkey}{$role}{'end'} = $end;
                               } 
                           }
                       }
                   }
               }
           }
           $batchhash{'users'}{$owner}{firstname} = $owner_firstname;
           $batchhash{'users'}{$owner}{lastname} = $owner_lastname;
           $batchhash{'users'}{$owner}{emailenc} = $emailenc;
           $batchhash{'users'}{$owner}{owneremail} = $owneremail;
       }
       return %batchhash;
   }
   
   sub can_clone_course {
       my ($uname,$udom,$clonecrs,$clonedom,$crstype) = @_;
       my $canclone;
       my $ccrole = 'cc';
       if ($crstype eq 'community') {
           $ccrole = 'co';
       }
       my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],
                                                     [$ccrole],[$clonedom]);
       if (exists($roleshash{$clonecrs.':'.$clonedom.':'.$ccrole})) {
           $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;
   }
   
   sub get_processtype {
       my ($uname,$udom,$isadv,$dom,$crstype,$inststatuses,$domconfig) = @_;
       return unless ((ref($inststatuses) eq 'ARRAY') && (ref($domconfig) eq 'HASH'));
       if ($uname eq '' || $udom eq '') {
           $uname = $env{'user.name'};
           $udom = $env{'user.domain'};
           $isadv = $env{'user.adv'};
       }
       my (%userenv,%settings,$val);
       my @options = ('autolimit','validate','approval');
       if ($dom eq $udom) {
           %userenv =
               &Apache::lonnet::userenvironment($udom,$uname,'requestcourses.'.$crstype,'inststatus');
           if ($userenv{'requestcourses.'.$crstype}) {
               $val = $userenv{'requestcourses.'.$crstype};
               @{$inststatuses} = ('_custom_');
           } else {
               my ($task,%alltasks);
               if (ref($domconfig->{'requestcourses'}) eq 'HASH') {
                   %settings = %{$domconfig->{'requestcourses'}};
                   if (ref($settings{$crstype}) eq 'HASH') {
                       if (($isadv) && ($settings{$crstype}{'_LC_adv'} ne '')) {
                           $val = $settings{$crstype}{'_LC_adv'};
                           @{$inststatuses} = ('_LC_adv_');
                       } else {
                           if ($userenv{'inststatus'} ne '') {
                               @{$inststatuses} = split(',',$userenv{'inststatus'});
                           } else {
                               @{$inststatuses} = ('default');
                           }
                           foreach my $status (@{$inststatuses}) {
                               if (exists($settings{$crstype}{$status})) {
                                   my $value = $settings{$crstype}{$status};
                                   next unless ($value);
                                   unless (exists($alltasks{$value})) {
                                       if (ref($alltasks{$value}) eq 'ARRAY') {
                                           unless(grep(/^\Q$status\E$/,@{$alltasks{$value}})) {
                                               push(@{$alltasks{$value}},$status);
                                           }
                                       } else {
                                           @{$alltasks{$value}} = ($status);
                                       }
                                   }
                               }
                           }
                           my $maxlimit = 0;
   
                           foreach my $key (sort(keys(%alltasks))) {
                               if ($key =~ /^autolimit=(\d*)$/) {
                                   if ($1 eq '') {
                                       $val ='autolimit=';
                                       last;
                                   } elsif ($1 > $maxlimit) {
                                       $maxlimit = $1;
                                   }
                               }
                           }
                           if ($maxlimit) {
                               $val = 'autolimit='.$maxlimit;
                           } else {
                               foreach my $option (@options) {
                                   if ($alltasks{$option}) {
                                       $val = $option;
                                       last;
                                   }
                               }
                           }
                       }
                   }
               }
           }
       } else {
           %userenv = &Apache::lonnet::userenvironment($udom,$uname,'reqcrsotherdom.'.$crstype);
           if ($userenv{'reqcrsotherdom.'.$crstype}) {
               my @doms = split(',',$userenv{'reqcrsotherdom.'.$crstype});
               my $optregex = join('|',@options);
               foreach my $item (@doms) {
                   my ($extdom,$extopt) = split(':',$item);
                   if ($extdom eq $dom) {
                       if ($extopt =~ /^($optregex)(=?\d*)$/) {
                           $val = $1.$2;
                       }
                       last;
                   }
               }
               @{$inststatuses} = ('_external_');
           }
       }
       return $val;
   }
   
   sub queued_selfenrollment {
       my ($notitle) = @_;
       my $output;
       my %selfenrollrequests = &Apache::lonnet::dump('selfenrollrequests');
       my %reqs_by_date;
       foreach my $item (keys(%selfenrollrequests)) {
           if (ref($selfenrollrequests{$item}) eq 'HASH') {
               if ($selfenrollrequests{$item}{'status'} eq 'request') {
                   if ($selfenrollrequests{$item}{'timestamp'}) {
                       push(@{$reqs_by_date{$selfenrollrequests{$item}{'timestamp'}}},$item);
                   }
               }
           }
       }
       if (keys(%reqs_by_date)) {
           my $rolename = &Apache::lonnet::plaintext('st');
           unless ($notitle) {
               $output .= '<b>'.&mt('Enrollment requests pending Course Coordinator approval').'</b><br />';
           }
           $output .= &Apache::loncommon::start_data_table().
                      &Apache::loncommon::start_data_table_header_row().
                      '<th>'.&mt('Date requested').'</th><th>'.&mt('Course title').'</th>'.
                      '<th>'.&mt('User role').'</th><th>'.&mt('Section').'</th>'.
                      &Apache::loncommon::end_data_table_header_row();
           my @sorted = sort { $a <=> $b } (keys(%reqs_by_date));
           foreach my $item (@sorted) {
               if (ref($reqs_by_date{$item}) eq 'ARRAY') {
                   foreach my $crs (@{$reqs_by_date{$item}}) {
                       my %courseinfo = &Apache::lonnet::coursedescription($crs);
                       my $usec = $selfenrollrequests{$crs}{'section'};
                       if ($usec eq '') {
                           $usec = &mt('No section');
                       }
                       $output .= &Apache::loncommon::start_data_table_row().
                                  '<td>'.&Apache::lonlocal::locallocaltime($item).'</td>'.
                                  '<td>'.$courseinfo{'description'}.'</td>'.
                                  '<td>'.$rolename.'</td><td>'.$usec.'</td>'.
                                  &Apache::loncommon::end_data_table_row();
                   }
               }
           }
           $output .= &Apache::loncommon::end_data_table();
       }
       return $output;
   }
   
 1;  1;

Removed from v.1.1  
changed lines
  Added in v.1.15


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