--- loncom/interface/loncoursequeueadmin.pm 2010/03/30 15:23:51 1.23
+++ loncom/interface/loncoursequeueadmin.pm 2011/03/06 21:17:15 1.26
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Utilities to administer domain course requests and course self-enroll requests
#
-# $Id: loncoursequeueadmin.pm,v 1.23 2010/03/30 15:23:51 raeburn Exp $
+# $Id: loncoursequeueadmin.pm,v 1.26 2011/03/06 21:17:15 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -90,8 +90,8 @@ sub send_selfserve_notification {
# FIXME locallocaltime needs to be able to take $sender_lh as an argument
# so this can be localized to the recipients date display format/time zone
$timestamp =&Apache::lonlocal::locallocaltime($timestamp);
- my $msgcc;
- my ($rawsubj,@rawmsg,$subject,$message,$reviewer,$msgtxt);
+ my ($msgcc,$rawsubj,@rawmsg,$subject,$message,$reviewer,$msgtxt);
+ my ($senderuname,$senderudom) = split(':',$sender);
if ($context eq 'coursemanagers') {
$rawsubj = 'Self-enrollment requests processed';
push(@rawmsg,{
@@ -138,6 +138,15 @@ sub send_selfserve_notification {
if (ref($textstr) eq 'ARRAY') {
push(@rawmsg,@{$textstr});
}
+ } elsif ($context eq 'pendingrequestor') {
+ if ($crstype eq 'Community') {
+ $rawsubj = 'Community request';
+ } else {
+ $rawsubj = 'Processed course request';
+ }
+ if (ref($textstr) eq 'ARRAY') {
+ push(@rawmsg,@{$textstr});
+ }
} elsif ($context eq 'coursereq') {
if ($crstype eq 'community') {
$rawsubj = 'Community request to review';
@@ -213,7 +222,7 @@ sub send_selfserve_notification {
$message .= &Apache::lonlocal::mt_user($sender_lh,$item->{mt},@{$item->{args}})."\n";
}
}
- &Apache::lonmsg::process_sent_mail($subject,'',$numsent,$stamp,$uname,$udom,$msgcount,$cid,$$,$message,\@recusers,\@recudoms);
+ &Apache::lonmsg::process_sent_mail($subject,'',$numsent,$stamp,$uname,$udom,$msgcount,$cid,$$,$message,\@recusers,\@recudoms,undef,undef,undef,undef,$senderuname,$senderudom);
my ($recipid,$recipstatus) = &Apache::lonmsg::store_recipients($subject,$uname,$udom,\%reciphash);
my $status;
foreach my $recip (sort(keys(%{$msgcc}))) {
@@ -260,11 +269,13 @@ sub display_queued_requests {
$formaction = '/adm/createcourse';
$namespace = 'courserequestqueue';
my $disposition = 'approval';
+ my $nextphase = 'requestchange';
if ($context eq 'pending') {
$disposition = 'pending';
+ $nextphase = 'requestvalidation';
}
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition);
- $nextelement = '';
+ $nextelement = '';
}
my ($output,%queue_by_date);
if (keys(%requesthash) > 0) {
@@ -322,8 +333,8 @@ sub display_queued_requests {
$output .= '';
}
if ($context eq 'pending') {
- $output .= '
'."\n".
+ $output .= '
'."\n".
'
'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'
';
} else {
$output .= ' ';
@@ -444,12 +455,12 @@ sub build_queue_display {
sub update_request_queue {
my ($context,$cdom,$cnum,$coursedesc) = @_;
my ($output,$access_start,$access_end,$limit,$cap,$notifylist,$namespace,
- $stucounts,$idx,$classlist,%requesthash,$cid,$hostname,$protocol,
- $domdesc,$now,$sender,$approvedmsg,$rejectedmsg,$beneficiary,
+ $stucounts,$idx,$classlist,%requesthash,$cid,$domdesc,$now,
+ $sender,$approvedmsg,$rejectedmsg,$beneficiary,
@existing,@missingreq,@invalidusers,@limitexceeded,@completed,
@processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,
@rejections,@rejectionerrors,@nopermissions,%courseroles,
- %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue);
+ %communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,$firsturl);
@approvals = &Apache::loncommon::get_env_multiple('form.approvereq');
@rejections = &Apache::loncommon::get_env_multiple('form.rejectreq');
$now = time;
@@ -459,10 +470,7 @@ sub update_request_queue {
$beneficiary = 'enroller';
$cid = $env{'request.course.id'};
$crstype = lc(&Apache::loncommon::course_type());
- my $chome = &Apache::lonnet::homeserver($cnum,$cdom);
- $hostname = &Apache::lonnet::hostname($chome);
- $protocol = $Apache::lonnet::protocol{$chome};
- $protocol = 'http' if ($protocol ne 'https');
+ $firsturl = &course_portal_url($cnum,$cdom);
%requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);
$access_start = $env{'course.'.$cid.'.internal.selfenroll_start_access'};
$access_end = $env{'course.'.$cid.'.internal.selfenroll_end_access'};
@@ -475,7 +483,7 @@ sub update_request_queue {
},
{
mt => 'Visit [_1], to log-in and access the course',
- args => [$protocol.'://'.$hostname],
+ args => [$firsturl],
}];
$rejectedmsg = [{
mt => 'Your request for enrollment has not been approved.',
@@ -489,10 +497,7 @@ sub update_request_queue {
$queue = 'pending';
}
%requesthash = &Apache::lonnet::dump_dom($namespace,$cdom,'_'.$queue);
- my $chome = &Apache::lonnet::domain($cdom,'primary');
- $hostname = &Apache::lonnet::hostname($chome);
- $protocol = $Apache::lonnet::protocol{$chome};
- $protocol = 'http' if ($protocol ne 'https');
+ $firsturl= &course_portal_url($cnum,$cdom);
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$cdom);
if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') {
@@ -505,7 +510,7 @@ sub update_request_queue {
},
{
mt => 'Visit [_1], to log-in and access the course',
- args => [$protocol.'://'.$hostname],
+ args => [$firsturl],
}];
$rejectionmsg{'course'} =
[{
@@ -518,7 +523,7 @@ sub update_request_queue {
},
{
mt => 'Visit [_1], to log-in and access the community',
- args => [$protocol.'://'.$hostname],
+ args => [$firsturl],
}];
$rejectionmsg{'community'} =
@@ -574,7 +579,8 @@ sub update_request_queue {
$stucounts->{'allstudents'} ++;
$stucounts->{'selfenrolled'} ++;
&send_selfserve_notification($uname.':'.$udom,$approvedmsg,
- $cid,$coursedesc,$now,$beneficiary,$sender,undef,undef,$crstype);
+ $cid,$coursedesc,$now,$beneficiary,$sender,
+ undef,undef,$crstype);
my %userrequest = (
$cdom.'_'.$cnum => {
timestamp => $now,
@@ -644,8 +650,9 @@ sub update_request_queue {
unless (&Apache::lonnet::del_dom($namespace,[$cnum.'_'.$queue],$cdom) eq 'ok') {
push(@warn_dels,$cnum);
}
- &send_selfserve_notification($ownername.':'.$ownerdom,$approvedmsg,
- $cid,$coursedesc,$now,$beneficiary,$sender,undef,undef,$crstype);
+ &send_selfserve_notification($ownername.':'.$ownerdom,
+ $approvedmsg,$cid,$coursedesc,$now,
+ $beneficiary,$sender,undef,undef,$crstype);
my %reqhash = (
reqtime => $history{'reqtime'},
crstype => $history{'crstype'},
@@ -698,7 +705,8 @@ sub update_request_queue {
if ($context eq 'course') {
my $user = $item;
&send_selfserve_notification($user,$rejectedmsg,$cid,$coursedesc,
- $now,$beneficiary,$sender,undef,undef,$crstype);
+ $now,$beneficiary,$sender,undef,undef,
+ $crstype);
my ($uname,$udom) = split(/:/,$user);
my %userrequest = (
$cdom.'_'.$cnum => {
@@ -994,6 +1002,22 @@ sub update_request_queue {
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 {
my ($cdom,$cnum) = @_;
my (%idx,%stucounts);
@@ -1281,17 +1305,17 @@ sub queued_selfenrollment {
}
sub update_coursereq_status {
- my ($reqhash,$dom,$cnum,$reqstatus,$context) = @_;
+ my ($reqhash,$dom,$cnum,$reqstatus,$context,$udom,$uname) = @_;
my ($storeresult,$statusresult,$output);
my $requestkey = $dom.'_'.$cnum;
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
$storeresult = &Apache::lonnet::store_userdata($reqhash,$requestkey,
- 'courserequests');
+ 'courserequests',$udom,$uname);
if ($storeresult eq 'ok') {
my %status = (
'status:'.$dom.':'.$cnum => $reqstatus,
);
- $statusresult = &Apache::lonnet::put('courserequests',\%status);
+ $statusresult = &Apache::lonnet::put('courserequests',\%status,$udom,$uname);
}
} else {
$storeresult = 'error: invalid requestkey format';
@@ -1303,7 +1327,7 @@ sub update_coursereq_status {
} else {
$output = ''.$output.' ';
}
- &Apache::lonnet::logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult");
+ &Apache::lonnet::logthis("Error saving course request - $requestkey for $uname:$udom - $storeresult");
} elsif ($statusresult ne 'ok') {
$output = &mt('An error occurred saving a record of the status of your request: [_1].',$statusresult);
if ($context eq 'domain') {
@@ -1311,16 +1335,16 @@ sub update_coursereq_status {
} else {
$output = ''.$output.' ';
}
- &Apache::lonnet::logthis("Error saving course request status for $requestkey (for $env{'user.name'}:$env{'user.domain'}) - $statusresult");
+ &Apache::lonnet::logthis("Error saving course request status for $requestkey (for $uname:$udom) - $statusresult");
}
return ($storeresult,$output);
}
sub process_official_reqs {
- my ($context,$dom) = @_;
+ my ($context,$dom,$dcname,$dcdom) = @_;
my $reqsnamespace = 'courserequestqueue';
my %requesthash =
- &Apache::lonnet::dump_dom($reqsnamespace,$dom,undef,'_pending');
+ &Apache::lonnet::dump_dom($reqsnamespace,$dom,'_pending');
my (%newcids,%longroles,%stillpending);
my @courseroles = ('cc','in','ta','ep','ad','st');
foreach my $role (@courseroles) {
@@ -1395,7 +1419,27 @@ sub process_official_reqs {
if ($result eq 'created') {
$disposition = 'created';
$reqstatus = 'created';
- push(@{$newcids{$instcode}},$dom.'_'.$cnum);
+ my $cid = $dom.'_'.$cnum;
+ push(@{$newcids{$instcode}},$cid);
+ if ($dcname && $dcdom) {
+ my $firsturl = &course_portal_url($cnum,$dom);
+ my $beneficiary = 'pendingrequestor';
+ my $now = time;
+ my $owner = $ownername.':'.$ownerdom;
+ my $approvedmsg =
+ [{
+ mt => 'Your request course, queued pending validation has now been created.',
+ },
+ {
+ mt => 'Visit [_1], to log-in and access the course.',
+ args => [$firsturl],
+ }];
+ my $sender = $dcname.':'.$dcdom;
+ &send_selfserve_notification($owner,$approvedmsg,
+ $cid,$cdescr,$now,
+ $beneficiary,$sender,
+ undef,undef,$crstype);
+ }
}
} elsif ($disposition eq 'rejected') {
$output .= &mt('Queued course request for [_1] submitted by [_2] with status [_3] rejected when validating.',$instcode,$ownername.':'.$ownerdom,$inststatus).$linefeed;
@@ -1431,7 +1475,8 @@ sub process_official_reqs {
unless ($disposition eq 'pending') {
my ($statusresult,$output) =
&update_coursereq_status(\%requesthash,$dom,$cnum,
- $reqstatus,'domain');
+ $reqstatus,'domain',$ownerdom,
+ $ownername);
unless (&Apache::lonnet::del_dom($reqsnamespace,[$cnum.'_pending'],$dom) eq 'ok') {
$output .= &mt('An error occurred when removing the request for [_1] submitted by [_2] from the pending queue.',$instcode,$ownername.':'.$ownerdom).$linefeed;
}