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

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

version 1.26, 2011/03/06 21:17:15 version 1.28, 2011/08/26 15:57:56
Line 482  sub update_request_queue { Line 482  sub update_request_queue {
                             mt => 'Your request for enrollment has been approved.',                              mt => 'Your request for enrollment has been approved.',
                         },                          },
                         {                          {
                             mt   => 'Visit [_1], to log-in and access the course',                              mt   => 'Visit [_1] to log-in and access the course',
                             args => [$firsturl],                              args => [$firsturl],
                         }];                          }];
         $rejectedmsg =  [{          $rejectedmsg =  [{
Line 497  sub update_request_queue { Line 497  sub update_request_queue {
             $queue = 'pending';              $queue = 'pending';
         }          }
         %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_'.$queue);          %requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_'.$queue);
         $firsturl= &course_portal_url($cnum,$cdom);  
         my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom);          my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom);
         if (ref($domconfig{'requestcourses'}) eq 'HASH') {          if (ref($domconfig{'requestcourses'}) eq 'HASH') {
             if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') {               if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') { 
Line 509  sub update_request_queue { Line 508  sub update_request_queue {
                             mt => 'Your course request has been approved.',                              mt => 'Your course request has been approved.',
                         },                          },
                         {                          {
                             mt   => 'Visit [_1], to log-in and access the course',                              mt   => 'Visit [_1] to log-in and access the course',
                             args => [$firsturl],                              args => [],
                         }];                          }];
         $rejectionmsg{'course'} =          $rejectionmsg{'course'} =
                         [{                          [{
Line 522  sub update_request_queue { Line 521  sub update_request_queue {
                             mt => 'Your community request has been approved.',                              mt => 'Your community request has been approved.',
                         },                          },
                         {                          {
                             mt   => 'Visit [_1], to log-in and access the community',                              mt   => 'Visit [_1] to log-in and access the community',
                             args => [$firsturl],                              args => [],
                         }];                          }];
   
         $rejectionmsg{'community'} =           $rejectionmsg{'community'} = 
Line 645  sub update_request_queue { Line 644  sub update_request_queue {
                                 } else {                                  } else {
                                     $approvedmsg = $approvalmsg{'course'};                                      $approvedmsg = $approvalmsg{'course'};
                                 }                                  }
                                   my $firsturl = &course_portal_url($cnum,$cdom);
                                   if (ref($approvedmsg) eq 'ARRAY') {
                                       if (ref($approvedmsg->[1]) eq 'HASH') {
                                           $approvedmsg->[1]->{'args'} = [$firsturl];
                                       }
                                   }
                                 push(@completed,$cnum);                                  push(@completed,$cnum);
                                                                   
                                 unless (&Apache::lonnet::del_dom($namespace,[$cnum.'_'.$queue],$cdom) eq 'ok') {                                  unless (&Apache::lonnet::del_dom($namespace,[$cnum.'_'.$queue],$cdom) eq 'ok') {
Line 1428  sub process_official_reqs { Line 1433  sub process_official_reqs {
                             my $owner = $ownername.':'.$ownerdom;                              my $owner = $ownername.':'.$ownerdom;
                             my $approvedmsg =                              my $approvedmsg =
                                 [{                                  [{
                                     mt => 'Your request course, queued pending validation has now been created.',                                      mt => 'Your requested course: [_1], (queued pending validation) has now been created.',
                                       args => [$cdescr],
                                  },                                   },
                                  {                                   {
                                     mt   => 'Visit [_1], to log-in and access the course.',                                      mt   => 'Visit [_1] to log-in and access the course.',
                                     args => [$firsturl],                                      args => [$firsturl],
                                    },
                                    {
                                       mt => 'If currently logged-in to LON-CAPA, log-out and log-in again to select your new course role.'
                                  }];                                   }];
                             my $sender = $dcname.':'.$dcdom;                              my $sender = $dcname.':'.$dcdom;
                             &send_selfserve_notification($owner,$approvedmsg,                              &send_selfserve_notification($owner,$approvedmsg,
Removed from v.1.26  
changed lines
  Added in v.1.28

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