loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.29 and 1.39

version 1.29, 2009/09/06 19:09:54	version 1.39, 2009/11/04 17:42:17
Line 52 described at http://www.lon-capa.org.	Line 52 described at http://www.lon-capa.org.

=item onload_action()	=item onload_action()

=item check_can_request()

=item course_types()

=item print_main_menu()	=item print_main_menu()

=item request_administration()	=item request_administration()
Line 122 use Apache::lonnet;	Line 118 use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::loncoursequeueadmin;	use Apache::loncoursequeueadmin;
	use Apache::lonuserutils;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);

sub handler {	sub handler {
Line 133 sub handler {	Line 130 sub handler {
}	}

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['action','showdom','cnum','state']);	['action','showdom','cnum','state','crstype']);
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
my $dom = &get_course_dom();	my $dom = &get_course_dom();
my $action = $env{'form.action'};	my $action = $env{'form.action'};
Line 177 sub handler {	Line 174 sub handler {
$trail{'enrollment'} = 'Enrollment';	$trail{'enrollment'} = 'Enrollment';
}	}

my ($page,$crumb,$newinstcode,$codechk,$checkedcode) =	my ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description) =
&get_breadcrumbs($dom,$action,\$state,\%states,\%trail);	&get_breadcrumbs($dom,$action,\$state,\%states,\%trail);
if ($action eq 'display') {	if ($action eq 'display') {
if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {	if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {
Line 238 sub handler {	Line 235 sub handler {
$crosslistcode .= $env{'form.crosslist_'.$i.'_'.$item};	$crosslistcode .= $env{'form.crosslist_'.$i.'_'.$item};
}	}
if ($crosslistcode ne '') {	if ($crosslistcode ne '') {
$codechk{$i} =	($codechk{$i}, my $rest) =
&Apache::lonnet::auto_validate_instcode('',$dom,$crosslistcode);	&Apache::lonnet::auto_validate_instcode('',$dom,$crosslistcode);
}	}
unless ($codechk{$i} eq 'valid') {	unless ($codechk{$i} eq 'valid') {
Line 262 sub handler {	Line 259 sub handler {
if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) {	if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) {
$env{'form.clonedom'} = $dom;	$env{'form.clonedom'} = $dom;
}	}
$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);	if ($state eq 'crstype') {
	$jscript = &mainmenu_javascript();
	} else {
	$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);
	}
}	}

if ($state eq 'personnel') {	if ($state eq 'personnel') {
Line 271 sub handler {	Line 272 sub handler {

my $loaditems = &onload_action($action,$state);	my $loaditems = &onload_action($action,$state);

my %can_request;	my (%can_request,%request_domains);
my $canreq = &check_can_request($dom,\%can_request);	my $canreq =
	&Apache::lonnet::check_can_request($dom,\%can_request,\%request_domains);
if ($action eq 'new') {	if ($action eq 'new') {
if ($canreq) {	if ($canreq) {
if ($state eq 'crstype') {	if ($state eq 'crstype') {
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,	&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,
$crumb);	$crumb,\%request_domains);
} else {	} else {
&request_administration($r,$action,$state,$page,\%states,$dom,	&request_administration($r,$action,$state,$page,\%states,$dom,
$jscript,$loaditems,$crumb,$newinstcode,	$jscript,$loaditems,$crumb,$newinstcode,
$codechk,$checkedcode,\@invalidcrosslist);	$codechk,$checkedcode,$description,
	\@invalidcrosslist);
}	}
} else {	} else {
$r->print(&header('Course Requests').$crumb.	$r->print(&header('Course Requests').$crumb.
Line 291 sub handler {	Line 294 sub handler {
}	}
} elsif ($action eq 'view') {	} elsif ($action eq 'view') {
if ($state eq 'crstype') {	if ($state eq 'crstype') {
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb);	&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb,\%request_domains);
} else {	} else {
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript,	&request_administration($r,$action,$state,$page,\%states,$dom,$jscript,
$loaditems,$crumb);	$loaditems,$crumb);
Line 305 sub handler {	Line 308 sub handler {
&close_popup_form());	&close_popup_form());
} else {	} else {
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript,	&request_administration($r,$action,$state,$page,\%states,$dom,$jscript,
$loaditems,$crumb,'','','','',$uname,$udom);	$loaditems,$crumb,'','','','','',$uname,$udom);
}	}
} elsif ($action eq 'log') {	} elsif ($action eq 'log') {
&print_request_logs($jscript,$loaditems,$crumb);	&print_request_logs($jscript,$loaditems,$crumb);
} else {	} else {
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb);	&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains);
}	}
return OK;	return OK;
}	}

	sub mainmenu_javascript {
	return <<"END";
	function setType(courseForm) {
	for (var i=0; i<courseForm.crstype.length; i++) {
	if (courseForm.crstype.options[i].value == "$env{'form.crstype'}") {
	courseForm.crstype.options[i].selected = true;
	} else {
	courseForm.crstype.options[i].selected = false;
	}
	}
	}

	function setAction(courseForm) {
	for (var i=0; i<courseForm.action.length; i++) {
	if (courseForm.action.options[i].value == "$env{'form.action'}") {
	courseForm.action.options[i].selected = true;
	} else {
	courseForm.action.options[i].selected = false;
	}
	}
	}
	END
	}

sub get_breadcrumbs {	sub get_breadcrumbs {
my ($dom,$action,$state,$states,$trail) = @_;	my ($dom,$action,$state,$states,$trail) = @_;
my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles);	my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description);
my $page = 0;	my $page = 0;
if ((ref($states) eq 'HASH') && (ref($trail) eq 'HASH') && (ref($state))) {	if ((ref($states) eq 'HASH') && (ref($trail) eq 'HASH') && (ref($state))) {
if (defined($action)) {	if (defined($action)) {
Line 342 sub get_breadcrumbs {	Line 369 sub get_breadcrumbs {
$$state = 'codepick';	$$state = 'codepick';
$page --;	$page --;
} else {	} else {
$codechk =	($codechk,$description) =
&Apache::lonnet::auto_validate_instcode('',	&Apache::lonnet::auto_validate_instcode('',
$dom,$newinstcode);	$dom,$newinstcode);
if ($codechk ne 'valid') {	if ($codechk ne 'valid') {
Line 387 sub get_breadcrumbs {	Line 414 sub get_breadcrumbs {
{text=>'Pick Action'});	{text=>'Pick Action'});
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');	$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests');
}	}
return ($page,$crumb,$newinstcode,$codechk,$checkedcode);	return ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description);
}	}

sub header {	sub header {
Line 498 sub form_elements {	Line 525 sub form_elements {
);	);
if ($env{'form.sectotal'} > 0) {	if ($env{'form.sectotal'} > 0) {
for (my $i=0; $i<$env{'form.sectotal'}; $i++) {	for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
$extras{'sec_'.$i} = 'checkbox',	$extras{'sec_'.$i} = 'radio';
$extras{'secnum_'.$i} = 'text',	$extras{'secnum_'.$i} = 'text';
$extras{'loncapasec_'.$i} = 'text',	$extras{'loncapasec_'.$i} = 'text';
}	}
}	}
my $crosslisttotal = $env{'form.crosslisttotal'};	my $crosslisttotal = $env{'form.crosslisttotal'};
Line 555 sub onload_action {	Line 582 sub onload_action {
my ($action,$state) = @_;	my ($action,$state) = @_;
my %loaditems;	my %loaditems;
if (($action eq 'new') \|\| ($action eq 'view')) {	if (($action eq 'new') \|\| ($action eq 'view')) {
$loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)';	if ($state eq 'crstype') {
}	$loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)';
return \%loaditems;	} else {
}	$loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)';

sub check_can_request {
my ($dom,$can_request) = @_;
my $canreq = 0;
my ($types,$typename) = &course_types();
my @options = ('approval','validate','autolimit');
my $optregex = join('\|',@options);
if ((ref($can_request) eq 'HASH') && (ref($types) eq 'ARRAY')) {
foreach my $type (@{$types}) {
if (&Apache::lonnet::usertools_access($env{'user.name'},
$env{'user.domain'},
$type,undef,'requestcourses')) {
$canreq ++;
if ($dom eq $env{'user.domain'}) {
$can_request->{$type} = 1;
}
}
if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
my @curr = split(',',$env{'environment.reqcrsotherdom.'.$type});
if (@curr > 0) {
$canreq ++;
unless ($dom eq $env{'user.domain'}) {
if (grep(/^\Q$dom\E:($optregex)(=?\d*)$/,@curr)) {
$can_request->{$type} = 1;
}
}
}
}
}	}
}	}
return $canreq;	return \%loaditems;
}

