loncom/interface/loncoursequeueadmin.pm - diff

Return to loncoursequeueadmin.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.34 and 1.52.2.5.2.3

version 1.34, 2013/01/04 01:56:35	version 1.52.2.5.2.3, 2023/09/04 17:10:13
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 104 sub send_selfserve_notification {	Line 105 sub send_selfserve_notification {
$rawsubj = 'Self-enrollment requests processed';	$rawsubj = 'Self-enrollment requests processed';
push(@rawmsg,{	push(@rawmsg,{
mt => 'Enrollment requests in the following course: [_1] have been processed.',	mt => 'Enrollment requests in the following course: [_1] have been processed.',
args => ["\n$contextdesc"],	args => ["\n$contextdesc\n"],
});	});
} elsif ($context eq 'domainmanagers') {	} elsif ($context eq 'domainmanagers') {
$rawsubj = 'Course/Community requests reviewed';	$rawsubj = 'Course/Community requests reviewed';
push(@rawmsg,{	push(@rawmsg,{
mt => 'Course/Community creation requests in the following domain: "[_1]" have been reviewed.',	mt => 'Course/Community creation requests in the following domain: [_1] have been reviewed.',
args => ["\n$contextdesc"],	args => ["\n$contextdesc\n"],
});	});
if (ref($textstr) eq 'ARRAY') {	if (ref($textstr) eq 'ARRAY') {
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\n"],
	});
	if (ref($textstr) eq 'ARRAY') {
	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\n"],
});	});
if (ref($textstr) eq 'ARRAY') {	if (ref($textstr) eq 'ARRAY') {
push(@rawmsg,@{$textstr});	push(@rawmsg,@{$textstr});
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 224 sub send_selfserve_notification {	Line 255 sub send_selfserve_notification {
if (ref($textstr) eq 'ARRAY') {	if (ref($textstr) eq 'ARRAY') {
push(@rawmsg,@{$textstr});	push(@rawmsg,@{$textstr});
}	}
	} elsif ($context eq 'uniquecode') {
	$rawsubj = 'Course Identifier';
	if (ref($textstr) eq 'ARRAY') {
	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 241 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 253 sub send_selfserve_notification {	Line 304 sub send_selfserve_notification {
my $stamp = time;	my $stamp = time;
my $msgcount = &Apache::lonmsg::get_uniq();	my $msgcount = &Apache::lonmsg::get_uniq();
my $sender_lh = &Apache::loncommon::user_lang($uname,$udom,$cid);	my $sender_lh = &Apache::loncommon::user_lang($uname,$udom,$cid);
$subject = &Apache::lonlocal::mt_user($sender_lh,$rawsubj);	$subject = &mt_user($sender_lh,$rawsubj);
$message = '';	$message = '';
foreach my $item (@rawmsg) {	foreach my $item (@rawmsg) {
if (ref($item) eq 'HASH') {	if (ref($item) eq 'HASH') {
$message .= &Apache::lonlocal::mt_user($sender_lh,$item->{mt},@{$item->{args}})."\n";	$message .= &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);
my $subject = &Apache::lonlocal::mt_user($sender_lh,$rawsubj);	my $subject = &mt_user($sender_lh,$rawsubj);
my $message = '';	my $message = '';
foreach my $item (@rawmsg) {	foreach my $item (@rawmsg) {
if (ref($item) eq 'HASH') {	if (ref($item) eq 'HASH') {
$message .= &Apache::lonlocal::mt_user($sender_lh,$item->{mt},	$message .= &mt_user($sender_lh,$item->{mt},
@{$item->{args}})."\n";	@{$item->{args}})."\n";
}	}
}	}
if ($context eq 'coursemanagers') {	if ($context eq 'coursemanagers') {
if ($approvedlist) {	if ($approvedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;	$message .= "\n\n".&mt_user($sender_lh,'Approved enrollments:')."\n".$approvedlist;
}	}
if ($rejectedlist) {	if ($rejectedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Rejected enrollments:')."\n".$rejectedlist;	$message .= "\n\n".&mt_user($sender_lh,'Rejected enrollments:')."\n".$rejectedlist;
}	}
} elsif ($context eq 'domainmanagers') {	} elsif ($context eq 'domainmanagers') {
if ($approvedlist) {	if ($approvedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved course requests:')."\n".$approvedlist;	$message .= "\n\n".&mt_user($sender_lh,'Approved course requests:')."\n".$approvedlist;
}	}
if ($rejectedlist) {	if ($rejectedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Rejected course requests:')."\n".$rejectedlist;	$message .= "\n\n".&mt_user($sender_lh,'Rejected course requests:')."\n".$rejectedlist;
}	}
} elsif ($context eq 'authormanagers') {	} elsif ($context eq 'authormanagers') {
if ($approvedlist) {	if ($approvedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved author role requests:')."\n".$approvedlist;	$message .= "\n\n".&mt_user($sender_lh,'Approved author role requests:')."\n".$approvedlist;
	}
	if ($rejectedlist) {
	$message .= "\n\n".&mt_user($sender_lh,'Rejected author role requests:')."\n".$rejectedlist;
	}
	} elsif ($context eq 'usernamemanagers') {
	if ($approvedlist) {
	$message .= "\n\n".&mt_user($sender_lh,'Approved LON-CAPA account requests:')."\n".$approvedlist;
}	}
if ($rejectedlist) {	if ($rejectedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Rejected author role requests:')."\n".$rejectedlist;	$message .= "\n\n".&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 315 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 323 sub display_queued_requests {	Line 396 sub display_queued_requests {
if ($context eq 'pending') {	if ($context eq 'pending') {
$disposition = 'pending';	$disposition = 'pending';
$nextphase = 'requestvalidation';	$nextphase = 'requestvalidation';
	} elsif ($context eq 'displaypending') {
	$disposition = 'pending';
}	}
%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition);	%requesthash = &Apache::lonnet::dump_dom($namespace,$dom,'_'.$disposition);
$nextelement = '<input type="hidden" name="phase" value="'.$nextphase.'" />';	$nextelement = '<input type="hidden" name="phase" value="'.$nextphase.'" />';
Line 340 sub display_queued_requests {	Line 415 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') {
my ($cnum,$disposition) = split('_',$item);	my ($cnum,$disposition) = split('_',$item);
$entry = $cnum.':'.$requesthash{$item}{'ownername'}.':'.	$entry = $cnum.':'.$requesthash{$item}{'ownername'}.':'.
$requesthash{$item}{'ownerdom'}.':';	$requesthash{$item}{'ownerdom'}.':';
if ($context eq 'pending') {	if (($context eq 'pending') \|\| ($context eq 'displaypending')) {
$entry .= $requesthash{$item}{'instcode'};	$entry .= $requesthash{$item}{'instcode'};
} else {	} else {
$entry .= $requesthash{$item}{'crstype'};	$entry .= $requesthash{$item}{'crstype'};
Line 365 sub display_queued_requests {	Line 443 sub display_queued_requests {
if (keys(%queue_by_date) > 0) {	if (keys(%queue_by_date) > 0) {
if ($context eq 'course') {	if ($context eq 'course') {
$output .= '<h3>'.&mt('Self-enrollment requests queued pending approval by a Coordinator').'</h3>';	$output .= '<h3>'.&mt('Self-enrollment requests queued pending approval by a Coordinator').'</h3>';
} elsif ($context eq 'pending') {	} elsif (($context eq 'pending') \|\| ($context eq 'displaypending')) {
$output .= '<h3>'.&mt('Requests for official courses queued pending validation').'</h3>'.	$output .= '<h3>'.&mt('Requests for official courses queued pending validation').'</h3>'.
'<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 383 sub display_queued_requests {	Line 465 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 392 sub display_queued_requests {	Line 476 sub display_queued_requests {
if ($context eq 'pending') {	if ($context eq 'pending') {
$output .= '<br /><input type="submit" name="validationcheck" value="'.	$output .= '<br /><input type="submit" name="validationcheck" value="'.
&mt('Validate').'" /><br />'."\n".	&mt('Validate').'" /><br />'."\n".
'<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>';	'<p>'.&mt('Any course/community requests which are successfully validated will be created immediately.').' '.
} else {	&mt('Unvalidated requests will be listed for manual approval/rejection.').'</p>';
	} elsif (($context ne 'helpdesk') && ($context ne 'displaypending')) {
$output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />';	$output .= '<br /><input type="submit" name="processqueue" value="'.&mt('Save').'" />';
}	}
$output .= '</form>';	$output .= '</form>';
Line 401 sub display_queued_requests {	Line 486 sub display_queued_requests {
$output .= '<div class="LC_info">';	$output .= '<div class="LC_info">';
if ($context eq 'course') {	if ($context eq 'course') {
$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') \|\| ($context eq 'displaypending')) {
$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 417 sub build_queue_display {	Line 506 sub build_queue_display {
my %crstypes;	my %crstypes;
my $output = &Apache::loncommon::start_data_table().	my $output = &Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row();	&Apache::loncommon::start_data_table_header_row();
unless ($context eq 'pending') {	unless (($context eq 'pending') \|\| ($context eq 'displaypending') \|\| ($context eq 'helpdesk')) {
$output .= '<th>'.&mt('Action').'</th>';	$output .= '<th>'.&mt('Action').'</th>';
}	}
$output .= '<th>'.&mt('Requestor').'</th>';	$output .= '<th>'.&mt('Requestor').'</th>';
Line 426 sub build_queue_display {	Line 515 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 'pending' \|\| $context eq 'stillpending') {	} elsif ($context eq 'requestusername') {
	$output .= '<th>'.&mt('Date requested').'</th>'.
	'<th>'.&mt('Details').'</th>';
	} elsif ($context eq 'pending' \|\| $context eq 'displaypending' \|\| $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>'.
'<th>'.&mt('Details').'</th>';	'<th>'.&mt('Details').'</th>';
Line 435 sub build_queue_display {	Line 527 sub build_queue_display {
official => 'Official course',	official => 'Official course',
unofficial => 'Unofficial course',	unofficial => 'Unofficial course',
community => 'Community',	community => 'Community',
	textbook => 'Textbook course',
);	);
$output .= '<th>'.&mt('Type').'</th>'.	$output .= '<th>'.&mt('Type').'</th>'.
'<th>'.&mt('Date requested').'</th>'.	'<th>'.&mt('Date requested').'</th>'.
Line 468 sub build_queue_display {	Line 561 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 'displaypending' \|\| $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 482 sub build_queue_display {	Line 584 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(
&Apache::loncommon::plainname($ownername,$ownerdom),	&Apache::loncommon::plainname($ownername,$ownerdom),
$ownername,$ownerdom);	$ownername,$ownerdom);
}	}
unless ($context eq 'pending') {	unless (($context eq 'pending') \|\| ($context eq 'displaypending') \|\| ($context eq 'helpdesk')) {
$row = '<td><span class="LC_nobreak"><label>'.	$row = '<td><span class="LC_nobreak"><label>'.
'<input type="radio" value="'.$approve.'" name="'.$count.'radioreq" />'.&mt('Approve').'</label>'.	'<input type="radio" value="'.$approve.'" name="'.$count.'radioreq" />'.&mt('Approve').'</label>'.
'<label>'.(' 'x2).	'<label>'.(' 'x2).
Line 504 sub build_queue_display {	Line 606 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";
} else {	} elsif ($context eq 'requestusername') {
if ($context eq 'pending' \|\| $context eq 'stillpending') {	$row .= '<td>'.$showtime.'</td>'."\n".
	'<td>'.$detailslink.'</td>'."\n";
	} else {
	if ($context eq 'pending' \|\| $context eq 'displaypending' \|\| $context eq 'stillpending') {
$row .= '<td>'.$instcode.'</td>'."\n";	$row .= '<td>'.$instcode.'</td>'."\n";
} else {	} else {
$row .= '<td>'.$crstype.'</td>'."\n";	$row .= '<td>'.$crstype.'</td>'."\n";
Line 533 sub update_request_queue {	Line 638 sub update_request_queue {
@processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,	@processing_errors,@warn_approves,@warn_rejects,@approvals,@warn_dels,
@rejections,@rejectionerrors,@nopermissions,%courseroles,@toremove,	@rejections,@rejectionerrors,@nopermissions,%courseroles,@toremove,
%communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,	%communityroles,%domdefs,%approvalmsg,%rejectionmsg,$crstype,$queue,
$firsturl);	$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 553 sub update_request_queue {	Line 656 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 582 sub update_request_queue {	Line 685 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 717 sub update_request_queue {	Line 845 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 734 sub update_request_queue {	Line 859 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 749 sub update_request_queue {	Line 874 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 ($logtoken,$serverid,$encpass,$courseid,$id,$firstname,
	$middlename,$lastname,$generation,$inststatus,$email);
	$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'};

	if ($curr{$uname}{'email'} ne '') {
	$email = $curr{$uname}{'email'};
	} elsif ($uname =~ /^[^\@]+\@[^\@]+$/) {
	$email = $uname;
	}

	my $upass;
	if ($curr{$uname}{'tmpinfo'}) {
	my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});
	if ($caller eq 'createaccount') {
	if ($curr{$uname}{'upass'} eq '') {
	$upass = $curr{$uname}{'upass'};
	} else {
	$upass = &Apache::loncommon::des_decrypt($key,$curr{$uname}{'upass'});
	}
	} else {
	push(@processing_errors,$uname);
	}
	} else {
	$upass = $curr{$uname}{'upass'};
	}
	if ($upass eq '') {
	push(@processing_errors,$uname);
	} else {
	undef($curr{$uname}{'upass'});
	my $result =
	&Apache::lonnet::modifyuser($cdom,$uname,$id,'internal',$upass,
	$firstname,$middlename,$lastname,
	$generation,undef,undef,$email);
	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(@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 783 sub update_request_queue {	Line 981 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);	my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,
my $result = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,	$keysmsg,$code,%customitems);
\$newusermsg,\$addresult,\$enrollcount,	my $clonemsg = [];
\$response,\$keysmsg,\%domdefs,$longroles);	my $fullname = '';
	my $inprocess = &Apache::lonnet::auto_crsreq_update($cdom,$cnum,$crstype,'process',$ownername,
	$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,$clonemsg,\$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];
}	}
	if ((ref($clonemsg) eq 'ARRAY') && (@{$clonemsg})) {
	push(@{$approvedmsg},@{$clonemsg});
	}
	if ($code) {
	push(@{$approvedmsg},
	{
	mt => 'Students can automatically select your course by entering this code: [_1]',
	args => [$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 855 sub update_request_queue {	Line 1090 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 884 sub update_request_queue {	Line 1123 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 950 sub update_request_queue {	Line 1208 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 1006 sub update_request_queue {	Line 1277 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 1033 sub update_request_queue {	Line 1304 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 1047 sub update_request_queue {	Line 1342 sub update_request_queue {
}	}
my $syllabuslink =	my $syllabuslink =
&Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);	&Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);
	if ($codes{$cnum}) {
	$syllabuslink .= ' '.&mt('Unique code: [_1]',$codes{$cnum});
	}
$output .= '<li>'.$syllabuslink.'</li>';	$output .= '<li>'.$syllabuslink.'</li>';
}	}
$output .= '</ul></p>';	$output .= '</ul></p>';
Line 1071 sub update_request_queue {	Line 1369 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 1081 sub update_request_queue {	Line 1383 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 1134 sub update_request_queue {	Line 1436 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 1166 sub update_request_queue {	Line 1468 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 1190 sub update_request_queue {	Line 1492 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 1232 sub update_request_queue {	Line 1540 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 1255 sub update_request_queue {	Line 1569 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 for the following 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) {
my $showcourse;	my $showcourse;
if (ref($requesthash{$cnum.'_'.$queue})) {	if (ref($requesthash{$cnum.'_'.$queue})) {
Line 1272 sub update_request_queue {	Line 1593 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 1307 sub get_student_counts {	Line 1612 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,$clonemsg,$newusermsg,$addresult,
$keysmsg,$domdefs,$longroles) = @_;	$enrollcount,$output,$keysmsg,$domdefs,$longroles,$coderef,$customhash,
	$callercontext,$user_lh) = @_;
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,$autocoowner);
my $crstype = $details->{'crstype'};	my $crstype = $details->{'crstype'};
	my $coursedesc = $details->{'cdescr'};
	my $accessstart = $details->{'accessstart'};
	my $accessend = $details->{'accessend'};
	my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses','autoenroll'],$dom);
	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
	if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {
	if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {
	$details->{'uniquecode'} = 1;
	}
	}
	}
	if (ref($domconfig{'autoenroll'}) eq 'HASH') {
	$autocoowner = $domconfig{'autoenroll'}{'co-owners'};
	}
if ($context eq 'domain') {	if ($context eq 'domain') {
$ownername = $details->{'owner'};	$ownername = $details->{'owner'};
$ownerdom = $details->{'domain'};	$ownerdom = $details->{'domain'};
Line 1322 sub course_creation {	Line 1642 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') {
$owneremail = $emails{$email};	$owneremail = $emails{$email};
last if ($owneremail ne '');	last if ($owneremail ne '');
}	}
my %reqdetails = &build_batchcreatehash($dom,$context,$details,$owneremail,$domdefs);	my %reqdetails = &build_batchcreatehash($dom,$cnum,$context,$details,$owneremail,$domdefs);
my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',	my $cid = &LONCAPA::batchcreatecourse::build_course($dom,$cnum,'requestcourses',
\%reqdetails,$longroles,$logmsg,$newusermsg,$addresult,	\%reqdetails,$longroles,$logmsg,$clonemsg,$newusermsg,$addresult,
$enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype);	$enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype,
	$coderef,$callercontext,$user_lh);
	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);
	if ($autocoowner) {
	my $instcode = $details->{'instcode'};
	if (($instcode ne '') && (ref($reqdetails{'users'}) eq 'HASH')) {
	my @posscoowners;
	my $now = time;
	foreach my $person (keys(%{$reqdetails{'users'}})) {
	my ($uname,$udom) = split(/:/,$person);
	next if (($udom ne $dom) \|\| (($uname eq $ownername) && ($udom eq $ownerdom)));
	if ((&Apache::lonnet::homeserver($uname,$udom,1) ne 'no_host') &&
	(ref($reqdetails{'users'}{$person}) eq 'HASH')) {
	if ((grep(/^cc$/,keys(%{$reqdetails{'users'}{$person}}))) &&
	(ref($reqdetails{'users'}{$person}{'cc'}) eq 'HASH')) {
	my $start = $reqdetails{'users'}{$person}{'cc'}{'start'};
	my $end = $reqdetails{'users'}{$person}{'cc'}{'end'};
	if ((($start eq '') \|\| ($start <= $now)) &&
	(($end eq '') \|\| ($end >= $now))) {
	push(@posscoowners,$person);
	}
	}
	}
	}
	my @coowners;
	if (@posscoowners) {
	foreach my $user (@posscoowners) {
	my ($checkcc,$desc) =
	&Apache::lonnet::auto_validate_instcode($cnum,$dom,$instcode,$user);
	unless ($checkcc eq 'valid') {
	if (ref($reqdetails{'crosslists'}) eq 'HASH') {
	foreach my $key (keys(%{$reqdetails{'crosslists'}})) {
	if (ref($reqdetails{'crosslists'}{$key}) eq 'HASH') {
	my $inst_crosslist = $reqdetails{'crosslists'}{$key}{'inst'};
	if ($inst_crosslist ne '') {
	$checkcc =
	&Apache::lonnet::auto_validate_inst_crosslist($cnum,$dom,$instcode,
	$inst_crosslist,$user);
	last if ($checkcc eq 'valid');
	}
	}
	}
	}
	}
	if ($checkcc eq 'valid') {
	if (@coowners > 0) {
	unless (grep(/^\Q$user\E$/,@coowners)) {
	push(@coowners,$user);
	}
	} else {
	push(@coowners,$user);
	}
	}
	}
	}
	if (@coowners > 0) {
	my $chome = &Apache::lonnet::homeserver($cnum,$dom);
	unless ($chome eq 'no_host') {
	&Apache::lonnet::store_coowners($dom,$cnum,$chome,'',@coowners);
	}
	}
	}
	}
} else {	} else {
$result = 'error: '.$cid;	$result = 'error: '.$cid;
}	}
return $result;	return ($result,$postprocess);
}	}

sub build_batchcreatehash {	sub build_batchcreatehash {
my ($dom,$context,$details,$owneremail,$domdefs) = @_;	my ($dom,$cnum,$context,$details,$owneremail,$domdefs) = @_;
my %batchhash;	my %batchhash;
my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift enrollstart enrollend accessstart accessend sections crosslists users};	my @items = qw{owner domain coursehome clonecrs clonedom datemode dateshift tinyurls enrollstart enrollend accessstart accessend sections users uniquecode};
if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {	if ((ref($details) eq 'HASH') && (ref($domdefs) eq 'HASH')) {
my $emailenc = &escape($owneremail);	my $emailenc = &escape($owneremail);
my $owner = $details->{'owner'}.':'.$details->{'domain'};	my $owner = $details->{'owner'}.':'.$details->{'domain'};
foreach my $item (@items) {	foreach my $item (@items) {
$batchhash{$item} = $details->{$item};	$batchhash{$item} = $details->{$item};
}	}
	if (ref($details->{'crosslists'}) eq 'HASH') {
	foreach my $key (keys(%{$details->{'crosslists'}})) {
	if (ref($details->{'crosslists'}->{$key}) eq 'HASH') {
	my $instsec = $details->{crosslists}->{$key}->{instsec};
	$batchhash{'crosslists'}{$key}{'inst'} = $details->{crosslists}->{$key}->{instcode};
	my $crskey = $cnum.':'.$batchhash{'crosslists'}{$key}{'inst'};
	my %formatted = &Apache::lonnet::auto_instsec_reformat($dom,'clutter',
	{$crskey => [$instsec]});
	if (ref($formatted{$crskey}) eq 'ARRAY') {
	$batchhash{'crosslists'}{$key}{'inst'} .= $formatted{$crskey}->[0];
	}
	$batchhash{'crosslists'}{$key}{'loncapa'} = $details->{crosslists}->{$key}->{loncapa};
	}
	}
	}
$batchhash{'title'} = $details->{'cdescr'};	$batchhash{'title'} = $details->{'cdescr'};
$batchhash{'coursecode'} = $details->{'instcode'};	$batchhash{'coursecode'} = $details->{'instcode'};
	if ($domdefs->{'officialcredits'} \|\| $domdefs->{'unofficialcredits'}) {
	$batchhash{'defaultcredits'} = $details->{'defaultcredits'};
	}
$batchhash{'emailenc'} = $emailenc;	$batchhash{'emailenc'} = $emailenc;
$batchhash{'adds'} = $details->{'autoadds'};	$batchhash{'adds'} = $details->{'autoadds'};
$batchhash{'drops'} = $details->{'autodrops'};	$batchhash{'drops'} = $details->{'autodrops'};
Line 1360 sub build_batchcreatehash {	Line 1768 sub build_batchcreatehash {
if ($details->{'crstype'} eq 'community') {	if ($details->{'crstype'} eq 'community') {
$batchhash{'crstype'} = 'Community';	$batchhash{'crstype'} = 'Community';
} 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'};
	}
	} elsif ($details->{'crstype'} eq 'lti') {
	$batchhash{'lti'} = 1;
	}
$batchhash{'crstype'} = 'Course';	$batchhash{'crstype'} = 'Course';
}	}
my ($owner_firstname,$owner_lastname);	my ($owner_firstname,$owner_lastname);
Line 1398 sub build_batchcreatehash {	Line 1814 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 1414 sub can_clone_course {	Line 1831 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 1633 sub process_official_reqs {	Line 2101 sub process_official_reqs {
$longroles{$role}=&Apache::lonnet::plaintext($role);	$longroles{$role}=&Apache::lonnet::plaintext($role);
}	}
my %domdefs = &Apache::lonnet::get_domain_defaults($dom);	my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
my ($output,$linefeed);	my ($output,$linefeed,$user_lh);
if ($context eq 'auto') {	if ($context eq 'auto') {
$linefeed = "\n";	$linefeed = "\n";
	$user_lh = &Apache::loncommon::user_lang($dcname,$dcdom);
} else {	} else {
$linefeed = '<br />'."\n";	$linefeed = '<br />'."\n";
}	}
Line 1696 sub process_official_reqs {	Line 2165 sub process_official_reqs {
}	}
$reqstatus = $disposition;	$reqstatus = $disposition;
if ($disposition eq 'process') {	if ($disposition eq 'process') {
my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg);	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);	my $clonemsg = [];
	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,$clonemsg,\$newusermsg,
	\$addresult,\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,
	\$code,\%customitems,$context,$user_lh);
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 1712 sub process_official_reqs {	Line 2199 sub process_official_reqs {
[{	[{
mt => 'Your requested course: [_1], (queued pending validation) has now been created.',	mt => 'Your requested course: [_1], (queued pending validation) has now been created.',
args => [$cdescr],	args => [$cdescr],
},	}];
	if ((ref($clonemsg) eq 'ARRAY') && (@{$clonemsg})) {
	push(@{$approvedmsg},@{$clonemsg});
	}
	push(@{$approvedmsg},
{	{
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.'	mt => 'If currently logged-in to LON-CAPA, log-out and log-in again to select your new course role.',
}];	args => [],
	}
	);
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 1791 sub process_official_reqs {	Line 2300 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 1833 sub process_reqauthor {	Line 2404 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].','<a href="/adm/helpdesk">',	&mt('Please contact the [_1]helpdesk[_2] for assistance.','<a href="/adm/helpdesk">',
'</a>').'</span>';	'</a>').'</span>';
}	}
my $queued = &reqauthor_check();	my $queued = &reqauthor_check();
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 1856 sub process_reqauthor {	Line 2427 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 1873 sub process_reqauthor {	Line 2444 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 1884 sub process_reqauthor {	Line 2455 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 1915 sub process_reqauthor {	Line 2486 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>';
}	}
}	}

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

Removed from v.1.34
changed lines
	Added in v.1.52.2.5.2.3