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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.8 and 1.28

version 1.8, 2009/09/04 23:01:58 version 1.28, 2011/08/26 15:57:56
Line 1 Line 1
 # The LearningOnline Network  # The LearningOnline Network
 # Utilities to administer domain course requests and course self-enroll requests   # Utilities to administer domain course requests and course self-enroll requests
 #  #
 # $Id$  # $Id$
 #  #
Line 27 Line 27
 #  #
 ###  ###
   
   =pod
   
 =head1 NAME  =head1 NAME
   
 Apache::loncoursequeueadmin.pm  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 46  described at http://www.lon-capa.org. Line 50  described at http://www.lon-capa.org.
   
 =item display_queued_requests()  =item display_queued_requests()
   
   =item build_queue_display()
   
 =item update_request_queue()  =item update_request_queue()
   
 =item get_student_counts()  =item get_student_counts()
   
   =item course_creation()
   
   =item build_batchcreatehash()
    
   =item can_clone_course()
   
   =item get_processtype()
   
   =item queued_selfenrollment()
   
   =item update_coursereq_status()
   
   =item process_official_reqs()
   
 =back  =back
   
 =cut  =cut
Line 57  described at http://www.lon-capa.org. Line 77  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 Apache::lonuserutils;
 use LONCAPA;  use LONCAPA qw(:DEFAULT :match);
   
 sub send_selfserve_notification {  sub send_selfserve_notification {
     my ($notifylist,$textstr,$cid,$contextdesc,$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,$rawsubj,@rawmsg,$subject,$message,$reviewer,$msgtxt);
     my ($rawsubj,@rawmsg,$subject,$message,$reviewer);      my ($senderuname,$senderudom) = split(':',$sender);
     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  $contextdesc"],                        args => ["\n  $contextdesc"],
                      });                       });
     } elsif ($context eq 'domainmanagers') {      } elsif ($context eq 'domainmanagers') {
         $rawsubj = 'Course requests reviewed';          $rawsubj = 'Course/Community requests reviewed';
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Course creation requests in the following domain: [_1]have been reviewed.',                        mt  => 'Course/Community creation requests in the following domain: [_1] have been reviewed.',
                       args => ["\n  $contextdesc"],                        args => ["\n  $contextdesc"],
                      });                       });
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
Line 90  sub send_selfserve_notification { Line 109  sub send_selfserve_notification {
         }          }
     } 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  ".$contextdesc.",\n",$timestamp.",\n"],                        args => ["\n  ".$contextdesc.",\n",$timestamp.",\n"],
   
                      });                       });
Line 99  sub send_selfserve_notification { Line 123  sub send_selfserve_notification {
             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".$contextdesc.",\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 'pendingrequestor') {
           if ($crstype eq 'Community') {
               $rawsubj = 'Community request';
           } else {
               $rawsubj = 'Processed course request';
           }
           if (ref($textstr) eq 'ARRAY') {
               push(@rawmsg,@{$textstr});
           }
     } elsif ($context eq 'coursereq') {      } elsif ($context eq 'coursereq') {
         $rawsubj = 'Course request to review',           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  $contextdesc\n",$textstr,$timestamp],                        args => ["\n  $contextdesc\n",$textstr,$timestamp],
                      },                       },
                      {                       {
                       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.',                        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","\n\n  ","\n\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  $contextdesc\n",$textstr,$timestamp."\n"],                        args => ["\n  $contextdesc\n",$textstr,$timestamp."\n"],
                      });                       });
         if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {          my $directions;  
             push(@rawmsg,          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.';
                       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 {          } else {
             push(@rawmsg,              $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[_2]to display a list of pending enrollment requests, which you can either approve or reject.',                        mt   => $directions,
                       args => ["  \n\n","\n"],                        args => ["  \n\n","\n"],
                      });                       });
   
         }  
     }      }
     my @to_notify = split(/,/,$notifylist);      my @to_notify = split(/,/,$notifylist);
     my $numsent = 0;      my $numsent = 0;