sub course_types {
my @types = ('official','unofficial','community');
my %typename = (
official => 'Official course',
unofficial => 'Unofficial course',
community => 'Community',
);
return (\@types,\%typename);
}	}


sub print_main_menu {	sub print_main_menu {
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_;	my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_;
my ($types,$typename) = &course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
my $onchange;	my $onchange;
unless ($env{'form.interface'} eq 'textual') {	unless ($env{'form.interface'} eq 'textual') {
$onchange = 1;	$onchange = 'this.form.submit()';
}	}

my $nextstate_setter = "\n";	my $nextstate_setter = "\n";
Line 648 function check_can_request(crschoice,act	Line 636 function check_can_request(crschoice,act
var unofficial = '';	var unofficial = '';
var community = '';	var community = '';
END	END
	if (ref($can_request) eq 'HASH') {
foreach my $item (keys(%{$can_request})) {	foreach my $item (keys(%{$can_request})) {
$js .= "	$js .= "
$item = 1;	$item = 1;
";	";
	}
}	}
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
official => 'You are not permitted to request creation of an official course in this domain.',	official => 'You are not permitted to request creation of an official course in this domain.',
Line 688 END	Line 677 END
}	}
return true;	return true;
}	}

END	END
	my ($pagetitle,$pageinfo,$domaintitle);
$r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb.'<div>'.	if (ref($can_request) eq 'HASH') {
	if (($can_request->{'official'}) \|\| ($can_request->{'unofficial'})) {
	if ($can_request->{'community'}) {
	$pagetitle = 'Course/Community Requests';
	$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.');
	$domaintitle = &mt('Course/Community Domain');
	} else {
	$pagetitle = 'Course Requests';
	$pageinfo = &mt('Request creation of a new course, or review your pending course requests.');
	$domaintitle = &mt('Course Domain');
	}
	} elsif ($can_request->{'community'}) {
	$pagetitle = 'Course/Community Requests';
	$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.');
	$domaintitle = &mt('Community Domain');
	} else {
	$pagetitle = 'Course/Community Requests';
	$pageinfo = &mt('You do not have rights to request creation of courses in this domain; please choose a different domain.');
	$domaintitle = &mt('Course/Community Domain');
	}
	}
	my @incdoms;
	if (ref($request_domains) eq 'HASH') {
	foreach my $item (keys(%{$request_domains})) {
	if (ref($request_domains->{$item}) eq 'ARRAY') {
	foreach my $possdom (@{$request_domains->{$item}}) {
	unless(grep(/^\Q$possdom\E$/,@incdoms)) {
	push(@incdoms,$possdom);
	}
	}
	}
	}
	}
	$r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb.
	'<p>'.$pageinfo.'</p>'.
	'<div>'.
&Apache::lonhtmlcommon::start_pick_box().	&Apache::lonhtmlcommon::start_pick_box().
&Apache::lonhtmlcommon::row_title(&mt('Course Domain')).	&Apache::lonhtmlcommon::row_title($domaintitle).
'<form name="domforcourse" method="post" action="/adm/requestcourse">'.	'<form name="domforcourse" method="post" action="/adm/requestcourse">'.
&Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange));	&Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange,\@incdoms));
if (!$onchange) {	if (!$onchange) {
$r->print(' <input type="submit" name="godom" value="'.	$r->print(' <input type="submit" name="godom" value="'.
&mt('Change').'" />');	&mt('Change').'" />');
}	}
	unless ((ref($can_request) eq 'HASH') && (keys(%{$can_request}) > 0)) {
	$r->print(&Apache::lonhtmlcommon::row_closure(1)."\n".
	&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n".
	&Apache::loncommon::end_page());
	return;
	}
$r->print('</form>'.&Apache::lonhtmlcommon::row_closure());	$r->print('</form>'.&Apache::lonhtmlcommon::row_closure());

