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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.116 and 1.118

version 1.116, 2023/03/11 04:44:51 version 1.118, 2025/01/10 22:45:55
Line 2726  sub requestlog_display_filter { Line 2726  sub requestlog_display_filter {
     my $nolink = 1;      my $nolink = 1;
     my $output = '<table><tr><td valign="top">'.      my $output = '<table><tr><td valign="top">'.
                  '<span class="LC_nobreak"><b>'.&mt('Records/page:').'</b></span><br />'.                   '<span class="LC_nobreak"><b>'.&mt('Records/page:').'</b></span><br />'.
                  &Apache::lonmeta::selectbox('show',$curr->{'show'},undef,                   &Apache::lonmeta::selectbox('show',$curr->{'show'},'',undef,
                                               (&mt('all'),5,10,20,50,100,1000,10000)).                                                (&mt('all'),5,10,20,50,100,1000,10000)).
                  '</td><td>&nbsp;&nbsp;</td>';                   '</td><td>&nbsp;&nbsp;</td>';
     my $startform =      my $startform =
Line 3919  ENDCLOSE Line 3919  ENDCLOSE
                 if (($code) || ((ref($postprocess) eq 'HASH') &&                   if (($code) || ((ref($postprocess) eq 'HASH') && 
                                 (($postprocess->{'createdweb'}) || ($postprocess->{'createdmsg'})))) {                                  (($postprocess->{'createdweb'}) || ($postprocess->{'createdmsg'})))) {
                     $output .= &notification_information($disposition,$env{'user.name'}.':'.$env{'user.domain'},                      $output .= &notification_information($disposition,$env{'user.name'}.':'.$env{'user.domain'},
                                                          $dom,$cnum,$now,$code,$postprocess);                                                           $dom,$cnum,$now,$code,$postprocess,$crstype);
                 }                  }
                 if ($code) {                  if ($code) {
                     $reqhash{'code'} = $code;                      $reqhash{'code'} = $code;
Line 4032  ENDCLOSE Line 4032  ENDCLOSE
                     unless ($disposition eq 'pending') {                       unless ($disposition eq 'pending') { 
                         $output .= '<br />'.                          $output .= '<br />'.
                                    &notification_information($disposition,$req_notifylist,                                     &notification_information($disposition,$req_notifylist,
                                                              $dom,$cnum,$now);                                                               $dom,$cnum,$now,'','',$crstype);
                     }                      }
                 } else {                  } else {
                     $reqstatus = 'domainerror';                      $reqstatus = 'domainerror';
Line 4065  ENDCLOSE Line 4065  ENDCLOSE
                     $output .= '<p>'.&mt('Your course request has been updated').'</p>';                      $output .= '<p>'.&mt('Your course request has been updated').'</p>';
                 }                  }
                 if ($disposition eq 'approval') {                  if ($disposition eq 'approval') {
                     $output .= &notification_information($disposition,$req_notifylist,$dom,$cnum,$now);                      $output .= &notification_information($disposition,$req_notifylist,$dom,$cnum,$now,'','',$crstype);
                 }                  }
             }              }
             if ($disposition eq 'approval') {              if ($disposition eq 'approval') {
                 if ((ref($postprocess) eq 'HASH') &&                   if ((ref($postprocess) eq 'HASH') && 
                     ((ref($postprocess->{'queuedmsg'}) eq 'HASH') || ($postprocess->{'queuedweb'}))) {                       ((ref($postprocess->{'queuedmsg'}) eq 'HASH') || ($postprocess->{'queuedweb'}))) { 
                     &notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);                      &notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess,$crstype);
                     $customized = $postprocess->{'createdcustomized'};                      $customized = $postprocess->{'createdcustomized'};
                 }                  }
             } elsif ($disposition eq 'pending') {              } elsif ($disposition eq 'pending') {
Line 4083  ENDCLOSE Line 4083  ENDCLOSE
                 if ($pendingform) {                  if ($pendingform) {
                     $output .= $pendingform;                      $output .= $pendingform;
                 } else {                   } else { 
                     $output .= &notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);                      $output .= &notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess,$crstype);
                 }                  }
                 if (ref($postprocess) eq 'HASH') {                  if (ref($postprocess) eq 'HASH') {
                     $customized = $postprocess->{'createdcustomized'};                      $customized = $postprocess->{'createdcustomized'};
Line 4281  sub update_requestors_roles { Line 4281  sub update_requestors_roles {
 }  }
   
 sub notification_information {  sub notification_information {
     my ($disposition,$req_notifylist,$dom,$cnum,$now,$code,$postprocess) = @_;      my ($disposition,$req_notifylist,$dom,$cnum,$now,$code,$postprocess,$crstype) = @_;
     my %emails = &Apache::loncommon::getemails();      my %emails = &Apache::loncommon::getemails();
     my $address;      my $address;
     if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {      if (($emails{'permanentemail'} ne '') || ($emails{'notification'} ne '')) {
Line 4297  sub notification_information { Line 4297  sub notification_information {
         if ($address ne '') {          if ($address ne '') {
             $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'<br />';              $output.= &mt('An e-mail will also be sent to: [_1] when this occurs.',$address).'<br />';
         }          }
           my %possemails;
           my $fullname = &Apache::loncommon::plainname($env{'user.name'},
                                                        $env{'user.domain'});
           my $emailto = &Apache::loncommon::build_recipient_list(undef,'requestsmail',$dom);
           if ($emailto) {
               map { $possemails{$_} = 1; } (split(/,/,$emailto));
           }
         if ($req_notifylist) {          if ($req_notifylist) {
             my $fullname = &Apache::loncommon::plainname($env{'user.name'},              if ($emailto) {
                                                          $env{'user.domain'});                  foreach my $recip (split(/,/,$req_notifylist)) {
                       my ($uname,$udom) = split(/:/,$recip);
                       my %emails = &Apache::loncommon::getemails($uname,$udom);
                       foreach my $type ('permanentemail','notification') {
                           if ((exists($emails{$type})) && ($emails{$type} ne '')) {
                               my @to = split(/,/,$emails{$type});
                               foreach my $addr (@to) {
                                   if (($addr ne '') && ($addr =~ m/\@/)) {
                                       if (exists($possemails{$addr})) {
                                           delete($possemails{$addr});
                                       }
                                   }
                               }
                           }
                       }
                   }
               }
             my $sender = $env{'user.name'}.':'.$env{'user.domain'};              my $sender = $env{'user.name'}.':'.$env{'user.domain'};
             &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,"$fullname ($env{'user.name'}:$env{'user.domain'})",              &Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,"$fullname ($env{'user.name'}:$env{'user.domain'})",
                                                                       'undef',$env{'form.cdescr'},$now,'coursereq',$sender);                                                                        undef,$env{'form.cdescr'},$now,'coursereq',$sender,'','',$crstype);
           }
   #
   # If domain configuration for "E-mail addresses and helpform" has values set
   # for "E-mail from course requests requiring approval", send email to those
   # addresse(es) when a course request is queued, pending approval, unless
   # the email address will already receive a notification email, because of
   # values set for "Receive notification of course requests requiring approval"
   # in "Request creation of courses" configuration item.
   #
           if ($emailto && keys(%possemails)) {
               &notify_admin($dom,$crstype,$env{'form.cdescr'},"$fullname ($env{'user.name'}:$env{'user.domain'})",$now,\%possemails);
         }          }
         if (ref($postprocess) eq 'HASH') {          if (ref($postprocess) eq 'HASH') {
             if (ref($postprocess->{'queuedmsg'}) eq 'ARRAY') {              if (ref($postprocess->{'queuedmsg'}) eq 'ARRAY') {
Line 4383  sub notification_information { Line 4417  sub notification_information {
                     $type = 'uniquecode';                      $type = 'uniquecode';
                 }                  }
                 &Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,$dom.'_'.$cnum,$env{'form.cdescr'},                  &Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,$dom.'_'.$cnum,$env{'form.cdescr'},
                                                                           $now,$type,$sender);                                                                            $now,$type,$sender,'','',$crstype);
             }              }
         }          }
     } else {      } else {
Line 4394  sub notification_information { Line 4428  sub notification_information {
     return $output;      return $output;
 }  }
   
   sub notify_admin {
       my ($dom,$crstype,$contextdesc,$textstr,$timestamp,$emailsref) = @_;
       if ((ref($emailsref) eq 'HASH') && (keys(%{$emailsref}))) {
           my $emailto = join(',',sort(keys(%{$emailsref})));
           my (@rawmsg,$rawsubj,$msgtxt);
           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].';
           }
           $timestamp =&Apache::lonlocal::locallocaltime($timestamp);
           push(@rawmsg,{
                         mt  => $msgtxt,
                         args => ["\n  $contextdesc\n",$textstr,$timestamp],
                        },
                        {
                         mt =>'[_1]A Domain Coordinator will use: [_2]Main Menu -> Course and community creation -> Approve or reject requests[_3]to display a list of pending requests, which can either be approved or rejected.',
                         args => ["\n","\n\n","\n\n"],
                        });
   
           my $sender_lh = &Apache::loncommon::user_lang($env{'user.name'},$env{'user.domain'});
           my $subject = &mt_user($sender_lh,$rawsubj);
           my $message = '';
           foreach my $item (@rawmsg) {
               if (ref($item) eq 'HASH') {
                   if (ref($item->{args}) eq 'ARRAY') {
                       $message .= &mt_user($sender_lh,$item->{mt},@{$item->{args}})."\n";
                   } else {
                       $message .= &mt_user($sender_lh,$item->{mt})."\n";
                   }
               }
           }
           my $chgmail = "To: $emailto\n".
                         "Subject: $subject\n".
                         "Content-type: text/plain\; charset=UTF-8\n".
                         "MIME-Version: 1.0\n\n".
                         "$message\n\n";
           if (open(my $mailh, "|/usr/lib/sendmail -oi -t -odb")) {
               print $mailh $chgmail;
               close($mailh);
           }
       }
   }
   
 sub pending_validation_form {  sub pending_validation_form {
     my ($r,$cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_;      my ($r,$cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_;
     my $output;      my $output;
Removed from v.1.116  
changed lines
  Added in v.1.118

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