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.44 and 1.63

version 1.44, 2014/03/03 17:11:41	version 1.63, 2022/11/23 02:55:37
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});
Line 118 sub send_selfserve_notification {	Line 119 sub send_selfserve_notification {
} 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') {	if (ref($textstr) eq 'ARRAY') {
push(@rawmsg,@{$textstr});	push(@rawmsg,@{$textstr});
Line 127 sub send_selfserve_notification {	Line 128 sub send_selfserve_notification {
} elsif ($context eq 'usernamemanagers') {	} elsif ($context eq 'usernamemanagers') {
$rawsubj = 'LON-CAPA account requests reviewed';	$rawsubj = 'LON-CAPA account requests reviewed';
push(@rawmsg,{	push(@rawmsg,{
mt => 'Account requests in the following domain: "[_1]" have been reviewed.',	mt => 'Account 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});
Line 143 sub send_selfserve_notification {	Line 144 sub send_selfserve_notification {
push(@rawmsg,{	push(@rawmsg,{
mt => $msgtxt,	mt => $msgtxt,
args => ["\n ".$contextdesc.",\n",$timestamp.",\n"],	args => ["\n ".$contextdesc.",\n",$timestamp.",\n"],

});	});
if (ref($textstr) eq 'ARRAY') {	if (ref($textstr) eq 'ARRAY') {
push(@rawmsg,@{$textstr});	push(@rawmsg,@{$textstr});
Line 269 sub send_selfserve_notification {	Line 269 sub send_selfserve_notification {
if (ref($textstr) eq 'ARRAY') {	if (ref($textstr) eq 'ARRAY') {
push(@rawmsg,@{$textstr});	push(@rawmsg,@{$textstr});
}	}
	} elsif ($context eq 'othdomroleuser') {
	my $linktext = 'Roles';
	if (&Apache::loncommon::show_course()) {
	$linktext = 'Courses';
	}
	$rawsubj = 'Role Assignment Approval';
	push(@rawmsg,{
	mt => 'A domain different to your own LON-CAPA domain ([_1]) wants to assign you a role in their domain.',
	args => ["\n$contextdesc\n"],
	},
	{
	mt =>"[_1]Click $linktext at top right, then click 'Manage Role Requests' in the gray Functions bar ".
	"to display a list of pending role assignments in other domain(s), which you can either accept or reject.",
	args => ["\n\n"],
	});
	} elsif ($context eq 'othdomroledc') {
	$rawsubj = 'Role Assignment Authorization';
	push(@rawmsg,{
	mt => 'Another LON-CAPA domain wants to assign a role in their domain to a user from your domain.',
	args => [],
	},
	{
	mt =>'[_1]As Domain Coordinator, use: [_2]Main Menu -> Create users or modify the roles and privileges of users
	-> Queued Role Assignments (this domain) [_3]to display a list of pending requests, which you can either approve or reject.',
	args => ["\n","\n\n ","\n\n"],
	});
}	}
my @to_notify = split(/,/,$notifylist);	my @to_notify = split(/,/,$notifylist);
my $numsent = 0;	my $numsent = 0;
Line 303 sub send_selfserve_notification {	Line 329 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,	&Apache::lonmsg::process_sent_mail($subject,'',$numsent,$stamp,$uname,$udom,$msgcount,$cid,$$,$message,
Line 321 sub send_selfserve_notification {	Line 347 sub send_selfserve_notification {
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) {	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 author role requests:')."\n".$rejectedlist;
}	}
} elsif ($context eq 'usernamemanagers') {	} elsif ($context eq 'usernamemanagers') {
if ($approvedlist) {	if ($approvedlist) {
$message .= "\n\n".&Apache::lonlocal::mt_user($sender_lh,'Approved LON-CAPA account requests:')."\n".$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 LON-CAPA account 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,	$status .= &Apache::lonmsg::user_normal_msg($ccname,$ccdom,$subject,$message,undef,undef,undef,1,
Line 370 sub send_selfserve_notification {	Line 396 sub send_selfserve_notification {
}	}

sub display_queued_requests {	sub display_queued_requests {
my ($context,$dom,$cnum) = @_;	my ($context,$dom,$cnum,$secondary) = @_;
my ($namespace,$formaction,$nextelement,%requesthash);	my ($namespace,$formaction,$nextelement,%requesthash);
if ($context eq 'course') {	if ($context eq 'course') {
$formaction = '/adm/createuser';	$formaction = '/adm/createuser';
Line 387 sub display_queued_requests {	Line 413 sub display_queued_requests {
$namespace = 'usernamequeue';	$namespace = 'usernamequeue';
%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 'othdomqueue') {
	$formaction = '/adm/createuser';
	$namespace = 'othdomqueued';
	if ($secondary eq 'domain') {
	%requesthash = &Apache::lonnet::dump_dom($namespace,$dom);
	foreach my $key (keys(%requesthash)) {
	delete($requesthash{$key}) if ($key =~ /:(ca\|aa)$/);
	}
	} elsif ($secondary eq 'author') {
	%requesthash = &Apache::lonnet::dump($namespace,$dom,$cnum);
	if ($cnum eq &Apache::lonnet::get_domainconfiguser($dom)) {
	foreach my $key (keys(%requesthash)) {
	delete($requesthash{$key}) if ($key !~ /:(ca\|aa)$/);
	}
	}
	} else {
	%requesthash = &Apache::lonnet::dump($namespace,$dom,$cnum);
	}
	} elsif ($context eq 'othdomaction') {
	$formaction = '/adm/createuser';
	$namespace = 'queuedrolereqs';
	if ($secondary eq 'domain') {
	my $confname = &Apache::lonnet::get_domainconfiguser($dom);
	%requesthash = &Apache::lonnet::dump($namespace,$dom,$confname);
	} else {
	%requesthash = &Apache::lonnet::dump($namespace,$dom,$cnum);
	}
	$nextelement = '<input type="hidden" name="state" value="done" />';
} else {	} else {
$formaction = '/adm/createcourse';	$formaction = '/adm/createcourse';
$namespace = 'courserequestqueue';	$namespace = 'courserequestqueue';
Line 395 sub display_queued_requests {	Line 449 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 415 sub display_queued_requests {	Line 471 sub display_queued_requests {
} elsif ($context eq 'requestusername') {	} elsif ($context eq 'requestusername') {
$timestamp = $requesthash{$item};	$timestamp = $requesthash{$item};
($entry) = (&unescape($item) =~ /^($match_username)_approval$/);	($entry) = (&unescape($item) =~ /^($match_username)_approval$/);
	} elsif ($context eq 'othdomqueue') {
	if (ref($requesthash{$item}) eq 'HASH') {
	my ($puname,$pudom,$prole,$psec) = split(/:/,$item);
	$timestamp = $requesthash{$item}{'timestamp'};
	my $adj = $requesthash{$item}{'adj'};
	$entry = join(':',$puname,$pudom,$prole,$adj,
	&escape($requesthash{$item}{'requester'}),
	$psec);
	}
	} elsif ($context eq 'othdomaction') {
	if (ref($requesthash{$item}) eq 'HASH') {
	$timestamp = $requesthash{$item}{'timestamp'};
	$entry = &escape($item).':'.&escape($requesthash{$item}{'requester'});
	}
} else {	} else {
$timestamp = $requesthash{$item}{'timestamp'};
if (ref($requesthash{$item}) eq 'HASH') {	if (ref($requesthash{$item}) eq 'HASH') {
	$timestamp = $requesthash{$item}{'timestamp'};
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 440 sub display_queued_requests {	Line 510 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') {	} elsif ($context eq 'requestusername') {
$output .= '<h3>'.&mt('Requests for LON-CAPA accounts queued pending approval by a Domain Coordinator').'</h3>';	$output .= '<h3>'.&mt('Requests for LON-CAPA accounts queued pending approval by a Domain Coordinator').'</h3>';
	} elsif ($context eq 'othdomqueue') {
	if ($secondary eq 'domain') {
	$output .= '<h3>'.&mt('Domain role assignments for users from another domain, queued pending approval').'</h3>';
	} elsif ($secondary eq 'author') {
	$output .= '<h3>'.&mt('Co-author role assignments for users from another domain, queued pending approval').'</h3>';
	} elsif ($secondary eq 'course') {
	$output .= '<h3>'.&mt('Course role assignments for users from another domain, queued pending approval').'</h3>';
	} elsif ($secondary eq 'community') {
	$output .= '<h3>'.&mt('Community role assignments for users from another domain, queued pending approval').'</h3>';
	}
	} elsif ($context eq 'othdomaction') {
	if ($secondary eq 'user') {
	$output .= '<h3>'.&mt('Role assignments for you in other domains, queued pending your acceptance of the role.').'</h3>';
	} elsif ($secondary eq 'domain') {
	$output .= '<h3>'.&mt('Role assignments in other domains, queued pending domain coordinator approval in this domain.').'</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>';
}	}
$output .= &build_queue_display($dom,$context,\%queue_by_date).	$output .= &build_queue_display($dom,$context,\%queue_by_date,$secondary).
'<input type="hidden" name="queue" value="approval" />';	'<input type="hidden" name="queue" value="approval" />';
} else {	} else {
$output .= '<div class="LC_info">';	$output .= '<div class="LC_info">';
Line 465 sub display_queued_requests {	Line 553 sub display_queued_requests {
$output .= &mt('There are currently no requests for LON-CAPA accounts awaiting approval.');	$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.');
	} elsif ($context eq 'othdomqueue') {
	if ($secondary eq 'domain') {
	$output .= &mt('There are currently no domain role assignment(s) for user(s) from another domain queued pending approval');
	} elsif ($secondary eq 'author') {
	$output .= &mt('There are currently no co-author role assignment(s) for user(s) from another domain queued pending approval');
	} elsif ($secondary eq 'course') {
	$output .= &mt('There are currently no course role assignment(s) for user(s) from another domain queued pending approval');
	} elsif ($secondary eq 'community') {
	$output .= &mt('There are currently no community role assignment(s) for user(s) from another domain queued pending approval');
	}
	} elsif ($context eq 'othdomaction') {
	if ($secondary eq 'user') {
	$output .= &mt('There are currently no pending role assignments for you in other domains, queued pending your acceptance of the role.');
	} elsif ($secondary eq 'domain') {
	$output .= &mt('There are currently no pending role assignments in other domains, queued pending domain coordinator approval in this domain.');
	}
}	}
$output .= '</div>';	$output .= '</div>';
}	}
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') && ($context ne 'othdomqueue')) {
$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 480 sub display_queued_requests {	Line 585 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') {	} 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') {	} elsif ($context eq 'requestusername') {
$output .= &mt('There are currently no requests for LON-CAPA accounts awaiting approval.');	$output .= &mt('There are currently no requests for LON-CAPA accounts awaiting approval.');
	} elsif ($context eq 'othdomqueue') {
	if ($secondary eq 'domain') {
	$output .= &mt('There are currently no domain role assignment(s) for user(s) from another domain queued pending approval');
	} elsif ($secondary eq 'author') {
	$output .= &mt('There are currently no co-author role assignment(s) for user(s) from another domain queued pending approval');
	} elsif ($secondary eq 'course') {
	$output .= &mt('There are currently no course role assignment(s) for user(s) from another domain queued pending approval');
	} elsif ($secondary eq 'community') {
	$output .= &mt('There are currently no community role assignment(s) for user(s) from another domain queued pending approval');
	}
	} elsif ($context eq 'othdomaction') {
	if ($secondary eq 'user') {
	$output .= &mt('There are currently no pending role assignments for you in other domains, queued pending your acceptance of the role.');
	} elsif ($secondary eq 'domain') {
	$output .= &mt('There are currently no pending role assignments in other domains, queued pending domain coordinator approval in this domain.');
	}
} 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 495 sub display_queued_requests {	Line 616 sub display_queued_requests {
}	}

sub build_queue_display {	sub build_queue_display {
my ($dom,$context,$queue) = @_;	my ($dom,$context,$queue,$secondary) = @_;
return unless (ref($queue) eq 'HASH');	return unless (ref($queue) eq 'HASH');
my %crstypes;	my (%crstypes,%roles_by_context);
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') \|\| ($context eq 'othdomqueue')) {
$output .= '<th>'.&mt('Action').'</th>';	$output .= '<th>'.&mt('Action').'</th>';
}	}
$output .= '<th>'.&mt('Requestor').'</th>';	unless (($context eq 'othdomqueue') \|\| (($context eq 'othdomaction') && ($secondary eq 'user'))) {
	$output .= '<th>'.&mt('Requestor').'</th>';
	}
if ($context eq 'course') {	if ($context eq 'course') {
$output .= '<th>'.&mt('Section').'</th>'.	$output .= '<th>'.&mt('Section').'</th>'.
'<th>'.&mt('Date requested').'</th>';	'<th>'.&mt('Date requested').'</th>';
Line 512 sub build_queue_display {	Line 636 sub build_queue_display {
} elsif ($context eq 'requestusername') {	} elsif ($context eq 'requestusername') {
$output .= '<th>'.&mt('Date requested').'</th>'.	$output .= '<th>'.&mt('Date requested').'</th>'.
'<th>'.&mt('Details').'</th>';	'<th>'.&mt('Details').'</th>';
} elsif ($context eq 'pending' \|\| $context eq 'stillpending') {	} elsif ($context eq 'othdomqueue') {
	$output .= '<th>'.&mt('Date requested').'</th>'.
	'<th>'.&mt('Role').'</th>';
	if ($secondary eq 'course') {
	$output .= '<th>'.&mt('Section').'</th>';
	}
	$output .= '<th>'.&mt('Requested for').'</th>'.
	'<th>'.&mt('Approval needed from').'</th>';
	} elsif ($context eq 'othdomaction') {
	$output .= '<th>'.&mt('Date requested').'</th>'.
	'<th>'.&mt('Role type').'</th>'.
	'<th>'.&mt('Location').'</th>';
	if ($secondary eq 'domain') {
	$output .= '<th>'.&mt('Affected User').'</th>';
	}
	foreach my $type ('domain','course') {
	my @possroles = &Apache::lonuserutils::roles_by_context($type);
	$roles_by_context{$type} = \@possroles;
	}
	} 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 522 sub build_queue_display {	Line 665 sub build_queue_display {
unofficial => 'Unofficial course',	unofficial => 'Unofficial course',
community => 'Community',	community => 'Community',
textbook => 'Textbook course',	textbook => 'Textbook course',
	placement => 'Placement test',
);	);
$output .= '<th>'.&mt('Type').'</th>'.	$output .= '<th>'.&mt('Type').'</th>'.
'<th>'.&mt('Date requested').'</th>'.	'<th>'.&mt('Date requested').'</th>'.
Line 534 sub build_queue_display {	Line 678 sub build_queue_display {
if (ref($queue->{$item}) eq 'ARRAY') {	if (ref($queue->{$item}) eq 'ARRAY') {
foreach my $request (sort(@{$queue->{$item}})) {	foreach my $request (sort(@{$queue->{$item}})) {
my ($row,$approve,$reject,$showtime,$showsec,$namelink,	my ($row,$approve,$reject,$showtime,$showsec,$namelink,
$detailslink,$crstype,$instcode);	$detailslink,$crstype,$instcode,$showrole,$adjudicator,
	$location,$showrequester);
$showtime = &Apache::lonlocal::locallocaltime($item);	$showtime = &Apache::lonlocal::locallocaltime($item);
if ($context eq 'course') {	if ($context eq 'course') {
my ($puname,$pudom,$pusec) = split(/:/,$request);	my ($puname,$pudom,$pusec) = split(/:/,$request);
Line 550 sub build_queue_display {	Line 695 sub build_queue_display {
} elsif ($context eq 'requestauthor') {	} elsif ($context eq 'requestauthor') {
if (&Apache::lonnet::homeserver($request,$dom) ne 'no_host') {	if (&Apache::lonnet::homeserver($request,$dom) ne 'no_host') {
$approve = $count.':'.$request;	$approve = $count.':'.$request;
$reject = $request;	$reject = $request;
$namelink = &Apache::loncommon::aboutmewrapper(	$namelink = &Apache::loncommon::aboutmewrapper(
&Apache::loncommon::plainname($request,$dom),	&Apache::loncommon::plainname($request,$dom),
$request,$dom);	$request,$dom);
Line 564 sub build_queue_display {	Line 709 sub build_queue_display {
"'$dom','$request','$queued'".');">'.$request.'</a>';	"'$dom','$request','$queued'".');">'.$request.'</a>';
$namelink = $request;	$namelink = $request;
}	}
	} elsif ($context eq 'othdomqueue') {
	my ($uname,$udom,$role,$adj,$requester,$sec) = split(/:/,$request);
	if ($adj eq 'user') {
	$adjudicator = &mt('Role Assignee');
	} elsif ($adj eq 'domain') {
	$adjudicator = &mt("[_1] in user's domain",
	&Apache::lonnet::plaintext('dc'));
	}
	my $crstype;
	$showrole = &Apache::lonnet::plaintext($role,$crstype);
	unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
	$namelink = &Apache::loncommon::plainname($uname,$udom)." ($uname:$udom)";
	}
	if ($secondary eq 'course') {
	$showsec = $sec;
	if ($showsec eq '') {
	$showsec = &mt('none');
	}
	}
	} elsif ($context eq 'othdomaction') {
	my ($extent,$role,$crstype);
	my ($info,$requester) = map { &unescape($_); } split(/:/,$request);
	if ($secondary eq 'user') {
	($extent,$role) = split(/:/,$info);
	$approve = $count.':'.$extent.':'.$role;
	$reject = $extent.':'.$role;
	} elsif ($secondary eq 'domain') {
	(my $uname,$extent,$role) = split(/:/,$info);
	$approve = $count.':'.$extent.':'.$role.':'.$uname.':'.$dom;
	$reject = $extent.':'.$role.':'.$uname.':'.$dom;
	unless (&Apache::lonnet::homeserver($uname,$dom) eq 'no_host') {
	$namelink = &Apache::loncommon::plainname($uname,$dom);
	unless ($namelink eq $uname.':'.$dom) {
	$namelink .= ' ('.$uname.':'.$dom.')';
	}
	}
	}
	if (($role eq 'ca') \|\| ($role eq 'aa')) {
	my ($audom,$auname) = ($extent =~ m{^/($match_domain)/($match_username)$});
	$location = &mt('Author').': '.&Apache::loncommon::plainname($auname,$audom);
	} elsif ($role eq 'co') {
	my ($cdom,$cnum) = ($extent =~ m{^/($match_domain)/($match_courseid)});
	if (&Apache::lonnet::is_course($cdom,$cnum)) {
	my %info = &Apache::lonnet::coursedescription("$cdom/$cnum",{'one_time' => 1});
	$crstype = $info{'type'};
	$location = &mt('Community').': '.$info{'description'};
	$showrole = &Apache::lonnet::plaintext($role,'Community');
	}
	} elsif ($role =~ m{^cr/}) {
	$showrole = &Apache::lonnet::plaintext($role,$crstype);
	my ($cdom,$cnum,$csec) = ($extent =~ m{^/($match_domain)/($match_courseid)(?:\|/(\w+))$});
	if (&Apache::lonnet::is_course($cdom,$cnum)) {
	my %info = &Apache::lonnet::coursedescription("$cdom/$cnum",{'one_time' => 1});
	$crstype = $info{'type'};
	$location = &mt($crstype).': '.$info{'description'};
	if ($csec ne '') {
	$location .= ' '.&mt('Section').': '.$csec;
	}
	}
	} else {
	foreach my $type ('course','domain') {
	if (grep(/^\Q$role\E$/,@{$roles_by_context{$type}})) {
	if ($type eq 'course') {
	my ($cdom,$cnum,$csec) = ($extent =~ m{^/($match_domain)/($match_courseid)(?:\|/(\w+))$});
	if (&Apache::lonnet::is_course($cdom,$cnum)) {
	my %info = &Apache::lonnet::coursedescription("$cdom/$cnum",{'one_time' => 1});
	$crstype = $info{'type'};
	$location = &mt($crstype).': '.$info{'description'};
	if ($csec ne '') {
	$location .= ' '.&mt('Section').': '.$csec;
	}
	}
	} else {
	my ($domain) = ($extent =~ m{^/($match_domain)/});
	$location = &mt('Domain').': '.&Apache::lonnet::domain($domain,'description');
	}
	last;
	}
	}
	}
	if ($role =~ m{^cr/($match_domain)/($match_username)/(\w+)$}) {
	my ($crudom,$cruname,$rolename) = ($1,$2,$3);
	my $creator = &Apache::loncommon::plainname($cruname,$crudom);
	unless ($creator eq $cruname.':'.$crudom) {
	$creator .= ' ('.$cruname.':'.$crudom.')';
	}
	$showrole = &mt('Custom role').': '.$rolename.'<br />'.
	&mt('Created by').' '.$creator;
	} else {
	$showrole = &Apache::lonnet::plaintext($role,$crstype);
	}
	my ($requname,$requdom) = split(/:/,$requester);
	$showrequester = &Apache::loncommon::plainname($requname,$requdom);
	unless ($showrequester eq $requname.':'.$requdom) {
	$showrequester .= ' ('.$requname.':'.$requdom.')';
	}
} else {	} else {
my ($cnum,$ownername,$ownerdom,$type,$cdesc);	my ($cnum,$ownername,$ownerdom,$type,$cdesc);
my $queued = '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);
$queued = 'pending';	$queued = 'pending';
} else {	} else {
Line 585 sub build_queue_display {	Line 826 sub build_queue_display {
&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') \|\| ($context eq 'othdomqueue')) {
$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 594 sub build_queue_display {	Line 836 sub build_queue_display {
'<input type="radio" value="'."later:".$reject.'" name="'.$count.'radioreq" checked />'.&mt('Decide Later').	'<input type="radio" value="'."later:".$reject.'" name="'.$count.'radioreq" checked />'.&mt('Decide Later').
'</label></span><br /></td>';	'</label></span><br /></td>';
}	}
$row .= '<td>'.$namelink.'</td>'."\n";	unless (($context eq 'othdomqueue') \|\| ($context eq 'othdomaction')) {
	$row .= '<td>'.$namelink.'</td>'."\n";
	}
if ($context eq 'course') {	if ($context eq 'course') {
$row .= '<td>'.$showsec.'</td>'."\n".	$row .= '<td>'.$showsec.'</td>'."\n".
'<td>'.$showtime.'</td>'."\n";	'<td>'.$showtime.'</td>'."\n";
Line 603 sub build_queue_display {	Line 847 sub build_queue_display {
} elsif ($context eq 'requestusername') {	} elsif ($context eq 'requestusername') {
$row .= '<td>'.$showtime.'</td>'."\n".	$row .= '<td>'.$showtime.'</td>'."\n".
'<td>'.$detailslink.'</td>'."\n";	'<td>'.$detailslink.'</td>'."\n";
} else {	} elsif ($context eq 'othdomqueue') {
if ($context eq 'pending' \|\| $context eq 'stillpending') {	$row .= '<td>'.$showtime.'</td>'."\n".
	'<td>'.$showrole.'</td>'."\n";
	if ($secondary eq 'course') {
	$row .= '<td>'.$showsec.'</td>'."\n";
	}
	$row .= '<td>'.$namelink.'</td>'."\n".
	'<td>'.$adjudicator.'</td>'."\n";
	} elsif ($context eq 'othdomaction') {
	if ($secondary eq 'domain') {
	$row .= '<td>'.$showrequester.'</td>'."\n";
	}
	$row .= '<td>'.$showtime.'</td>'."\n".
	'<td>'.$showrole.'</td>'."\n".
	'<td>'.$location.'</td>'."\n";
	if ($secondary eq 'domain') {
	$row .= '<td>'.$namelink.'</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 632 sub update_request_queue {	Line 894 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,$uniquecode,%codes);	$firsturl,$uniquecode,%codes,%roles_by_context,%requesteractive,
	%gotroles);
my $count=0;	my $count=0;
while (my $item = $env{'form.'.$count.'radioreq'}) {	while (my $item = $env{'form.'.$count.'radioreq'}) {
if ($item =~ /^\d+:/) {	if ($item =~ /^\d+:/) {
Line 642 sub update_request_queue {	Line 905 sub update_request_queue {
}	}
$count ++;	$count ++;
}	}

$now = time;	$now = time;
$sender = $env{'user.name'}.':'.$env{'user.domain'};	$sender = $env{'user.name'}.':'.$env{'user.domain'};
if ($context eq 'course') {	if ($context eq 'course') {
Line 650 sub update_request_queue {	Line 912 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 679 sub update_request_queue {	Line 941 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.',
},	},
Line 704 sub update_request_queue {	Line 966 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 a LON-CAPA account has been approved.',	mt => 'Your request for a LON-CAPA account has been approved.',
},	},
Line 716 sub update_request_queue {	Line 978 sub update_request_queue {
mt => 'Your request for a LON-CAPA account has not been approved.',	mt => 'Your request for a LON-CAPA account has not been approved.',
}];	}];
$domdesc = &Apache::lonnet::domain($cdom);	$domdesc = &Apache::lonnet::domain($cdom);
	} elsif (($context eq 'othdombydc') \|\| ($context eq 'othdombyuser')) {
	$namespace = 'queuedrolereqs';
	$beneficiary = 'requester';
	foreach my $type ('domain','course') {
	my @possroles = &Apache::lonuserutils::roles_by_context($type);
	$roles_by_context{$type} = \@possroles;
	}
	if ($context eq 'othdombydc') {
	my $confname = &Apache::lonnet::get_domainconfiguser($cdom);
	%requesthash = &Apache::lonnet::dump($namespace,$cdom,$confname);
	$approvedmsg = [{
	mt => 'The role assignment you requested for a user from another domain has been approved and the role assigned.',
	}];
	$rejectedmsg = [{
	mt => 'The role assignment you requested for a user from another domain has not been approved.',
	}];
	} else {
	%requesthash = &Apache::lonnet::dump($namespace,$cdom,$cnum);
	$approvedmsg = [{
	mt => 'The role assignment you requested for a user from another domain has been has been agreed to by the user.',
	}];
	$rejectedmsg = [{
	mt => 'The role assignment you requested for a user from another domain has not been agreed to by the user.',
	}];
	}
	$domdesc = &Apache::lonnet::domain($cdom);
} else {	} else {
$domdesc = &Apache::lonnet::domain($cdom);	$domdesc = &Apache::lonnet::domain($cdom);
$namespace = 'courserequestqueue';	$namespace = 'courserequestqueue';
Line 873 sub update_request_queue {	Line 1161 sub update_request_queue {
my $dbname = 'nohist_requestedusernames';	my $dbname = 'nohist_requestedusernames';
my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);	my $domconfiguser = &Apache::lonnet::get_domainconfiguser($cdom);
my %curr = &Apache::lonnet::get($dbname,[$uname],$cdom,$domconfiguser);	my %curr = &Apache::lonnet::get($dbname,[$uname],$cdom,$domconfiguser);

if (ref($curr{$uname}) eq 'HASH') {	if (ref($curr{$uname}) eq 'HASH') {
my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname,	my ($logtoken,$serverid,$encpass,$courseid,$id,$firstname,
$middlename,$lastname,$generation,$inststatus);	$middlename,$lastname,$generation,$inststatus,$email);
$curr{$uname}{'timestamp'} = $now;	$curr{$uname}{'timestamp'} = $now;
$curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};	$curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};
$courseid = $curr{$uname}{'courseid'};	$courseid = $curr{$uname}{'courseid'};
Line 885 sub update_request_queue {	Line 1173 sub update_request_queue {
$middlename = $curr{$uname}{'middlename'};	$middlename = $curr{$uname}{'middlename'};
$lastname = $curr{$uname}{'lastname'};	$lastname = $curr{$uname}{'lastname'};
$generation = $curr{$uname}{'generation'};	$generation = $curr{$uname}{'generation'};
$inststatus = $curr{$uname}{'usertype'};	$inststatus = $curr{$uname}{'inststatus'};

my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});	if ($curr{$uname}{'email'} ne '') {
if ($caller eq 'createaccount') {	$email = $curr{$uname}{'email'};
my $upass = &Apache::loncommon::des_decrypt($key,$curr{$uname}{'upass'});	} 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'});	undef($curr{$uname}{'upass'});
my $result =	my $result =
&Apache::lonnet::modifyuser($cdom,$uname,$id,'internal',$upass,	&Apache::lonnet::modifyuser($cdom,$uname,$id,'internal',$upass,
$firstname,$middlename,$lastname,	$firstname,$middlename,$lastname,
$generation,undef,undef,$uname);	$generation,undef,undef,$email);
if ($result eq 'ok') {	if ($result eq 'ok') {
$curr{$uname}{'status'} = 'created';	$curr{$uname}{'status'} = 'created';
push(@completed,$uname);	push(@completed,$uname);
Line 915 sub update_request_queue {	Line 1224 sub update_request_queue {
} else {	} else {
push(@processing_errors,$uname);	push(@processing_errors,$uname);
}	}
} else {
push(@processing_errors,$uname);
}	}
} else {	} else {
push(@invalidusers,$uname);	push(@invalidusers,$uname);
}	}
push(@toremove,@invalidusers);	push(@toremove,@invalidusers);
	} elsif (($context eq 'othdombydc') \|\| ($context eq 'othdombyuser')) {
	if ($context eq 'othdombydc') {
	my ($num,$extent,$role,$uname,$udom) = split(/:/,$item);
	my ($logmsg,$result);
	if ($udom eq $cdom) {
	my $key = $uname.':'.$extent.':'.$role;
	if (exists($requesthash{$key})) {
	if (ref($requesthash{$key}) eq 'HASH') {
	my $requester = $requesthash{$key}->{'requester'};
	my ($requname,$requdom) = split(/:/,$requester);
	my $start = $requesthash{$key}->{'start'};
	my $end = $requesthash{$key}->{'end'};
	my $credits = $requesthash{$key}->{'credits'};
	my $reqcontext = $requesthash{$key}->{'context'};
	if ((&Apache::lonnet::homeserver($uname,$udom) ne 'no_host') &&
	(&Apache::lonnet::homeserver($requname,$requdom) ne 'no_host')) {
	if (($role eq 'ca') \|\| ($role eq 'aa')) {
	my ($audom,$auname) = ($extent =~ m{^/($match_domain)/($match_username)$});
	if (&Apache::lonnet::homeserver($auname,$audom) ne 'no_host') {
	if ($requester eq $auname.':'.$audom) {
	unless ($gotroles{$requester}) {
	&requester_roles($auname,$audom,\%requesteractive);
	$gotroles{$requester} = 1;
	}
	if (ref($requesteractive{$requester}) eq 'HASH') {
	if ($requesteractive{$requester}{':'.$audom.':au'}) {
	$result = &Apache::lonnet::assignrole($udom,$uname,$extent,$role,
	$end,$start,'','',$reqcontext);
	}
	}
	}
	}
	} elsif (($role eq 'co') \|\| ($role eq 'cc')) {
	my ($crsdom,$crsnum) = ($extent =~ m{^/($match_domain)/($match_courseid)});
	if (&Apache::lonnet::is_course($crsdom,$crsnum)) {
	my %info = &Apache::lonnet::coursedescription("$crsdom/$crsnum",{'one_time' => 1});
	if ((($role eq 'co') && ($info{'type'} eq 'Community')) \|\|
	(($role eq 'cc') && ($info{'type'} ne 'Community'))) {
	if ($info{'internal.courseowner'} eq $requester) {
	unless ($gotroles{$requester}) {
	&requester_roles($requname,$requdom,\%requesteractive);
	$gotroles{$requester} = 1;
	}
	if (ref($requesteractive{$requester}) eq 'HASH') {
	if ($requesteractive{$requester}{"$crsnum:$crsdom:$role"}) {
	$result =
	&Apache::loncommon::commit_standardrole($udom,$uname,$extent,$role,$start,
	$end,$crsdom,$crsnum,'',
	$reqcontext);
	}
	}
	}
	}
	}
	} elsif ($role =~ m{^(cr)/($match_domain)/($match_username)/(\w+)$}) {
	my ($mrole,$crudom,$cruname,$rolename) = ($1,$2,$3,$4);
	my ($crsdom,$crsnum,$csec) =
	($extent =~ m{^/($match_domain)/($match_courseid)(?:\|/(\w+))$});
	if (&Apache::lonnet::is_course($crsdom,$crsnum)) {
	my ($rdummy,$roledef) =
	&Apache::lonnet::get('roles',["rolesdef_$rolename"],$crudom,$cruname);
	if (($rdummy ne 'con_lost') && ($roledef ne '')) {
	unless ($gotroles{$requester}) {
	&requester_roles($requname,$requdom,\%requesteractive);
	$gotroles{$requester} = 1;
	}
	if (ref($requesteractive{$requester}) eq 'HASH') {
	if (&requester_has_perm($crsdom,$crsnum,$mrole,$requesteractive{$requester})) {
	$result = &Apache::loncommon::commit_customrole($udom,$uname,$extent,$crudom,$cruname,
	$rolename,$start,$end,$reqcontext);
	}
	}
	}
	}
	} else {
	my $process;
	foreach my $type ('course','domain') {
	if (grep(/^\Q$role\E$/,@{$roles_by_context{$type}})) {
	if ($type eq 'course') {
	my ($crsdom,$crsnum,$csec) = ($extent =~ m{^/($match_domain)/($match_courseid)(?:\|/(\w+))$});
	if (&Apache::lonnet::is_course($crsdom,$crsnum)) {
	my $typeok;
	if ($role eq 'cc') {
	my %info = &Apache::lonnet::coursedescription("$crsdom/$crsnum",{'one_time' => 1});
	if ($info{'type'} eq 'Course') {
	$typeok = 1;
	}
	} else {
	$typeok = 1;
	}
	if ($typeok) {
	unless ($gotroles{$requester}) {
	&requester_roles($requname,$requdom,\%requesteractive);
	$gotroles{$requester} = 1;
	}
	if (ref($requesteractive{$requester}) eq 'HASH') {
	if (&requester_has_perm($crsdom,$crsnum,$role,$requesteractive{$requester})) {
	$result =
	&Apache::loncommon::commit_standardrole($udom,$uname,$extent,$role,$start,
	$end,$crsdom,$crsnum,$csec,
	$reqcontext,$credits);
	}
	}
	}
	}
	} else {
	my ($domain) = ($extent =~ m{^/($match_domain)/});
	if (&Apache::lonnet::domain($domain) ne '') {
	unless ($gotroles{$requester}) {
	&requester_roles($requname,$requdom,\%requesteractive);
	$gotroles{$requester} = 1;
	}
	if (&requester_has_perm($domain,'',$role,$requesteractive{$requester})) {
	$result = &Apache::lonnet::assignrole($udom,$uname,$extent,$role,
	$end,$start,'','',$reqcontext);
	}
	}
	}
	last;
	}
	}
	}
	}
	}
	}
	}
	if ($result eq 'ok') {
	push(@completed,$item);
	}
	} else {
	my ($num,$extent,$role) = split(/:/,$item);
	if (exists($requesthash{$extent.':'.$role})) {
	if (ref($requesthash{$extent.':'.$role}) eq 'HASH') {
	#FIXME
	#check if extent is valid
	#check if role is valid
	#check requester privs
	}
	}
	}
} 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 956 sub update_request_queue {	Line 1403 sub update_request_queue {
$ownerdom,$ownername);	$ownerdom,$ownername);
if ((ref($history{'details'}) eq 'HASH') &&	if ((ref($history{'details'}) eq 'HASH') &&
($history{'disposition'} eq $queue)) {	($history{'disposition'} eq $queue)) {
my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code,%customitems);	my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,
	$keysmsg,$code,%customitems);
	my $clonemsg = [];
my $fullname = '';	my $fullname = '';
my $inprocess = &Apache::lonnet::auto_crsreq_update($cdom,$cnum,$crstype,'process',$ownername,	my $inprocess = &Apache::lonnet::auto_crsreq_update($cdom,$cnum,$crstype,'process',$ownername,
$ownerdom,$fullname,$coursedesc);	$ownerdom,$fullname,$coursedesc);
Line 967 sub update_request_queue {	Line 1416 sub update_request_queue {
}	}
}	}
}	}
my ($result,$postprocess) = &course_creation($cdom,$cnum,$context,$history{'details'},\$logmsg,	if ($history{'details'}{'clonecrs'}) {
\$newusermsg,\$addresult,\$enrollcount,	$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);	\$response,\$keysmsg,\%domdefs,$longroles,\$code,\%customitems);
if ($result eq 'created') {	if ($result eq 'created') {
if ($crstype eq 'community') {	if ($crstype eq 'community') {
Line 976 sub update_request_queue {	Line 1428 sub update_request_queue {
} 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) {	if ($code) {
push(@{$approvedmsg},	push(@{$approvedmsg},
{	{
Line 1059 sub update_request_queue {	Line 1514 sub update_request_queue {
@changes = map {$_.'_approval'} (@changes);	@changes = map {$_.'_approval'} (@changes);
} elsif ($context eq 'requestusername') {	} elsif ($context eq 'requestusername') {
@changes = map {&escape($_).'_approval'} (@changes);	@changes = map {&escape($_).'_approval'} (@changes);
	} elsif (($context eq 'othdombydc') \|\| ($context eq 'othdombyuser')) {
	@changes = ();
}	}
if (@rejections) {	if (@rejections) {
foreach my $item (@rejections) {	foreach my $item (@rejections) {
Line 1113 sub update_request_queue {	Line 1570 sub update_request_queue {
if ($userresult ne 'ok') {	if ($userresult ne 'ok') {
push(@warn_rejects,$uname);	push(@warn_rejects,$uname);
}	}
	} elsif (($context eq 'othdombydc') \|\| ($context eq 'othdombyuser')) {
	#FIXME
} else {	} else {
my $cnum = $item;	my $cnum = $item;
if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {	if (ref($requesthash{$cnum.'_'.$queue}) eq 'HASH') {
Line 1295 sub update_request_queue {	Line 1754 sub update_request_queue {
$now,'usernamemanagers',$sender,	$now,'usernamemanagers',$sender,
$approvedlist,$rejectedlist);	$approvedlist,$rejectedlist);
}	}
	} elsif (($context eq 'othdombydc') \|\| ($context eq 'othdombyuser')) {
	#FIXME
} 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 1310 sub update_request_queue {	Line 1771 sub update_request_queue {
my $syllabuslink =	my $syllabuslink =
&Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);	&Apache::loncommon::syllabuswrapper($showcourse,$cnum,$cdom);
if ($codes{$cnum}) {	if ($codes{$cnum}) {
$syllabuslink .= &mt('Unique code: [_1]',$codes{$cnum});	$syllabuslink .= ' '.&mt('Unique code: [_1]',$codes{$cnum});
}	}
$output .= '<li>'.$syllabuslink.'</li>';	$output .= '<li>'.$syllabuslink.'</li>';
}	}
Line 1560 sub update_request_queue {	Line 2021 sub update_request_queue {
return $output;	return $output;
}	}

sub course_portal_url {	sub requester_roles {
my ($cnum,$cdom) = @_;	my ($requname,$requdom,$activeroles) = @_;
my $chome = &Apache::lonnet::homeserver($cnum,$cdom);	if (ref($activeroles) eq 'HASH') {
my $hostname = &Apache::lonnet::hostname($chome);	my %roleshash = &Apache::lonnet::get_my_roles($requname,$requdom,'userroles');
my $protocol = $Apache::lonnet::protocol{$chome};	$activeroles->{$requname.':'.$requdom} = \%roleshash;
$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;	return;
	}

	sub requester_has_perm {
	my ($crsdom,$crsnum,$mrole,$requesterroles) = @_;
	return unless (ref($requesterroles) eq 'HASH');
	my $has_perm;
	foreach my $key (keys(%{$requesterroles})) {
	if ($crsnum eq '') {
	next unless ($key =~ /^\Q:$crsdom:\E/);
	} else {
	next unless (($key =~ /^\Q$crsnum:$crsdom:\E/) \|\| ($key =~ /^\Q:$crsdom:\E/));
	}
	my ($keycrs,$keydom,$keyrole) = split(/:/,$key);
	if (($keycrs ne '') && ($crsnum ne '')) {
	if ($keycrs eq $crsnum) {
	if ($Apache::lonnet::pr{$keyrole.':c'} =~ /(^\|:)c\Q$mrole\E(&\|:)/) {
	$has_perm = 1;
	last;
	}
	}
	} else {
	if ($Apache::lonnet::pr{$keyrole.':d'} =~ /(^\|:)c\Q$mrole\E(&\|:)/) {
	$has_perm = 1;
	last;
	}
	}
	}
	return $has_perm;
}	}

sub get_student_counts {	sub get_student_counts {
Line 1595 sub get_student_counts {	Line 2077 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,$coderef,$customhash) = @_;	$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);
my $crstype = $details->{'crstype'};	my $crstype = $details->{'crstype'};
my $coursedesc = $details->{'cdescr'};	my $coursedesc = $details->{'cdescr'};
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestauthor'],$dom);	my $accessstart = $details->{'accessstart'};
	my $accessend = $details->{'accessend'};
	my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom);
if (ref($domconfig{'requestcourses'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {
if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {	if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) {
Line 1626 sub course_creation {	Line 2111 sub course_creation {
$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,$coderef);	$enrollcount,$output,$keysmsg,$ownerdom,$ownername,$cnum,$crstype,
	$coderef,$callercontext,$user_lh);
my $postprocess;	my $postprocess;
if ($cid eq "/$dom/$cnum") {	if ($cid eq "/$dom/$cnum") {
$result = 'created';	$result = 'created';
Line 1638 sub course_creation {	Line 2124 sub course_creation {
$code = $$coderef;	$code = $$coderef;
}	}
$postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername,	$postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername,
$ownerdom,$fullname,$coursedesc,$code,$customhash);	$ownerdom,$fullname,$coursedesc,$code,
	$accessstart,$accessend,$customhash);
} else {	} else {
$result = 'error: '.$cid;	$result = 'error: '.$cid;
}	}
Line 1646 sub course_creation {	Line 2133 sub course_creation {
}	}

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 uniquecode};	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'}) {	if ($domdefs->{'officialcredits'} \|\| $domdefs->{'unofficialcredits'}) {
Line 1667 sub build_batchcreatehash {	Line 2169 sub build_batchcreatehash {
$batchhash{'authparam'} = $domdefs->{'auth_arg_def'};	$batchhash{'authparam'} = $domdefs->{'auth_arg_def'};
if ($details->{'crstype'} eq 'community') {	if ($details->{'crstype'} eq 'community') {
$batchhash{'crstype'} = 'Community';	$batchhash{'crstype'} = 'Community';
	} elsif ($details->{'crstype'} eq 'placement') {
	$batchhash{'crstype'} = 'Placement';
} else {	} else {
if ($details->{'crstype'} eq 'textbook') {	if ($details->{'crstype'} eq 'textbook') {
if ($details->{'clonecrs'} && $details->{'clonedom'}) {	if ($details->{'clonecrs'} && $details->{'clonedom'}) {
my %clonedfrom = &Apache::lonnet::coursedescription($details->{'clonedom'}.'_'.$details->{'clonecrs'});	my %clonedfrom = &Apache::lonnet::coursedescription($details->{'clonedom'}.'_'.$details->{'clonecrs'});
$batchhash{'textbook'} = $clonedfrom{'description'};	$batchhash{'textbook'} = $clonedfrom{'description'};
}	}
	} elsif ($details->{'crstype'} eq 'lti') {
	$batchhash{'lti'} = 1;
}	}
$batchhash{'crstype'} = 'Course';	$batchhash{'crstype'} = 'Course';
}	}
Line 1712 sub build_batchcreatehash {	Line 2218 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 1728 sub can_clone_course {	Line 2235 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 1947 sub process_official_reqs {	Line 2505 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 2011 sub process_official_reqs {	Line 2570 sub process_official_reqs {
$reqstatus = $disposition;	$reqstatus = $disposition;
if ($disposition eq 'process') {	if ($disposition eq 'process') {
my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code);	my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,$code);
	my $clonemsg = [];
my %customitems;	my %customitems;
my $fullname = &Apache::loncommon::plainname($ownername,$ownerdom);	my $fullname = &Apache::loncommon::plainname($ownername,$ownerdom);
my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$ownername,	my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$ownername,
Line 2022 sub process_official_reqs {	Line 2582 sub process_official_reqs {
}	}
}	}
}	}
	if ($history{'details'}{'clonecrs'}) {
	$customitems{'_LC_clonefrom'} = $history{'details'}{'clonedom'}.'_'.$history{'details'}{'clonecrs'};
	}
my ($result,$postprocess) =	my ($result,$postprocess) =
&course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,\$newusermsg,\$addresult,	&course_creation($dom,$cnum,'domain',$history{'details'},\$logmsg,$clonemsg,\$newusermsg,
\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,\$code,\%customitems);	\$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 2039 sub process_official_reqs {	Line 2603 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) eq 'HASH') {
if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') {	if (ref($postprocess->{'createdmsg'}) eq 'ARRAY') {
Line 2058 sub process_official_reqs {	Line 2628 sub process_official_reqs {
}	}
}	}
}	}
	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,
Line 2129 sub process_official_reqs {	Line 2704 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) &&

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

Removed from v.1.44
changed lines
	Added in v.1.63