my $formname = 'requestcrs';	my $formname = 'requestcrs';
my $nexttext = &mt('Next');	my $nexttext = &mt('Next');
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).'	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).'
Line 712 END	Line 740 END
<option value="log">'.&mt('View request history').'</option>	<option value="log">'.&mt('View request history').'</option>
</select></form>'.	</select></form>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title(&mt('Course Type')).'	&Apache::lonhtmlcommon::row_title(&mt('Type')).'
<form name="mainmenu_coursetype" method="post" action="">	<form name="mainmenu_coursetype" method="post" action="">
<select size="1" name="crstype">	<select size="1" name="crstype">');
<option value="any">'.&mt('All types').'</option>');	if (ref($can_request) eq 'HASH') {
if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) {	if (keys(%{$can_request}) > 1) {
foreach my $type (@{$types}) {	$r->print(' <option value="any">'.&mt('All types').'</option>');
my $selected = '';	}
if ($type eq 'official') {	if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) {
$selected = ' selected="selected"';	foreach my $type (@{$types}) {
	next unless($can_request->{$type});
	my $selected = '';
	if ($env{'form.crstype'} eq '') {
	if ($type eq 'official') {
	$selected = ' selected="selected"';
	}
	} else {
	if ($type eq $env{'form.crstype'}) {
	$selected = ' selected="selected"';
	}
	}
	$r->print('<option value="'.$type.'"'.$selected.'>'.&mt($typename->{$type}).
	'</option>'."\n");
}	}
$r->print('<option value="'.$type.'"'.$selected.'>'.$typename->{$type}.
'</option>'."\n");
}	}
}	}
$r->print('</select></form>'."\n".	$r->print('</select></form>'."\n".
&Apache::lonhtmlcommon::row_closure(1)."\n".	&Apache::lonhtmlcommon::row_closure(1)."\n".
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n".	&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n".
'<div><form name="'.$formname.'" method="post" action="">'."\n".	'<div><form name="'.$formname.'" method="post" action="/adm/requestcourse">'."\n".
'<input type="hidden" name="state" value="crstype" />'."\n".	'<input type="hidden" name="state" value="crstype" />'."\n".
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n".	'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n".
'<input type="hidden" name="crstype" value="" />'."\n".	'<input type="hidden" name="crstype" value="" />'."\n".
Line 743 END	Line 782 END

sub request_administration {	sub request_administration {
my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb,	my ($r,$action,$state,$page,$states,$dom,$jscript,$loaditems,$crumb,
$newinstcode,$codechk,$checkedcode,$invalidcrosslist,$uname,$udom) = @_;	$newinstcode,$codechk,$checkedcode,$description,$invalidcrosslist,
	$uname,$udom) = @_;
my $js;	my $js;
if (($action eq 'new') \|\| (($action eq 'view') && ($state eq 'pick_request'))) {	if (($action eq 'new') \|\| (($action eq 'view') && ($state eq 'pick_request'))) {
$js = <<END;	$js = <<END;
Line 767 END	Line 807 END
}	}
if ($action eq 'new') {	if ($action eq 'new') {
my $jsextra;	my $jsextra;
unless (($state eq 'review') \|\| ($state eq 'process')) {	if ($state eq 'courseinfo') {
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);	$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);
	} elsif ($state eq 'enrollment') {
	if (($env{'form.crstype'} eq 'official') &&
	(&Apache::lonnet::auto_run('',$dom))) {
	$js .= "\n".&section_check_javascript()."\n".&enrollment_lcsec_js();
	}
	} elsif ($state eq 'personnel') {
	$js .= "\n".&section_check_javascript()."\n".&personnel_lcsec_js();
}	}
$r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb);	$r->print(&header('Request a course',$js.$jscript,$loaditems,$jsextra).$crumb);
&print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode,	&print_request_form($r,$action,$state,$page,$states,$dom,$newinstcode,
$codechk,$checkedcode,$invalidcrosslist);	$codechk,$checkedcode,$description,$invalidcrosslist);
} elsif ($action eq 'view') {	} elsif ($action eq 'view') {
my $jsextra;	my $jsextra;
my $formname = 'requestcrs';	my $formname = 'requestcrs';
Line 792 END	Line 839 END
my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />';	my $form = '<form method="post" name="'.$formname.'" action="/adm/requestcourse" />';
if ($state eq 'pick_request') {	if ($state eq 'pick_request') {
$r->print('<h3>'.&mt('Pending course requests').'</h3><div>'."\n".$form."\n".	$r->print('<h3>'.&mt('Pending course requests').'</h3><div>'."\n".$form."\n".
&print_request_status($dom).'</form>');	&print_request_status($dom).'</form></div>');
} elsif ($state eq 'details') {	} elsif ($state eq 'details') {
my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);	my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);
my $origcnum = $env{'form.cnum'};	my $origcnum = $env{'form.cnum'};
Line 816 END	Line 863 END
other => 'Modify Request',	other => 'Modify Request',
next => 'Cancel Request',	next => 'Cancel Request',
);	);
&display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'},	&display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next,
$state,$other,$navtxt{'other'});	$navtxt{'next'},$state,$other,$navtxt{'other'});
$r->print('</form>');	$r->print('</form>');
} elsif ($state eq 'cancel') {	} elsif ($state eq 'cancel') {
my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});	my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});
Line 830 END	Line 877 END
next => 'Confirm Cancellation',	next => 'Confirm Cancellation',
);	);
if ($result eq 'ok') {	if ($result eq 'ok') {
&display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,	&display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next,
$navtxt{'next'},$state);	$navtxt{'next'},$state);
} else {	} else {
&display_navbuttons($r,$formname,$prev,$navtxt{'prev'},undef,'',$state);	&display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},undef,
	'',$state);
}	}
$r->print('</form>');	$r->print('</form>');
} elsif ($state eq 'removal') {	} elsif ($state eq 'removal') {
Line 896 END	Line 944 END
return;	return;
}	}

	sub enrollment_lcsec_js {
	my %alerts = &section_check_alerts();
	my $secname = $alerts{'badsec'};
	my $secnone = $alerts{'reserved'};
	my $output = '
	function validateEnrollSections(formname,nextstate) {
	var badsectotal = 0;
	var reservedtotal = 0;
	var secTest = "";
	';
	for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
	$output .= "
	var selSec = 0;
	for (var j=0; j<document.requestcrs.sec_".$i.".length; j++) {
	if (document.requestcrs.sec_".$i."[j].checked) {
	selSec = document.requestcrs.sec_".$i."[j].value;
	}
	if (selSec == 1) {
	secTest = validsection(document.requestcrs.loncapasec_".$i.");
	if (secTest == 'badsec') {
	badsectotal++;
	}
	if (secTest == 'reserved') {
	reservedtotal++;
	}
	}
	}
	";
	}
	for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
	$output .= "
	if (document.requestcrs.crosslist_".$i.".checked) {
	secTest = validsection(document.requestcrs.crosslist_".$i."_lcsec);
	if (secTest == 'badsec') {
	badsectotal++;
	}
	if (secTest == 'reserved') {
	reservedtotal++;
	}
	}
	";
	}
	$output .= "
	if (badsectotal>0) {
	alert('$secname');
	return false;
	}
	if (reservedtotal>0) {
	alert('$secnone');
	return false;
	}
	formname.state.value= nextstate;
	formname.submit();
	return;
	}
	";
	return $output;
	}

	sub personnel_lcsec_js {
	my %alerts = &section_check_alerts();
	my $secname = $alerts{'badsec'}.'\\n'.$alerts{'separate'};
	my $secnone = $alerts{'reserved'};
	my $output = '
	function validatePersonnelSections(formname,nextstate) {
	var badsectotal = 0;
	var reservedtotal = 0;
	var secTest = "";
	';
	for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
	$output .= "
	if (document.requestcrs.person_".$i."_uname.value != '') {
	secTest = validsection(document.requestcrs.person_".$i."_newsec,'1');
	if (secTest == 'badsec') {
	badsectotal++;
	}
	if (secTest == 'reserved') {
	reservedtotal++;
	}
	}
	";
	}
	$output .= "
	if (badsectotal > 0) {
	alert('$secname');
	return false;
	} else {
	if (reservedtotal > 0) {
	alert('$secnone');
	return false;
	}
	}
	formname.state.value = nextstate;
	formname.submit();
	return;
	}
	";
	return $output;
	}

	sub section_check_alerts {
	my %lt =
	&Apache::lonlocal::texthash(
	reserved => "You need to change one or more LON-CAPA section names - none is a reserved word in the system, and may not be used.",
	badsec => 'You need to change one or more LON-CAPA section names - names may only contain letters or numbers.',
	separate => 'Separate multiple sections with a comma.'
	);
	return %lt;
	}

	sub section_check_javascript {
	return <<"END";
	function validsection(field,mult) {
	var str = field.value;
	var badsec=0;
	var reserved=0;
	if (window.RegExp) {
	var badsecnum=0;
	var reservednum=0;
	var pattern=/[^a-zA-Z0-9]/;
	str = str.replace(/(^\\s)\|(\\s\$)/gi,"");
	str = str.replace(/[ ]{2,}/gi," ");
	if (mult == '1') {
	var sections = new Array();
	sections = str.split(/\\s[\\s,;:]\\s/);
	var i;
	for (i=0; i<sections.length; i++) {
	if ((sections[i] != '') && (sections[i] != undefined) && (sections[i] != null)) {
	if (pattern.test(sections[i])) {
	badsecnum++;
	} else {
	if (sections[i] == 'none') {
	reservednum++;
	}
	}
	}
	}
	} else {
	if ((str != '') && (str != undefined) && (str != null)) {
	if (pattern.test(str)) {
	badsecnum++;
	} else {
	if (str == 'none') {
	reservednum++;
	}
	}
	}
	}
	if (badsecnum > 0) {
	return 'badsec';
	}
	if (reservednum > 0) {
	return 'reserved';
	}
	}
	return;
	}
	END
	}