Line 174  sub send_selfserve_notification { Line 222  sub send_selfserve_notification {
             $message .= &Apache::lonlocal::mt_user($sender_lh,$item->{mt},@{$item->{args}})."\n";              $message .= &Apache::lonlocal::mt_user($sender_lh,$item->{mt},@{$item->{args}})."\n";
         }          }
     }      }
     &Apache::lonmsg::process_sent_mail($subject,'',$numsent,$stamp,$uname,$udom,$msgcount,$cid,$$,$message,\@recusers,\@recudoms);      &Apache::lonmsg::process_sent_mail($subject,'',$numsent,$stamp,$uname,$udom,$msgcount,$cid,$$,$message,\@recusers,\@recudoms,undef,undef,undef,undef,$senderuname,$senderudom);
     my ($recipid,$recipstatus) = &Apache::lonmsg::store_recipients($subject,$uname,$udom,\%reciphash);      my ($recipid,$recipstatus) = &Apache::lonmsg::store_recipients($subject,$uname,$udom,\%reciphash);
     my $status;      my $status;
     foreach my $recip (sort(keys(%{$msgcc}))) {      foreach my $recip (sort(keys(%{$msgcc}))) {
Line 188  sub send_selfserve_notification { Line 236  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 220  sub display_queued_requests { Line 268  sub display_queued_requests {
     } else {      } else {
         $formaction = '/adm/createcourse';          $formaction = '/adm/createcourse';
         $namespace = 'courserequestqueue';          $namespace = 'courserequestqueue';
         %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_approval');          my $disposition = 'approval';
         $nextelement = '<input type="hidden" name="phase" value="requestchange" />';          my $nextphase = 'requestchange';
           if ($context eq 'pending') {
               $disposition = 'pending';
               $nextphase = 'requestvalidation';
           }
           %requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition);
           $nextelement = '<input type="hidden" name="phase" value="'.$nextphase.'" />';
     }      }
     my ($output,%queue_by_date,%crstypes);      my ($output,%queue_by_date);
     if (keys(%requesthash) > 0) {      if (keys(%requesthash) > 0) {
         $output = '<form method="post" name="changequeue" action="'.$formaction.'" />'."\n".          $output = '<form method="post" name="changequeue" action="'.$formaction.'" />'."\n".
                   '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".                    '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".
                   $nextelement."\n".                    $nextelement."\n";
                   &Apache::loncommon::start_data_table().  
                   &Apache::loncommon::start_data_table_header_row().  
                   '<th>'.&mt('Action').'</th>'.  
                   '<th>'.&mt('Requestor').'</th>';  
         if ($context eq 'course') {  
             $output .= '<th>'.&mt('Section').'</th>'.  
                        '<th>'.&mt('Date requested').'</th>';  
             %crstypes = &Apache::lonlocal::texthash (  
                             official   => 'Official course',  
                             unofficial => 'Unofficial course',  
                             community  => 'Community',  
                         );  
         } else {  
             $output .= '<th>'.&mt('Type').'</th>'.  
                        '<th>'.&mt('Date requested').'</th>'.  
                        '<th>'.&mt('Details').'</th>';  
         }  
         $output .= &Apache::loncommon::end_data_table_header_row();  
         foreach my $item (keys(%requesthash)) {          foreach my $item (keys(%requesthash)) {
             my ($timestamp,$entry);              my ($timestamp,$entry,$pending);
             if ($context eq 'course') {              if ($context eq 'course') {
                 ($timestamp, my $usec) = split(/:/,$requesthash{$item});                  ($timestamp, my $usec) = split(/:/,$requesthash{$item});
                 $entry = $item.':'.$usec;                  $entry = $item.':'.$usec;
Line 256  sub display_queued_requests { Line 292  sub display_queued_requests {
                 if (ref($requesthash{$item}) eq 'HASH') {                  if (ref($requesthash{$item}) eq 'HASH') {
                     my ($cnum,$disposition) = split('_',$item);                      my ($cnum,$disposition) = split('_',$item);
                     $entry = $cnum.':'.$requesthash{$item}{'ownername'}.':'.                      $entry = $cnum.':'.$requesthash{$item}{'ownername'}.':'.
                              $requesthash{$item}{'ownerdom'}.':'.                               $requesthash{$item}{'ownerdom'}.':';
                              $requesthash{$item}{'crstype'}.':'.                      if ($context eq 'pending') {
                              $requesthash{$item}{'description'};                          $entry .= $requesthash{$item}{'instcode'};
                       } else {
                           $entry .= $requesthash{$item}{'crstype'};
                       }
                       $entry .= ':'.$requesthash{$item}{'description'};
                 }                  }
             }              }
             if ($entry ne '') {              if ($entry ne '') {
                 if (exists($queue_by_date{$timestamp})) {                  if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {
                     if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {                      push(@{$queue_by_date{$timestamp}},$entry);
                         push(@{$queue_by_date{$timestamp}},$entry);  
                     }  
                 } else {                  } else {
                     @{$queue_by_date{$timestamp}} = ($entry);                      $queue_by_date{$timestamp} = [$entry];
                 }                  }
             }              }
         }          }
         my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));          if (keys(%queue_by_date) > 0) {
         my $count = 0;              if ($context eq 'course') {
         foreach my $item (@sortedtimes) {                  $output .=  '<h3>'.&mt('Self-enrollment requests queued pending approval by a Coordinator').'</h3>';
             if (ref($queue_by_date{$item}) eq 'ARRAY') {              } elsif ($context eq 'pending') {
                 foreach my $request (sort(@{$queue_by_date{$item}})) {                  $output .= '<h3>'.&mt('Requests for official courses queued pending validation').'</h3>'.
                     my ($row,$approve,$reject,$showtime,$showsec,$namelink,                             '<p>'.&mt('Requests are validated against institutional data to confirm that the requestor is an instructor of record.').'<br />'.
                         $detailslink,$crstype);                             &mt('Validation is attempted when the request is submitted.').' '.&mt('If unvalidated, the request will be held in a queue.').' '.&mt('Validation of pending requests is automatically repeated daily.').'</p>';
                     $showtime = &Apache::lonlocal::locallocaltime($item);              } else {
                     if ($context eq 'course') {                  $output .=  '<h3>'.&mt('Course/Community requests queued pending approval by a Domain Coordinator').'</h3>';
                         my ($puname,$pudom,$pusec) = split(/:/,$request);              } 
                         $approve = $count.':'.$puname.':'.$pudom.':'.$pusec;              $output .= &build_queue_display($dom,$context,\%queue_by_date).
                         $reject = $puname.':'.$pudom;                         '<input type="hidden" name="queue" value="approval" />';
                         $showsec = $pusec;          } else {
                         if ($showsec eq '') {              $output .= '<div class="LC_info">';
                             $showsec = &mt('none');              if ($context eq 'course') {
                         }                  $output .= &mt('There are currently no enrollment requests awaiting approval.');
                         $namelink = &Apache::loncommon::aboutmewrapper(              } elsif ($context eq 'pending') {
                                     &Apache::loncommon::plainname($puname,$pudom),                  $output .= &mt('There are currently no requests for official courses awaiting validation.');
                                     $puname,$pudom);              } elsif ($context eq 'domain') {
                   $output .= &mt('There are currently no course or community requests awaiting approval.');
               }
               $output .= '</div>'; 
           }
           if ($context eq 'pending') {
               $output .= '<br /><input type="submit" name="validationcheck" value="'.
                          &mt('Validate').'" /><br />'."\n".
                          '<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>';
           } else {
               $output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />';
           }
           $output .= '</form>';
       } else {
           $output .= '<div class="LC_info">';
           if ($context eq 'course') {
               $output .= &mt('There are currently no enrollment requests awaiting approval.');
           } elsif ($context eq 'pending') {
               $output .= &mt('There are currently no requests for official courses awaiting validation.');
           } else {
               $output .= &mt('There are currently no course or community requests awaiting approval.');
           }
           $output .= '</div>';
       }
       return $output;
   }
   
   sub build_queue_display {
       my ($dom,$context,$queue) = @_;
       return unless (ref($queue) eq 'HASH');
       my %crstypes;
       my $output =  &Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_header_row();
       unless ($context eq 'pending') { 
           $output .= '<th>'.&mt('Action').'</th>';
       }
       $output .= '<th>'.&mt('Requestor').'</th>';
       if ($context eq 'course') {
           $output .= '<th>'.&mt('Section').'</th>'.
                      '<th>'.&mt('Date requested').'</th>';
       } elsif ($context eq 'pending' || $context eq 'stillpending') {
           $output .= '<th>'.&mt('Institutional code').'</th>'.
                      '<th>'.&mt('Date requested').'</th>'.
                      '<th>'.&mt('Details').'</th>';
       } else {
           %crstypes = &Apache::lonlocal::texthash (
                           official   => 'Official course',
                           unofficial => 'Unofficial course',
                           community  => 'Community',
                       );
           $output .= '<th>'.&mt('Type').'</th>'.
                      '<th>'.&mt('Date requested').'</th>'.
                      '<th>'.&mt('Details').'</th>';
       }
       $output .= &Apache::loncommon::end_data_table_header_row();
       my @sortedtimes = sort {$a <=> $b} (keys(%{$queue}));
       my $count = 0;
       foreach my $item (@sortedtimes) {
           if (ref($queue->{$item}) eq 'ARRAY') {
               foreach my $request (sort(@{$queue->{$item}})) {
                   my ($row,$approve,$reject,$showtime,$showsec,$namelink,
                       $detailslink,$crstype,$instcode);
                   $showtime = &Apache::lonlocal::locallocaltime($item);
                   if ($context eq 'course') {
                       my ($puname,$pudom,$pusec) = split(/:/,$request);
                       $approve = $count.':'.$puname.':'.$pudom.':'.$pusec;
                       $reject = $puname.':'.$pudom;
                       $showsec = $pusec;
                       if ($showsec eq '') {
                           $showsec = &mt('none');
                       }
                       $namelink = &Apache::loncommon::aboutmewrapper(
                                   &Apache::loncommon::plainname($puname,$pudom),
                                   $puname,$pudom);
                   } else {
                       my ($cnum,$ownername,$ownerdom,$type,$cdesc);
                       my $queue = 'approval'; 
                       if ($context eq 'pending' || $context eq 'stillpending') {
                           ($cnum,$ownername,$ownerdom,$instcode,$cdesc)=split(/:/,$request,5);
                           $queue = 'pending';                        
                     } else {                      } else {
                         my ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5);                          ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5);
                         $detailslink='<a href="javascript:opencoursereqdisplay('.  
                                       "'$dom','$cnum'".');">'.$cdesc.'</a>';  
                         $crstype = $type;                          $crstype = $type;
                         if (defined($crstypes{$type})) {                          if (defined($crstypes{$type})) {
                             $crstype = $crstypes{$type};                              $crstype = $crstypes{$type};
                         }                          }
                         $approve = $count.':'.$cnum;  
                         $reject = $cnum;  
                         $namelink = &Apache::loncommon::aboutmewrapper(  
                                     &Apache::loncommon::plainname($ownername,$ownerdom),  
                                     $ownername,$ownerdom);  
                     }                      }
                       $detailslink='<a href="javascript:opencoursereqdisplay('.
                                     "'$dom','$cnum','$queue'".');">'.$cdesc.'</a>';
                       $approve = $count.':'.$cnum;
                       $reject = $cnum;
                       $namelink = &Apache::loncommon::aboutmewrapper(
                                   &Apache::loncommon::plainname($ownername,$ownerdom),
                                   $ownername,$ownerdom);
                   }
                   unless ($context eq 'pending') {
                     $row = '<td><span class="LC_nobreak"><label>'.                      $row = '<td><span class="LC_nobreak"><label>'.
                            '<input type="checkbox" value="'.$approve.'" name="approvereq" />'.&mt('Approve').'</label></span><br />'.                             '<input type="checkbox" value="'.$approve.'" name="approvereq" />'.&mt('Approve').'</label></span><br />'.
                            '<span class="LC_nobreak"><label>'.                             '<span class="LC_nobreak"><label>'.
                            '<input type="checkbox" value="'.$reject.'" name="rejectreq" />'.&mt('Reject').'</label></span><br /></td>'.                             '<input type="checkbox" value="'.$reject.'" name="rejectreq" />'.&mt('Reject').'</label></span><br /></td>';
                            '<td>'.$namelink.'</td>'."\n";                  }
                     if ($context eq 'course') {                  $row .= '<td>'.$namelink.'</td>'."\n";
                         $row .= '<td>'.$showsec.'</td>'."\n".                  if ($context eq 'course') {
                                 '<td>'.$showtime.'</td>'."\n";                      $row .= '<td>'.$showsec.'</td>'."\n".
                     } else {                               '<td>'.$showtime.'</td>'."\n";
                         $row .= '<td>'.$crstype.'</td>'."\n".                  } else { 
                                 '<td>'.$showtime.'</td>'."\n".                      if ($context eq 'pending' || $context eq 'stillpending') {
                                 '<td>'.$detailslink.'</td>'."\n";                          $row .= '<td>'.$instcode.'</td>'."\n";
                     }                      } else {
                     $output .= &Apache::loncommon::start_data_table_row()."\n".                          $row .= '<td>'.$crstype.'</td>'."\n";
                                $row.                      }
                                &Apache::loncommon::end_data_table_row()."\n";                      $row .= '<td>'.$showtime.'</td>'."\n".
                     $count ++;                              '<td>'.$detailslink.'</td>'."\n";
                 }                  }
                   $output .= &Apache::loncommon::start_data_table_row()."\n".
                              $row.
                              &Apache::loncommon::end_data_table_row()."\n";
                   $count ++;
             }              }
         }          }
         $output .= &Apache::loncommon::end_data_table().  
                    '<input type="submit" name="processqueue" value="'.&mt('Save').  
                    '" /></form>';  
     } else {  
         if ($context eq 'course') {  
             $output .= &mt('There are currently no enrollment requests.');  
         } else {  
             $output .= &mt('There are currently no course requests awaiting approval.');  
         }  
     }      }
       $output .= &Apache::loncommon::end_data_table();
     return $output;      return $output;
 }  }
   
 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,$cid,$hostname,$protocol,          $stucounts,$idx,$classlist,%requesthash,$cid,$domdesc,$now,
         $domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary,          $sender,$approvedmsg,$rejectedmsg,$beneficiary,
         @existing,@missingreq,@invalidusers,@limitexceeded,@completed,          @existing,@missingreq,@invalidusers,@limitexceeded,@completed,
         @processing_errors,@warn_approves,@warn_rejects,@approvals,          @processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,
         @rejections,@rejectionerrors,@nopermissions,%courseroles,          @rejections,@rejectionerrors,@nopermissions,%courseroles,
         %communityroles,%domdefs);          %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,$firsturl);
     @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 355  sub update_request_queue { Line 469  sub update_request_queue {
         $namespace = 'selfenrollrequests';          $namespace = 'selfenrollrequests';
         $beneficiary = 'enroller';          $beneficiary = 'enroller';
         $cid = $env{'request.course.id'};          $cid = $env{'request.course.id'};
         my $chome = &Apache::lonnet::homeserver($cnum,$cdom);          $crstype = lc(&Apache::loncommon::course_type());
         $hostname = &Apache::lonnet::hostname($chome);          $firsturl = &course_portal_url($cnum,$cdom);
         $protocol = $Apache::lonnet::protocol{$chome};  
         $protocol = 'http' if ($protocol ne 'https');  
         %requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);          %requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);
         $access_start =  $env{'course.'.$cid.'.internal.selfenroll_start_access'};          $access_start =  $env{'course.'.$cid.'.internal.selfenroll_start_access'};
         $access_end =  $env{'course.'.$cid.'.internal.selfenroll_end_access'};          $access_end =  $env{'course.'.$cid.'.internal.selfenroll_end_access'};
