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

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

version 1.1, 2009/08/11 00:39:45 version 1.2, 2009/08/16 19:16:16
Line 62  use Apache::lonnet; Line 62  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) = @_;
 # 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);
     $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\n"],
                      });                       });
     } elsif ($context eq 'domainmanagers') {      } elsif ($context eq 'domainmanagers') {
         $rawsubj = 'Course request';          $rawsubj = 'Course 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 creation requests in the following domain: [_1]have been reviewed.',
                       args => ["\n$coursedesc\n","$timestamp\n"],                        args => ["\n  $contextdesc\n"],
   
                      });                       });
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
Line 93  sub send_selfserve_notification { Line 91  sub send_selfserve_notification {
     } elsif ($context eq 'enroller') {      } elsif ($context eq 'enroller') {
         $rawsubj = 'Enrollment request';          $rawsubj = 'Enrollment request';
         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  => 'Your request for enrollment in the following course: [_1]requested on [_2]has been reviewed by a Course Coordinator.',
                       args => ["\n$coursedesc\n","$timestamp\n"],                        args => ["\n  ".$contextdesc.",\n",$timestamp.",\n"],
   
                      });                       });
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
Line 103  sub send_selfserve_notification { Line 101  sub send_selfserve_notification {
     } elsif ($context eq 'courserequestor') {      } elsif ($context eq 'courserequestor') {
         $rawsubj = 'Course request';          $rawsubj = 'Course request';
         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  => 'Your request for creation of the following course: [_1]requested on [_2]has been reviewed by a Domain Coordinator.',
                       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') {
           $rawsubj = 'Course request to review', 
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Creation of the following course: [_1] was requested by [_2] on [_3].',                        mt  => 'Creation of the following course: [_1]was requested by [_2] on [_3].',
                       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 -> Create a new course -> Approve or reject course 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';
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Enrollment in the following course: [_1] was requested by [_2] on [_3].',                        mt  => 'Enrollment in the following course: [_1] was requested by [_2] on [_3].',
                       args => ["\n$coursedesc\n",$textstr,$timestamp],                        args => ["\n  $contextdesc\n",$textstr,$timestamp."\n"],
                      },                       });
           if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
               push(@rawmsg,
                        {
                         mt =>'As 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.',
                         args => ["  \n\n","\n"],
                        });
           } else {
               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 =>'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.',
                       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 158  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 202  sub send_selfserve_notification { Line 211  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,undef,'_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 243  sub display_queued_requests { Line 254  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 292  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;
Line 329  sub display_queued_requests { Line 341  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,%courseroles,%communityroles,%domdefs);
     @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 352  sub update_request_queue { Line 364  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 376  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,undef,'_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'};
               }
           }
           $approvedmsg = [{
                               mt => 'Your course request has been approved.',
                           },
                           {
                               mt   => 'Visit [_1], to log-in and access the course',
                               args => [$protocol.'://'.$hostname],
                           }];
           $rejectedmsg =  [{
                               mt => 'Your course 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 445  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);
                         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'};
                       my $crstype = $requesthash{$cnum.'_approval'}{'crstype'};
                       my $coursedesc = $requesthash{$cnum.'_approval'}{'description'};
                       my $longroles = \%courseroles;
                       if ($crstype eq 'community') {
                           $longroles = \%communityroles;
                       }
                       if (&Apache::lonnet::usertools_access($ownername,$ownerdom,$crstype,
                                                             undef,'requestcourses')) {
                           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') {
                                   push(@completed,$cnum);
                                   &send_selfserve_notification($ownername.':'.$ownerdom,$approvedmsg,
                                                 $cid,$coursedesc,$now,$beneficiary,$sender);
                                   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(@processing_errors,$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 $user (@rejections) {
             &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,  
                                          $now,$beneficiary,$sender);  
             if ($context eq 'course') {              if ($context eq 'course') {
                   &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,
                                                $now,$beneficiary,$sender);
                 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 564  sub update_request_queue {
                     push(@warn_rejects,$user);                      push(@warn_rejects,$user);
                 }                  }
             } else {              } else {
                   if (ref($requesthash{$user.'_approval'}) eq 'HASH') {
                       if (&Apache::lonnet::homeserver($user,$cdom) eq 'no_host') {
                           my $ownername = $requesthash{$cnum.'_approval'}{'ownername'};
                           my $ownerdom = $requesthash{$cnum.'_approval'}{'ownerdom'};
                           my $coursedesc = $requesthash{$cnum.'_approval'}{'description'};
                           &send_selfserve_notification($ownername.':'.$ownerdom,$rejectedmsg,
                                                        $cid,$coursedesc,$now,$beneficiary,
                                                        $sender);
                           my %history =
                               &Apache::lonnet::restore($cdom.'_'.$cnum,'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($namespace,\%reqhash,$ownerdom,$ownername);
                               if ($userresult ne 'ok') {
                                   push(@warn_rejects,$user);
                               }
                           }
                       }
                   }
             }              }
         }          }
     }      }
