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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.40 and 1.55

version 1.40, 2013/12/25 20:43:46 version 1.55, 2016/08/25 22:33:03
Line 90  use Apache::loncommon; Line 90  use Apache::loncommon;
 use Apache::lonmsg;  use Apache::lonmsg;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonuserutils;  use Apache::lonuserutils;
   use LONCAPA::batchcreatecourse;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
 sub send_selfserve_notification {  sub send_selfserve_notification {
Line 116  sub send_selfserve_notification { Line 117  sub send_selfserve_notification {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
         }          }
     } elsif ($context eq 'authormanagers') {      } elsif ($context eq 'authormanagers') {
         $rawsubj = 'Authoring space requests reviewed';          $rawsubj = 'Authoring Space requests reviewed';
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => 'Authoring requests in the following domain: "[_1]" have been reviewed.',                        mt  => 'Authoring requests in the following domain: "[_1]" have been reviewed.',
                       args => ["\n$contextdesc"],                        args => ["\n$contextdesc"],
Line 124  sub send_selfserve_notification { Line 125  sub send_selfserve_notification {
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
         }          }
       } elsif ($context eq 'usernamemanagers') {
           $rawsubj = 'LON-CAPA account requests reviewed';
           push(@rawmsg,{
                         mt  => 'Account requests in the following domain: "[_1]" have been reviewed.',
                         args => ["\n$contextdesc"],
                        });
           if (ref($textstr) eq 'ARRAY') {
               push(@rawmsg,@{$textstr});
           }
     } elsif ($context eq 'enroller') {      } elsif ($context eq 'enroller') {
         $rawsubj = 'Enrollment request';          $rawsubj = 'Enrollment request';
         if ($crstype eq 'community') {          if ($crstype eq 'community') {
Line 203  sub send_selfserve_notification { Line 213  sub send_selfserve_notification {
                       args => ["  \n\n","\n"],                        args => ["  \n\n","\n"],
                      });                       });
     } elsif ($context eq 'authorreq') {      } elsif ($context eq 'authorreq') {
         $rawsubj = 'Authoring space request to review';          $rawsubj = 'Authoring Space request to review';
         $msgtxt = 'Assignment of an author role in the [_1] domain[_2]was requested by [_3] on [_4].';          $msgtxt = 'Assignment of an author role in the [_1] domain[_2]was requested by [_3] on [_4].';
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => $msgtxt,                        mt  => $msgtxt,
                       args => [$contextdesc,"\n",$textstr,$timestamp],                        args => [$contextdesc,"\n",$textstr,$timestamp],
                      },                       },
                      {                       {
                       mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Create users or modify the roles and privileges of users -> Authoring space reqests[_3]to display a list of pending requests, which you can either approve or reject.',                        mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Create users or modify the roles and privileges of users -> Authoring Space 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 'requestauthor') {      } elsif ($context eq 'requestauthor') {
         $rawsubj = 'Authoring space request';          $rawsubj = 'Authoring Space request';
         $msgtxt = 'Your request for an authoring space requested on [_1]has been reviewed by a Domain Coordinator.';          $msgtxt = 'Your request for an Authoring Space requested on [_1]has been reviewed by a Domain Coordinator.';
           push(@rawmsg,{
                         mt  => $msgtxt,
                         args => [$timestamp."\n"],
                        });
           if (ref($textstr) eq 'ARRAY') {
               push(@rawmsg,@{$textstr});
           }
       } elsif ($context eq 'usernamereq') {
           $rawsubj = 'LON-CAPA account request';
           $msgtxt = 'Creation of a LON-CAPA account in the [_1] domain[_2]was requested by [_3] on [_4].';
           push(@rawmsg,{
                         mt  => $msgtxt,
                         args => [$contextdesc,"\n",$textstr,$timestamp],
                        },
                        {
                         mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Create users or modify the roles and privileges of users
    -> LON-CAPA account requests[_3]to display a list of pending requests, which you can either approve or reject.',
                         args => ["\n","\n\n  ","\n\n"],
                        });
       } elsif ($context eq 'requestusername') {
           $rawsubj = 'LON-CAPA account request';
           $msgtxt = 'Your request for a LON-CAPA account requested on [_1]has been reviewed by a Domain Coordinator.';
         push(@rawmsg,{          push(@rawmsg,{
                       mt  => $msgtxt,                        mt  => $msgtxt,
                       args => [$timestamp."\n"],                        args => [$timestamp."\n"],
Line 229  sub send_selfserve_notification { Line 260  sub send_selfserve_notification {
         if (ref($textstr) eq 'ARRAY') {          if (ref($textstr) eq 'ARRAY') {
             push(@rawmsg,@{$textstr});              push(@rawmsg,@{$textstr});
         }          }
       } elsif ($context eq 'queuedcrsreq') {
           $rawsubj = 'Course Request Queued';
           if (ref($textstr) eq 'ARRAY') {
               push(@rawmsg,@{$textstr});
           }
       } elsif ($context eq 'createdcrsreq') {
           $rawsubj = 'Course Creation Information';
           if (ref($textstr) eq 'ARRAY') {
               push(@rawmsg,@{$textstr});
           }
     }      }
     my @to_notify = split(/,/,$notifylist);      my @to_notify = split(/,/,$notifylist);
     my $numsent = 0;      my $numsent = 0;
Line 246  sub send_selfserve_notification { Line 287  sub send_selfserve_notification {
     my %reciphash = (      my %reciphash = (
                      cc => $msgcc,                       cc => $msgcc,
     );      );
     my ($uname,$udom);      my ($uname,$udom,$need_temp_env);
     if ($sender =~ /:/) {      if ($sender =~ /:/) {
         ($uname,$udom) = split(/:/,$sender);          ($uname,$udom) = split(/:/,$sender);
           if ($context eq 'usernamereq') {
               unless ($env{'user.name'} && $env{'user.domain'}) {
                   $need_temp_env = 1;
               }
           }
     } elsif ($context eq 'course') {      } elsif ($context eq 'course') {
         $uname = $sender;          $uname = $sender;
         my %courseinfo = &Apache::lonnet::coursedescription($cid);          my %courseinfo = &Apache::lonnet::coursedescription($cid);
Line 265  sub send_selfserve_notification { Line 311  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,undef,undef,undef,undef,$senderuname,$senderudom);      &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;
       if ($need_temp_env) {
           $env{'user.name'} = $uname;
           $env{'user.domain'} = $udom;
       }
     foreach my $recip (sort(keys(%{$msgcc}))) {      foreach my $recip (sort(keys(%{$msgcc}))) {
         my ($ccname,$ccdom) = split(/:/,$recip);          my ($ccname,$ccdom) = split(/:/,$recip);
         my $recip_lh = &Apache::loncommon::user_lang($ccname,$ccdom,$cid);          my $recip_lh = &Apache::loncommon::user_lang($ccname,$ccdom,$cid);
Line 300  sub send_selfserve_notification { Line 351  sub send_selfserve_notification {
             if ($rejectedlist) {              if ($rejectedlist) {
                 $message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Rejected author role requests:')."\n".$rejectedlist;                  $message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Rejected author role requests:')."\n".$rejectedlist;
             }              }
           } elsif ($context eq 'usernamemanagers') {
               if ($approvedlist) {
                   $message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved LON-CAPA account requests:')."\n".$approvedlist;
               }
               if ($rejectedlist) {
                   $message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Rejected LON-CAPA account requests:')."\n".$rejectedlist;
               }
         }          }
         $status .= &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message,undef,undef,undef,1,\%sentmessage,undef,undef,undef,1,$recipid).',';          $status .= &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message,undef,undef,undef,1,
                                                       \%sentmessage,undef,undef,undef,1,$recipid).',';
     }      }
     $status =~ s/,$//;      $status =~ s/,$//;
       if ($need_temp_env) {
           undef($env{'user.name'});
           undef($env{'user.domain'});
       }
     return ($recipstatus,$status);      return ($recipstatus,$status);
 }  }
   
Line 320  sub display_queued_requests { Line 383  sub display_queued_requests {
         $namespace = 'requestauthorqueue';          $namespace = 'requestauthorqueue';
         %requesthash = &Apache::lonnet::dump_dom($namespace,$dom);          %requesthash = &Apache::lonnet::dump_dom($namespace,$dom);
         $nextelement = '<input type="hidden" name="state" value="done" />';          $nextelement = '<input type="hidden" name="state" value="done" />';
       } elsif ($context eq 'requestusername') {
           $formaction = '/adm/createuser';
           $namespace = 'usernamequeue';
           %requesthash = &Apache::lonnet::dump_dom($namespace,$dom);
           $nextelement = '<input type="hidden" name="state" value="done" />';
     } else {      } else {
         $formaction = '/adm/createcourse';          $formaction = '/adm/createcourse';
         $namespace = 'courserequestqueue';          $namespace = 'courserequestqueue';
Line 345  sub display_queued_requests { Line 413  sub display_queued_requests {
             } elsif ($context eq 'requestauthor') {              } elsif ($context eq 'requestauthor') {
                 $timestamp = $requesthash{$item};                  $timestamp = $requesthash{$item};
                 ($entry) = ($item =~ /^($match_username)_approval$/);                  ($entry) = ($item =~ /^($match_username)_approval$/);
               } elsif ($context eq 'requestusername') {
                   $timestamp = $requesthash{$item};
                   ($entry) = (&unescape($item) =~ /^($match_username)_approval$/);
             } else {              } else {
                 $timestamp = $requesthash{$item}{'timestamp'};                  $timestamp = $requesthash{$item}{'timestamp'};
                 if (ref($requesthash{$item}) eq 'HASH') {                  if (ref($requesthash{$item}) eq 'HASH') {
Line 375  sub display_queued_requests { Line 446  sub display_queued_requests {
                            '<p>'.&mt('Requests are validated against institutional data to confirm that the requestor is an instructor of record.').'<br />'.                             '<p>'.&mt('Requests are validated against institutional data to confirm that the requestor is an instructor of record.').'<br />'.
                            &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>';                             &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>';
             } elsif ($context eq 'requestauthor') {              } elsif ($context eq 'requestauthor') {
                 $output .= '<h3>'.&mt('Requests for authoring space queued pending approval by a Domain Coordinator').'</h3>';                  $output .= '<h3>'.&mt('Requests for Authoring Space queued pending approval by a Domain Coordinator').'</h3>';
               } elsif ($context eq 'requestusername') {
                   $output .= '<h3>'.&mt('Requests for LON-CAPA accounts queued pending approval by a Domain Coordinator').'</h3>';
             } else {              } else {
                 $output .= '<h3>'.&mt('Course/Community requests queued pending approval by a Domain Coordinator').'</h3>';                  $output .= '<h3>'.&mt('Course/Community requests queued pending approval by a Domain Coordinator').'</h3>';
             }               } 
Line 388  sub display_queued_requests { Line 461  sub display_queued_requests {
             } elsif ($context eq 'pending') {              } elsif ($context eq 'pending') {
                 $output .= &mt('There are currently no requests for official courses awaiting validation.');                  $output .= &mt('There are currently no requests for official courses awaiting validation.');
             } elsif ($context eq 'requestauthor') {              } elsif ($context eq 'requestauthor') {
                 $output .= &mt('There are currently no requests for authoring space awaiting approval.');                  $output .= &mt('There are currently no requests for Authoring Space awaiting approval.');
               } elsif ($context eq 'requestusername') {
                   $output .= &mt('There are currently no requests for LON-CAPA accounts awaiting approval.');
             } elsif ($context eq 'domain') {              } elsif ($context eq 'domain') {
                 $output .= &mt('There are currently no course or community requests awaiting approval.');                  $output .= &mt('There are currently no course or community requests awaiting approval.');
             }              }
Line 408  sub display_queued_requests { Line 483  sub display_queued_requests {
             $output .= &mt('There are currently no enrollment requests awaiting approval.');              $output .= &mt('There are currently no enrollment requests awaiting approval.');
         } elsif ($context eq 'pending') {          } elsif ($context eq 'pending') {
             $output .= &mt('There are currently no requests for official courses awaiting validation.');              $output .= &mt('There are currently no requests for official courses awaiting validation.');
           } elsif ($context eq 'requestauthor') {
               $output .= &mt('There are currently no requests for Authoring Space awaiting approval.');
           } elsif ($context eq 'requestusername') {
               $output .= &mt('There are currently no requests for LON-CAPA accounts awaiting approval.');
         } else {          } else {
             $output .= &mt('There are currently no course or community requests awaiting approval.');              $output .= &mt('There are currently no course or community requests awaiting approval.');
         }          }
Line 431  sub build_queue_display { Line 510  sub build_queue_display {
                    '<th>'.&mt('Date requested').'</th>';                     '<th>'.&mt('Date requested').'</th>';
     } elsif ($context eq 'requestauthor') {      } elsif ($context eq 'requestauthor') {
         $output .= '<th>'.&mt('Date requested').'</th>';          $output .= '<th>'.&mt('Date requested').'</th>';
       } elsif ($context eq 'requestusername') {
           $output .= '<th>'.&mt('Date requested').'</th>'.
                      '<th>'.&mt('Details').'</th>';
     } elsif ($context eq 'pending' || $context eq 'stillpending') {      } elsif ($context eq 'pending' || $context eq 'stillpending') {
         $output .= '<th>'.&mt('Institutional code').'</th>'.          $output .= '<th>'.&mt('Institutional code').'</th>'.
                    '<th>'.&mt('Date requested').'</th>'.                     '<th>'.&mt('Date requested').'</th>'.
Line 441  sub build_queue_display { Line 523  sub build_queue_display {
                         unofficial => 'Unofficial course',                          unofficial => 'Unofficial course',
                         community  => 'Community',                          community  => 'Community',
                         textbook   => 'Textbook course',                          textbook   => 'Textbook course',
                           placement  => 'Placement test',
                     );                      );
         $output .= '<th>'.&mt('Type').'</th>'.          $output .= '<th>'.&mt('Type').'</th>'.
                    '<th>'.&mt('Date requested').'</th>'.                     '<th>'.&mt('Date requested').'</th>'.
Line 474  sub build_queue_display { Line 557  sub build_queue_display {
                                     &Apache::loncommon::plainname($request,$dom),                                      &Apache::loncommon::plainname($request,$dom),
                                     $request,$dom);                                      $request,$dom);
                     }                      }
                   } elsif ($context eq 'requestusername') {
                       if (&Apache::lonnet::homeserver($request,$dom) eq 'no_host') {
                           my $queued = 'approval';
                           $approve = $count.':'.$request;
                           $reject = $request;
                           $detailslink='<a href="javascript:openusernamereqdisplay('.
                                        "'$dom','$request','$queued'".');">'.$request.'</a>';
                           $namelink = $request;
                       }
                 } else {                  } else {
                     my ($cnum,$ownername,$ownerdom,$type,$cdesc);                      my ($cnum,$ownername,$ownerdom,$type,$cdesc);
                     my $queue = 'approval';                       my $queued = 'approval'; 
                     if ($context eq 'pending' || $context eq 'stillpending') {                      if ($context eq 'pending' || $context eq 'stillpending') {
                         ($cnum,$ownername,$ownerdom,$instcode,$cdesc)=split(/:/,$request,5);                          ($cnum,$ownername,$ownerdom,$instcode,$cdesc)=split(/:/,$request,5);
                         $queue = 'pending';                                                  $queued = 'pending';                        
                     } else {                      } else {
                         ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5);                          ($cnum,$ownername,$ownerdom,$type,$cdesc)=split(/:/,$request,5);
                         $crstype = $type;                          $crstype = $type;
Line 488  sub build_queue_display { Line 580  sub build_queue_display {
                         }                          }
                     }                      }
                     $detailslink='<a href="javascript:opencoursereqdisplay('.                      $detailslink='<a href="javascript:opencoursereqdisplay('.
                                   "'$dom','$cnum','$queue'".');">'.$cdesc.'</a>';                                    "'$dom','$cnum','$queued'".');">'.$cdesc.'</a>';
                     $approve = $count.':'.$cnum;                      $approve = $count.':'.$cnum;
                     $reject = $cnum;                      $reject = $cnum;
                     $namelink = &Apache::loncommon::aboutmewrapper(                      $namelink = &Apache::loncommon::aboutmewrapper(
Line 510  sub build_queue_display { Line 602  sub build_queue_display {
                             '<td>'.$showtime.'</td>'."\n";                              '<td>'.$showtime.'</td>'."\n";
                 } elsif ($context eq 'requestauthor') {                  } elsif ($context eq 'requestauthor') {
                     $row .= '<td>'.$showtime.'</td>'."\n";                      $row .= '<td>'.$showtime.'</td>'."\n";
                   } elsif ($context eq 'requestusername') {
                       $row .= '<td>'.$showtime.'</td>'."\n".
                               '<td>'.$detailslink.'</td>'."\n";
                 } else {                   } else { 
                     if ($context eq 'pending' || $context eq 'stillpending') {                      if ($context eq 'pending' || $context eq 'stillpending') {
                         $row .= '<td>'.$instcode.'</td>'."\n";                          $row .= '<td>'.$instcode.'</td>'."\n";
Line 541  sub update_request_queue { Line 636  sub update_request_queue {
         %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,          %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,
         $firsturl,$uniquecode,%codes);          $firsturl,$uniquecode,%codes);
     my $count=0;      my $count=0;
     while (my @course = &Apache::loncommon::get_env_multiple('form.'.$count.'radioreq')) {      while (my $item = $env{'form.'.$count.'radioreq'}) {
         if ($course[0] =~ /^\d+:.*/) {          if ($item =~ /^\d+:/) {
             push(@approvals,$course[0]);              push(@approvals,$item);
         } elsif ($course[0] =~ /^later:.*/) {          } elsif ($item !~ /^later:/) {
             #decide later              push(@rejections,$item);
         } else {  
             push(@rejections,$course[0]);  
         }          }
         $count+=1;          $count ++;
     }      }
   
     $now = time;      $now = time;
Line 559  sub update_request_queue { Line 652  sub update_request_queue {
         $beneficiary = 'enroller';          $beneficiary = 'enroller';
         $cid = $env{'request.course.id'};          $cid = $env{'request.course.id'};
         $crstype = lc(&Apache::loncommon::course_type());          $crstype = lc(&Apache::loncommon::course_type());
         $firsturl = &course_portal_url($cnum,$cdom);          $firsturl = &Apache::lonnet::course_portal_url($cnum,$cdom);
         %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 588  sub update_request_queue { Line 681  sub update_request_queue {
             }              }
         }          }
         my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);          my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
         $firsturl = &course_portal_url($domconfiguser,$cdom);          $firsturl = &Apache::lonnet::course_portal_url($domconfiguser,$cdom);
         $approvedmsg = [{          $approvedmsg = [{
                             mt => 'Your request for authoring space has been approved.',                              mt => 'Your request for Authoring Space has been approved.',
                         },                          },
                         {                          {
                             mt   => 'Visit [_1] to log-in and select your author role',                              mt   => 'Visit [_1] to log-in and select your author role',
                             args => [$firsturl],                              args => [$firsturl],
                         }];                          }];
         $rejectedmsg =  [{          $rejectedmsg =  [{
                             mt => 'Your request for authoring space has not been approved.',                              mt => 'Your request for Authoring Space has not been approved.',
                           }];
           $domdesc = &Apache::lonnet::domain($cdom);
       } elsif ($context eq 'requestusername') {
           $namespace = 'usernamequeue';
           $beneficiary = 'requestusername';
           %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom);
           my %domconfig = &Apache::lonnet::get_dom('configuration',['usercreation'],$cdom);
           if (ref($domconfig{'usercreation'}) eq 'HASH') {
               if (ref($domconfig{'usercreation'}{'cancreate'}) eq 'HASH') {
                   if (ref($domconfig{'usercreation'}{'cancreate'}{'notify'}) eq 'HASH') {
                       $notifylist = $domconfig{'usercreation'}{'cancreate'}{'notify'}{'approval'};
                   }
               }
           }
           my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
           $firsturl = &Apache::lonnet::course_portal_url($domconfiguser,$cdom);
           $approvedmsg = [{
                               mt => 'Your request for a LON-CAPA account has been approved.',
                           },
                           {
                               mt   => 'Visit [_1] to log-in.',
                               args => [$firsturl],
                           }];
           $rejectedmsg =  [{
                               mt => 'Your request for a LON-CAPA account has not been approved.',
                         }];                          }];
         $domdesc = &Apache::lonnet::domain($cdom);          $domdesc = &Apache::lonnet::domain($cdom);
     } else {      } else {
Line 723  sub update_request_queue { Line 841  sub update_request_queue {
                     if (&Apache::lonnet::allowed('cau',$cdom)) {                      if (&Apache::lonnet::allowed('cau',$cdom)) {
                         if (&Apache::lonnet::assignrole($cdom,$uname,'/'.$cdom.'/','au',undef,time,undef,undef,'requestauthor') eq 'ok') {                          if (&Apache::lonnet::assignrole($cdom,$uname,'/'.$cdom.'/','au',undef,time,undef,undef,'requestauthor') eq 'ok') {
                             push(@completed,$uname);                              push(@completed,$uname);
                             unless (&Apache::lonnet::del_dom($namespace,[$uname.'_approval'],$cdom) eq 'ok') {  
                                 push(@warn_dels,$uname);  
                             }  
                             &send_selfserve_notification($uname.':'.$cdom,                              &send_selfserve_notification($uname.':'.$cdom,
                                                          $approvedmsg,undef,undef,$now,                                                           $approvedmsg,undef,undef,$now,
                                                          $beneficiary,$sender);                                                           $beneficiary,$sender);
Line 740  sub update_request_queue { Line 855  sub update_request_queue {
                             my $userresult =                              my $userresult =
                                 &Apache::lonnet::put('requestauthor',\%userrequest,$cdom,$uname);                                  &Apache::lonnet::put('requestauthor',\%userrequest,$cdom,$uname);
                             if ($userresult ne 'ok') {                              if ($userresult ne 'ok') {
                                 push(@warn_approves,$item);                                  push(@warn_approves,$uname.':'.$cdom);
                             }                              }
                         } else {                          } else {
                             push(@processing_errors,$uname);                              push(@processing_errors,$uname);
Line 755  sub update_request_queue { Line 870  sub update_request_queue {
                 push(@invalidusers,$uname.':'.$cdom);                  push(@invalidusers,$uname.':'.$cdom);
             }              }
             push(@toremove,(@invalidusers,@nopermissions));              push(@toremove,(@invalidusers,@nopermissions));
           } elsif ($context eq 'requestusername') {
               my ($num,$uname) = split(/:/,$item);
               my $dbname = 'nohist_requestedusernames';
               my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
               my %curr = &Apache::lonnet::get($dbname,[$uname],$cdom,$domconfiguser);
               
               if (ref($curr{$uname}) eq 'HASH') {
                   my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname,
                       $middlename,$lastname,$generation,$inststatus);
                   $curr{$uname}{'timestamp'} = $now;
                   $curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};
                   $courseid   = $curr{$uname}{'courseid'};
                   $id         = $curr{$uname}{'id'};
                   $firstname  = $curr{$uname}{'firstname'};
                   $middlename = $curr{$uname}{'middlename'};
                   $lastname   = $curr{$uname}{'lastname'};
                   $generation = $curr{$uname}{'generation'};
                   $inststatus = $curr{$uname}{'inststatus'};
   
                   my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});
                   if ($caller eq 'createaccount') {
                       my $upass = &Apache::loncommon::des_decrypt($key,$curr{$uname}{'upass'});
                       undef($curr{$uname}{'upass'});
                       my $result =
                           &Apache::lonnet::modifyuser($cdom,$uname,$id,'internal',$upass,
                                                       $firstname,$middlename,$lastname,
                                                       $generation,undef,undef,$uname);
                       if ($result eq 'ok') {
                           $curr{$uname}{'status'} = 'created';
                           push(@completed,$uname); 
                           my $uhome = &Apache::lonnet::homeserver($uname,$cdom);
                           if ($uhome eq 'no_host') {
                               push(@warn_approves,$uname);
                           } else {
                               unless (($inststatus eq 'default') || ($inststatus eq '')) {
                                   &Apache::lonnet::put('environment',{inststatus => $inststatus},$cdom,$uname);
                               }
                               &send_selfserve_notification($uname.':'.$cdom,
                                                            $approvedmsg,undef,undef,$now,
                                                            $beneficiary,$sender);
                               if (&Apache::lonnet::put($dbname,\%curr,$cdom,$domconfiguser) ne 'ok') {
                                   push(@warn_approves,$uname);
                               }
                           }
                       } else {
                           push(@processing_errors,$uname);
                       }
                   } else {
                       push(@processing_errors,$uname);
                   }
               } else {
                   push(@invalidusers,$uname);
               }
               push(@toremove,@invalidusers);
         } else {          } else {
             my ($num,$cnum) = split(':',$item);              my ($num,$cnum) = split(':',$item);
             if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {              if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {
Line 789  sub update_request_queue { Line 958  sub update_request_queue {
                                                      $ownerdom,$ownername);                                                       $ownerdom,$ownername);
                         if ((ref($history{'details'}) eq 'HASH') &&                           if ((ref($history{'details'}) eq 'HASH') && 
                             ($history{'disposition'} eq $queue)) {                              ($history{'disposition'} eq $queue)) {
                             my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code);                              my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code,%customitems);
                             my $result = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,                              my $fullname = '';
                                                       \$newusermsg,\$addresult,\$enrollcount,                              my $inprocess = &Apache::lonnet::auto_crsreq_update($cdom,$cnum,$crstype,'process',$ownername,
                                                       \$response,\$keysmsg,\%domdefs,$longroles,\$code);                                                                                  $ownerdom,$fullname,$coursedesc);
                               if (ref($inprocess) eq 'HASH') {
                                   foreach my $key (keys(%{$inprocess})) {
                                       if (exists($history{'details'}{$key})) { 
                                           $customitems{$key} = $history{'details'}{$key};
                                       }
                                   }
                               }
                               if ($history{'details'}{'clonecrs'}) {
                                   $customitems{'_LC_clonefrom'} = $history{'details'}{'clonedom'}.'_'.$history{'details'}{'clonecrs'};
                               }
                               my ($result,$postprocess) = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,
                                                           \$newusermsg,\$addresult,\$enrollcount,
                                                           \$response,\$keysmsg,\%domdefs,$longroles,\$code,\%customitems);
                             if ($result eq 'created') {                              if ($result eq 'created') {
                                 if ($crstype eq 'community') {                                  if ($crstype eq 'community') {
                                     $approvedmsg = $approvalmsg{'community'};                                      $approvedmsg = $approvalmsg{'community'};
                                 } else {                                  } else {
                                     $approvedmsg = $approvalmsg{'course'};                                      $approvedmsg = $approvalmsg{'course'};
                                 }                                  }
                                 my $firsturl = &course_portal_url($cnum,$cdom);                                  my $firsturl = &Apache::lonnet::course_portal_url($cnum,$cdom);
                                 if (ref($approvedmsg) eq 'ARRAY') {                                  if (ref($approvedmsg) eq 'ARRAY') {
                                     if (ref($approvedmsg->[1]) eq 'HASH') {                                      if (ref($approvedmsg->[1]) eq 'HASH') {
                                         $approvedmsg->[1]->{'args'} = [$firsturl];                                          $approvedmsg->[1]->{'args'} = [$firsturl];
Line 812  sub update_request_queue { Line 994  sub update_request_queue {
                                             });                                              });
                                         $codes{$cnum} = $code;                                          $codes{$cnum} = $code;
                                     }                                      }
                                       if (ref($postprocess) eq 'HASH') {
                                           if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') {
                                               foreach my $item (@{$postprocess->{'createdmsg'}}) {
                                                   if (ref($item) eq 'HASH') {
                                                       if ($item->{'mt'} ne '') {
                                                           push(@{$approvedmsg},$item);
                                                       }
                                                   }
                                               }
                                           }
                                       }
                                 }                                  }
                                 push(@completed,$cnum);                                  push(@completed,$cnum);
                                                                   
Line 869  sub update_request_queue { Line 1062  sub update_request_queue {
         @changes = map {$_.'_'.$queue} (@changes);          @changes = map {$_.'_'.$queue} (@changes);
     } elsif ($context eq 'requestauthor') {      } elsif ($context eq 'requestauthor') {
         @changes = map {$_.'_approval'} (@changes);          @changes = map {$_.'_approval'} (@changes);
       } elsif ($context eq 'requestusername') {
           @changes = map {&escape($_).'_approval'} (@changes);
     }      }
     if (@rejections) {      if (@rejections) {
         foreach my $item (@rejections) {          foreach my $item (@rejections) {
             if (($context eq 'course') || ($context eq 'requestauthor')) {              if (($context eq 'course') || ($context eq 'requestauthor')) {
                 my ($user,$uname,$udom,%userrequest,$key);                  my ($user,$uname,$udom,%userrequest,$key,$dbname);
                 if ($context eq 'requestauthor') {                  if ($context eq 'requestauthor') {
                     $uname = $item;                      $uname = $item;
                     $udom = $cdom;                      $udom = $cdom;
                     $user = $uname.':'.$udom;                      $user = $uname.':'.$udom;
                     $key = 'author';                      $key = 'author';
                       $dbname = 'requestauthor';
                 } else {                  } else {
                     $user = $item;                      $user = $item;
                     ($uname,$udom) = split(/:/,$user);                      ($uname,$udom) = split(/:/,$user);
                     $key = $cdom.'_'.$cnum;                      $key = $cdom.'_'.$cnum;
                       $dbname = $namespace;
                 }                  }
                 &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,                  &send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,
                                              $now,$beneficiary,$sender,undef,undef,                                               $now,$beneficiary,$sender,undef,undef,
Line 898  sub update_request_queue { Line 1095  sub update_request_queue {
                     $userrequest{'author_status'} = 'rejection';                        $userrequest{'author_status'} = 'rejection';  
                 }                  }
                 my $userresult =                  my $userresult =
                     &Apache::lonnet::put('requestauthor',\%userrequest,$udom,$uname);                      &Apache::lonnet::put($dbname,\%userrequest,$udom,$uname);
                 if ($userresult ne 'ok') {                  if ($userresult ne 'ok') {
                     push(@warn_rejects,$item);                      push(@warn_rejects,$item);
                 }                  }
               } elsif ($context eq 'requestusername') {
                   my ($uname,$udom,$dbname);
                   $uname = $item;
                   $udom = $cdom;
                   $dbname = 'nohist_requestedusernames';
                   my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
                   my %curr = &Apache::lonnet::get($dbname,[$uname],$cdom,$domconfiguser);
                   if (ref($curr{$uname}) eq 'HASH') {
                        $curr{$uname}{'status'} = 'rejected';
                        $curr{$uname}{'timestamp'} = $now;
                        $curr{$uname}{'adjudicator'} =  $env{'user.name'}.':'.$env{'user.domain'};
                        undef($curr{$uname}{'tmpinfo'});
                        undef($curr{$uname}{'upass'}); 
                   }
                   my $userresult =
                       &Apache::lonnet::put($dbname,\%curr,$cdom,$domconfiguser);
                   if ($userresult ne 'ok') {
                       push(@warn_rejects,$uname);
                   }
             } else {              } else {
                 my $cnum = $item;                  my $cnum = $item;
                 if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {                  if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {
Line 964  sub update_request_queue { Line 1180  sub update_request_queue {
         }          }
     }      }
     if (@toremove) {      if (@toremove) {
           my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
         foreach my $item (@toremove) {          foreach my $item (@toremove) {
             my %userrequest = (              if ($context eq 'requestauthor') {
                 author => {                  my %userrequest = (
                             timestamp   => $now,                      author => {
                             adjudicator => $env{'user.name'}.':'.$env{'user.domain'},                                  timestamp   => $now,
                             status      => 'deleted',                                  adjudicator => $env{'user.name'}.':'.$env{'user.domain'},
                           },                                  status      => 'deleted',
                           author_status => 'deleted',                                },
             );                                author_status => 'deleted',
             &Apache::lonnet::put('requestauthor',\%userrequest,$cdom,$item);                  );
                   &Apache::lonnet::put('requestauthor',\%userrequest,$cdom,$item);
               } elsif ($context eq 'requestusername') {
                   my $dbname = 'nohist_requestedusernames';
                   my %curr = &Apache::lonnet::get($dbname,[$item],$cdom,$domconfiguser);
                   if (ref($curr{$item}) eq 'HASH') {
                       $curr{$item}{'status'} = 'deleted';
                       $curr{$item}{'timestamp'} = $now;
                       $curr{$item}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};
                       undef($curr{$item}{'upass'});
                       undef($curr{$item}{'tmpinfo'}); 
                   }
               }
         }          }
         @toremove = map {$_.'_approval'} (@toremove);          @toremove = map {$_.'_approval'} (@toremove);
         my $delresult = &Apache::lonnet::del_dom($namespace,\@toremove,$cdom);          my $delresult = &Apache::lonnet::del_dom($namespace,\@toremove,$cdom);
Line 1020  sub update_request_queue { Line 1249  sub update_request_queue {
                                                  $approvedlist,$rejectedlist,$crstype);                                                   $approvedlist,$rejectedlist,$crstype);
                 }                  }
             } elsif ($context eq 'requestauthor') {              } elsif ($context eq 'requestauthor') {
                 $chgmsg = "'Action was taken on the following authoring space requests by [_1].',$namelink";                  $chgmsg = "'Action was taken on the following Authoring Space requests by [_1].',$namelink";
                 if (@completed) {                  if (@completed) {
                     $approvedlist = join("\n",@completed);                      $approvedlist = join("\n",@completed);
                     $output .= '<p>'.&mt('The following requests were approved:').'<ul>';                      $output .= '<p>'.&mt('The following requests were approved:').'<ul>';
Line 1047  sub update_request_queue { Line 1276  sub update_request_queue {
                                                  $now,'authormanagers',$sender,                                                   $now,'authormanagers',$sender,
                                                  $approvedlist,$rejectedlist);                                                   $approvedlist,$rejectedlist);
                 }                  }
               } elsif ($context eq 'requestusername') {
                   $chgmsg = "'Action was taken on the following LON-CAPA account requests by [_1].',$namelink";
                   if (@completed) {
                       $approvedlist = join("\n",@completed);
                       $output .= '<p>'.&mt('The following requests were approved:').'<ul>';
                       foreach my $uname (@completed) {
                           $output .= '<li>'.$uname.'</li>';
   
                       }
                       $output .= '</ul></p>';
                   }
                   if (@rejections) {
                       $rejectedlist = join("\n",@rejections);
                       $output .= '<p>'.&mt('The following requests were rejected:').'<ul>';
                       foreach my $uname (@rejections) {
                           $output .= '<li>'.$uname.'</li>';
                       }
                       $output .= '</ul></p>';
                   }
                   if ($notifylist ne '') {
                       &send_selfserve_notification($notifylist,$chgmsg,undef,$domdesc,
                                                    $now,'usernamemanagers',$sender,
                                                    $approvedlist,$rejectedlist);
                   }
             } else {              } else {
                 $chgmsg = "'Action was taken on the following course and community requests by [_1].',$namelink";                  $chgmsg = "'Action was taken on the following course and community requests by [_1].',$namelink";
                 if (@completed) {                  if (@completed) {
Line 1062  sub update_request_queue { Line 1315  sub update_request_queue {
                         my $syllabuslink =                          my $syllabuslink =
                             &Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);                              &Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);
                         if ($codes{$cnum}) {                          if ($codes{$cnum}) {
                             $syllabuslink .= &mt('Unique code: [_1]',$codes{$cnum});                              $syllabuslink .= ' '.&mt('Unique code: [_1]',$codes{$cnum});
                         }                          }
                         $output .= '<li>'.$syllabuslink.'</li>';                          $output .= '<li>'.$syllabuslink.'</li>';
                     }                      }
Line 1088  sub update_request_queue { Line 1341  sub update_request_queue {
                                                  $approvedlist,$rejectedlist,$crstype);                                                   $approvedlist,$rejectedlist,$crstype);
                 }                  }
             }              }
           } else {
               if (($context eq 'requestauthor') || ($context eq 'requestusername')) {
                   push(@warn_dels,@changes);
               }
         }          }
     }      }
     if (@existing) {      if (@existing) {
Line 1098  sub update_request_queue { Line 1355  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } elsif ($context eq 'requestauthor') {          } elsif ($context eq 'requestauthor') {
             $output .= '<p>'.&mt('Authoring space requests from the following users were deleted because one already exists:').'<ul>';              $output .= '<p>'.&mt('Authoring Space requests from the following users were deleted because one already exists:').'<ul>';
             foreach my $uname (@existing) {              foreach my $uname (@existing) {
                 my $userlink =                  my $userlink =
                     &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);                      &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);
Line 1151  sub update_request_queue { Line 1408  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } elsif ($context eq 'requestauthor') {          } elsif ($context eq 'requestauthor') {
             $output .= '<p>'.&mt('The following authoring space requests were deleted because the requestor does not have a LON-CAPA account:').'<ul>';              $output .= '<p>'.&mt('The following Authoring Space requests were deleted because the requestor does not have a LON-CAPA account:').'<ul>';
             foreach my $uname (@invalidusers) {              foreach my $uname (@invalidusers) {
                 my $userlink =                  my $userlink =
                     &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);                      &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);
Line 1183  sub update_request_queue { Line 1440  sub update_request_queue {
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
         } elsif ($context eq 'requestauthor') {          } elsif ($context eq 'requestauthor') {
             $output .= '<p>'.&mt('The following requests could not be processed because the requestor does not have rights to request an authoring space:').'<ul>';              $output .= '<p>'.&mt('The following requests could not be processed because the requestor does not have rights to request an Authoring Space:').'<ul>';
             foreach my $uname (@nopermissions) {              foreach my $uname (@nopermissions) {
                 my $userlink =                  my $userlink =
                     &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);                      &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($uname,$cdom),$uname,$cdom);
Line 1207  sub update_request_queue { Line 1464  sub update_request_queue {
                 $output .= '<li>'.$userlink.'</li>';                  $output .= '<li>'.$userlink.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
           } elsif ($context eq 'requestusername') {
               $output .= '<p>'.&mt('The following requests could not be processed because an error occurred:').'<ul>';
               foreach my $uname (@processing_errors) {
                   $output .= '<li>'.$uname.'</li>';
               }
               $output .= '</ul></p>';
         } else {          } else {
             $output .= '<p>'.&mt('The following course/community 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) {
Line 1249  sub update_request_queue { Line 1512  sub update_request_queue {
                 $output .= '<li>'.$userlink.'</li>';                  $output .= '<li>'.$userlink.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
           } elsif ($context eq 'requestusername') {
               $output .= '<p>'.&mt("For the following users, an error occurred when updating the account request record for the user:").'<ul>';
               foreach my $uname (@warn_approves,@warn_rejects) {
                   $output .= '<li>'.$uname.'</li>';
               }
               $output .= '</ul></p>';
         } else {          } else {
             $output .= '<p>'.&mt("For the following course/community requests an error occurred when updating the requestor's own requests record:").'<ul>';              $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) {
Line 1272  sub update_request_queue { Line 1541  sub update_request_queue {
                 $output .= '<li>'.$userlink.'</li>';                  $output .= '<li>'.$userlink.'</li>';
             }              }
             $output .= '</ul></p>';              $output .= '</ul></p>';
           } elsif ($context eq 'requestusername') {
               $output .= '<p>'.&mt("For the following requests an error occurred when removing the request from the queue:").'<ul>';
               foreach my $item (@warn_dels) {
                   my ($escuname) = split(/_/,$item);
                   $output .= '<li>'.&unescape($escuname).'</li>';
               }
               $output .= '</ul></p>';            
         } else {          } else {
             $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'<ul>';              $output .= '<p>'.&mt("For the following course/community requests an error occurred when removing requests from the pending queue:").'<ul>';
             foreach my $cnum (@warn_dels) {              foreach my $cnum (@warn_dels) {
Line 1289  sub update_request_queue { Line 1565  sub update_request_queue {
     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 1325  sub get_student_counts { Line 1585  sub get_student_counts {
   
 sub course_creation {  sub course_creation {
     my ($dom,$cnum,$context,$details,$logmsg,$newusermsg,$addresult,$enrollcount,$output,      my ($dom,$cnum,$context,$details,$logmsg,$newusermsg,$addresult,$enrollcount,$output,
         $keysmsg,$domdefs,$longroles,$coderef) =  @_;          $keysmsg,$domdefs,$longroles,$coderef,$customhash) =  @_;
     unless ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH') &&       unless ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH') && 
             (ref($longroles) eq 'HASH')) {              (ref($longroles) eq 'HASH')) {
         return 'error: Invalid request';          return ('error: Invalid request');
     }      }
     my ($result,$ownername,$ownerdom);      my ($result,$ownername,$ownerdom);
     my $crstype = $details->{'crstype'};      my $crstype = $details->{'crstype'};
     my %domconfig = &Apache::lonnet::get_dom('configuration',['requestauthor'],$dom);      my $coursedesc = $details->{'cdescr'};
       my $accessstart = $details->{'accessstart'};
       my $accessend = $details->{'accessend'};
       my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom);
     if (ref($domconfig{'requestcourses'}) eq 'HASH') {      if (ref($domconfig{'requestcourses'}) eq 'HASH') {
         if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {          if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {
             if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {              if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {
Line 1347  sub course_creation { Line 1610  sub course_creation {
         $ownername = $env{'user.name'};          $ownername = $env{'user.name'};
         $ownerdom  = $env{'user.domain'};          $ownerdom  = $env{'user.domain'};
     }      }
       my $fullname = &Apache::loncommon::plainname($ownername,$ownerdom);
     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 1357  sub course_creation { Line 1621  sub course_creation {
     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,$coderef);                    $enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype,$coderef);
       my $postprocess;
     if ($cid eq "/$dom/$cnum") {      if ($cid eq "/$dom/$cnum") {
         $result = 'created';          $result = 'created';
           my $code;
           if (ref($coderef)) {
               $code = $$coderef;
           }
           $postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername,
                                                              $ownerdom,$fullname,$coursedesc,$code,
                                                              $accessstart,$accessend,$customhash);
     } else {      } else {
         $result = 'error: '.$cid;          $result = 'error: '.$cid;
     }      }
     return $result;      return ($result,$postprocess);
 }  }
   
 sub build_batchcreatehash {  sub build_batchcreatehash {
Line 1387  sub build_batchcreatehash { Line 1659  sub build_batchcreatehash {
         $batchhash{'authparam'} = $domdefs->{'auth_arg_def'};          $batchhash{'authparam'} = $domdefs->{'auth_arg_def'};
         if ($details->{'crstype'} eq 'community') {          if ($details->{'crstype'} eq 'community') {
             $batchhash{'crstype'} = 'Community';              $batchhash{'crstype'} = 'Community';
           } elsif ($details->{'crstype'} eq 'placement') {
               $batchhash{'crstype'} = 'Placement';
         } else {          } else {
               if ($details->{'crstype'} eq 'textbook') {
                   if ($details->{'clonecrs'} && $details->{'clonedom'}) {
                       my %clonedfrom = &Apache::lonnet::coursedescription($details->{'clonedom'}.'_'.$details->{'clonecrs'});
                       $batchhash{'textbook'} = $clonedfrom{'description'};
                   }
               }
             $batchhash{'crstype'} = 'Course';              $batchhash{'crstype'} = 'Course';
         }          }
         my ($owner_firstname,$owner_lastname);          my ($owner_firstname,$owner_lastname);
Line 1426  sub build_batchcreatehash { Line 1706  sub build_batchcreatehash {
         $batchhash{'users'}{$owner}{lastname} = $owner_lastname;          $batchhash{'users'}{$owner}{lastname} = $owner_lastname;
         $batchhash{'users'}{$owner}{emailenc} = $emailenc;          $batchhash{'users'}{$owner}{emailenc} = $emailenc;
         $batchhash{'users'}{$owner}{owneremail} = $owneremail;          $batchhash{'users'}{$owner}{owneremail} = $owneremail;
           $batchhash{'setcomment'} = 1;
     }      }
     return %batchhash;      return %batchhash;
 }  }
   
 sub can_clone_course {  sub can_clone_course {
     my ($uname,$udom,$clonecrs,$clonedom,$crstype) = @_;      my ($uname,$udom,$clonecrs,$clonedom,$crstype,$dom,$instcode) = @_;
     my $canclone;      my $canclone;
     my $ccrole = 'cc';      my $ccrole = 'cc';
     if ($crstype eq 'community') {      if ($crstype eq 'community') {
Line 1442  sub can_clone_course { Line 1723  sub can_clone_course {
     if (exists($roleshash{$clonecrs.':'.$clonedom.':'.$ccrole})) {      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','internal.coursecode'));
         my $cloners = $courseenv{'cloners'};          my $cloners = $courseenv{'cloners'};
           my $clonefromcode = $courseenv{'internal.coursecode'};
         if ($cloners ne '') {          if ($cloners ne '') {
             my @cloneable = split(',',$cloners);              my @cloneable = split(',',$cloners);
             if (grep(/^\*$/,@cloneable)) {              if (grep(/^\*$/,@cloneable)) {
                 $canclone = 1;                  $canclone = 1;
             }              } elsif (grep(/^\*:\Q$udom\E$/,@cloneable)) {
             if (grep(/^\*:\Q$udom\E$/,@cloneable)) {  
                 $canclone = 1;                  $canclone = 1;
             }              } elsif (grep(/^\Q$uname\E:\Q$udom\E$/,@cloneable)) {
             if (grep(/^\Q$uname\E:\Q$udom\E$/,@cloneable)) {  
                 $canclone = 1;                  $canclone = 1;
             }              }
               unless ($canclone) {
                   if (($clonefromcode) && ($instcode) && ($clonedom eq $dom)) {
                       my (%gotdomdefaults,%gotcodedefaults);
                       foreach my $cloner (@cloneable) {
                           if (($cloner ne '*') && ($cloner !~ /^\*\:$match_domain$/) &&
                               ($cloner !~ /^$match_username\:$match_domain$/) && ($cloner ne '')) {
                               if ($cloner =~ /\=/) {
                                   my (%codedefaults,@code_order);
                                   if (ref($gotcodedefaults{$clonedom}) eq 'HASH') {
                                       if (ref($gotcodedefaults{$clonedom}{'defaults'}) eq 'HASH') {
                                           %codedefaults = %{$gotcodedefaults{$clonedom}{'defaults'}};
                                       }
                                       if (ref($gotcodedefaults{$clonedom}{'order'}) eq 'ARRAY') {
                                           @code_order = @{$gotcodedefaults{$dom}{'order'}};
                                       }
                                   } else {
                                       &Apache::lonnet::auto_instcode_defaults($clonedom,
                                                                               \%codedefaults,
                                                                               \@code_order);
                                       $gotcodedefaults{$clonedom}{'defaults'} = \%codedefaults;
                                       $gotcodedefaults{$clonedom}{'order'} = \@code_order;
                                   }
                                   if (@code_order > 0) {
                                       if (&Apache::lonnet::check_instcode_cloning(\%codedefaults,\@code_order,
                                                                                   $cloner,$clonefromcode,$instcode)) {
                                           $canclone = 1;
                                           last; 
                                       }
                                   }
                               }
                           }
                       }
                   }
               }
           } else {
               my %domdefs = &Apache::lonnet::get_domain_defaults($clonedom);
               if ($domdefs{'canclone'}) {
                   unless ($domdefs{'canclone'} eq 'none') {
                       if ($domdefs{'canclone'} eq 'domain') {
                           if ($udom eq $clonedom) {
                               $canclone = 1;
                           }
                       } elsif (($clonefromcode) && ($instcode) &&
                                ($clonedom eq $dom)) {
                           if (&Apache::lonnet::default_instcode_cloning($clonedom,$domdefs{'canclone'},
                                                                         $clonefromcode,$instcode)) {
                               $canclone = 1;
                           }
                       }
                   }
               }
         }          }
         unless ($canclone) {          unless ($canclone) {
             if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) {              if (&Apache::lonnet::is_course_owner($clonedom,$clonecrs,$uname,$udom)) {
Line 1725  sub process_official_reqs { Line 2057  sub process_official_reqs {
                 $reqstatus = $disposition;                  $reqstatus = $disposition;
                 if ($disposition eq 'process') {                  if ($disposition eq 'process') {
                     my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code);                      my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code);
                     my $result = &course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,\$newusermsg,\$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,\$code);                      my %customitems;
                       my $fullname = &Apache::loncommon::plainname($ownername,$ownerdom);
                       my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$ownername,
                                                                           $ownerdom,$fullname,$cdescr);
                       if (ref($inprocess) eq 'HASH') {
                           foreach my $key (keys(%{$inprocess})) {
                               if (exists($history{'details'}{$key})) {
                                   $customitems{$key} = $history{'details'}{$key};
                               }
                           }
                       }
                       if ($history{'details'}{'clonecrs'}) {
                           $customitems{'_LC_clonefrom'} = $history{'details'}{'clonedom'}.'_'.$history{'details'}{'clonecrs'};
                       }
                       my ($result,$postprocess) = 
                           &course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,\$newusermsg,\$addresult,
                                            \$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,\$code,\%customitems);
                     if ($result eq 'created') {                      if ($result eq 'created') {
                         $disposition = 'created';                          $disposition = 'created';
                         $reqstatus = 'created';                          $reqstatus = 'created';
                         my $cid = $dom.'_'.$cnum;                          my $cid = $dom.'_'.$cnum;
                         push(@{$newcids{$instcode}},$cid);                          push(@{$newcids{$instcode}},$cid);
                         if ($dcname && $dcdom) {                          if ($dcname && $dcdom) {
                             my $firsturl = &course_portal_url($cnum,$dom);                              my $firsturl = &Apache::lonnet::course_portal_url($cnum,$dom);
                             my $beneficiary = 'pendingrequestor';                              my $beneficiary = 'pendingrequestor';
                             my $now = time;                              my $now = time;
                             my $owner = $ownername.':'.$ownerdom;                              my $owner = $ownername.':'.$ownerdom;
Line 1749  sub process_official_reqs { Line 2097  sub process_official_reqs {
                                     mt => 'If currently logged-in to LON-CAPA, log-out and log-in again to select your new course role.'                                      mt => 'If currently logged-in to LON-CAPA, log-out and log-in again to select your new course role.'
                                  }];                                   }];
                             my $sender = $dcname.':'.$dcdom;                              my $sender = $dcname.':'.$dcdom;
                               if (ref($postprocess) eq 'HASH') {
                                   if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') {
                                       foreach my $item (@{$postprocess->{'createdmsg'}}) {
                                           if (ref($item) eq 'HASH') {
                                                if ($item->{'mt'} ne '') {
                                                    push(@{$approvedmsg},$item);
                                                }
                                           }
                                       }
                                   }
                                   if (ref($postprocess->{'createdactions'}) eq 'HASH') {
                                       if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') {
                                           &postprocess_crsenv($dom,$cnum,$postprocess->{'createdactions'}{'environment'});
                                       }
                                   }
                               }
                             &send_selfserve_notification($owner,$approvedmsg,                              &send_selfserve_notification($owner,$approvedmsg,
                                                          $cid,$cdescr,$now,                                                           $cid,$cdescr,$now,
                                                          $beneficiary,$sender,                                                           $beneficiary,$sender,
Line 1819  sub process_official_reqs { Line 2183  sub process_official_reqs {
     return $output;      return $output;
 }  }
   
   sub postprocess_crsenv {
       my ($dom,$cnum,$postprocessenv) = @_;
       if (ref($postprocessenv) eq 'HASH') {    
           my $cid = $dom.'_'.$cnum;
           my %settablecrsenv = (
                                 'internal.selfenroll_types'        => 1,
                                 'internal.selfenroll_registered'   => 1,
                                 'internal.selfenroll_section'      => 1,
                                 'internal.selfenroll_start_access' => 1,
                                 'internal.selfenroll_end_access'   => 1,
                                 'internal.selfenroll_limit'        => 1,
                                 'internal.selfenroll_cap'          => 1,
                                 'internal.selfenroll_approval'     => 1,
                                 'internal.selfenroll_notifylist'   => 1,
                                );
           my %needcrsidput = (
                                 'internal.selfenroll_types'      => 1,
                                 'internal.selfenroll_start_date' => 1,
                                 'internal. selfenroll_end_date'  => 1,
                              );
           my (@needupdate,%newcrsenv);
           foreach my $key (keys(%{$postprocessenv})) { 
               if ($settablecrsenv{$key}) {
                   $newcrsenv{$key} = $postprocessenv->{$key};
                   if ($needcrsidput{$key}) {
                       push(@needupdate,$key); 
                   }
               }
               if (keys(%newcrsenv)) {
                   my $putresult = &Apache::lonnet::put('environment',\%newcrsenv,$dom,$cnum);
                   if ($putresult eq 'ok') {
                       if (@needupdate) {
                           my %crsinfo =
                               &Apache::lonnet::courseiddump($dom,'.',1,'.','.',$cnum,undef,undef,'.');
                           if (ref($crsinfo{$cid}) eq 'HASH') {
                               foreach my $key (@needupdate) {
                                   $crsinfo{$cid}{$key} = $newcrsenv{$key};
                               }
                               my $chome = &Apache::lonnet::homeserver($cnum,$dom);
                               &Apache::lonnet::courseidput($dom,\%crsinfo,$chome,'notime');
                           }
                       }
                   }
               }
           }
       }
       return;
   }
   
   
   sub requestcourses_validation_types {
       my @items = ('url','fields','button','markup');
       my %names =  &Apache::lonlocal::texthash (
               url      => 'Web address of validation server/script',
               fields   => 'Form fields to send to validator',
               button   => 'Text for validation button',
               markup   => 'Validation description (HTML)',
       );
       my @fields = ('owner','course','coursetype','description');
       return (\@items,\%names,\@fields);
   }
   
 sub is_active_author {  sub is_active_author {
     if ($env{'user.role.au./'.$env{'user.domain'}.'/'} =~ /^(\d*)\.(\d*)$/) {      if ($env{'user.role.au./'.$env{'user.domain'}.'/'} =~ /^(\d*)\.(\d*)$/) {
         if ((!$1 || $1 < time) &&          if ((!$1 || $1 < time) &&
Line 1861  sub process_reqauthor { Line 2287  sub process_reqauthor {
     my ($dispositionref,$updateref) = @_;      my ($dispositionref,$updateref) = @_;
     if (&is_active_author()) {      if (&is_active_author()) {
         return '<span class="LC_warning">'.          return '<span class="LC_warning">'.
                 &mt('An authoring space has already been assigned to you.').'<br />'.                  &mt('An Authoring Space has already been assigned to you.').'<br />'.
                 &mt('Please select the Author role from your [_1]roles page[_2].','<a href="/adm/roles">',                  &mt('Please select the Author role from your [_1]roles page[_2].','<a href="/adm/roles">',
                 '</a>').'</span>';                  '</a>').'</span>';
     }      }
     unless ($env{'environment.canrequest.author'}) {      unless ($env{'environment.canrequest.author'}) {
         return '<span class="LC_warning">'.          return '<span class="LC_warning">'.
                 &mt('You do not currently have rights to request an authoring space.').'<br />'.                  &mt('You do not currently have rights to request an Authoring Space.').'<br />'.
                 &mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="/adm/helpdesk">',                  &mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="/adm/helpdesk">',
                 '</a>').'</span>';                  '</a>').'</span>';
     }      }
Line 1875  sub process_reqauthor { Line 2301  sub process_reqauthor {
     if ($queued =~ /^approval:(\d+)$/) {      if ($queued =~ /^approval:(\d+)$/) {
         my $timestamp = $1;          my $timestamp = $1;
         return '<span class="LC_info">'.          return '<span class="LC_info">'.
                &mt('A request for authoring space submitted on [_1] is awaiting approval',                 &mt('A request for Authoring Space submitted on [_1] is awaiting approval',
                &Apache::lonlocal::locallocaltime($timestamp)).                 &Apache::lonlocal::locallocaltime($timestamp)).
                '</span>';                 '</span>';
     } elsif ($queued =~ /^approved:(\d+)$/) {      } elsif ($queued =~ /^approved:(\d+)$/) {
Line 1884  sub process_reqauthor { Line 2310  sub process_reqauthor {
                                                       ['active'],['au'],[$env{'user.domain'}]);                                                        ['active'],['au'],[$env{'user.domain'}]);
         if (keys(%roleshash) > 0) {          if (keys(%roleshash) > 0) {
             return '<span class="LC_info">'.              return '<span class="LC_info">'.
                    &mt('A request for authoring space submitted on [_1] has been approved.',                     &mt('A request for Authoring Space submitted on [_1] has been approved.',
                    &Apache::lonlocal::locallocaltime($timestamp)).                     &Apache::lonlocal::locallocaltime($timestamp)).
                    '</span>';                     '</span>';
         }          }
Line 1901  sub process_reqauthor { Line 2327  sub process_reqauthor {
         if (&Apache::lonnet::assignrole($env{'user.domain'},$env{'user.name'},'/'.$env{'user.domain'}.'/',          if (&Apache::lonnet::assignrole($env{'user.domain'},$env{'user.name'},'/'.$env{'user.domain'}.'/',
                                         'au',undef,$start,undef,undef,'requestauthor') eq 'ok') {                                          'au',undef,$start,undef,undef,'requestauthor') eq 'ok') {
             $output = '<span class="LC_info">'.              $output = '<span class="LC_info">'.
                       &mt('Access to authoring space has been activated').'</span><br />';                        &mt('Access to Authoring Space has been activated').'</span><br />';
                       &Apache::lonroles::update_session_roles();                        &Apache::lonroles::update_session_roles();
             &Apache::lonnet::appenv({'user.update.time'  => $now});              &Apache::lonnet::appenv({'user.update.time'  => $now});
             if (ref($updateref)) {              if (ref($updateref)) {
Line 1912  sub process_reqauthor { Line 2338  sub process_reqauthor {
             }              }
         } else {          } else {
             $output = '<span class="LC_info">'.              $output = '<span class="LC_info">'.
                       &mt('An error occurred while activating your access to authoring space');                        &mt('An error occurred while activating your access to Authoring Space');
         }          }
     } elsif ($val eq 'approval') {      } elsif ($val eq 'approval') {
         my $domconfiguser = &Apache::lonnet::get_domainconfiguser($env{'user.domain'});          my $domconfiguser = &Apache::lonnet::get_domainconfiguser($env{'user.domain'});
Line 1943  sub process_reqauthor { Line 2369  sub process_reqauthor {
             my $userresult =              my $userresult =
                 &Apache::lonnet::put('requestauthor',\%userrequest,$env{'user.domain'},$env{'user.name'});                  &Apache::lonnet::put('requestauthor',\%userrequest,$env{'user.domain'},$env{'user.name'});
             $output = '<span class="LC_info">'.              $output = '<span class="LC_info">'.
                       &mt('Your request for authoring space has been submitted for approval.').                        &mt('Your request for Authoring Space has been submitted for approval.').
                       '</span>';                        '</span>';
             &Apache::lonnet::appenv({'environment.requestauthorqueued' => $val.':'.$now});              &Apache::lonnet::appenv({'environment.requestauthorqueued' => $val.':'.$now});
         } else {          } else {
             $output = '<span class="LC_info">'.              $output = '<span class="LC_info">'.
                       &mt('An error occurred saving your request for authoring space.').                        &mt('An error occurred saving your request for Authoring Space.').
                       '</span>';                        '</span>';
         }          }
     }      }
Removed from v.1.40  
changed lines
  Added in v.1.55

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