Line 370  sub update_request_queue { Line 482  sub update_request_queue {
                             mt => 'Your request for enrollment has been approved.',                              mt => 'Your request for enrollment has been approved.',
                         },                          },
                         {                          {
                             mt   => 'Visit [_1], to log-in and access the course',                              mt   => 'Visit [_1] to log-in and access the course',
                             args => [$protocol.'://'.$hostname],                              args => [$firsturl],
                         }];                          }];
         $rejectedmsg =  [{          $rejectedmsg =  [{
                             mt => 'Your request for enrollment has not been approved.',                              mt => 'Your request for enrollment has not been approved.',
Line 380  sub update_request_queue { Line 492  sub update_request_queue {
         $domdesc = &Apache::lonnet::domain($cdom);          $domdesc = &Apache::lonnet::domain($cdom);
         $namespace = 'courserequestqueue';          $namespace = 'courserequestqueue';
         $beneficiary = 'courserequestor';          $beneficiary = 'courserequestor';
         %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_approval');          $queue = 'approval';
         my $chome = &Apache::lonnet::domain($cdom,'primary');          if ($env{'form.queue'} eq 'pending') {
         $hostname = &Apache::lonnet::hostname($chome);              $queue = 'pending';
         $protocol = $Apache::lonnet::protocol{$chome};          }
         $protocol = 'http' if ($protocol ne 'https');          %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_'.$queue);
         my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom);          my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom);
         if (ref($domconfig{'requestcourses'}) eq 'HASH') {          if (ref($domconfig{'requestcourses'}) eq 'HASH') {
             if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') {               if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') { 
                 $notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'};                  $notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'};
             }              }
         }          }
         $approvedmsg = [{          $approvalmsg{'course'} = 
                           [{
                             mt => 'Your course request has been approved.',                              mt => 'Your course request has been approved.',
                         },                          },
                         {                          {
                             mt   => 'Visit [_1], to log-in and access the course',                              mt   => 'Visit [_1] to log-in and access the course',
                             args => [$protocol.'://'.$hostname],                              args => [],
                         }];                          }];
         $rejectedmsg =  [{          $rejectionmsg{'course'} =
                           [{
                             mt => 'Your course request has not been approved.',                              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 => [],
                           }];
   
           $rejectionmsg{'community'} = 
                           [{
                               mt => 'Your community request has not been approved.',
                           }];
   
         %domdefs = &Apache::lonnet::get_domain_defaults($cdom);          %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
         my @roles = &Apache::lonuserutils::roles_by_context('course');          my @roles = &Apache::lonuserutils::roles_by_context('course');
         foreach my $role (@roles) {          foreach my $role (@roles) {
Line 417  sub update_request_queue { Line 546  sub update_request_queue {
             my $uhome = &Apache::lonnet::homeserver($uname,$udom);              my $uhome = &Apache::lonnet::homeserver($uname,$udom);
             if ($uhome ne 'no_host') {              if ($uhome ne 'no_host') {
                 if (exists($requesthash{$uname.':'.$udom})) {                  if (exists($requesthash{$uname.':'.$udom})) {
   
                     if (exists($classlist->{$uname.':'.$udom})) {                      if (exists($classlist->{$uname.':'.$udom})) {
                         if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {                          if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') {
                             if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') ||                              if (($classlist->{$uname.':'.$udom}->[$idx->{'status'}] eq 'Active') ||
Line 450  sub update_request_queue { Line 578  sub update_request_queue {
                         $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 = (
                             $cdom.'_'.$cnum => {                              $cdom.'_'.$cnum => {
                                 timestamp   => $now,                                  timestamp   => $now,
Line 473  sub update_request_queue { Line 602  sub update_request_queue {
             }              }
         } else {          } else {
             my ($num,$cnum) = split(':',$item);              my ($num,$cnum) = split(':',$item);
             if (ref($requesthash{$cnum.'_approval'}) eq 'HASH') {              if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {
                 if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {                  if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
                     my $ownername = $requesthash{$cnum.'_approval'}{'ownername'};                      my $ownername = $requesthash{$cnum.'_'.$queue}{'ownername'};
                     my $ownerdom = $requesthash{$cnum.'_approval'}{'ownerdom'};                      my $ownerdom = $requesthash{$cnum.'_'.$queue}{'ownerdom'};
                     my $crstype = $requesthash{$cnum.'_approval'}{'crstype'};                      $crstype = $requesthash{$cnum.'_'.$queue}{'crstype'};
                     my $coursedesc = $requesthash{$cnum.'_approval'}{'description'};                      my $coursedesc = $requesthash{$cnum.'_'.$queue}{'description'};
                     my $longroles = \%courseroles;                      my $longroles = \%courseroles;
                     if ($crstype eq 'community') {                      if ($crstype eq 'community') {
                         $longroles = \%communityroles;                          $longroles = \%communityroles;
Line 504  sub update_request_queue { Line 633  sub update_request_queue {
                             &Apache::lonnet::restore($requestkey,'courserequests',                              &Apache::lonnet::restore($requestkey,'courserequests',
                                                      $ownerdom,$ownername);                                                       $ownerdom,$ownername);
                         if ((ref($history{'details'}) eq 'HASH') &&                           if ((ref($history{'details'}) eq 'HASH') && 
                             ($history{'disposition'} eq 'approval')) {                              ($history{'disposition'} eq $queue)) {
                             my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);                              my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);
                             my $result = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,                              my $result = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,
                                                       \$newusermsg,\$addresult,\$enrollcount,                                                        \$newusermsg,\$addresult,\$enrollcount,
                                                       \$response,\$keysmsg,\%domdefs,$longroles);                                                        \$response,\$keysmsg,\%domdefs,$longroles);
                             if ($result eq 'created') {                              if ($result eq 'created') {
                                   if ($crstype eq 'community') {
                                       $approvedmsg = $approvalmsg{'community'};
                                   } else {
                                       $approvedmsg = $approvalmsg{'course'};
                                   }
                                   my $firsturl = &course_portal_url($cnum,$cdom);
                                   if (ref($approvedmsg) eq 'ARRAY') {
                                       if (ref($approvedmsg->[1]) eq 'HASH') {
                                           $approvedmsg->[1]->{'args'} = [$firsturl];
                                       }
                                   }
                                 push(@completed,$cnum);                                  push(@completed,$cnum);
                                 &send_selfserve_notification($ownername.':'.$ownerdom,$approvedmsg,                                  
                                               $cid,$coursedesc,$now,$beneficiary,$sender);                                  unless (&Apache::lonnet::del_dom($namespace,[$cnum.'_'.$queue],$cdom) eq 'ok') {
                                       push(@warn_dels,$cnum);
                                   }
                                   &send_selfserve_notification($ownername.':'.$ownerdom,
                                                 $approvedmsg,$cid,$coursedesc,$now,
                                                 $beneficiary,$sender,undef,undef,$crstype);
                                 my %reqhash = (                                  my %reqhash = (
                                                 reqtime     => $history{'reqtime'},                                                  reqtime     => $history{'reqtime'},
                                                 crstype     => $history{'crstype'},                                                  crstype     => $history{'crstype'},
Line 558  sub update_request_queue { Line 703  sub update_request_queue {
     }      }
     my @changes = (@completed,@rejections);      my @changes = (@completed,@rejections);
     if ($context eq 'domain') {      if ($context eq 'domain') {
         @changes = map {$_.'_approval'} (@changes);          @changes = map {$_.'_'.$queue} (@changes);
     }      }
     if (@rejections) {      if (@rejections) {
         foreach my $item (@rejections) {          foreach my $item (@rejections) {
             if ($context eq 'course') {              if ($context eq 'course') {
                 my $user = $item;                  my $user = $item;
                 &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,                  &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,
                                              $now,$beneficiary,$sender);                                               $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 581  sub update_request_queue { Line 727  sub update_request_queue {
                 }                  }
             } else {              } else {
                 my $cnum = $item;                  my $cnum = $item;
                 if (ref($requesthash{$cnum.'_approval'}) eq 'HASH') {                  if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {
                     if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {                      if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
                         my $requestkey = $cdom.'_'.$cnum;                          my $requestkey = $cdom.'_'.$cnum;
                         my $ownername = $requesthash{$cnum.'_approval'}{'ownername'};                          my $ownername = $requesthash{$cnum.'_'.$queue}{'ownername'};
                         my $ownerdom = $requesthash{$cnum.'_approval'}{'ownerdom'};                          my $ownerdom = $requesthash{$cnum.'_'.$queue}{'ownerdom'};
                         my $coursedesc = $requesthash{$cnum.'_approval'}{'description'};                          my $coursedesc = $requesthash{$cnum.'_'.$queue}{'description'};
                           $crstype = $requesthash{$cnum.'_'.$queue}{'crstype'};
                           if ($crstype eq 'community') {
                               $rejectedmsg = $rejectionmsg{'community'};
                           } else {
                               $rejectedmsg = $rejectionmsg{'course'};
                           }
                         &send_selfserve_notification($ownername.':'.$ownerdom,$rejectedmsg,                          &send_selfserve_notification($ownername.':'.$ownerdom,$rejectedmsg,
                                                      $cid,$coursedesc,$now,$beneficiary,                                                       $cid,$coursedesc,$now,$beneficiary,
                                                      $sender);                                                       $sender,undef,undef,$crstype);
                         my %history =                          my %history =
                             &Apache::lonnet::restore($requestkey,'courserequests',                              &Apache::lonnet::restore($requestkey,'courserequests',
                                                      $ownerdom,$ownername);                                                       $ownerdom,$ownername);
                         if ((ref($history{'details'}) eq 'HASH') &&                          if ((ref($history{'details'}) eq 'HASH') &&
                             ($history{'disposition'} eq 'approval')) {                              ($history{'disposition'} eq $queue)) {
                             my %reqhash = (                              my %reqhash = (
                                             reqtime     => $history{'reqtime'},                                              reqtime     => $history{'reqtime'},
                                             crstype     => $history{'crstype'},                                              crstype     => $history{'crstype'},
Line 619  sub update_request_queue { Line 771  sub update_request_queue {
                             } else {                              } else {
                                 push(@warn_rejects,$cnum);                                  push(@warn_rejects,$cnum);
                             }                              }
                               unless (&Apache::lonnet::del_dom($namespace,[$cnum.'_'.$queue],$cdom) eq 'ok') {
                                   push(@warn_dels,$cnum);
                               }
                         } else {                          } else {
                             push(@warn_rejects,$cnum);                              push(@warn_rejects,$cnum);
                         }                          }
Line 646  sub update_request_queue { Line 801  sub update_request_queue {
                 $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 (@completed) {                  if (@completed) {
                     $approvedlist = join("\n",@completed);                      $approvedlist = join("\n",@completed);
                     $output .= '<p>'.&mt('The following were enrolled in the course:').'<ul>';                      if ($crstype eq 'community') {
                           $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) {                      foreach my $user (@completed) {
                         my ($uname,$udom) = split(/:/,$user);                          my ($uname,$udom) = split(/:/,$user);
                         my $userlink =                          my $userlink =
Line 666  sub update_request_queue { Line 825  sub update_request_queue {
                 if ($notifylist ne '') {                  if ($notifylist ne '') {
                     &send_selfserve_notification($notifylist,$chgmsg,$cid,$coursedesc,                      &send_selfserve_notification($notifylist,$chgmsg,$cid,$coursedesc,
                                                  $now,'coursemanagers',$sender,                                                   $now,'coursemanagers',$sender,
                                                  $approvedlist,$rejectedlist);                                                   $approvedlist,$rejectedlist,$crstype);
                 }                  }
             } else {              } else {
                 $chgmsg = "'Action was taken on the following course requests by [_1].',$namelink";                  $chgmsg = "'Action was taken on the following course and community requests by [_1].',$namelink";
                 if (@completed) {                  if (@completed) {
                     $approvedlist = join("\n",@completed);                      $approvedlist = join("\n",@completed);
                     $output .= '<p>'.&mt('The following courses were created:').'<ul>';                      $output .= '<p>'.&mt('The following courses/communities were created:').'<ul>';
                     foreach my $cnum (@completed) {                      foreach my $cnum (@completed) {
                         my $showcourse;                          my $showcourse;
                         if (ref($requesthash{$cnum.'_approval'})) {                          if (ref($requesthash{$cnum.'_'.$queue})) {
                             $showcourse = $requesthash{$cnum.'_approval'}{'description'};                              $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
                         } else {                          } else {
                             $showcourse = $cnum;                              $showcourse = $cnum;
                         }                          }
Line 691  sub update_request_queue { Line 850  sub update_request_queue {
                     $output .= '<p>'.&mt('The following requests were rejected:').'<ul>';                      $output .= '<p>'.&mt('The following requests were rejected:').'<ul>';
                     foreach my $cnum (@rejections) {                      foreach my $cnum (@rejections) {
                         my $showcourse;                          my $showcourse;
                         if (ref($requesthash{$cnum.'_approval'})) {                          if (ref($requesthash{$cnum.'_'.$queue})) {
                             $showcourse = $requesthash{$cnum.'_approval'}{'description'};                              $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
                         } else {                          } else {
                             $showcourse = $cnum;                              $showcourse = $cnum;
                         }                          }
Line 703  sub update_request_queue { Line 862  sub update_request_queue {
                 if ($notifylist ne '') {                  if ($notifylist ne '') {
                     &send_selfserve_notification($notifylist,$chgmsg,$cid,$domdesc,                      &send_selfserve_notification($notifylist,$chgmsg,$cid,$domdesc,
                                                  $now,'domainmanagers',$sender,                                                   $now,'domainmanagers',$sender,
                                                  $approvedlist,$rejectedlist);                                                   $approvedlist,$rejectedlist,$crstype);
                 }                  }
             }              }
         }          }
Line 716  sub update_request_queue { Line 875  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>';              $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) {              foreach my $cnum (@existing) {
                 my $showcourse;                  my $showcourse;
                 my %coursehash = &Apache::lonnet::coursedescription($cdom.'/'.$cnum);                  my %coursehash = &Apache::lonnet::coursedescription($cdom.'/'.$cnum);
Line 738  sub update_request_queue { Line 897  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } else {          } else {
             $output .= '<p>'.&mt('The following course creation requests were ignored because the request is no longer in the course request queue:').'<ul>';              $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) {              foreach my $cnum (@missingreq) {
                 $output .= '<li>'.$cnum.'</li>';                  $output .= '<li>'.$cnum.'</li>';
             }              }
Line 765  sub update_request_queue { Line 924  sub update_request_queue {
         }          }
     }      }
     if (@nopermissions) {      if (@nopermissions) {
         $output .= '<p>'.&mt('The following course creation requests could not be processed because the course owner does hot have rights to create this type of course:').'<ul>';          $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) {          foreach my $cnum (@nopermissions) {
             my $showcourse;              my $showcourse;
             if (ref($requesthash{$cnum.'_approval'})) {              if (ref($requesthash{$cnum.'_'.$queue})) {
                 $showcourse = $requesthash{$cnum.'_approval'}{'description'};                  $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
             } else {              } else {
                 $showcourse = $cnum;                  $showcourse = $cnum;
             }              }
Line 785  sub update_request_queue { Line 944  sub update_request_queue {
             }              }
             $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>';              $output .= '<p>'.&mt('The following course/community creation requests could not be processed because an error occurred:').'<ul>';
             foreach my $cnum (@processing_errors) {              foreach my $cnum (@processing_errors) {
                 my $showcourse;                  my $showcourse;
                 if (ref($requesthash{$cnum.'_approval'})) {                  if (ref($requesthash{$cnum.'_'.$queue})) {
                     $showcourse = $requesthash{$cnum.'_approval'}{'description'};                      $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
                 } else {                  } else {
                     $showcourse = $cnum;                      $showcourse = $cnum;
                 }                  }
Line 799  sub update_request_queue { Line 958  sub update_request_queue {
         }          }
     }      }
     if (@rejectionerrors) {      if (@rejectionerrors) {
         $output .= '<p>'.&mt('The following course creation request rejections could not be fully processed because an error occurred:').'<ul>';          $output .= '<p>'.&mt('The following course/community creation request rejections could not be fully processed because an error occurred:').'<ul>';
         foreach my $cnum (@rejectionerrors) {          foreach my $cnum (@rejectionerrors) {
             my $showcourse;              my $showcourse;
             if (ref($requesthash{$cnum.'_approval'})) {              if (ref($requesthash{$cnum.'_'.$queue})) {
                 $showcourse = $requesthash{$cnum.'_approval'}{'description'};                  $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
             } else {              } else {
                 $showcourse = $cnum;                  $showcourse = $cnum;
             }              }
Line 819  sub update_request_queue { Line 978  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>';              $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) {              foreach my $cnum (@warn_approves,@warn_rejects) {
                 my $showcourse;                  my $showcourse;
                 if (ref($requesthash{$cnum.'_approval'})) {                  if (ref($requesthash{$cnum.'_'.$queue})) {
                     $showcourse = $requesthash{$cnum.'_approval'}{'description'};                      $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
                 } else {                  } else {
                     $showcourse = $cnum;                      $showcourse = $cnum;
                 }                  }
Line 832  sub update_request_queue { Line 991  sub update_request_queue {
             $output .= '</ul></p>';              $output .= '</ul></p>';
         }          }
     }      }
       if (@warn_dels) {
           $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests for the following from the pending queue:").'<ul>';
           foreach my $cnum (@warn_dels) {
               my $showcourse;
               if (ref($requesthash{$cnum.'_'.$queue})) {
                   $showcourse = $requesthash{$cnum.'_'.$queue}{'description'};
               } else {
                   $showcourse = $cnum;
               }
               $output .= '<li>'.$showcourse.'</li>';
           }
           $output .= '</ul></p>';
       }
     return $output;      return $output;
 }  }
   
   sub course_portal_url {
       my ($cnum,$cdom) = @_;
       my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
       my $hostname = &Apache::lonnet::hostname($chome);
       my $protocol = $Apache::lonnet::protocol{$chome};
       $protocol = 'http' if ($protocol ne 'https');
       my %domdefaults = &Apache::lonnet::get_domain_defaults($cdom);
       my $firsturl;
       if ($domdefaults{'portal_def'}) {
           $firsturl = $domdefaults{'portal_def'};
       } else {
           $firsturl = $protocol.'://'.$hostname;
       }
       return $firsturl;
   }
   
 sub get_student_counts {  sub get_student_counts {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum) = @_;
     my (%idx,%stucounts);      my (%idx,%stucounts);
Line 869  sub course_creation { Line 1057  sub course_creation {
         $ownername = $env{'user.name'};          $ownername = $env{'user.name'};
         $ownerdom  = $env{'user.domain'};          $ownerdom  = $env{'user.domain'};
     }      }
     my $type = 'Course';  
     if ($crstype eq 'community') {  
         $type = 'Community';  
     }  
     my $owneremail;      my $owneremail;
     my %emails = &Apache::loncommon::getemails($ownername,$ownerdom);      my %emails = &Apache::loncommon::getemails($ownername,$ownerdom);
     foreach my $email ('permanentemail','critnotification','notification') {      foreach my $email ('permanentemail','critnotification','notification') {
Line 881  sub course_creation { Line 1065  sub course_creation {
     }      }
     my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs);      my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs);
     my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',      my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',
                   \%reqdetails,$longroles,\$logmsg,\$newusermsg,\$addresult,                    \%reqdetails,$longroles,$logmsg,$newusermsg,$addresult,
                   \$enrollcount,\$output,\$keysmsg,$ownerdom,$ownername,$cnum,$crstype);                    $enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype);
     if ($cid eq "/$dom/$cnum") {      if ($cid eq "/$dom/$cnum") {
         $result = 'created';          $result = 'created';
     } else {      } else {
Line 896  sub build_batchcreatehash { Line 1080  sub build_batchcreatehash {
     my %batchhash;      my %batchhash;
     my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};      my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};
     if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {      if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {
         my $emailenc = &Apache::lonnet::escape($owneremail);          my $emailenc = &escape($owneremail);
         my $owner = $details->{'owner'}.':'.$details->{'domain'};          my $owner = $details->{'owner'}.':'.$details->{'domain'};
         foreach my $item (@items) {          foreach my $item (@items) {
             $batchhash{$item} = $details->{$item};              $batchhash{$item} = $details->{$item};
Line 954  sub build_batchcreatehash { Line 1138  sub build_batchcreatehash {
 }  }
   
 sub can_clone_course {  sub can_clone_course {
     my ($uname,$udom,$clonecrs,$clonedom) = @_;      my ($uname,$udom,$clonecrs,$clonedom,$crstype) = @_;
     my $canclone;      my $canclone;
       my $ccrole = 'cc';
       if ($crstype eq 'community') {
           $ccrole = 'co';
       }
     my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],      my %roleshash = &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],
                                                   ['cc'],[$clonedom]);                                                    [$ccrole],[$clonedom]);
     if (exists($roleshash{$clonedom.':'.$clonecrs.':cc'})) {      if (exists($roleshash{$clonecrs.':'.$clonedom.':'.$ccrole})) {
         $canclone = 1;          $canclone = 1;
     } else {      } else {
         my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners'));          my %courseenv = &Apache::lonnet::userenvironment($clonedom,$clonecrs,('cloners'));
Line 975  sub can_clone_course { Line 1163  sub can_clone_course {
                 $canclone = 1;                  $canclone = 1;
             }              }
         }          }
           unless ($canclone) {
               if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) {
                   $canclone = 1;
               }
           }
     }      }
     return $canclone;      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)) {
           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'};
                       my $rolename = &Apache::lonnet::plaintext('st',$courseinfo{'type'},$crs);
                       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;
   }
   
   sub update_coursereq_status {
       my ($reqhash,$dom,$cnum,$reqstatus,$context,$udom,$uname) = @_;
       my ($storeresult,$statusresult,$output);
       my $requestkey = $dom.'_'.$cnum;
       if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
           $storeresult = &Apache::lonnet::store_userdata($reqhash,$requestkey,
                                                          'courserequests',$udom,$uname);
           if ($storeresult eq 'ok') {
               my %status = (
                                'status:'.$dom.':'.$cnum => $reqstatus,
                            );
               $statusresult = &Apache::lonnet::put('courserequests',\%status,$udom,$uname);
           }
       } else {
           $storeresult = 'error: invalid requestkey format';
       }
       if ($storeresult ne 'ok') {
           $output = &mt('An error occurred saving a record of the details of your request: [_1].',$storeresult);
           if ($context eq 'domain') {
               $output .= "\n";  
           } else {
               $output =  '<span class="LC_warning">'.$output.'</span><br />';
           }
           &Apache::lonnet::logthis("Error saving course request - $requestkey for $uname:$udom - $storeresult");
       } elsif ($statusresult ne 'ok') {
           $output = &mt('An error occurred saving a record of the status of your request: [_1].',$statusresult);
           if ($context eq 'domain') {
               $output .= "\n";
           } else {
               $output = '<span class="LC_warning">'.$output.'</span><br />';
           }
           &Apache::lonnet::logthis("Error saving course request status for $requestkey (for $uname:$udom) - $statusresult");
       }
       return ($storeresult,$output);
   }
   
   sub process_official_reqs {
       my ($context,$dom,$dcname,$dcdom) = @_;
       my $reqsnamespace = 'courserequestqueue';
       my %requesthash =
           &Apache::lonnet::dump_dom($reqsnamespace,$dom,'_pending');
       my (%newcids,%longroles,%stillpending);
       my @courseroles = ('cc','in','ta','ep','ad','st');
       foreach my $role (@courseroles) {
           $longroles{$role}=&Apache::lonnet::plaintext($role);
       }
       my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
       my ($output,$linefeed);
       if ($context eq 'auto') {
           $linefeed = "\n";
       } else {
           $linefeed = '<br />'."\n";
       }
       foreach my $key (keys(%requesthash)) {
           my ($cnum,$status) = split('_',$key);
           next if (&Apache::lonnet::homeserver($cnum,$dom) ne 'no_host');
           if (ref($requesthash{$key}) eq 'HASH') {
               my $ownername = $requesthash{$key}{'ownername'};
               my $ownerdom = $requesthash{$key}{'ownerdom'};
               next if (&Apache::lonnet::homeserver($ownername,$ownerdom) eq 'no_host');
               my $inststatus;
               my %userenv =
                   &Apache::lonnet::get('environment',['inststatus'],
                                        $ownerdom,$ownername);
               my ($tmp) = keys(%userenv);
               if ($tmp !~ /^(con_lost|error|no_such_host)/i) {
                   $inststatus = $userenv{'inststatus'};
               } else {
                   undef(%userenv);
               }
               my $reqkey = $dom.'_'.$cnum;
               my %history = &Apache::lonnet::restore($reqkey,'courserequests',
                                                      $ownerdom,$ownername);
               if (ref($history{'details'}) eq 'HASH') {
                   my $instcode = $history{'details'}{'instcode'};
                   my $crstype = $history{'details'}{'crstype'};
                   my $reqtime = $history{'details'}{'reqtime'};
                   my $cdescr = $history{'details'}{'cdescr'};
                   my @currsec;
                   my $sections = $history{'details'}{'sections'};
                   if (ref($sections) eq 'HASH') {
                       foreach my $i (sort(keys(%{$sections}))) {
                           if (ref($sections->{$i}) eq 'HASH') {
                               my $sec = $sections->{$i}{'inst'};
                               if (!grep(/^\Q$sec\E$/,@currsec)) {
                                   push(@currsec,$sec);
                               }
                           }
                       }
                   }
                   my $instseclist = join(',',@currsec);
                   my ($validationchk,$disposition,$reqstatus,$message,
                       $validation,$validationerror);
                   $validationchk =
                       &Apache::lonnet::auto_courserequest_validation($dom,
                           $ownername.':'.$ownerdom,$crstype,$inststatus,
                           $instcode,$instseclist);
                   if ($validationchk =~ /:/) {
                       ($validation,$message) = split(':',$validationchk);
                   } else {
                       $validation = $validationchk;
                   }
                   if ($validation =~ /^error(.*)$/) {
                       $disposition = 'approval';
                       $validationerror = $1;
                   } else {
                       $disposition = $validation;
                   }
                   $reqstatus = $disposition;
                   if ($disposition eq 'process') {
                       my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);
                       my $result = &course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles);
                       if ($result eq 'created') {
                           $disposition = 'created';
                           $reqstatus = 'created';
                           my $cid = $dom.'_'.$cnum;
                           push(@{$newcids{$instcode}},$cid);
                           if ($dcname && $dcdom) {
                               my $firsturl = &course_portal_url($cnum,$dom);
                               my $beneficiary = 'pendingrequestor';
                               my $now = time;
                               my $owner = $ownername.':'.$ownerdom;
                               my $approvedmsg =
                                   [{
                                       mt => 'Your requested course: [_1], (queued pending validation) has now been created.',
                                       args => [$cdescr],
                                    },
                                    {
                                       mt   => 'Visit [_1] to log-in and access the course.',
                                       args => [$firsturl],
                                    },
                                    {
                                       mt => 'If currently logged-in to LON-CAPA, log-out and log-in again to select your new course role.'
                                    }];
                               my $sender = $dcname.':'.$dcdom;
                               &send_selfserve_notification($owner,$approvedmsg,
                                                            $cid,$cdescr,$now,
                                                            $beneficiary,$sender,
                                                            undef,undef,$crstype);
                           }
                       }
                   } elsif ($disposition eq 'rejected') {
                       $output .= &mt('Queued course request for [_1] submitted by [_2] with status [_3] rejected when validating.',$instcode,$ownername.':'.$ownerdom,$inststatus).$linefeed;
                   } elsif ($disposition eq 'approval') {
                       $output .= &mt('Queued course request for [_1] submitted by [_2] with status [_3] switched to "approval by DC" because of validation error: [_4].',$instcode,$ownername.':'.$ownerdom,$inststatus,$validationerror).$linefeed;
   
                       my $requestid = $cnum.'_'.$disposition;
                       my $request = {
                               $requestid => {
                                               timestamp   => $reqtime,
                                               crstype     => $crstype,
                                               ownername   => $ownername,
                                               ownerdom    => $ownerdom,
                                               description => $cdescr,
                                             },
                             };
                       my $putresult = &Apache::lonnet::newput_dom('courserequestqueue',$request,$dom);
                       unless ($putresult eq 'ok') {
                           $output .= &mt("An error occurred saving the modified course request for [_1] submitted by [_2] in the domain's courserequestqueue.db.",$instcode,$ownername.':'.$ownerdom).$linefeed;
                       }
                   } elsif ($disposition eq 'pending') {
                       my $instcode = $requesthash{$key}{'instcode'};
                       my $description = $requesthash{$key}{'description'};
                       my $timestamp = $requesthash{$key}{'timestamp'};
                       my $entry = $cnum.':'.$ownername.':'.$ownerdom.':'.
                                   $instcode.':'.$description;
                       if (ref($stillpending{$timestamp}) eq 'ARRAY') {
                           push(@{$stillpending{$timestamp}},$entry);
                       } else {
                           $stillpending{$timestamp} = [$entry];
                       }
                   }
                   unless ($disposition eq 'pending') {
                       my ($statusresult,$output) =
                           &update_coursereq_status(\%requesthash,$dom,$cnum,
                                                    $reqstatus,'domain',$ownerdom,
                                                    $ownername);
                       unless (&Apache::lonnet::del_dom($reqsnamespace,[$cnum.'_pending'],$dom) eq 'ok') {
                           $output .= &mt('An error occurred when removing the request for [_1] submitted by [_2] from the pending queue.',$instcode,$ownername.':'.$ownerdom).$linefeed;
                       }
                   }
               }
           }
       }
       foreach my $key (sort(keys(%newcids))) {
           if (ref($newcids{$key}) eq 'ARRAY') {
               $output .= "created course from queued request: $key - ".join(', ',@{$newcids{$key}}).$linefeed;
               my $newcourse = &LONCAPA::escape($key.':'.$newcids{$key});
           }
       }
       unless ($context eq 'auto') {
           if (keys(%stillpending) > 0) {
               $output .= '<form method="post" name="changequeue" action="/adm/createcourse" />'."\n".
                          '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".
                          '<input type="hidden" name="phase" value="requestchange" />'.
                          '<p>'.&mt('For the following requests, the requestor could [_1]not[_2] be validated as official course personnel, so the request remains in the pending queue.','<b>','</b>').'<br />'.&mt('Requests may be left in the queue, or you can manually approve or reject them.').'</p>'.
                          &build_queue_display($dom,'stillpending',\%stillpending).
                          '<br /><input type="hidden" name="queue" value="pending" />'."\n".
                          '<input type="submit" name="processqueue" value="'.&mt('Save').'" />'.
                          '</form>';
           }
       }
       return $output;
   }
   
 1;  1;
Removed from v.1.8  
changed lines
  Added in v.1.28

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