Line 473  sub update_request_queue { Line 609  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>';                      $output .= '<p>'.&mt('The following were enrolled in the course:').'<ul>';
                     foreach my $user (@enrolled) {                      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 628  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);
                   }
             } else {              } else {
                   $chgmsg = "'Action was taken on the following course requests by [_1].',$namelink";
                   if (@completed) {
                       $approvedlist = join("\n",@completed);
                       $output .= '<p>'.&mt('The following courses 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);
                   }
             }              }
             &send_selfserve_notification($notifylist,$chgmsg,$cid,$coursedesc,  
                                          $now,'coursemanagers',$sender,  
                                          $approvedlist,$rejectedlist);  
         }          }
     }      }
     if (@existing) {      if (@existing) {
Line 509  sub update_request_queue { Line 681  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
               $output .= '<p>'.&mt('The following course creation requests were deleted because the course 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 702  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 creation requests were ignored because the request is no longer in the course request queue:').'<ul>';
               foreach my $cnum (@missingreq) {
                   $output .= '<li>'.$cnum.'</li>';
               }
               $output .= '</ul></p>';
   
         }          }
     }      }
     if (@invalidusers) {      if (@invalidusers) {
Line 528  sub update_request_queue { Line 718  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 727  sub update_request_queue {
                 $output .= '<li>'.$user.'</li>';                  $output .= '<li>'.$user.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {  
   
         }          }
     }      }
     if (@enrollerrors) {      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 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 (@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_approves) {              foreach my $user (@warn_approves) {
Line 562  sub update_request_queue { Line 758  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
               $output .= '<p>'.&mt("For the following course requests an error occurred when updating the requestor's own course requests record:").'<ul>';
         }              foreach my $cnum (@warn_approves,@warn_rejects) {
     }                  my $showcourse;
     if (@warn_rejects) {                  if (ref($requesthash{$cnum.'_approval'})) {
         if ($context eq 'course') {                      $showcourse = $requesthash{$cnum.'_approval'}{'description'};
             $output .= '<p>'.&mt("For the following users, an error occurred when updating the user's own self-enroll requests record:").'<ul>';                  } else {
             foreach my $user (@warn_rejects) {                      $showcourse = $cnum;
                 $output .= '<li>'.$user.'</li>';                  }
                   $output .= '<li>'.$showcourse.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {  
   
         }          }
     }      }
     return $output;      return $output;
Line 597  sub get_student_counts { Line 792  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 $type = 'Course';
       if ($crstype eq 'community') {
           $type = 'Community';
       }
       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,$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,$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';
           }
           $batchhash{'users'}{$details->{$owner}} = {
                                    firstname => $env{'environment.first'},
                                    lastname  => $env{'environment.last'},
                                    emailenc  => $emailenc,
                                    email     => $owneremail,
                                };
       }
       return %batchhash;
   }
   
 1;  1;
Removed from v.1.1  
changed lines
  Added in v.1.2

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