sub close_popup_form {	sub close_popup_form {
my $close= &mt('Close Window');	my $close= &mt('Close Window');
return << "END";	return << "END";
Line 923 sub get_instcode {	Line 1131 sub get_instcode {

sub print_request_form {	sub print_request_form {
my ($r,$action,$state,$page,$states,$dom,$newinstcode,$codechk,$checkedcode,	my ($r,$action,$state,$page,$states,$dom,$newinstcode,$codechk,$checkedcode,
$invalidcrosslist) = @_;	$description,$invalidcrosslist) = @_;
my $formname = 'requestcrs';	my $formname = 'requestcrs';
my ($next,$prev,$message,$output,$codepicker,$crstype);	my ($next,$prev,$message,$output,$codepicker,$crstype);
$prev = $states->{$action}[$page-1];	$prev = $states->{$action}[$page-1];
Line 933 sub print_request_form {	Line 1141 sub print_request_form {
next => 'Next',	next => 'Next',
);	);
$crstype = $env{'form.crstype'};	$crstype = $env{'form.crstype'};
$r->print('<form name="'.$formname.'" method="post" action="/adm/requestcourse">');	$r->print('<br /><form name="'.$formname.'" method="post" action="/adm/requestcourse">');
my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk);	my (@codetitles,%cat_titles,%cat_order,@code_order,$instcode,$code_chk,
	@disallowed);
if ($crstype eq 'official') {	if ($crstype eq 'official') {
if ($env{'form.instcode'} ne '') {	if ($env{'form.instcode'} ne '') {
$instcode = $env{'form.instcode'};	$instcode = $env{'form.instcode'};
Line 969 sub print_request_form {	Line 1178 sub print_request_form {
$codepicker = &coursecode_form($dom,'instcode',\@codetitles,	$codepicker = &coursecode_form($dom,'instcode',\@codetitles,
\%cat_titles,\%cat_order);	\%cat_titles,\%cat_order);
if ($codepicker) {	if ($codepicker) {
$r->print('<div>'.&Apache::lonhtmlcommon::start_pick_box().$codepicker.	$r->print(&mt('Specify the course to be created.').
	'<div>'.&Apache::lonhtmlcommon::start_pick_box().
	$codepicker.
&Apache::lonhtmlcommon::end_pick_box().'</div>');	&Apache::lonhtmlcommon::end_pick_box().'</div>');
} else {	} else {
$next = $states->{$action}[$page+2];	$next = $states->{$action}[$page+2];
Line 985 sub print_request_form {	Line 1196 sub print_request_form {
if ($instcode eq '') {	if ($instcode eq '') {
$prev = $states->{$action}[$page-2];	$prev = $states->{$action}[$page-2];
}	}
$r->print(&courseinfo_form($dom,$formname,$crstype,$next));	$r->print(&courseinfo_form($dom,$formname,$crstype,$next,$description));
} elsif ($state eq 'enrollment') {	} elsif ($state eq 'enrollment') {
if ($crstype eq 'official') {	if ($crstype eq 'official') {
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,	&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
Line 997 sub print_request_form {	Line 1208 sub print_request_form {
} elsif ($state eq 'personnel') {	} elsif ($state eq 'personnel') {
$r->print(&print_personnel_menu($dom,$formname,$crstype,$invalidcrosslist));	$r->print(&print_personnel_menu($dom,$formname,$crstype,$invalidcrosslist));
} elsif ($state eq 'review') {	} elsif ($state eq 'review') {
	my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg);
	my $now = time;
	for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
	my $personname = $env{'form.person_'.$i.'_uname'};
	my $persondom = $env{'form.person_'.$i.'_dom'};
	if (($personname =~ /^$match_username$/) &&
	($persondom =~ /^$match_domain$/)) {
	if (&Apache::lonnet::domain($persondom)) {
	my $personhome =
	&Apache::lonnet::homeserver($personname,$persondom);
	if ($personhome eq 'no_host') {
	if ($persondom ne $dom) {
	my $skipuser = 1;
	if ($env{'user.role.dc./'.$persondom.'/'}) {
	my ($start,$end) = split('.',$env{'user.role.dc./'.$persondom.'/'});
	if (((!$start) \|\| ($start < $now)) &&
	((!$end) \|\| ($end > $now))) {
	$skipuser = 0;
	}
	}
	if ($skipuser) {
	push(@disallowed,$i);
	$disallowmsg{$i} = &mt('[_1] was excluded because new users need be from the course domain','<tt>'.$personname.':'.$persondom.'</tt>');
	next;
	}
	}
	if (&get_cancreate_status($persondom,$personname,$dom)) {
	my ($allowed,$msg) =
	&check_newuser_rules($persondom,$personname,
	\%alerts,\%rulematch,\%inst_results,
	\%curr_rules,\%got_rules);
	if ($allowed) {
	if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') {
	if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') {
	$env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'};
	}
	if ($inst_results{$personname.':'.$persondom}{'firstname'} ne '') {
	$env{'form.person_'.$i.'_firstname'} = $inst_results{$personname.':'.$persondom}{'firstname'};
	}
	if ($inst_results{$personname.':'.$persondom}{'permanentemail'} ne '') {
	$env{'form.person_'.$i.'_emailaddr'} = $inst_results{$personname.':'.$persondom}{'permanentemail'};
	}
	}
	} else {
	push(@disallowed,$i);
	$disallowmsg{$i} = &mt('[_1] was excluded because the username violated format rules for the domain','<tt>'.$personname.':'.$persondom.'</tt>');
	}
	} else {
	push(@disallowed,$i);
	$disallowmsg{$i} = &mt('[_1] was excluded because you may not request new users in the domain','<tt>'.$personname.':'.$persondom.'</tt>');
	}
	} else {
	my %userenv =
	&Apache::lonnet::userenvironment($persondom,$personname,'lastname','firstname','permanentemail');
	if ($env{'form.person_'.$i.'_lastname'} eq '') {
	$env{'form.person_'.$i.'_lastname'} = $userenv{'lastname'};
	}
	if ($env{'form.person_'.$i.'_firstname'} eq '') {
	$env{'form.person_'.$i.'_firstname'} = $userenv{'firstname'};
	}
	if ($env{'form.person_'.$i.'_emailaddr'} eq '') {
	$env{'form.person_'.$i.'_emailaddr'} = $userenv{'permanentemail'};
	}
	}
	} elsif ($personname ne '') {
	push(@disallowed,$i);
	$disallowmsg{$i} = &mt('[_1] was excluded because the domain is invalid','<tt>'.$personname.':'.$persondom.'</tt>');
	}
	} elsif ($personname ne '') {
	push(@disallowed,$i);
	$disallowmsg{$i} = &mt('[_1] was excluded because the username or domain is invalid.','<tt>'.$personname.':'.$persondom.'</tt>');
	}
	}
my $cnum;	my $cnum;
if ($env{'form.origcnum'} =~ /^($match_courseid)$/) {	if ($env{'form.origcnum'} =~ /^($match_courseid)$/) {
$cnum = $env{'form.origcnum'};	$cnum = $env{'form.origcnum'};
Line 1006 sub print_request_form {	Line 1290 sub print_request_form {
&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,	&Apache::lonnet::auto_possible_instcodes($dom,\@codetitles,\%cat_titles,
\%cat_order,\@code_order);	\%cat_order,\@code_order);
$r->print('<h3>'.&mt('Review course request details before submission').'</h3>'.	$r->print('<h3>'.&mt('Review course request details before submission').'</h3>'.
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order).	&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg).
'<input type="hidden" name="cnum" value="'.$cnum.'" />');	'<input type="hidden" name="cnum" value="'.$cnum.'" />');
$navtxt{'next'} = &mt('Submit course request');	$navtxt{'next'} = &mt('Submit course request');
} elsif ($state eq 'process') {	} elsif ($state eq 'process') {
Line 1031 sub print_request_form {	Line 1315 sub print_request_form {
if ($state eq 'personnel') {	if ($state eq 'personnel') {
push(@excluded,'persontotal');	push(@excluded,'persontotal');
}	}
	if ($state eq 'review') {
	if (@disallowed > 0) {
	my @items = qw(uname dom lastname firstname emailaddr hidedom role newsec);
	my @currsecs = &current_lc_sections();
	if (@currsecs) {
	push(@items,'sec');
	}
	my $count = 0;
	for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
	unless ($env{'form.person_'.$i.'_uname'} eq '') {
	if (grep(/^$i$/,@disallowed)) {
	foreach my $item (@items) {
	$env{'form.person_'.$i.'_'.$item} = '';
	}
	} else {
	foreach my $item (@items) {
	$env{'form.person_'.$count.'_'.$item} = $env{'form.person_'.$i.'_'.$item};
	}
	}
	}
	$count ++;
	}
	$env{'form.persontotal'} = $count;

	}
	}
if ($state eq 'enrollment') {	if ($state eq 'enrollment') {
push(@excluded,'crosslisttotal');	push(@excluded,'crosslisttotal');
}	}
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>');	$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</form>');
&display_navbuttons($r,$formname,$prev,$navtxt{'prev'},$next,$navtxt{'next'},$state);	&display_navbuttons($r,$dom,$formname,$prev,$navtxt{'prev'},$next,
	$navtxt{'next'},$state);
return;	return;
}	}

	sub get_cancreate_status {
	my ($persondom,$personname,$dom) = @_;
	my ($rules,$ruleorder) =
	&Apache::lonnet::inst_userrules($persondom,'username');
	my $usertype = &Apache::lonuserutils::check_usertype($persondom,$personname,
	$rules);
	return &Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype);
	}

	sub check_newuser_rules {
	my ($persondom,$personname,$alerts,$rulematch,$inst_results,$curr_rules,
	$got_rules) = @_;
	my $allowed = 1;
	my $newuser = 1;
	my ($checkhash,$userchkmsg);
	my $checks = { 'username' => 1 };
	$checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser };
	&Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch,
	$inst_results,$curr_rules,$got_rules);
	if (ref($alerts->{'username'}) eq 'HASH') {
	if (ref($alerts->{'username'}{$persondom}) eq 'HASH') {
	my $domdesc =
	&Apache::lonnet::domain($persondom,'description');
	if ($alerts->{'username'}{$persondom}{$personname}) {
	if (ref($curr_rules->{$persondom}) eq 'HASH') {
	$userchkmsg =
	&Apache::loncommon::instrule_disallow_msg('username',
	$domdesc,1).
	&Apache::loncommon::user_rule_formats($persondom,
	$domdesc,$curr_rules->{$persondom}{'username'},
	'username');
	}
	$allowed = 0;
	}
	}
	}
	return ($allowed,$userchkmsg);
	}

sub get_excluded_elements {	sub get_excluded_elements {
my ($dom,$states,$action,$state) = @_;	my ($dom,$states,$action,$state) = @_;
my @excluded = ('counter');	my @excluded = ('counter');
Line 1070 sub get_excluded_elements {	Line 1420 sub get_excluded_elements {
sub print_enrollment_menu {	sub print_enrollment_menu {
my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order,	my ($formname,$instcode,$dom,$codetitles,$cat_titles,$cat_order,$code_order,
$invalidcrosslist) =@_;	$invalidcrosslist) =@_;
my ($sections,$autoenroll,$access_dates,$output);	my ($sections,$autoenroll,$access_dates,$output,$hasauto);
my $starttime = time;	my $starttime = time;
my $endtime = time+(630246060); # 6 months from now, approx	my $endtime = time+(630246060); # 6 months from now, approx

Line 1089 sub print_enrollment_menu {	Line 1439 sub print_enrollment_menu {
$section_form = &inst_section_selector($dom,$instcode);	$section_form = &inst_section_selector($dom,$instcode);
if ($section_form) {	if ($section_form) {
$sections = &Apache::lonhtmlcommon::row_headline().	$sections = &Apache::lonhtmlcommon::row_headline().
'<h3>'.&mt('Sections for auto-enrollment').'</h3>'.	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Sections').
	' '.&mt('Sections for auto-enrollment').'</h3>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
$section_form;	$section_form;
}	}
Line 1116 sub print_enrollment_menu {	Line 1467 sub print_enrollment_menu {
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
$crosslist_form;	$crosslist_form;
}	}
	$hasauto = 1;
$autoenroll =	$autoenroll =
&Apache::lonhtmlcommon::row_title(&mt('Add registered students automatically')).	&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autoadd').' '.&mt('Add registered students automatically')).
'<span class="LC_nobreak"><label>'.	'<span class="LC_nobreak"><label>'.
'<input type="radio" name="autoadds" value="1">'.	'<input type="radio" name="autoadds" value="1">'.
&mt('Yes').'</label>'.(' 'x3).'<label>'.	&mt('Yes').'</label>'.(' 'x3).'<label>'.
'<input type="radio" name="autoadds" value="0" checked="checked">'.	'<input type="radio" name="autoadds" value="0" checked="checked">'.
&mt('No').'</label></span>'.	&mt('No').'</label></span>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title(&mt('Drop unregistered students automatically')).	&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic('Course_Request_Autodrop').' '.&mt('Drop unregistered students automatically')).
'<span class="LC_nobreak"><label>'.	'<span class="LC_nobreak"><label>'.
'<input type="radio" name="autodrops" value="1">'.	'<input type="radio" name="autodrops" value="1">'.
&mt('Yes').'</label>'.(' 'x3).'<label>'.	&mt('Yes').'</label>'.(' 'x3).'<label>'.
'<input type="radio" name="autodrops" value="0" checked="checked">'.	'<input type="radio" name="autodrops" value="0" checked="checked">'.
&mt('No').'</label></span>'.	&mt('No').'</label></span>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&date_setting_table($starttime,$endtime,$formname,'enroll',%enrolltitles);	&date_setting_table($starttime,$endtime,$formname,'enroll',
	$hasauto,%enrolltitles);
}	}
}	}
my $access_dates =	my $access_dates =
&date_setting_table($starttime,$endtime,$formname,'access',%accesstitles);	&date_setting_table($starttime,$endtime,$formname,'access',$hasauto,
	%accesstitles);
$output .= &Apache::lonhtmlcommon::start_pick_box();	$output .= &Apache::lonhtmlcommon::start_pick_box();
if ($sections) {	if ($sections) {
$output .= $sections;	$output .= $sections;
Line 1189 sub inst_section_selector {	Line 1543 sub inst_section_selector {
'<th>'.&mt('Include?').'<input type="hidden" name="sectotal" '.	'<th>'.&mt('Include?').'<input type="hidden" name="sectotal" '.
'value="'.$sectotal.'" /></th>'.	'value="'.$sectotal.'" /></th>'.
'<th>'.&mt('Institutional Section').'</th>'.	'<th>'.&mt('Institutional Section').'</th>'.
'<th>'.&mt('LON-CAPA section').'</th>'.	'<th>'.&Apache::loncommon::help_open_topic('Course_Request_LCSection').
	' '.&mt('LON-CAPA section').'</th>'.
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
for (my $i=0; $i<@sections; $i++) {	for (my $i=0; $i<@sections; $i++) {
my $colflag = $i%2;	my $colflag = $i%2;
my $checked = ' checked="checked"';	my $secon = ' checked="checked"';
	my $secoff = '';
if ($env{'form.origcnum'}) {	if ($env{'form.origcnum'}) {
$checked='';	$secoff = $secon;
	$secon='';
}	}
$output .= &Apache::loncommon::start_data_table_row().	$output .= &Apache::loncommon::start_data_table_row().
'<td><input type="checkbox" name="sec_'.$i.	'<td><label><input type="radio" name="sec_'.$i.
'"'.$checked.' value="1" /></td>'.	'"'.$secon.' value="1" />'.&mt('Yes').'</label>'.
'<td>'.$sections[$i].	(' 'x2).'<label><input type="radio" name="sec_'.$i.
	'"'.$secoff.' value="0" />'.&mt('No').'</label></td>'.
	'<td align="center">'.$sections[$i].
'<input type="hidden" name="secnum_'.$i.'" value="'.	'<input type="hidden" name="secnum_'.$i.'" value="'.
$sections[$i].'" /></td>'.	$sections[$i].'" /></td>'.
'<td><input type="text" size="10" name="loncapasec_'.$i.	'<td><input type="text" size="10" name="loncapasec_'.$i.
Line 1214 sub inst_section_selector {	Line 1573 sub inst_section_selector {
}	}

sub date_setting_table {	sub date_setting_table {
my ($starttime,$endtime,$formname,$prefix,%datetitles) = @_;	my ($starttime,$endtime,$formname,$prefix,$hasauto,%datetitles) = @_;
my ($perpetual,$table);	my ($perpetual,$table);
my $startform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'start',	my $startform = &Apache::lonhtmlcommon::date_setter($formname,$prefix.'start',
$starttime,'','','',1,'','','',1);	$starttime,'','','',1,'','','',1);
Line 1227 sub date_setting_table {	Line 1586 sub date_setting_table {
&mt('No end date').'</label></span>';	&mt('No end date').'</label></span>';
$closure = '1';	$closure = '1';
}	}
$table = &Apache::lonhtmlcommon::row_title($datetitles{'start'}).
$startform.	my %help_item = (
	access => {
	start => 'Course_Request_Access_Start',
	end => 'Course_Request_Access_End',
	},
	enroll => {
	start => 'Course_Request_Enroll_Start',
	end => 'Course_Request_Enroll_End',
	},
	);
	if ($hasauto) {
	$help_item{'access'}{'start'} = 'Course_Request_RegAccess_Start';
	$help_item{'access'}{'end'} = 'Course_Request_RegAccess_End';
	}

	$table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}).
	' '.$datetitles{'start'}).$startform.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title($datetitles{'end'}).	&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}).
$endform.$perpetual.	' '.$datetitles{'end'}).$endform.$perpetual.
&Apache::lonhtmlcommon::row_closure($closure);	&Apache::lonhtmlcommon::row_closure($closure);
return $table;	return $table;
}	}
Line 1272 sub print_personnel_menu {	Line 1647 sub print_personnel_menu {
}	}
}	}

my @currsecs;	my @currsecs = &current_lc_sections();
if ($env{'form.sectotal'}) {
for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
if (defined($env{'form.loncapasec_'.$i})) {
my $lcsec = $env{'form.loncapasec_'.$i};
unless (grep(/^\Q$lcsec\E$/,@currsecs)) {
push(@currsecs,$lcsec);
}
}
}
}

my ($existtitle,$existops,$existmult,$newtitle,$seccolspan);	my ($existtitle,$existops,$existmult,$newtitle,$seccolspan);
if (@currsecs) {	if (@currsecs) {
Line 1304 sub print_personnel_menu {	Line 1669 sub print_personnel_menu {
}	}

if ($persontotal) {	if ($persontotal) {
	my %lt = &Apache::lonlocal::texthash(
	community => 'Requestor is automatically assigned Coordinator role.',
	official => 'Requestor is automatically assigned Course Coordinator role.',
	);
	$lt{'unofficial'} = $lt{'official'};
$output .= &Apache::lonhtmlcommon::row_headline().	$output .= &Apache::lonhtmlcommon::row_headline().
'<h3>'.&mt('Requestor is automatically assigned Course Coordinator role.').' '.&mt('Include other personnel?').'</h3>';	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').' '.$lt{$crstype}.' '.&mt('Include other personnel?').'</h3>';
}	}
for (my $i=0; $i<$persontotal; $i++) {	for (my $i=0; $i<$persontotal; $i++) {
my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);	my @linkargs = map { 'person_'.$i.'_'.$_ } (@items);
Line 1347 sub print_personnel_menu {	Line 1717 sub print_personnel_menu {
'<td align="center" valign="top">'.&mt('First Name').'<br />'.$form_elems{'firstname'}.'</td>'."\n".	'<td align="center" valign="top">'.&mt('First Name').'<br />'.$form_elems{'firstname'}.'</td>'."\n".
'<td align="center" valign="top">'.&mt('Last Name').'<br />'.$form_elems{'lastname'}.'</td>'."\n".	'<td align="center" valign="top">'.&mt('Last Name').'<br />'.$form_elems{'lastname'}.'</td>'."\n".
'<td align="center" valign="top">'.&mt('E-mail').'<br />'.$form_elems{'emailaddr'}.'</td></tr>'."\n".	'<td align="center" valign="top">'.&mt('E-mail').'<br />'.$form_elems{'emailaddr'}.'</td></tr>'."\n".
'<tr><td align="center" valign="top">'.&mt('Role').'<br />'.$roleselector.'</td>'."\n".	'<tr><td align="center" valign="top">'.&Apache::loncommon::help_open_topic('Course_Roles').' '.&mt('Role').'<br />'.$roleselector.'</td>'."\n".
'<td'.$seccolspan.' align="center" valign="top">'.&mt('Section(s)').'<br />'.$sectionselector.'</td>'."\n".	'<td'.$seccolspan.' align="center" valign="top">'.
	&Apache::loncommon::help_open_topic('Course_Request_Rolesection').' '.&mt('LON-CAPA Section(s)').'<br />'.$sectionselector.'</td>'."\n".
'</tr></table>'.&Apache::lonhtmlcommon::row_closure();	'</tr></table>'.&Apache::lonhtmlcommon::row_closure();
}	}
$output .= &Apache::lonhtmlcommon::row_title(&mt('Add another?')).	$output .= &Apache::lonhtmlcommon::row_title(&mt('Add another?')).
Line 1356 sub print_personnel_menu {	Line 1727 sub print_personnel_menu {
'<input name="addperson" type="checkbox" value="'.$persontotal.'"'.	'<input name="addperson" type="checkbox" value="'.$persontotal.'"'.
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.	' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1).	"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::end_pick_box().'</div>';	&Apache::lonhtmlcommon::end_pick_box().'</div>'.
	'<p>'.&mt('You may also add users later, once the course has been created, by using the "Manage course users" link, accessible from the "Main Menu".').'</p>';
return $output;	return $output;
}	}

	sub current_lc_sections {
	my @currsecs;
	if ($env{'form.sectotal'}) {
	for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
	if ($env{'form.sec_'.$i}) {
	if (defined($env{'form.loncapasec_'.$i})) {
	my $lcsec = $env{'form.loncapasec_'.$i};
	unless (grep(/^\Q$lcsec\E$/,@currsecs)) {
	push(@currsecs,$lcsec);
	}
	}
	}
	}
	}
	return @currsecs;
	}

sub print_request_status {	sub print_request_status {
my ($dom) = @_;	my ($dom) = @_;
my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'},	my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'},
$env{'user.name'},'^status:'.$dom);	$env{'user.name'},'^status:'.$dom);
my ($output,$formname,%queue_by_date,%typenames);	my ($output,$formname,%queue_by_date);
if ($env{'form.crstype'} eq 'any') {	my ($types,$typenames) = &Apache::loncommon::course_types();
%typenames = &Apache::lonlocal::texthash (
official => 'Official course',
unofficial => 'Unofficial course',
community => 'Community',
);
}
foreach my $key (keys(%statusinfo)) {	foreach my $key (keys(%statusinfo)) {
if (($statusinfo{$key} eq 'approval') \|\| ($statusinfo{$key} eq 'pending')) {	if (($statusinfo{$key} eq 'approval') \|\| ($statusinfo{$key} eq 'pending')) {
(undef,my($cdom,$cnum)) = split(':',$key);	(undef,my($cdom,$cnum)) = split(':',$key);
Line 1442 sub print_request_status {	Line 1825 sub print_request_status {
'<td>'.&unescape($desc).'</td>'.	'<td>'.&unescape($desc).'</td>'.
'<td>'.$cdom.'</td>';	'<td>'.$cdom.'</td>';
if ($env{'form.crstype'} eq 'any') {	if ($env{'form.crstype'} eq 'any') {
my $typename = $typenames{$type};	my $typename;
	if (ref($typenames) eq 'HASH') {
	$typename = &mt($typenames->{$type});
	}
if ($typename eq '') {	if ($typename eq '') {
$typename = &mt('Unknown type');	$typename = &mt('Unknown type');
}	}
Line 1468 sub print_request_status {	Line 1854 sub print_request_status {
$output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>';	$output .= '<div>'.&mt('You have no matching course requests awaiting approval by a Domain Coordinator or held in a queue pending administrative action at your institution.').'</div>';
}	}
$output .= '	$output .= '
<br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />	<br /><input type="button" name="prev" value="'.&mt('Back').'" onclick="javascript:backPage(document.'.$formname.",'crstype'".')" />';
</form></div>';
return $output;	return $output;
}	}

Line 1491 sub print_cancel_request {	Line 1876 sub print_cancel_request {
}	}
$output = &mt('No further action will be taken');	$output = &mt('No further action will be taken');
} elsif (ref($history{'details'}) eq 'HASH') {	} elsif (ref($history{'details'}) eq 'HASH') {
my ($types,$typename) = &course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
my $showtype = $crstype;	my $showtype = $crstype;
if (defined($typename->{$crstype})) {	if (defined($typename->{$crstype})) {
$showtype = $typename->{$crstype};	$showtype = $typename->{$crstype};
Line 1575 sub print_request_logs {	Line 1960 sub print_request_logs {
}	}

sub print_review {	sub print_review {
my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom) = @_;	my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom,
my ($types,$typename) = &course_types();	$disallowed,$disallowmsg) = @_;
	my ($types,$typename) = &Apache::loncommon::course_types();
my ($owner,$ownername,$owneremail);	my ($owner,$ownername,$owneremail);
if ($uname eq '' \|\| $udom eq '') {	if ($uname eq '' \|\| $udom eq '') {
$uname = $env{'user.name'};	$uname = $env{'user.name'};
Line 1595 sub print_review {	Line 1981 sub print_review {
$crstypename = $env{'form.crstype'};	$crstypename = $env{'form.crstype'};
if (ref($typename) eq 'HASH') {	if (ref($typename) eq 'HASH') {
unless ($typename->{$env{'form.crstype'}} eq '') {	unless ($typename->{$env{'form.crstype'}} eq '') {
$crstypename = $typename->{$env{'form.crstype'}};	$crstypename = &mt($typename->{$env{'form.crstype'}});
}	}
}	}
my $category = 'Course';	my $category = 'Course';
Line 1699 sub print_review {	Line 2085 sub print_review {
if (($env{'form.clonecrs'} =~ /^$match_name$/) &&	if (($env{'form.clonecrs'} =~ /^$match_name$/) &&
($env{'form.clonedom'} =~ /^$match_domain$/)) {	($env{'form.clonedom'} =~ /^$match_domain$/)) {
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},	my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
$env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'});	$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},
	$env{'form.crstype'});
if ($canclone) {	if ($canclone) {
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},	my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},
$env{'form.clonecrs'},('description','internal.coursecode'));	$env{'form.clonecrs'},('description','internal.coursecode'));
Line 1753 sub print_review {	Line 2140 sub print_review {
'<td>'.&mt('None').'</td></tr>';	'<td>'.&mt('None').'</td></tr>';
for (my $i=0; $i<$env{'form.persontotal'}; $i++) {	for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
if ($env{'form.person_'.$i.'_uname'} ne '') {	if ($env{'form.person_'.$i.'_uname'} ne '') {
my @allsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');	if (ref($disallowed) eq 'ARRAY') {
	next if (grep(/^$i$/,@{$disallowed}));
	}
	my @officialsecs = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
	my @allsecs;
	foreach my $sec (@officialsecs) {
	next unless ($sec =~ /\w/);
	next if ($sec =~ /\W/);
	next if ($sec eq 'none');
	push(@allsecs,$sec);
	}
my $newsec = $env{'form.person_'.$i.'_newsec'};	my $newsec = $env{'form.person_'.$i.'_newsec'};
$newsec =~ s/^\s+//;	$newsec =~ s/^\s+//;
$newsec =~s/\s+$//;	$newsec =~s/\s+$//;
my @newsecs = split(/[\s,;]+/,$newsec);	my @newsecs = split(/\s[\s,;:]\s/,$newsec);
foreach my $sec (@newsecs) {	foreach my $sec (@newsecs) {
	next unless ($sec =~ /\w/);
next if ($sec =~ /\W/);	next if ($sec =~ /\W/);
next if ($newsec eq 'none');	next if ($sec eq 'none');
if ($sec ne '') {	if ($sec ne '') {
unless (grep(/^\Q$sec\E$/,@allsecs)) {	unless (grep(/^\Q$sec\E$/,@allsecs)) {
push(@allsecs,$sec);	push(@allsecs,$sec);
Line 1787 sub print_review {	Line 2185 sub print_review {
'<td>'.$showsec.'</td></tr>';	'<td>'.$showsec.'</td></tr>';
}	}
}	}
my $output =	my $output;
'<div>'.&Apache::lonhtmlcommon::start_pick_box().	if (ref($disallowed) eq 'ARRAY') {
	if (@{$disallowed} > 0) {
	if (ref($disallowmsg) eq 'HASH') {
	$output = '<p class="LC_warning">'.
	&mt('Not all requested personnel could be included.').'<ul>';
	foreach my $item (@{$disallowed}) {
	$output .= '<li>'.$disallowmsg->{$item}.'</li>';
	}
	$output .= '</ul></p>';
	}
	}
	}
	$output .= '<div>'.&Apache::lonhtmlcommon::start_pick_box().
&Apache::lonhtmlcommon::row_title(&mt('Owner')).	&Apache::lonhtmlcommon::row_title(&mt('Owner')).
'<table class="LC_innerpickbox"><tr>'.	'<table class="LC_innerpickbox"><tr>'.
'<th>'.&mt('Name').'</th>'.	'<th>'.&mt('Name').'</th>'.
Line 1834 sub dates_from_form {	Line 2244 sub dates_from_form {
}	}

sub courseinfo_form {	sub courseinfo_form {
my ($dom,$formname,$crstype,$next) = @_;	my ($dom,$formname,$crstype,$next,$description) = @_;
my $nodescr = &mt('You must provide a (brief) course description.');	my %lt = &Apache::lonlocal::texthash(
	official => 'You must provide a (brief) course description.',
	community => 'You must provide a (brief) community description.'
	);
	$lt{'unofficial'} = $lt{'official'};
my $js_validate = <<"ENDJS";	my $js_validate = <<"ENDJS";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA['	// <![CDATA['

function validateForm() {	function validateForm() {
if ((document.$formname.cdescr.value == "") \|\| (document.$formname.cdescr.value == "undefined")) {	if ((document.$formname.cdescr.value == "") \|\| (document.$formname.cdescr.value == "undefined")) {
alert('$nodescr');	alert('$lt{$crstype}');
return;	return;
}	}
nextPage(document.$formname,'$next');	nextPage(document.$formname,'$next');
Line 1857 ENDJS	Line 2271 ENDJS
}	}
my $output .= $js_validate."\n".'<div>'.&Apache::lonhtmlcommon::start_pick_box().	my $output .= $js_validate."\n".'<div>'.&Apache::lonhtmlcommon::start_pick_box().
&Apache::lonhtmlcommon::row_headline().	&Apache::lonhtmlcommon::row_headline().
'<h3>'.$title.'</h3>'.	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'</h3>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title(&mt('Description')).	&Apache::lonhtmlcommon::row_title(&mt('Description')).
'<input type="text" size="40" name="cdescr" />';	'<input type="text" size="60" name="cdescr" value="'.$description.'" />';
my ($home_server_pick,$numlib) =	my ($home_server_pick,$numlib) =
&Apache::loncommon::home_server_form_item($dom,'chome',	&Apache::loncommon::home_server_form_item($dom,'chome',
'default','hide');	'default','hide');
Line 1871 ENDJS	Line 2285 ENDJS
$output .= $home_server_pick.	$output .= $home_server_pick.
&Apache::lonhtmlcommon::row_closure().	&Apache::lonhtmlcommon::row_closure().
&Apache::lonhtmlcommon::row_headline().	&Apache::lonhtmlcommon::row_headline().
'<h3>'.&mt('Clone content and settings from an existing course?').'</h3>'.	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.&mt('Clone content and settings from an existing course?').'</h3>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&clone_form($dom,$formname,$crstype).	&clone_form($dom,$formname,$crstype).
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";	&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";
Line 1884 sub clone_form {	Line 2298 sub clone_form {
if ($crstype eq 'community') {	if ($crstype eq 'community') {
$type = 'Community';	$type = 'Community';
}	}
my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedom').	my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedom').' '.
&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type);	&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type);
my %lt = &clone_text();	my %lt = &clone_text();
my $output .=	my $output .=
&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.	&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.
'<input type="text" size="25" name="clonecrs" value="" />'.	'<input type="text" size="25" name="clonecrs" value="" />'.
'</label>'.&Apache::lonhtmlcommon::row_closure(1).'<label>'.	'</label>'.&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title($lt{'dmn'}).'</label>'.	&Apache::lonhtmlcommon::row_title($lt{'dmn'}).'<label>'.
$cloneform.'</label>'.&Apache::lonhtmlcommon::row_closure(1).	$cloneform.'</label>'.&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'.	&Apache::lonhtmlcommon::row_title($lt{'dsh'}).'<label>'.
'<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.	'<input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.
Line 1923 sub coursecode_form {	Line 2337 sub coursecode_form {
instcode => 'Course Category',	instcode => 'Course Category',
crosslist => 'Cross Listed Course',	crosslist => 'Cross Listed Course',
);	);
	my %helpitem = (
	instcode => 'Course_Request_Category',
	crosslist => 'Course_Request_Crosslist',
	);
if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH') &&	if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH') &&
(ref($cat_order))) {	(ref($cat_order))) {
my ($sel,$instsec,$lcsec);	my ($sel,$instsec,$lcsec);
Line 1938 sub coursecode_form {	Line 2356 sub coursecode_form {
my $lastitem = pop(@{$codetitles});	my $lastitem = pop(@{$codetitles});
my $lastinput = '<input type="text" size="5" name="'.$sel.'_'. $lastitem.'" />';	my $lastinput = '<input type="text" size="5" name="'.$sel.'_'. $lastitem.'" />';
if (@{$codetitles} > 0) {	if (@{$codetitles} > 0) {
$output = &Apache::lonhtmlcommon::row_title($rowtitle{$context}).	$output = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($helpitem{$context}).' '.$rowtitle{$context}).
'<table><tr>';	'<table><tr>';
if ($context eq 'crosslist') {	if ($context eq 'crosslist') {
$output .= '<td>'.&mt('Include?').'<br />'.	$output .= '<td>'.&mt('Include?').'<br />'.
Line 2011 sub get_course_dom {	Line 2429 sub get_course_dom {
}	}
}	}
if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) {	if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) {
my ($types,$typename) = &course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {
foreach my $type (@{$types}) {	foreach my $type (@{$types}) {
if (&Apache::lonnet::usertools_access($env{'user.name'},	if (&Apache::lonnet::usertools_access($env{'user.name'},
Line 2050 sub get_course_dom {	Line 2468 sub get_course_dom {
}	}

sub display_navbuttons {	sub display_navbuttons {
my ($r,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_;	my ($r,$dom,$formname,$prev,$prevtext,$next,$nexttext,$state,$other,$othertext) = @_;
$r->print('<div class="LC_navbuttons">');	$r->print('<div class="LC_navbuttons">');
if ($prev) {	if ($prev) {
$r->print('<input type="button" name="previous" value = "'.$prevtext.'" '.	$r->print('<input type="button" name="previous" value = "'.$prevtext.'" '.
'onclick="javascript:backPage(document.'.$formname.','."'".$prev."'".')"/>'.	'onclick="javascript:backPage('."document.$formname,'$prev'".')"/>'.
(' 'x3));	(' 'x3));
} elsif ($prevtext) {	} elsif ($prevtext) {
$r->print('<input type="button" name="previous" value = "'.$prevtext.'" '.	$r->print('<input type="button" name="previous" value = "'.$prevtext.'" '.
Line 2062 sub display_navbuttons {	Line 2480 sub display_navbuttons {
}	}
if ($state eq 'details') {	if ($state eq 'details') {
$r->print(' <input type="button" name="other" value="'.$othertext.'" '.	$r->print(' <input type="button" name="other" value="'.$othertext.'" '.
'onclick="javascript:nextPage(document.'.$formname.','."'".$other."'".	'onclick="javascript:nextPage('."document.$formname,'$other'".
')" />');	')" />');
}	}
	my $gotnext;
if ($state eq 'courseinfo') {	if ($state eq 'courseinfo') {
$r->print('<input type="button" name="next" value="'.$nexttext.'" '.	$r->print('<input type="button" name="next" value="'.$nexttext.'" '.
'onclick="javascript:validateForm();" />');	'onclick="javascript:validateForm();" />');
} elsif ($next) {	$gotnext = 1;
$r->print('	} elsif ($state eq 'enrollment') {
<input type="button" name="next" value="'.$nexttext.'" '.	if (($env{'form.crstype'} eq 'official') &&
'onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');	(&Apache::lonnet::auto_run('',$dom))) {
	$r->print('<input type="button" name="next" value="'.$nexttext.'" '.
	'onclick="javascript:validateEnrollSections('."document.$formname,'$next'".');" />');
	$gotnext = 1;
	}
	} elsif ($state eq 'personnel') {
	if ($env{'form.persontotal'} > 0) {
	$r->print('<input type="button" name="next" value="'.$nexttext.'" '.
	'onclick="javascript:validatePersonnelSections('."document.$formname,'$next'".');" />');
	$gotnext = 1;
	}
	}
	unless ($gotnext) {
	if ($next) {
	$r->print('
	<input type="button" name="next" value="'.$nexttext.'" '.
	'onclick="javascript:nextPage('."document.$formname,'$next'".')" />');
	}
}	}
$r->print('</div>');	$r->print('</div>');
}	}
Line 2161 sub print_request_outcome {	Line 2597 sub print_request_outcome {
@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();	@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = ();
} else {	} else {
my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');	my @currsec = &Apache::loncommon::get_env_multiple('form.person_'.$i.'_sec');
	my @allsecs;
	foreach my $sec (@currsec) {
	next unless ($sec =~ /\w/);
	next if ($sec =~ /\W/);
	next if ($sec eq 'none');
	push(@allsecs,$sec);
	}
my $newsec = $env{'form.person_'.$i.'_newsec'};	my $newsec = $env{'form.person_'.$i.'_newsec'};
$newsec =~ s/^\s+//;	$newsec =~ s/^\s+//;
$newsec =~s/\s+$//;	$newsec =~s/\s+$//;
my @newsecs = split(/[\s,;]+/,$newsec);	my @newsecs = split(/[\s,;]+/,$newsec);
foreach my $sec (@newsecs) {	foreach my $sec (@newsecs) {
next if ($sec =~ /\W/);	next if ($sec =~ /\W/);
next if ($newsec eq 'none');	next if ($sec eq 'none');
if ($sec ne '') {	if ($sec ne '') {
unless (grep(/^\Q$sec\E$/,@currsec)) {	unless (grep(/^\Q$sec\E$/,@allsecs)) {
push(@currsec,$sec);	push(@allsecs,$sec);
}	}
}	}
}	}
@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @currsec;	@{$personnel{$uname.':'.$udom}{$role}{'usec'}} = @allsecs;
}	}
}	}
} else {	} else {
Line 2209 sub print_request_outcome {	Line 2652 sub print_request_outcome {
if ($clonehome ne 'no_host') {	if ($clonehome ne 'no_host') {
my $canclone =	my $canclone =
&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},	&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
$env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'});	$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},
	$crstype);
if ($canclone) {	if ($canclone) {
$clonecrs = $env{'form.clonecrs'};	$clonecrs = $env{'form.clonecrs'};
$clonedom = $env{'form.clonedom'};	$clonedom = $env{'form.clonedom'};
Line 2417 sub update_requestors_roles {	Line 2861 sub update_requestors_roles {
my $owner = $env{'user.name'}.':'.$env{'user.domain'};	my $owner = $env{'user.name'}.':'.$env{'user.domain'};
if (ref($details) eq 'HASH') {	if (ref($details) eq 'HASH') {
if (ref($details->{'personnel'}) eq 'HASH') {	if (ref($details->{'personnel'}) eq 'HASH') {
if (ref($details->{'personnel'}{$owner}) eq 'HASH') {	unless (ref($details->{'personnel'}{$owner}) eq 'HASH') {
my @roles;	$details->{'personnel'}{$owner} = {
if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') {	'roles' => ['cc'],
@roles = sort(@{$details->{'personnel'}{$owner}{'roles'}});	'cc' => { 'usec' => [] },
unless (grep(/^cc$/,@roles)) {	};
push(@roles,'cc');	}
}	my @roles;
} else {	if (ref($details->{'personnel'}{$owner}{'roles'}) eq 'ARRAY') {
@roles = ('cc');	@roles = sort(@{$details->{'personnel'}{$owner}{'roles'}});
	unless (grep(/^cc$/,@roles)) {
	push(@roles,'cc');
}	}
foreach my $role (@roles) {	} else {
my $start = $now;	@roles = ('cc');
my $end = '0';	}
if ($role eq 'st') {	foreach my $role (@roles) {
if ($details->{'accessstart'} ne '') {	my $start = $now;
$start = $details->{'accessstart'};	my $end = '0';
}	if ($role eq 'st') {
if ($details->{'accessend'} ne '') {	if ($details->{'accessstart'} ne '') {
$end = $details->{'accessend'};	$start = $details->{'accessstart'};
}	}
}	if ($details->{'accessend'} ne '') {
my @usecs;	$end = $details->{'accessend'};
if ($role ne 'cc') {	}
if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') {	}
@usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}};	my @usecs;
}	if ($role ne 'cc') {
}	if (ref($details->{'personnel'}{$owner}{$role}{'usec'}) eq 'ARRAY') {
if ($role eq 'st') {	@usecs = @{$details->{'personnel'}{$owner}{$role}{'usec'}};
if (@usecs > 1) {	}
my $firstsec = $usecs[0];	}
@usecs = ($firstsec);	if ($role eq 'st') {
}	if (@usecs > 1) {
}	my $firstsec = $usecs[0];
if (@usecs == 0) {	@usecs = ($firstsec);
push(@usecs,'');	}
}	}
foreach my $usec (@usecs) {	if (@usecs == 0) {
my (%userroles,%newrole,%newgroups,$spec,$area);	push(@usecs,'');
my $area = '/'.$dom.'/'.$cnum;	}
my $spec = $role.'.'.$area;	foreach my $usec (@usecs) {
if ($usec ne '') {	my (%userroles,%newrole,%newgroups,$spec,$area);
$spec .= '/'.$usec;	my $area = '/'.$dom.'/'.$cnum;
$area .= '/'.$usec;	my $spec = $role.'.'.$area;
}	if ($usec ne '') {
	$spec .= '/'.$usec;
	$area .= '/'.$usec;
	}
	if ($role =~ /^cr\//) {
	&Apache::lonnet::custom_roleprivs(\%newrole,$role,$dom,
	$cnum,$spec,$area);
	} else {
	&Apache::lonnet::standard_roleprivs(\%newrole,$role,$dom,
	$spec,$cnum,$area);
	}
	&Apache::lonnet::set_userprivs(\%userroles,\%newrole,
	\%newgroups);
	$userroles{'user.role.'.$spec} = $start.'.'.$end;
	&Apache::lonnet::appenv(\%userroles,[$role,'cm']);
	if (($end == 0) \|\| ($end > $now)) {
	my $showrole = $role;
if ($role =~ /^cr\//) {	if ($role =~ /^cr\//) {
&Apache::lonnet::custom_roleprivs(\%newrole,$role,$dom,	$showrole = &Apache::lonnet::plaintext($role,$crstype);
$cnum,$spec,$area);	} elsif (ref($longroles) eq 'HASH') {
} else {	if ($longroles->{$role} ne '') {
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$dom,	$showrole = $longroles->{$role};
$spec,$cnum,$area);	}
}	}
&Apache::lonnet::set_userprivs(\%userroles,\%newrole,	if ($start <= $now) {
\%newgroups);	$active .= '<li><a href="/adm/roles?selectrole=1&'.
$userroles{'user.role.'.$spec} = $start.'.'.$end;	$spec.'=1">'.$showrole;
&Apache::lonnet::appenv(\%userroles,[$role,'cm']);	if ($usec ne '') {
if (($end == 0) \|\| ($end > $now)) {	$active .= ' - '.&mt('section:').' '.$usec;
my $showrole = $role;
if ($role =~ /^cr\//) {
$showrole = &Apache::lonnet::plaintext($role,$crstype);
} elsif (ref($longroles) eq 'HASH') {
if ($longroles->{$role} ne '') {
$showrole = $longroles->{$role};
}
}	}
if ($start <= $now) {	$active .= '</a></li>';
$active .= '<li><a href="/adm/roles?selectrole=1&'. $spec.'=1">'.$showrole;	$numactive ++;
if ($usec ne '') {	} else {
$active .= ' - '.&mt('section:').' '.$usec;	$future .= '<li>'.$showrole;
}	if ($usec ne '') {
$active .= '</a></li>';	$future .= ' - '.&mt('section:').' '.$usec;
$numactive ++;
} else {
$future .= '<li>'.$showrole;
if ($usec ne '') {
$future .= ' - '.&mt('section:').' '.$usec;
}
$future .= '</li>';
$numfuture ++;
}	}
	$future .= '</li>';
	$numfuture ++;
}	}
}	}
}	}
Line 2646 sub check_autolimit {	Line 3095 sub check_autolimit {
my ($uname,$udom,$dom,$crstype,$limit,$message) = @_;	my ($uname,$udom,$dom,$crstype,$limit,$message) = @_;
my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},	my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},
'userroles',['active','future'],['cc'],[$dom]);	'userroles',['active','future'],['cc'],[$dom]);
my ($types,$typename) = &course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname);	my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname);
my %count;	my %count;
if (ref($types) eq 'ARRAY') {	if (ref($types) eq 'ARRAY') {

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

Removed from v.1.29
changed lines
	Added in v.1.39