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.43 and 1.71

version 1.43, 2010/01/14 20:08:13	version 1.71, 2013/12/25 20:43:46
Line 128 sub handler {	Line 128 sub handler {
}	}

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['action','showdom','cnum','state','crstype']);	['action','showdom','cnum','state','crstype','queue']);
&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'};
my $state = $env{'form.state'};	my $state = $env{'form.state'};
my (%states,%stored);	my (%states,%stored);
my ($jscript,$uname,$udom,$result,$warning);	my ($jscript,$uname,$udom,$result,$warning,$showcredits,$instcredits);
	my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
	if ($domdefs{'officialcredits'} \|\| $domdefs{'unofficialcredits'} \|\| $domdefs{'textbookcredits'}) {
	$showcredits = 1;
	}

$states{'display'} = ['details'];	$states{'display'} = ['details'];
$states{'view'} = ['pick_request','details','cancel','removal'];	$states{'view'} = ['pick_request','details','cancel','removal'];
$states{'log'} = ['filter','display'];	$states{'log'} = ['display'];
$states{'new'} = ['courseinfo','enrollment','personnel','review','process'];	$states{'new'} = ['courseinfo','enrollment','personnel','review','process'];

if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) {	if (($action eq 'new') && ($env{'form.crstype'} eq 'official')) {
Line 147 sub handler {	Line 151 sub handler {
}	}
}	}

	if (($action eq 'new') && (&Apache::loncoursequeueadmin::author_prompt())) {
	if (ref($states{$action}) eq 'ARRAY') {
	push(@{$states{$action}},'reqauthor');
	}
	}

foreach my $key (keys(%states)) {	foreach my $key (keys(%states)) {
if (ref($states{$key}) eq 'ARRAY') {	if (ref($states{$key}) eq 'ARRAY') {
unshift (@{$states{$key}},'crstype');	unshift (@{$states{$key}},'crstype');
Line 162 sub handler {	Line 172 sub handler {
personnel => 'Personnel',	personnel => 'Personnel',
review => 'Review',	review => 'Review',
process => 'Result',	process => 'Result',
	reqauthor => 'Authoring Space Result',
pick_request => 'Display Summary',	pick_request => 'Display Summary',
details => 'Request Details',	details => 'Request Details',
cancel => 'Cancel Request',	cancel => 'Cancel Request',
removal => 'Outcome',	removal => 'Outcome',
	display => 'Request Logs',
);	);

if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) {	if (($env{'form.crstype'} eq 'official') && (&Apache::lonnet::auto_run('',$dom))) {
$trail{'enrollment'} = 'Enrollment';	$trail{'enrollment'} = 'Enrollment';
}	}

my ($page,$crumb,$newinstcode,$codechk,$checkedcode,$description) =	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))) {
my $namespace = 'courserequestqueue';
if ($env{'form.cnum'} ne '') {	if ($env{'form.cnum'} ne '') {
my $cnum = $env{'form.cnum'};	my $cnum = $env{'form.cnum'};
my $reqkey = $cnum.'_approval';	my $queue = $env{'form.queue'};
	my $reqkey = $cnum.'_'.$queue;
my $namespace = 'courserequestqueue';	my $namespace = 'courserequestqueue';
my $domconfig = &Apache::lonnet::get_domainconfiguser($dom);	my $domconfig = &Apache::lonnet::get_domainconfiguser($dom);
my %queued =	my %queued =
Line 261 sub handler {	Line 273 sub handler {
}	}
}	}
}	}
my %elements = &form_elements($dom);	(my $elements,$instcredits) = &form_elements($dom,$showcredits);
my $elementsref = {};	my $elementsref = {};
if (ref($elements{$action}) eq 'HASH') {	if ((ref($elements) eq 'HASH') && (ref($elements->{$action}) eq 'HASH')) {
if (ref($elements{$action}{$state}) eq 'HASH') {	if (ref($elements->{$action}{$state}) eq 'HASH') {
$elementsref = $elements{$action}{$state};	$elementsref = $elements->{$action}{$state};
}	}
}	}
if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) {	if (($state eq 'courseinfo') && ($env{'form.clonedom'} eq '')) {
Line 275 sub handler {	Line 287 sub handler {
$jscript = &mainmenu_javascript();	$jscript = &mainmenu_javascript();
} else {	} else {
$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);	$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);
	if ($state eq 'courseinfo') {
	$jscript .= &cloning_javascript();
	}
}	}
}	}

Line 296 sub handler {	Line 311 sub handler {
&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,$description,	$codechk,$checkedcode,$description,
\@invalidcrosslist);	$showcredits,$instcredits,\@invalidcrosslist);
}	}
} else {	} else {
$r->print(&header('Course/Community Requests').$crumb.	$r->print(&header('Course/Community Requests').$crumb.
Line 309 sub handler {	Line 324 sub handler {
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb,\%request_domains);	&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,'','','','',$showcredits);
}	}
} elsif ($action eq 'display') {	} elsif ($action eq 'display') {
if ($warning ne '') {	if ($warning ne '') {
my $args = { only_body => 1 };	my $args = { only_body => 1 };
$r->print(&header('Course/Community Requests','','',$args).$crumb.	$r->print(&header('Course/Community Requests','','' ,'',$args).$crumb.
'<h3>'.&mt('Course/Community Request Details').'</h3>'.	'<h3>'.&mt('Course/Community Request Details').'</h3>'.
'<div class="LC_warning">'.$warning.'</div>'.	'<div class="LC_warning">'.$warning.'</div>'.
&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,'','','','',$showcredits,'','',
	$uname,$udom);
}	}
} elsif ($action eq 'log') {	} elsif ($action eq 'log') {
&print_request_logs($jscript,$loaditems,$crumb);	if ($state eq 'crstype') {
	&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains);
	} else {
	$jscript .= <<ENDJS;

	function backPage(formname,prevstate) {
	formname.state.value = prevstate;
	formname.submit();
	}

	function setPage(formname) {
	formname.page.value = '1';
	return;
	}

	ENDJS
	&print_request_logs($r,$dom,$jscript,$loaditems,$crumb);
	}
} else {	} else {
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains);	&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains);
}	}
Line 354 function setAction(courseForm) {	Line 387 function setAction(courseForm) {
END	END
}	}

	sub cloning_javascript {
	return <<"END";
	function setCloneDisplay(courseForm) {
	if (courseForm.cloning.length > 1) {
	for (var i=0; i<courseForm.cloning.length; i++) {
	if (courseForm.cloning[i].checked) {
	if (courseForm.cloning[i].value == 1) {
	document.getElementById('cloneoptions').style.display="block";;
	}
	}
	}
	}
	}
	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,$description);	my ($crumb,$newinstcode,$codechk,$checkedcode,$numtitles,$description);
Line 402 sub get_breadcrumbs {	Line 451 sub get_breadcrumbs {
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');	$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
last;	last;
} else {	} else {
if (($$state eq 'process') \|\| ($$state eq 'removal')) {	if (($$state eq 'process') \|\| ($$state eq 'removal') \|\| ($$state eq 'reqauthor')) {
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{ href => '/adm/requestcourse',	{ href => '/adm/requestcourse',
text => "$trail->{$states->{$action}[$i]}",	text => "$trail->{$states->{$action}[$i]}",
Line 451 sub header {	Line 500 sub header {
}	}

sub form_elements {	sub form_elements {
my ($dom) = @_;	my ($dom,$showcredits) = @_;
	my $instcredits;
my %elements =	my %elements =
(	(
new => {	new => {
Line 462 sub form_elements {	Line 512 sub form_elements {
},	},
courseinfo => {	courseinfo => {
cdescr => 'text',	cdescr => 'text',
	cloning => 'radio',
clonecrs => 'text',	clonecrs => 'text',
clonedom => 'selectbox',	clonedom => 'selectbox',
datemode => 'radio',	datemode => 'radio',
Line 518 sub form_elements {	Line 569 sub form_elements {
}	}
if (&Apache::lonnet::auto_run('',$dom)) {	if (&Apache::lonnet::auto_run('',$dom)) {
my %extras = (	my %extras = (
sectotal => 'hidden',
enrollstart_month => 'selectbox',	enrollstart_month => 'selectbox',
enrollstart_hour => 'selectbox',	enrollstart_hour => 'selectbox',
enrollend_month => 'selectbox',	enrollend_month => 'selectbox',
Line 534 sub form_elements {	Line 584 sub form_elements {
addcrosslist => 'checkbox',	addcrosslist => 'checkbox',
autoadds => 'radio',	autoadds => 'radio',
autodrops => 'radio',	autodrops => 'radio',
);	);
if ($env{'form.sectotal'} > 0) {	my ($instcode,$titlescount) = &get_instcode($dom);
for (my $i=0; $i<$env{'form.sectotal'}; $i++) {	if ($instcode) {
$extras{'sec_'.$i} = 'radio';	my @sections = &Apache::lonnet::auto_get_sections(undef,$dom,$instcode);
$extras{'secnum_'.$i} = 'text';	if (@sections) {
$extras{'loncapasec_'.$i} = 'text';	$extras{'sectotal'} = 'hidden';
	if ($env{'form.sectotal'} > 0) {
	for (my $i=0; $i<$env{'form.sectotal'}; $i++) {
	$extras{'sec_'.$i} = 'radio';
	$extras{'secnum_'.$i} = 'text';
	$extras{'loncapasec_'.$i} = 'text';
	}
	}
	} else {
	$extras{'addsection'} = 'checkbox';
	my $sectotal = $env{'form.sectotal'};
	if ($env{'form.addsection'}) {
	$sectotal ++;
	}
	for (my $i=0; $i<$sectotal; $i++) {
	$extras{'sec_'.$i} = 'checkbox';
	$extras{'secnum_'.$i} = 'text',
	$extras{'loncapasec_'.$i} = 'text',
	}
	}
	(my $outcome,my $desc,$instcredits) =
	&Apache::lonnet::auto_validate_instcode(undef,$dom,$instcode);
	if ($showcredits && $instcredits eq '') {
	$extras{'coursecredits'} = 'text';
	}
	} elsif (($env{'form.crstype'} eq 'unofficial') \|\| ($env{'form.crstype'} eq 'textbook')) {
	if ($showcredits) {
	$extras{'coursecredits'} = 'text';
}	}
}	}
my $crosslisttotal = $env{'form.crosslisttotal'};	my $crosslisttotal = $env{'form.crosslisttotal'};
Line 549 sub form_elements {	Line 626 sub form_elements {
if (!$crosslisttotal) {	if (!$crosslisttotal) {
$crosslisttotal = 1;	$crosslisttotal = 1;
}	}

for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {	for (my $i=0; $i<$env{'form.crosslisttotal'}; $i++) {
if ($numtitles) {	if ($numtitles) {
$extras{'crosslist_'.$i.'_'.$lastitem} = 'text';	$extras{'crosslist_'.$i.'_'.$lastitem} = 'text';
Line 587 sub form_elements {	Line 663 sub form_elements {
}	}
my %personnelhash = (%{$elements{'new'}{'personnel'}},%people);	my %personnelhash = (%{$elements{'new'}{'personnel'}},%people);
%{$elements{'new'}{'personnel'}} = %personnelhash;	%{$elements{'new'}{'personnel'}} = %personnelhash;
return %elements;	return (\%elements,$instcredits);;
}	}

sub onload_action {	sub onload_action {
Line 597 sub onload_action {	Line 673 sub onload_action {
if ($state eq 'crstype') {	if ($state eq 'crstype') {
$loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)';	$loaditems{'onload'} = 'javascript:setAction(document.mainmenu_action);javascript:setType(document.mainmenu_coursetype)';
} else {	} else {
$loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs)';	$loaditems{'onload'} = 'javascript:setFormElements(document.requestcrs);';
	}
	if ($state eq 'courseinfo') {
	$loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);';
}	}
}	}
return \%loaditems;	return \%loaditems;
Line 606 sub onload_action {	Line 685 sub onload_action {
sub print_main_menu {	sub print_main_menu {
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_;	my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_;
my ($types,$typename) = &Apache::loncommon::course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
my $onchange;	my $onchange = 'this.form.submit()';
unless ($env{'form.interface'} eq 'textual') {
$onchange = 'this.form.submit()';
}

my $nextstate_setter = "\n";	my $nextstate_setter = "\n";
if (ref($states) eq 'HASH') {	if (ref($states) eq 'HASH') {
foreach my $key (keys(%{$states})) {	foreach my $key (keys(%{$states})) {
Line 646 $nextstate_setter	Line 721 $nextstate_setter
function check_can_request(crschoice,actionchoice) {	function check_can_request(crschoice,actionchoice) {
var official = '';	var official = '';
var unofficial = '';	var unofficial = '';
var community = '';	var community = '';
	var textbook = '';
END	END
if (ref($can_request) eq 'HASH') {	if (ref($can_request) eq 'HASH') {
foreach my $item (keys(%{$can_request})) {	foreach my $item (keys(%{$can_request})) {
Line 658 END	Line 734 END
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.',
unofficial => 'You are not permitted to request creation of an unofficial course in this domain.',	unofficial => 'You are not permitted to request creation of an unofficial course in this domain.',
community => 'You are not permitted to request creation of a community this domain.',	community => 'You are not permitted to request creation of a community in this domain.',
all => 'You must choose a specific course type when making a new course request.\\nAll types is not allowed.',	textbook => 'You are not permitted to request creation of a textbook course in this domain',
	all => 'You must choose a specific course type when making a new course request.',
	allt => '"All types" is not allowed.',
);	);
$js .= <<END;	$js .= <<END;
if (crschoice == 'official') {	if (crschoice == 'official') {
Line 680 END	Line 758 END
return false;	return false;
}	}
} else {	} else {
if (actionchoice == 'new') {	if (crschoice == 'textbook') {
alert("$lt{'all'}");	if (textbook != 1) {
return false;	alert("$lt{'community'}");
}	return false;
	}
	} else {
	if (actionchoice == 'new') {
	alert('$lt{'all'}'+'\\n'+'$lt{'allt'}');
	return false;
	}
	}
}	}
}	}
}	}
Line 692 END	Line 777 END
END	END
my ($pagetitle,$pageinfo,$domaintitle);	my ($pagetitle,$pageinfo,$domaintitle);
if (ref($can_request) eq 'HASH') {	if (ref($can_request) eq 'HASH') {
if (($can_request->{'official'}) \|\| ($can_request->{'unofficial'})) {	if (($can_request->{'official'}) \|\| ($can_request->{'unofficial'}) \|\| $can_request->{'textbook'}) {
if ($can_request->{'community'}) {	if ($can_request->{'community'}) {
$pagetitle = 'Course/Community Requests';	$pagetitle = 'Course/Community Requests';
$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.');	$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.');
Line 751 END	Line 836 END
<option value="view">'.&mt('View/Modify/Cancel pending requests').'</option>	<option value="view">'.&mt('View/Modify/Cancel pending requests').'</option>
<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().
&Apache::lonhtmlcommon::row_title(&mt('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">');
Line 794 END	Line 879 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,$description,$invalidcrosslist,	$newinstcode,$codechk,$checkedcode,$description,$showcredits,
$uname,$udom) = @_;	$instcredits,$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 819 END	Line 904 END
}	}
if ($action eq 'new') {	if ($action eq 'new') {
my $jsextra;	my $jsextra;
if ($state eq 'courseinfo') {	if (($state eq 'courseinfo') \|\| ($state eq 'codepick')) {
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);	$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);
} elsif ($state eq 'enrollment') {	} elsif ($state eq 'enrollment') {
if (($env{'form.crstype'} eq 'official') &&	if (($env{'form.crstype'} eq 'official') &&
Line 837 END	Line 922 END
}	}
$r->print(&header($title,$js.$jscript,$loaditems,$jsextra).$crumb);	$r->print(&header($title,$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,$description,$invalidcrosslist);	$codechk,$checkedcode,$description,$showcredits,
	$instcredits,$invalidcrosslist);
} elsif ($action eq 'view') {	} elsif ($action eq 'view') {
my $jsextra;	my $jsextra;
my $formname = 'requestcrs';	my $formname = 'requestcrs';
Line 868 END	Line 954 END
$title = &mt('Pending requests for official courses');	$title = &mt('Pending requests for official courses');
} elsif ($env{'form.crstype'} eq 'unofficial') {	} elsif ($env{'form.crstype'} eq 'unofficial') {
$title = &mt('Pending requests for unofficial courses');	$title = &mt('Pending requests for unofficial courses');
	} elsif ($env{'form.crstype'} eq 'textbook') {
	$title = &mt('Pending requests for textbook courses');
} else {	} else {
$title = &mt('Pending course/community requests');	$title = &mt('Pending course/community requests');
}	}
$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".	$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".
&print_request_status($dom).'</form></div>');	&print_request_status($dom,$action).'</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 891 END	Line 979 END
}	}
$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".	$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,	&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,
\@code_order)."\n".	\@code_order,'','','','',$instcredits)."\n".
'<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n");	'<input name="origcnum" value="'.$origcnum.'" type="hidden" />'."\n");
my @excluded = &get_excluded_elements($dom,$states,'new','review');	my @excluded = &get_excluded_elements($dom,$states,'new','review',
	$showcredits);
push(@excluded,'origcnum');	push(@excluded,'origcnum');
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');	$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');
my $other = 'modify';	my $other = 'modify';
Line 915 END	Line 1004 END
my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});	my ($result,$output) = &print_cancel_request($dom,$env{'form.origcnum'});
$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".	$r->print('<h3>'.$title.'</h3><div>'."\n".$form."\n".
$output);	$output);
my @excluded = &get_excluded_elements($dom,$states,'view','cancel');	my @excluded = &get_excluded_elements($dom,$states,'view','cancel',
	$showcredits);
$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');	$r->print(&Apache::lonhtmlcommon::echo_form_input(\@excluded).'</div>');
my %navtxt = &Apache::lonlocal::texthash (	my %navtxt = &Apache::lonlocal::texthash (
prev => 'Back',	prev => 'Back',
Line 992 END	Line 1082 END
$r->print(&header($title,'','','',{ 'only_body' => 1}).	$r->print(&header($title,'','','',{ 'only_body' => 1}).
$crumb."\n".'<h3>'.$header.'</h3>'.	$crumb."\n".'<h3>'.$header.'</h3>'.
&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,	&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,
\@code_order,$uname,$udom)."\n".'</div>'.	\@code_order,$uname,$udom,'','',$instcredits)."\n".
	'</div>'.
&close_popup_form());	&close_popup_form());
} elsif ($action eq 'log') {
$r->print(&coursereq_log('View request log',$jscript,$loaditems).$crumb);
}	}
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return;	return;
Line 1188 sub get_instcode {	Line 1277 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,
$description,$invalidcrosslist) = @_;	$description,$showcredits,$instcredits,$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 1261 sub print_request_form {	Line 1350 sub print_request_form {
}	}
$r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles,	$r->print(&print_enrollment_menu($formname,$instcode,$dom,\@codetitles,
\%cat_titles,\%cat_order,\@code_order,	\%cat_titles,\%cat_order,\@code_order,
$invalidcrosslist));	$showcredits,$instcredits,$invalidcrosslist));
} 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') {
Line 1287 sub print_request_form {	Line 1376 sub print_request_form {
}	}
if ($skipuser) {	if ($skipuser) {
push(@disallowed,$i);	push(@disallowed,$i);
$disallowmsg{$i} = &mt('[_1] was excluded because new users need be from the course domain','<tt>'.$personname.':'.$persondom.'</tt>');	$disallowmsg{$i} = &mt('[_1] was excluded because new users need to be from the course domain','<tt>'.$personname.':'.$persondom.'</tt>');
next;	next;
}	}
}	}
if (&get_cancreate_status($persondom,$personname,$dom)) {	my $usertype = &get_usertype($persondom,$personname,\%curr_rules,\%got_rules);
my ($allowed,$msg) =	if (&Apache::lonuserutils::can_create_user($dom,'requestcrs',$usertype)) {
	my ($allowed,$msg,$authtype,$authparam) =
&check_newuser_rules($persondom,$personname,	&check_newuser_rules($persondom,$personname,
\%alerts,\%rulematch,\%inst_results,	\%alerts,\%rulematch,\%inst_results,
\%curr_rules,\%got_rules);	\%curr_rules,\%got_rules);
if ($allowed) {	if ($allowed) {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($persondom);
	if ($usertype eq 'official') {
	if ($authtype eq '') {
	$authtype = $domdefaults{'auth_def'};
	$authparam = $domdefaults{'auth_arg_def'};
	}
	} elsif ($usertype eq 'unofficial') {
	if ($authtype eq '') {
	$authtype = 'internal';
	$authparam = '';
	}
	} else {
	$authtype = $domdefaults{'auth_def'};
	$authparam = $domdefaults{'auth_arg_def'};
	}
	if (($authtype eq '') \|\|
	(($authtype =~/^krb/) && ($authparam eq ''))) {
	push(@disallowed,$i);
	$disallowmsg{$i} = &mt('[_1] was excluded because institutional information is incomplete for this new user.','<tt>'.$personname.':'.$persondom.'</tt>');
	next;
	}
if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') {	if (ref($inst_results{$personname.':'.$persondom}) eq 'HASH') {
if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') {	if ($inst_results{$personname.':'.$persondom}{'lastname'} ne '') {
$env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'};	$env{'form.person_'.$i.'_lastname'} = $inst_results{$personname.':'.$persondom}{'lastname'};
Line 1342 sub print_request_form {	Line 1453 sub print_request_form {
if ($env{'form.origcnum'} =~ /^($match_courseid)$/) {	if ($env{'form.origcnum'} =~ /^($match_courseid)$/) {
$cnum = $env{'form.origcnum'};	$cnum = $env{'form.origcnum'};
} else {	} else {
$cnum = &Apache::lonnet::generate_coursenum($dom);	my $gentype = 'Course';
	if ($crstype eq 'community') {
	$gentype = 'Community';
	}
	$cnum = &Apache::lonnet::generate_coursenum($dom,$gentype);
}	}
&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);
Line 1351 sub print_request_form {	Line 1466 sub print_request_form {
} else {	} else {
$r->print('<h3>'.&mt('Review course request details before submission').'</h3>');	$r->print('<h3>'.&mt('Review course request details before submission').'</h3>');
}	}
$r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg).	$r->print(&print_review($dom,\@codetitles,\%cat_titles,\%cat_order,\@code_order,'','',\@disallowed,\%disallowmsg,$instcredits).
'<input type="hidden" name="cnum" value="'.$cnum.'" />');	'<input type="hidden" name="cnum" value="'.$cnum.'" />');
if ($crstype eq 'community') {	if ($crstype eq 'community') {
$navtxt{'next'} = &mt('Submit community request');	$navtxt{'next'} = &mt('Submit community request');
Line 1364 sub print_request_form {	Line 1479 sub print_request_form {
\%cat_order,\@code_order);	\%cat_order,\@code_order);
}	}
my ($storeresult,$result) = &print_request_outcome($dom,\@codetitles,	my ($storeresult,$result) = &print_request_outcome($dom,\@codetitles,
\@code_order);	\@code_order,$instcredits);
$r->print($result);	$r->print($result);
if (($storeresult eq 'ok') \|\| ($storeresult eq 'created')) {	if (($storeresult eq 'ok') \|\| ($storeresult eq 'created')) {
$r->print('<p>');
if ($storeresult eq 'ok') {	if ($storeresult eq 'ok') {
$r->print('<a href="/adm/requestcourse?action=view&state=details&showdom='.$dom.'&cnum='. $env{'form.cnum'}.'">'.	$r->print('<p><a href="/adm/requestcourse?action=view&state=details&showdom='.$dom.'&cnum='. $env{'form.cnum'}.'">'.
&mt('Modify this request').'</a>'.(' 'x4));	&mt('Modify this request').'</a>'.(' 'x4).
	'<a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');
	}
	if (&Apache::loncoursequeueadmin::author_prompt()) {
	$r->print('<h3>'.&mt('Access to authoring space').'</h3>'.
	'<p>'.
	&mt('Although assessment items can be created directly inside a course, such items only use part of the assessment capabilities of LON-CAPA.').
	'<br />'.
	&mt('By contrast, items created in authoring space, then imported into a course, can use all of the features of the assessment engine.').'</p>'.
	'<p>'.&mt('Request authoring space access now?').
	'<span class="LC_nobreak"> '.
	'<label><input type="radio" name="requestauthor" value="1" />'.&mt('Yes').'</label>'.
	(' 'x2).
	'<label><input type="radio" name="requestauthor" value="0" checked="checked"/>'.&mt('No').'</label>'.
	'</span></p>'.
	'<input type="submit" name="newauthor" value="'.&mt('Submit authoring request').'" />'.
	'<input type="hidden" name="state" value="reqauthor" />'.
	'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'.
	'<input type="hidden" name="cnum" value="'.$env{'form.cnum'}.'" />'.
	'<input type="hidden" name="showdom" value="'.$env{'form.showdom'}.'" />'.
	'<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'.
	'<input type="hidden" name="disposition" value="'.$storeresult.'" />'.
	'<br />');
	} elsif ($storeresult eq 'created') {
	$r->print('<p><a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');
	}
	}
	} elsif ($state eq 'reqauthor') {
	my ($result,@links);
	if ($env{'form.requestauthor'}) {
	$r->print(&Apache::loncoursequeueadmin::process_reqauthor(\$result));
	if ($result eq 'created') {
	my $role = 'au';
	my $spec = "$role./$env{'form.showdom'}/";
	push(@links,&mt('Enter your authoring space with role: [_1]',
	'<a href="/adm/roles?selectrole=1&'.$spec.'=1">'.
	&Apache::lonnet::plaintext($role).'</a>'));
}	}
$r->print('<a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');	}
return;	if (($env{'form.disposition'} eq 'created') &&
	($env{'form.cnum'} =~ /^$match_courseid$/) &&
	($env{'form.showdom'} =~ /^$match_domain$/)) {
	my ($spec,$area,$role,$type);
	my $role = 'cc';
	my $spec = "$role./$env{'form.showdom'}/$env{'form.cnum'}";
	my $type = 'Course';
	if ($env{'form.crstype'} eq 'community') {
	$type = 'Community';
	}
	my $showrole = &Apache::lonnet::plaintext($role,$type);
	unshift(@links,&mt('Enter new course with role: [_1]',
	'<a href="/adm/roles?selectrole=1&'.$spec.'=1">'.$showrole.'</a>'));
	}
	if (@links > 1) {
	$r->print(&mt('New roles will be listed on your [_1]Roles[_2] page.',
	'<a href="/adm/roles">','</a>').'&nbsp'.&mt('Choose a role:').
	'<ul>');
	foreach my $link (@links) {
	$r->print('<li>'.$link.'</li>');
	}
	$r->print('</ul>');
	} elsif (@links == 1) {
	$r->print('<p>'.$links[0].'</p>');
}	}
}	}
my @excluded = &get_excluded_elements($dom,$states,$action,$state);	my @excluded = &get_excluded_elements($dom,$states,$action,$state,$showcredits);
if ($state eq 'personnel') {	if ($state eq 'personnel') {
push(@excluded,'persontotal');	push(@excluded,'persontotal');
}	}
Line 1403 sub print_request_form {	Line 1576 sub print_request_form {
$count ++;	$count ++;
}	}
$env{'form.persontotal'} = $count;	$env{'form.persontotal'} = $count;

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

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

sub check_newuser_rules {	sub check_newuser_rules {
Line 1429 sub check_newuser_rules {	Line 1605 sub check_newuser_rules {
$got_rules) = @_;	$got_rules) = @_;
my $allowed = 1;	my $allowed = 1;
my $newuser = 1;	my $newuser = 1;
my ($checkhash,$userchkmsg);	my ($checkhash,$userchkmsg,$authtype,$authparam);
my $checks = { 'username' => 1 };	my $checks = { 'username' => 1 };
$checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser };	$checkhash->{$personname.':'.$persondom} = { 'newuser' => $newuser };
&Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch,	&Apache::loncommon::user_rule_check($checkhash,$checks,$alerts,$rulematch,
Line 1451 sub check_newuser_rules {	Line 1627 sub check_newuser_rules {
}	}
}	}
}	}
return ($allowed,$userchkmsg);	if ($allowed) {
	if (ref($rulematch) eq 'HASH') {
	if (ref($rulematch->{$personname.':'.$persondom}) eq 'HASH') {
	my $matchedrule = $rulematch->{$personname.':'.$persondom}{'username'};
	my ($rules,$ruleorder) =
	&Apache::lonnet::inst_userrules($persondom,'username');
	if (ref($rules) eq 'HASH') {
	if (ref($rules->{$matchedrule}) eq 'HASH') {
	$authtype = $rules->{$matchedrule}{'authtype'};
	$authparam = $rules->{$matchedrule}{'authparm'};
	}
	}
	}
	}
	}
	return ($allowed,$userchkmsg,$authtype,$authparam);
}	}

sub get_excluded_elements {	sub get_excluded_elements {
my ($dom,$states,$action,$state) = @_;	my ($dom,$states,$action,$state,$showcredits) = @_;
my @excluded = ('counter');	my @excluded = ('counter');
my %elements = &form_elements($dom);	my ($elements,$instcredits) = &form_elements($dom,$showcredits);
if (ref($states) eq 'HASH') {	if (ref($states) eq 'HASH') {
if (ref($states->{$action}) eq 'ARRAY') {	if (ref($states->{$action}) eq 'ARRAY') {
my @items = @{$states->{$action}};	my @items = @{$states->{$action}};
my $numitems = scalar(@items);	my $numitems = scalar(@items);
if ($numitems) {	if ($numitems) {
for (my $i=$numitems-1; $i>=0; $i--) {	for (my $i=$numitems-1; $i>=0; $i--) {
if (ref($elements{$action}) eq 'HASH') {	if ((ref($elements) eq 'HASH') &&
if (ref($elements{$action}{$items[$i]}) eq 'HASH') {	(ref($elements->{$action}) eq 'HASH')) {
foreach my $key (keys(%{$elements{$action}{$items[$i]}})) {	if (ref($elements->{$action}{$items[$i]}) eq 'HASH') {
	foreach my $key (keys(%{$elements->{$action}{$items[$i]}})) {
push(@excluded,$key);	push(@excluded,$key);
}	}
}	}
Line 1484 sub get_excluded_elements {	Line 1676 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) =@_;	$showcredits,$instcredits,$invalidcrosslist) =@_;
my ($sections,$autoenroll,$access_dates,$output,$hasauto);	my ($sections,$autoenroll,$access_dates,$output,$hasauto,$hascredits,
	$creditsrow,$domdefcredits);
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 1497 sub print_enrollment_menu {	Line 1690 sub print_enrollment_menu {
'start' => 'Start auto-enrollment',	'start' => 'Start auto-enrollment',
'end' => 'End auto-enrollment',	'end' => 'End auto-enrollment',
);	);
	if ($showcredits) {
	unless ($env{'form.crstype'} eq 'community') {
	my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
	$domdefcredits = $domdefs{$env{'form.crstype'}.'credits'};
	}
	}
if ($env{'form.crstype'} eq 'official') {	if ($env{'form.crstype'} eq 'official') {
if (&Apache::lonnet::auto_run('',$dom)) {	if (&Apache::lonnet::auto_run('',$dom)) {
$output = &show_invalid_crosslists($invalidcrosslist);	$output = &show_invalid_crosslists($invalidcrosslist);
my ($section_form,$crosslist_form);	my ($section_form,$crosslist_form);
$section_form = &inst_section_selector($dom,$instcode);	if ($instcode ne '') {
	$section_form = &inst_section_selector($dom,$instcode);
	if ($section_form eq '') {
	my $sectotal = $env{'form.sectotal'};
	if (!$sectotal) {
	$sectotal = 1;
	}
	if ($env{'form.addsection'}) {
	$sectotal ++;
	}
	for (my $i=0; $i<$sectotal; $i++) {
	$section_form .= &sections_form($dom,$instcode,$i);
	}
	if ($section_form) {
	$section_form .=
	&Apache::lonhtmlcommon::row_title(&mt('Add another')).
	'<input name="sectotal" type="hidden" value="'.$sectotal.'" />'.
	'<input name="addsection" type="checkbox" value="'.$sectotal.'"'.
	' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.
	"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure();
	}
	}
	}
if ($section_form) {	if ($section_form) {
$sections = &Apache::lonhtmlcommon::row_headline().	$sections = &Apache::lonhtmlcommon::row_headline().
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Sections').	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Sections').
Line 1528 sub print_enrollment_menu {	Line 1749 sub print_enrollment_menu {
' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.	' onclick="javascript:nextPage(document.'.$formname.",'".$env{'form.state'}.
"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure();	"'".');" />'.&mt('Add?').&Apache::lonhtmlcommon::row_closure();
$sections .= &Apache::lonhtmlcommon::row_headline.	$sections .= &Apache::lonhtmlcommon::row_headline.
'<h3>'.&mt('Crosslisted courses for auto-enrollment').'</h3>'.	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Crosslist').' '.&mt('Crosslisted courses for auto-enrollment').'</h3>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
$crosslist_form;	$crosslist_form;
}	}
Line 1549 sub print_enrollment_menu {	Line 1770 sub print_enrollment_menu {
&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',	&date_setting_table($starttime,$endtime,$formname,'enroll',
$hasauto,%enrolltitles);	$hasauto,undef,%enrolltitles);
	if ($showcredits) {
	if ($instcredits) {
	$creditsrow = &mt('[quant,_1,credit]',$instcredits);
	} else {
	$creditsrow = '<span class="LC_nobreak">'.
	'<input type="text" size="3" name="coursecredits"'.
	' value="'.$domdefcredits.'" />';
	}
	$hascredits = 1;
	}
	}
	} elsif (($env{'form.crstype'} eq 'unofficial') \|\| ($env{'form.crstype'} eq 'textbook')) {
	if ($showcredits) {
	$creditsrow = '<span class="LC_nobreak">'.
	'<input type="text" size="3" name="coursecredits"'.
	' value="'.$domdefcredits.'"/>';
	$hascredits = 1;
}	}
}	}
my $access_dates =	my $access_dates =
&date_setting_table($starttime,$endtime,$formname,'access',$hasauto,	&date_setting_table($starttime,$endtime,$formname,'access',$hasauto,
%accesstitles);	$hascredits,%accesstitles);
$output .= &Apache::lonhtmlcommon::start_pick_box();	$output .= &Apache::lonhtmlcommon::start_pick_box();
if ($sections) {	if ($sections) {
$output .= $sections;	$output .= $sections;
Line 1573 sub print_enrollment_menu {	Line 1811 sub print_enrollment_menu {
$output .= &Apache::lonhtmlcommon::row_headline('Access').	$output .= &Apache::lonhtmlcommon::row_headline('Access').
'<h3>'.$header.'</h3>'.	'<h3>'.$header.'</h3>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
$access_dates	$access_dates;
	}
	if ($creditsrow) {
	$output .= &Apache::lonhtmlcommon::row_headline('Credits').
	'<h3>'.&mt('Credits earned by students').'</h3>'.
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title(&mt('Default credits')).
	$creditsrow.
	&Apache::lonhtmlcommon::row_closure(1);
}	}
return '<div>'.&Apache::lonhtmlcommon::start_pick_box().$output.	return '<div>'.&Apache::lonhtmlcommon::start_pick_box().$output.
&Apache::lonhtmlcommon::end_pick_box().'</div>';	&Apache::lonhtmlcommon::end_pick_box().'</div>';
Line 1638 sub inst_section_selector {	Line 1884 sub inst_section_selector {
}	}

sub date_setting_table {	sub date_setting_table {
my ($starttime,$endtime,$formname,$prefix,$hasauto,%datetitles) = @_;	my ($starttime,$endtime,$formname,$prefix,$hasauto,$hascredits,%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 1649 sub date_setting_table {	Line 1895 sub date_setting_table {
$perpetual = ' <span class="LC_nobreak"><label>'.	$perpetual = ' <span class="LC_nobreak"><label>'.
'<input type="checkbox" name="no_end_date" />'.	'<input type="checkbox" name="no_end_date" />'.
&mt('No end date').'</label></span>';	&mt('No end date').'</label></span>';
$closure = '1';	unless ($hascredits) {
	$closure = '1';
	}
}	}

my %help_item = (	my %help_item = (
Line 1668 sub date_setting_table {	Line 1916 sub date_setting_table {
}	}

$table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}).	$table = &Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'start'}).
' '.$datetitles{'start'}).$startform.	' '.&mt($datetitles{'start'})).$startform.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}).	&Apache::lonhtmlcommon::row_title(&Apache::loncommon::help_open_topic($help_item{$prefix}{'end'}).
' '.$datetitles{'end'}).$endform.$perpetual.	' '.&mt($datetitles{'end'})).$endform.$perpetual.
&Apache::lonhtmlcommon::row_closure($closure);	&Apache::lonhtmlcommon::row_closure($closure);
return $table;	return $table;
}	}
Line 1739 sub print_personnel_menu {	Line 1987 sub print_personnel_menu {
official => 'Requestor is automatically assigned Course Coordinator role.',	official => 'Requestor is automatically assigned Course Coordinator role.',
);	);
$lt{'unofficial'} = $lt{'official'};	$lt{'unofficial'} = $lt{'official'};
	$lt{'textbook'} = $lt{'textbook'};
$output .= &Apache::lonhtmlcommon::row_headline().	$output .= &Apache::lonhtmlcommon::row_headline().
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').' '.$lt{$crstype}.' '.&mt('Include other personnel?').'</h3>';	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Personnel').' '.$lt{$crstype}.' '.&mt('Include other personnel?').'</h3>';
}	}
Line 1818 sub current_lc_sections {	Line 2067 sub current_lc_sections {
return @currsecs;	return @currsecs;
}	}

sub print_request_status {	sub sorted_request_history {
my ($dom) = @_;	my ($dom,$action,$curr_req) = @_;
	my ($after,$before,$statusfilter,$crstypefilter);
	if ($env{'form.status'} ne '') {
	$statusfilter = $env{'form.status'};
	}
	if ($env{'form.crstype'} ne '') {
	$crstypefilter = $env{'form.crstype'};
	}
	if (ref($curr_req) eq 'HASH') {
	$after = $curr_req->{'requested_after_date'},
	$before = $curr_req->{'requested_before_date'};
	$statusfilter = $curr_req->{'status'};
	$crstypefilter = $curr_req->{'crstype'};
	}
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);	my %queue_by_date;
my ($types,$typenames) = &Apache::loncommon::course_types();	my ($types,$typenames) = &Apache::loncommon::course_types();
foreach my $key (keys(%statusinfo)) {	foreach my $key (keys(%statusinfo)) {
if (($statusinfo{$key} eq 'approval') \|\| ($statusinfo{$key} eq 'pending')) {	if ($action eq 'view') {
(undef,my($cdom,$cnum)) = split(':',$key);	next unless (($statusinfo{$key} eq 'approval') \|\| ($statusinfo{$key} eq 'pending'));
next if ($cdom ne $dom);	} else {
my $requestkey = $cdom.'_'.$cnum;	next unless (($statusfilter eq 'any') \|\|
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {	($statusfilter eq $statusinfo{$key}));
my %history = &Apache::lonnet::restore($requestkey,'courserequests',	}
$env{'user.domain'},$env{'user.name'});	(undef,my($cdom,$cnum)) = split(':',$key);
my $entry;	next if ($cdom ne $dom);
my $timestamp = $history{'reqtime'};	my $requestkey = $cdom.'_'.$cnum;
my $crstype = $history{'crstype'};	if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
my $disposition = $history{'disposition'};	my %history = &Apache::lonnet::restore($requestkey,'courserequests',
	$env{'user.domain'},$env{'user.name'});
	my $entry;
	my $reqtime = $history{'reqtime'};
	my $lastupdate = $history{'timestamp'};
	my $crstype = $history{'crstype'};
	my $disposition = $history{'disposition'};
	my $status = $history{'status'};
	if ($action eq 'view') {
next if ((exists($history{'status'})) && ($history{'status'} eq 'created'));	next if ((exists($history{'status'})) && ($history{'status'} eq 'created'));
next unless (($env{'form.crstype'} eq 'any') \|\|	} else {
($env{'form.crstype'} eq $crstype));	next if (($reqtime < $after) \|\| ($reqtime > $before));
	}
	next unless (($crstypefilter eq 'any') \|\|
	($crstypefilter eq $crstype));
	if ($action eq 'view') {
next unless (($disposition eq 'approval') \|\|	next unless (($disposition eq 'approval') \|\|
($disposition eq 'pending'));	($disposition eq 'pending'));
if (ref($history{'details'}) eq 'HASH') {	}
$entry = $requestkey.':'.$crstype.':'.	if (ref($history{'details'}) eq 'HASH') {
&escape($history{'details'}{'cdescr'});	$entry = $requestkey.':'.$crstype.':'.
if ($crstype eq 'official') {	&escape($history{'details'}{'cdescr'});
$entry .= ':'.&escape($history{'details'}{'instcode'});	if ($action eq 'log') {
	$entry .= ':'.$lastupdate.':';
	if ($statusinfo{$key} ne '') {
	$entry .= $statusinfo{$key};
	} elsif ($status ne '') {
	$entry .= $status;
	} else {
	$entry .= $disposition;
}	}
}	}
if ($entry ne '') {	if ($crstype eq 'official') {
if (exists($queue_by_date{$timestamp})) {	$entry .= ':'.&escape($history{'details'}{'instcode'});
if (ref($queue_by_date{$timestamp}) eq 'ARRAY') {	}
push(@{$queue_by_date{$timestamp}},$entry);	}
}	if ($entry ne '') {
} else {	if (exists($queue_by_date{$reqtime})) {
@{$queue_by_date{$timestamp}} = ($entry);	if (ref($queue_by_date{$reqtime}) eq 'ARRAY') {
	push(@{$queue_by_date{$reqtime}},$entry);
}	}
	} else {
	@{$queue_by_date{$reqtime}} = ($entry);
}	}
}	}
}	}
}	}
$formname = 'requestcrs';	return %queue_by_date;
	}

	sub print_request_status {
	my ($dom,$action) = @_;
	my %queue_by_date = &sorted_request_history($dom,$action);
my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));	my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));
$output = '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".	my $formname = 'requestcrs';
	my ($types,$typenames) = &Apache::loncommon::course_types();
	my $output = '<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n".

'<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n".	'<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'."\n".
'<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n".	'<input type="hidden" name="crstype" value="'.$env{'form.crstype'}.'" />'."\n".
Line 2027 ENDJS	Line 2318 ENDJS
}	}

sub viewcancel_javascript {	sub viewcancel_javascript {
my $alert = &mt('Are you sure you want to cancel this request?\\n'.	my $alert = &mt('Are you sure you want to cancel this request?').'\\n'.
'Your request will be removed.');	&mt('Your request will be removed.');
return << "ENDJS";	return << "ENDJS";
function nextPage(formname,nextstate) {	function nextPage(formname,nextstate) {
if (confirm('$alert')) {	if (confirm('$alert')) {
Line 2042 ENDJS	Line 2333 ENDJS
}	}

sub print_request_logs {	sub print_request_logs {
my ($jscript,$loaditems,$crumb) = @_;	my ($r,$dom,$jscript,$loaditems,$crumb) = @_;
	my $title;
	if ($env{'form.crstype'} eq 'community') {
	$title = 'Community Request Logs';
	} elsif ($env{'form.crstype'} eq 'any') {
	$title = 'Course/Community Request Logs';
	} else {
	$title = 'Course Request Logs';
	}
	$r->print(&header($title,$jscript,$loaditems).$crumb);
	my $formname = 'requestcrs';
	$r->print('<form action="/adm/requestcourse" method="post" name="'.$formname.'" onsubmit="javascript:setPage(this);">'."\n".
	'<input type="hidden" name="action" value="log" />'."\n".
	'<input type="hidden" name="state" value="display" />'."\n");
	# set defaults
	my $now = time();
	my $defstart = $now - (7243600); #7 days ago
	my %defaults = (
	page => '1',
	show => '10',
	crstype => 'any',
	status => 'any',
	requested_before_date => $now,
	requested_after_date => $defstart,
	);
	my ($types,$typenames) = &Apache::loncommon::course_types();
	my $more_records = 0;
	my %curr;
	foreach my $item ('show','page','crstype','status') {
	$curr{$item} = $env{'form.'.$item};
	}
	$curr{'requested_after_date'} = &Apache::lonhtmlcommon::get_date_from_form('requested_after_date');
	$curr{'requested_before_date'} = &Apache::lonhtmlcommon::get_date_from_form('requested_before_date');
	foreach my $key (keys(%defaults)) {
	if ($curr{$key} eq '') {
	$curr{$key} = $defaults{$key};
	}
	}
	my ($statuses,$statusnames) = &reqstatus_names($curr{'crstype'});
	$r->print('<input type="hidden" name="page" value="'.$curr{'page'}.'" />'.
	&requestlog_display_filter($formname,\%curr));
	my %queue_by_date = &sorted_request_history($dom,$env{'form.action'},\%curr);
	my @sortedtimes = sort {$a <=> $b} (keys(%queue_by_date));
	my $showntablehdr = 0;
	my $tablehdr = &Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_header_row().
	'<th> </th><th>'.&mt('Request Date').'</th>'.
	'<th>'.&mt('Description').'</th>';
	if ($curr{'crstype'} eq 'any') {
	$tablehdr .= '<th>'.&mt('Course Type').'</th>';
	}
	if (($curr{'crstype'} eq 'official') \|\| ($curr{'crstype'} eq 'any')) {
	$tablehdr .= '<th>'.&mt('Institutional Code').'</th>';
	}
	if ($curr{'status'} eq 'any') {
	$tablehdr .= '<th>'.&mt('Status').'</th>';
	} elsif ($curr{'status'} eq 'created') {
	$tablehdr .= '<th>'.&mt('Creation Date').'</th>';
	} elsif ($curr{'status'} eq 'cancelled') {
	$tablehdr .= '<th>'.&mt('Cancellation Date').'</th>';
	} elsif ($curr{'status'} eq 'rejected') {
	$tablehdr .= '<th>'.&mt('Rejection Date').'</th>';
	}
	$tablehdr .= &Apache::loncommon::end_data_table_header_row();
	my ($minshown,$maxshown);
	$minshown = 1;
	my $count = 0;
	if ($curr{'show'} ne &mt('all')) {
	$maxshown = $curr{'page'} * $curr{'show'};
	if ($curr{'page'} > 1) {
	$minshown = 1 + ($curr{'page'} - 1) * $curr{'show'};
	}
	}
	my $norecords;
	if (@sortedtimes > 0) {
	foreach my $item (@sortedtimes) {
	if ($curr{'show'} ne &mt('all')) {
	if ($count >= $curr{'page'} * $curr{'show'}) {
	$more_records = 1;
	last;
	}
	}
	$count ++;
	next if ($count < $minshown);
	if (!$showntablehdr) {
	$r->print($tablehdr);
	$showntablehdr = 1;
	}
	my $showtime = &Apache::lonlocal::locallocaltime($item);
	if (ref($queue_by_date{$item}) eq 'ARRAY') {
	foreach my $request (sort(@{$queue_by_date{$item}})) {
	my ($key,$crstype,$desc,$timestamp,$status,$instcode) = split(':',$request);
	my ($cdom,$cnum) = split('_',$key);
	my $output = &Apache::loncommon::start_data_table_row().
	'<td>'.$count.'</td>'.
	'<td>'.$showtime.'</td>'.
	'<td>'.&unescape($desc).'</td>';
	if ($curr{'crstype'} eq 'any') {
	my $typename;
	if (ref($typenames) eq 'HASH') {
	$typename = &mt($typenames->{$crstype});
	}
	if ($typename eq '') {
	$typename = &mt('Unknown type');
	}
	$output .= '<td>'.$typename.'</td>';
	}
	if (($curr{'crstype'} eq 'any') \|\|
	($curr{'crstype'} eq 'official')) {
	my $showinstcode;
	if ($crstype eq 'official') {
	$showinstcode = &unescape($instcode);
	} else {
	$showinstcode = &mt('Not applicable');
	}
	$output .= '<td>'.$showinstcode.'</td>';
	}
	if ($curr{'status'} eq 'any') {
	my $statusname = &mt('Unknown status');
	if (ref($statusnames) eq 'HASH') {
	if ($statusnames->{$status} ne '') {
	$statusname = $statusnames->{$status};
	}
	}
	if (($status eq 'created') \|\| ($status eq 'cancelled') \|\|
	($status eq 'rejected')) {
	$statusname .= ' '.&Apache::lonlocal::locallocaltime($timestamp);
	}
	$output .= '<td>'.$statusname.'</td>';
	} elsif (($status eq 'created') \|\| ($status eq 'cancelled') \|\|
	($status eq 'rejected')) {
	$output .= '<td>'.&Apache::lonlocal::locallocaltime($timestamp).'</td>';
	}
	$output .= &Apache::loncommon::end_data_table_row();
	$r->print($output);
	}
	}
	}
	if ($showntablehdr) {
	$r->print(&Apache::loncommon::end_data_table());
	if (($curr{'page'} > 1) \|\| ($more_records)) {
	$r->print('<table><tr>');
	if ($curr{'page'} > 1) {
	$r->print('<td><a href="javascript:chgPage('."'previous'".');">'.&mt('Previous [_1] changes',$curr{'show'}).'</a></td>');
	}
	if ($more_records) {
	$r->print('<td><a href="javascript:chgPage('."'next'".');">'.&mt('Next [_1] changes',$curr{'show'}).'</a></td>');
	}
	$r->print('</tr></table>');
	$r->print(<<"ENDSCRIPT");
	<script type="text/javascript">
	// <![CDATA[
	function chgPage(caller) {
	if (caller == 'previous') {
	document.$formname.page.value --;
	}
	if (caller == 'next') {
	document.$formname.page.value ++;
	}
	document.$formname.submit();
return;	return;
}	}
	// ]]>
	</script>
	ENDSCRIPT
	}
	} else {
	$norecords = 1;
	}
	} else {
	$norecords = 1;
	}
	if ($norecords) {
	$r->print('<p class="LC_info">'.
	&mt('There are no records to display').
	'</p>');
	}
	$r->print('</form>'.
	&Apache::loncommon::end_page());
	return;
	}

	sub reqstatus_names {
	my ($crstype) = @_;
	my @statuses = qw(created approval pending rejected cancelled);
	my %statusnames =
	&Apache::lonlocal::texthash (
	created => 'Created',
	approval => 'Queued pending approval',
	pending => 'Queued pending validation',
	rejected => 'Request rejected',
	cancelled => 'Request cancelled',
	);
	if (($crstype eq 'official') \|\| ($crstype eq 'unofficial') \|\| ($crstype eq 'textbook')) {
	$statusnames{'created'} = &mt('Course created');
	} elsif ($crstype eq 'community') {
	$statusnames{'created'} = &mt('Community created');
	}
	return (\@statuses,\%statusnames);
	}

	sub requestlog_display_filter {
	my ($formname,$curr) = @_;
	my $nolink = 1;
	my $output = '<table><tr><td valign="top">'.
	'<span class="LC_nobreak"><b>'.&mt('Records/page:').'</b></span><br />'.
	&Apache::lonmeta::selectbox('show',$curr->{'show'},undef,
	(&mt('all'),5,10,20,50,100,1000,10000)).
	'</td><td>  </td>';
	my $startform =
	&Apache::lonhtmlcommon::date_setter($formname,'requested_after_date',
	$curr->{'requested_after_date'},undef,
	undef,undef,undef,undef,undef,undef,$nolink);
	my $endform =
	&Apache::lonhtmlcommon::date_setter($formname,'requested_before_date',
	$curr->{'requested_before_date'},undef,
	undef,undef,undef,undef,undef,undef,$nolink);
	$output .= '<td valign="top"><b>'.&mt('Window during which course/community was requested:').'</b><br />'.
	'<table><tr><td>'.&mt('After:').
	'</td><td>'.$startform.'</td></tr>'.
	'<tr><td>'.&mt('Before:').'</td>'.
	'<td>'.$endform.'</td></tr></table>'.
	'</td>'.
	'<td>  </td>';
	my ($types,$typenames) = &Apache::loncommon::course_types();
	if (ref($types) eq 'ARRAY') {
	if (@{$types} > 1) {
	$output .= '<td valign="top"><b>'.
	&mt('Course Type:').'</b><br /><select name="crstype">';
	my $selstr = '';
	if ($curr->{'crstype'} eq 'any') {
	$selstr = ' selected="selected"';
	}
	$output .= '<option value="any"'.$selstr.'>'.&mt('All types').'</option>'."\n";
	foreach my $crstype (@{$types}) {
	my $selstr = '';
	if ($curr->{'crstype'} eq $crstype) {
	$selstr = ' selected="selected"';
	}
	my $typename = $crstype;
	if (ref($typenames) eq 'HASH') {
	if ($typenames->{$crstype} ne '') {
	$typename = $typenames->{$crstype};
	}
	}
	$output .= '<option value="'.$crstype.'"'.$selstr.'>'.$typename.'</option>'."\n";
	}
	$output .= '</select></td>';
	}
	}
	my ($statuses,$statusnames) = &reqstatus_names($curr->{'crstype'});
	if (ref($statuses) eq 'ARRAY') {
	if (@{$statuses} > 1) {
	$output .= '<td valign="top"><b>'.
	&mt('Request Status:').'</b><br /><select name="status">';
	my $selstr = '';
	if ($curr->{'status'} eq 'any') {
	$selstr = ' selected="selected"';
	}
	$output .= '<option value="any"'.$selstr.'>'.&mt('Any status').'</option>'."\n";
	foreach my $status (@{$statuses}) {
	my $selstr = '';
	if ($curr->{'status'} eq $status) {
	$selstr = ' selected="selected"';
	}
	my $statusname = $status;
	if (ref($statusnames) eq 'HASH') {
	if ($statusnames->{$status} ne '') {
	$statusname = $statusnames->{$status};
	}
	}
	$output .= '<option value="'.$status.'"'.$selstr.'>'.$statusname.'</option>'."\n";
	}
	$output .= '</select></td>';
	}
	}
	$output .= '</tr></table>';

	# Update Display button
	$output .= '<p>'.
	'<input type="submit" value="'.&mt('Update Display').'" />'.
	'</p><hr />';
	return $output;
	}

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,
$disallowed,$disallowmsg) = @_;	$disallowed,$disallowmsg,$instcredits) = @_;
my ($types,$typename) = &Apache::loncommon::course_types();	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 '') {
Line 2096 sub print_review {	Line 2668 sub print_review {
}	}
}	}
}	}
	$inst_headers .= '<th>'.&mt('Credits').'</th>';
	if ($instcredits) {
	$inst_values .= '<td>'.$instcredits.'</td>';
	} else {
	$inst_values .= '<td>'.$env{'form.coursecredits'}.'</td>';
	}
if (&Apache::lonnet::auto_run('',$dom)) {	if (&Apache::lonnet::auto_run('',$dom)) {
$enrollrow_title = &mt('Enrollment');	$enrollrow_title = &mt('Enrollment');
$enroll_headers = '<th>'.&mt('Automatic Adds').'</th>'.	$enroll_headers = '<th>'.&mt('Automatic Adds').'</th>'.
Line 2165 sub print_review {	Line 2743 sub print_review {
$section_values .= $xlistinfo;	$section_values .= $xlistinfo;
}	}
$section_values .= '</table></td>';	$section_values .= '</table></td>';
	} elsif (($env{'form.crstype'} eq 'unofficial') \|\| ($env{'form.crstype'} eq 'textbook')) {
	$inst_headers .= '<th>'.&mt('Credits').'</th>';
	$inst_values .= '<td>'.$env{'form.coursecredits'}.'</td>';
}	}

my %ctxt = &clone_text();	my %ctxt = &clone_text();
$inst_headers .= '<th>'.&mt('Clone From').'</th>';	$inst_headers .= '<th>'.&mt('Clone From').'</th>';
if (($env{'form.clonecrs'} =~ /^$match_name$/) &&	if (($env{'form.cloning'}) &&
	($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($uname,
$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},	$udom,$env{'form.clonecrs'},$env{'form.clonedom'},
$env{'form.crstype'});	$env{'form.crstype'});
if ($canclone) {	if ($canclone) {
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},	my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},
Line 2340 sub courseinfo_form {	Line 2922 sub courseinfo_form {
community => 'You must provide a (brief) community description.'	community => 'You must provide a (brief) community description.'
);	);
$lt{'unofficial'} = $lt{'official'};	$lt{'unofficial'} = $lt{'official'};
	$lt{'textbook'} = $lt{'official'};
my $js_validate = <<"ENDJS";	my $js_validate = <<"ENDJS";
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA['	// <![CDATA['
Line 2351 function validateForm() {	Line 2934 function validateForm() {
}	}
nextPage(document.$formname,'$next');	nextPage(document.$formname,'$next');
}	}

	function toggleCloning() {
	var willclone;
	if (document.$formname.cloning.length > 1) {
	for (var i=0; i<document.$formname.cloning.length; i++) {
	if (document.$formname.cloning[i].checked) {
	willclone = document.$formname.cloning[i].value;
	}
	}
	}
	if (willclone == 1) {
	document.getElementById('cloneoptions').style.display="block";
	} else {
	document.getElementById('cloneoptions').style.display="none";
	document.$formname.clonecrs.value = '';
	}
	}

// ]]	// ]]
</script>	</script>

Line 2361 ENDJS	Line 2962 ENDJS
$title = &mt('Brief Community Description');	$title = &mt('Brief Community Description');
$clonetitle = &mt('Clone content and settings from an existing community?');	$clonetitle = &mt('Clone content and settings from an existing community?');
}	}
my $output .= $js_validate."\n".'<div>'.&Apache::lonhtmlcommon::start_pick_box().	my $output .= $js_validate."\n".&Apache::lonhtmlcommon::start_pick_box().
&Apache::lonhtmlcommon::row_headline().	&Apache::lonhtmlcommon::row_headline().
'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'</h3>'.	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Description').' '.$title.'</h3>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
Line 2377 ENDJS	Line 2978 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>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle.'</h3>'.	'<h3>'.&Apache::loncommon::help_open_topic('Course_Request_Clone').' '.$clonetitle.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title(&mt('Clone?')).
	'<label><input type="radio" name="cloning" value="1" '.
	'onclick="javascript:toggleCloning()" />'.
	&mt('Yes').(' 'x2).'</label><label>'.
	'<input type="radio" name="cloning" value="0" checked="checked" '.
	'onclick="javascript:toggleCloning()" />'.&mt('No').'</label>'.
	'</h3>'.
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_headline().
	'<div id="cloneoptions" style="display: none" >'.
	&Apache::lonhtmlcommon::start_pick_box().
&clone_form($dom,$formname,$crstype).	&clone_form($dom,$formname,$crstype).
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n";	&Apache::lonhtmlcommon::end_pick_box().'</div>'.
	&Apache::lonhtmlcommon::end_pick_box()."\n";
return $output;	return $output;
}	}

Line 2390 sub clone_form {	Line 3003 sub clone_form {
if ($crstype eq 'community') {	if ($crstype eq 'community') {
$type = 'Community';	$type = 'Community';
}	}
my $cloneform = &Apache::loncommon::select_dom_form($dom,'clonedom').' '.
&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>'.
'<input type="text" size="25" name="clonecrs" value="" />'.
'</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).	&Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'.
	&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.
	'<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','','$type'".')" />'.
	'</label> '.
	&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type).
	&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'}.
'</label><br /><label>'.	'</label><br /><label>'.
Line 2425 sub clone_text {	Line 3039 sub clone_text {
sub coursecode_form {	sub coursecode_form {
my ($dom,$context,$codetitles,$cat_titles,$cat_order,$num) = @_;	my ($dom,$context,$codetitles,$cat_titles,$cat_order,$num) = @_;
my $output;	my $output;
my %rowtitle = (	my %rowtitle = &Apache::lonlocal::texthash (
instcode => 'Course Category',	instcode => 'Course Category',
crosslist => 'Cross Listed Course',	crosslist => 'Cross Listed Course',
);	);
my %helpitem = (	my %helpitem = (
instcode => 'Course_Request_Category',	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))) {
Line 2448 sub coursecode_form {	Line 3061 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(&Apache::loncommon::help_open_topic($helpitem{$context}).' '.$rowtitle{$context}).	my $helplink;
	if (defined($helpitem{$context})) {
	$helplink = &Apache::loncommon::help_open_topic($helpitem{$context}).' ';
	}
	$output = &Apache::lonhtmlcommon::row_title($helplink.$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 2513 sub coursecode_form {	Line 3130 sub coursecode_form {
return $output;	return $output;
}	}

	sub sections_form {
	my ($dom,$instcode,$num) = @_;
	my $rowtitle;
	if ($instcode eq '') {
	$rowtitle = &mt('Sections');
	} else {
	$rowtitle = &mt('Sections of [_1]',$instcode);
	}
	return &Apache::lonhtmlcommon::row_title($rowtitle).
	'<table><tr><td align="center">'.
	'<span class="LC_nobreak">'.&mt('Include?').
	'<input type="checkbox" name="sec_'.$num.'" value="1" /></span>'.
	'</td><td align="center">'.&mt('Institutional section').'<br />'.
	'<input type="text" size="10" name="secnum_'.$num.'" />'.
	'</td><td align="center">'.&mt('LON-CAPA section').'<br />'.
	'<input type="text" size="10" name="loncapasec_'.$num.'" />'.
	'</td></tr></table>'.
	&Apache::lonhtmlcommon::row_closure(1);
	}

sub get_course_dom {	sub get_course_dom {
my $codedom = &Apache::lonnet::default_login_domain();	my $codedom = &Apache::lonnet::default_login_domain();
if ($env{'form.showdom'} ne '') {	if ($env{'form.showdom'} ne '') {
Line 2605 sub display_navbuttons {	Line 3242 sub display_navbuttons {
}	}

sub print_request_outcome {	sub print_request_outcome {
my ($dom,$codetitles,$code_order) = @_;	my ($dom,$codetitles,$code_order,$instcredits) = @_;
my ($output,$cnum,$now,$req_notifylist,$crstype,$enrollstart,$enrollend,	my ($output,$cnum,$now,$req_notifylist,$crstype,$enrollstart,$enrollend,
%sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig,);	%sections,%crosslistings,%personnel,@baduname,@missingdom,%domconfig,
	$uniquecode);
my $sectotal = $env{'form.sectotal'};	my $sectotal = $env{'form.sectotal'};
my $crosslisttotal = 0;	my $crosslisttotal = 0;
$cnum = $env{'form.cnum'};	$cnum = $env{'form.cnum'};
Line 2621 sub print_request_outcome {	Line 3259 sub print_request_outcome {
if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'notify'}) eq 'HASH') {
$req_notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'};	$req_notifylist = $domconfig{'requestcourses'}{'notify'}{'approval'};
}	}
	$uniquecode = $domconfig{'requestcourses'}{'uniquecode'};
}	}
$now = time;	$now = time;
$crstype = $env{'form.crstype'};	$crstype = $env{'form.crstype'};
Line 2642 sub print_request_outcome {	Line 3281 sub print_request_outcome {
push(@instsections,$sec);	push(@instsections,$sec);
}	}
$sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i};	$sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i};
	$sections{$i}{'loncapa'} =~ s/\W//g;
	if ($sections{$i}{'loncapa'} eq 'none') {
	$sections{$i}{'loncapa'} = '';
	}
}	}
}	}
}	}
Line 2667 sub print_request_outcome {	Line 3310 sub print_request_outcome {
$enrollstart = '';	$enrollstart = '';
$enrollend = '';	$enrollend = '';
}	}
	my (%alerts,%rulematch,%inst_results,%curr_rules,%got_rules,%disallowmsg,%skipped);
for (my $i=0; $i<$env{'form.persontotal'}; $i++) {	for (my $i=0; $i<$env{'form.persontotal'}; $i++) {
my $uname = $env{'form.person_'.$i.'_uname'};	my $uname = $env{'form.person_'.$i.'_uname'};
my $udom = $env{'form.person_'.$i.'_dom'};	my $udom = $env{'form.person_'.$i.'_dom'};
Line 2678 sub print_request_outcome {	Line 3322 sub print_request_outcome {
lastname => $env{'form.person_'.$i.'_lastname'},	lastname => $env{'form.person_'.$i.'_lastname'},
emailaddr => $env{'form.person_'.$i.'_emailaddr'},	emailaddr => $env{'form.person_'.$i.'_emailaddr'},
};	};
	if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
	my $usertype = &get_usertype($udom,$uname,\%curr_rules,\%got_rules);
	if (&Apache::lonuserutils::can_create_user($udom,'requestcrs',$usertype)) {
	my ($allowed,$msg,$authtype,$authparam) =
	&check_newuser_rules($udom,$uname,\%alerts,\%rulematch,
	\%inst_results,\%curr_rules,\%got_rules);
	if ($allowed) {
	my %domdefaults = &Apache::lonnet::get_domain_defaults($udom);
	if ($usertype eq 'official') {
	if ($authtype eq '') {
	$authtype = $domdefaults{'auth_def'};
	$authparam = $domdefaults{'auth_arg_def'};
	} else {
	if ($authtype eq 'loc') {
	$authtype = 'localauth';
	} elsif ($authtype eq 'int') {
	$authtype = 'internal';
	}
	if ($authtype !~ /^(krb4\|krb5\|internal\|localauth)$/) {
	$authtype = $domdefaults{'auth_def'};
	$authparam = $domdefaults{'auth_arg_def'};
	}
	}
	} elsif ($usertype eq 'unofficial') {
	if ($authtype eq '') {
	$authtype = 'internal';
	$authparam = '';
	}
	} else {
	$authtype = $domdefaults{'auth_def'};
	$authparam = $domdefaults{'auth_arg_def'};
	}
	if (($authtype eq '') \|\|
	(($authtype =~/^krb(4\|5)$/) && ($authparam eq '')) \|\|
	($authtype !~ /^(krb4\|krb5\|internal\|localauth)$/)) {
	$skipped{$uname.':'.$udom} = 1;
	next;
	} else {
	$personnel{$uname.':'.$udom}{'authtype'} = $authtype;
	$personnel{$uname.':'.$udom}{'autharg'} = $authparam;
	}
	} else {
	$skipped{$uname.':'.$udom} = 1;
	next;
	}
	} else {
	$skipped{$uname.':'.$udom} = 1;
	next;
	}
	}
}	}
my $role = $env{'form.person_'.$i.'_role'};	my $role = $env{'form.person_'.$i.'_role'};
unless ($role eq '') {	unless ($role eq '') {
Line 2723 sub print_request_outcome {	Line 3417 sub print_request_outcome {
push(@baduname,$uname.':'.$udom);	push(@baduname,$uname.':'.$udom);
}	}
}	}
	if (keys(%skipped)) {
	foreach my $key (keys(%skipped)) {
	delete($personnel{$key});
	}
	}
my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');	my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
my $autodrops = 0;	my $autodrops = 0;
if ($env{'form.autodrops'}) {	if ($env{'form.autodrops'}) {
Line 2730 sub print_request_outcome {	Line 3429 sub print_request_outcome {
}	}
my $autoadds = 0;	my $autoadds = 0;
if ($env{'form.autoadds'}) {	if ($env{'form.autoadds'}) {
$autodrops = $env{'form.autoadds'};	$autoadds = $env{'form.autoadds'};
}
if ($env{'form.autoadds'}) {
$autodrops = $env{'form.autoadds'};
}	}
my $instcode = '';	my $instcode = '';
if (exists($env{'form.instcode'})) {	if (exists($env{'form.instcode'})) {
$instcode = $env{'form.instcode'};	$instcode = $env{'form.instcode'};
}	}
	my $credits;
	if ($instcredits) {
	$credits = $instcredits;
	} elsif (exists($env{'form.coursecredits'})) {
	$credits = $env{'form.coursecredits'};
	}
my $clonecrs = '';	my $clonecrs = '';
my $clonedom = '';	my $clonedom = '';
if (($env{'form.clonecrs'} =~ /^($match_courseid)$/) &&	if (($env{'form.cloning'}) &&
	($env{'form.clonecrs'} =~ /^($match_courseid)$/) &&
($env{'form.clonedom'} =~ /^($match_domain)$/)) {	($env{'form.clonedom'} =~ /^($match_domain)$/)) {
my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},	my $clonehome = &Apache::lonnet::homeserver($env{'form.clonecrs'},
$env{'form.clonedom'});	$env{'form.clonedom'});
Line 2765 sub print_request_outcome {	Line 3468 sub print_request_outcome {
cdescr => $env{'form.cdescr'},	cdescr => $env{'form.cdescr'},
crstype => $env{'form.crstype'},	crstype => $env{'form.crstype'},
instcode => $instcode,	instcode => $instcode,
	defaultcredits => $credits,
	uniquecode => $uniquecode,
clonedom => $clonedom,	clonedom => $clonedom,
clonecrs => $clonecrs,	clonecrs => $clonecrs,
datemode => $env{'form.datemode'},	datemode => $env{'form.datemode'},
Line 2783 sub print_request_outcome {	Line 3488 sub print_request_outcome {
};	};
my (@inststatuses,$storeresult,$creationresult);	my (@inststatuses,$storeresult,$creationresult);
my $val =	my $val =
&Apache::loncoursequeueadmin::get_processtype($env{'user.name'},$env{'user.domain'},	&Apache::loncoursequeueadmin::get_processtype('course',$env{'user.name'},
$env{'user.adv'},$dom,$crstype,\@inststatuses,\%domconfig);	$env{'user.domain'},$env{'user.adv'},
	$dom,$crstype,\@inststatuses,\%domconfig);
if ($val eq '') {	if ($val eq '') {
if ($crstype eq 'official') {	if ($crstype eq 'official') {
$output = &mt('You are not permitted to request creation of official courses.');	$output = &mt('You are not permitted to request creation of official courses.');
Line 2792 sub print_request_outcome {	Line 3498 sub print_request_outcome {
$output = &mt('You are not permitted to request creation of unofficial courses.');	$output = &mt('You are not permitted to request creation of unofficial courses.');
} elsif ($crstype eq 'community') {	} elsif ($crstype eq 'community') {
$output = &mt('You are not permitted to request creation of communities');	$output = &mt('You are not permitted to request creation of communities');
	} elsif ($crstype eq 'textbook') {
	$output = &mt('You are not permitted to request creation of textbook courses');
} else {	} else {
$output = &mt('Unrecognized course type: [_1]',$crstype);	$output = &mt('Unrecognized course type: [_1]',$crstype);
}	}
Line 2853 sub print_request_outcome {	Line 3561 sub print_request_outcome {
$storeresult = 'rejected';	$storeresult = 'rejected';
} elsif ($disposition eq 'process') {	} elsif ($disposition eq 'process') {
my %domdefs = &Apache::lonnet::get_domain_defaults($dom);	my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles);	my ($logmsg,$newusermsg,$addresult,$enrollcount,$response,$keysmsg,%longroles,$code);
my $type = 'Course';	my $type = 'Course';
if ($crstype eq 'community') {	if ($crstype eq 'community') {
$type = 'Community';	$type = 'Community';
Line 2864 sub print_request_outcome {	Line 3572 sub print_request_outcome {
}	}
my $result = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,	my $result = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,
'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,	'autocreate',$details,\$logmsg,\$newusermsg,\$addresult,
\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles);	\$enrollcount,\$response,\$keysmsg,\%domdefs,\%longroles,\$code);
if ($result eq 'created') {	if ($result eq 'created') {
$disposition = 'created';	$disposition = 'created';
$reqstatus = 'created';	$reqstatus = 'created';
Line 2875 sub print_request_outcome {	Line 3583 sub print_request_outcome {
} else {	} else {
$output = '<p>'.&mt('Your course request has been processed and the course has been created.');	$output = '<p>'.&mt('Your course request has been processed and the course has been created.');
}	}
	if ($code) {
	$output .= &notification_information($disposition,$env{'user.name'}.':'.$env{'user.domain'},
	$cnum,$now,$code);
	}
$output .= '<br />'.$role_result.'</p>';	$output .= '<br />'.$role_result.'</p>';
$creationresult = 'created';	$creationresult = 'created';
} else {	} else {
Line 2900 sub print_request_outcome {	Line 3612 sub print_request_outcome {
description => $env{'form.cdescr'},	description => $env{'form.cdescr'},
},	},
};	};
	if ($crstype eq 'official') {
	$request->{$requestid}->{'instcode'} = $instcode;
	}
my $statuskey = 'status:'.$dom.':'.$cnum;	my $statuskey = 'status:'.$dom.':'.$cnum;
my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey],	my %userreqhash = &Apache::lonnet::get('courserequests',[$statuskey],
$env{'user.domain'},$env{'user.name'});	$env{'user.domain'},$env{'user.name'});
Line 2934 sub print_request_outcome {	Line 3649 sub print_request_outcome {
}	}
}	}
}	}
my ($statusresult);	($storeresult,my $updateresult) =
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {	&Apache::loncoursequeueadmin::update_coursereq_status(\%reqhash,$dom,
$storeresult = &Apache::lonnet::store_userdata(\%reqhash,$requestkey,	$cnum,$reqstatus,'request',$env{'user.domain'},$env{'user.name'});
'courserequests');
if ($storeresult eq 'ok') {
my %status = (
'status:'.$dom.':'.$cnum => $reqstatus,
);
$statusresult = &Apache::lonnet::put('courserequests',\%status);
}
} else {
$storeresult = 'error: invalid requestkey format';
}
if ($storeresult ne 'ok') {
$output .= '<span class="LC_warning">'.&mt('An error occurred saving a record of the details of your request: [_1].',$storeresult).'</span><br />';
&Apache::lonnet::logthis("Error saving course request - $requestkey for $env{'user.name'}:$env{'user.domain'} - $storeresult");
} elsif ($statusresult ne 'ok') {
$output .= '<span class="LC_warning">'.&mt('An error occurred saving a record of the status of your request: [_1].',$statusresult).'</span><br />';
&Apache::lonnet::logthis("Error saving course request status for $requestkey (for $env{'user.name'}:$env{'user.domain'}) - $statusresult");
}
if ($modified && $queued && $storeresult eq 'ok') {	if ($modified && $queued && $storeresult eq 'ok') {
if ($crstype eq 'community') {	if ($crstype eq 'community') {
$output .= '<p>'.&mt('Your community request has been updated').'</p>';	$output .= '<p>'.&mt('Your community request has been updated').'</p>';
Line 2963 sub print_request_outcome {	Line 3661 sub print_request_outcome {
$output .= &notification_information($disposition,$req_notifylist,$cnum,$now);	$output .= &notification_information($disposition,$req_notifylist,$cnum,$now);
}	}
if ($validationerror ne '') {	if ($validationerror ne '') {
$output .= '<span class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>';	$output .= '<p class="LC_warning">'.&mt('An error occurred validating your request with institutional data sources: [_1].',$validationerror).'</p>';
	}
	if ($updateresult) {
	$output .= $updateresult;
}	}
}	}
if ($creationresult ne '') {	if ($creationresult ne '') {
Line 3109 sub update_requestors_roles {	Line 3810 sub update_requestors_roles {
}	}

sub notification_information {	sub notification_information {
my ($disposition,$req_notifylist,$cnum,$now) = @_;	my ($disposition,$req_notifylist,$cnum,$now,$code) = @_;
my %emails = &Apache::loncommon::getemails();	my %emails = &Apache::loncommon::getemails();
my $address;	my $address;
if (($emails{'permanentemail'} ne '') \|\| ($emails{'notification'} ne '')) {	if (($emails{'permanentemail'} ne '') \|\| ($emails{'notification'} ne '')) {
Line 3137 sub notification_information {	Line 3838 sub notification_information {
&mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'<br />'.	&mt("Usually this means that your institution's information systems do not list you among the instructional personnel for this course.").'<br />'.
&mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.').	&mt('The list of instructional personnel for the course will be automatically checked daily, and once you are listed the request will be processed.').
'</div>';	'</div>';
	} elsif (($disposition eq 'created') && ($code)) {
	my $codemsg = [{
	mt => 'Students can automatically select your course by entering this code: [_1]',
	args => [$code],
	}];
	$output .= '<p>'.
	&mt('Students can automatically select your course by entering this code: [_1].','<b>'.$code.'</b>').
	'<br />'.
	&mt('A message has been sent to your LON-CAPA account with this information.');
	if ($address ne '') {
	$output.= '<br />'.&mt('And an e-mail has also been sent to: [_1] with this code.',$address);
	}
	$output .= '</p>';
	my $sender = $env{'user.name'}.':'.$env{'user.domain'};
	if ($code) {
	&Apache::loncoursequeueadmin::send_selfserve_notification($req_notifylist,$codemsg,$cnum,$env{'form.cdescr'},
	$now,'uniquecode',$sender);
	}
} else {	} else {
$output .= '<div class="LC_warning">'.	$output .= '<div class="LC_warning">'.
&mt('Your request status is: [_1].',$disposition).	&mt('Your request status is: [_1].',$disposition).
'</div>'	'</div>';
}	}
return $output;	return $output;
}	}
Line 3159 sub check_autolimit {	Line 3878 sub check_autolimit {
if (($crstype eq 'community') &&	if (($crstype eq 'community') &&
(exists($crsroles{$cnum.':'.$cdom.':co'}))) {	(exists($crsroles{$cnum.':'.$cdom.':co'}))) {
$count ++;	$count ++;
} elsif ((($crstype eq 'official') \|\| ($crstype eq 'unofficial')) &&	} elsif ((($crstype eq 'official') \|\| ($crstype eq 'unofficial') \|\| ($crstype eq 'textbook')) &&
(exists($crsroles{$cnum.':'.$cdom.':cc'}))) {	(exists($crsroles{$cnum.':'.$cdom.':cc'}))) {
$count ++;	$count ++;
}	}
Line 3205 sub retrieve_settings {	Line 3924 sub retrieve_settings {
}	}
$env{'form.clonecrs'} = $reqinfo{'clonecrs'};	$env{'form.clonecrs'} = $reqinfo{'clonecrs'};
$env{'form.clonedom'} = $reqinfo{'clonedom'};	$env{'form.clonedom'} = $reqinfo{'clonedom'};
	if (($reqinfo{'clonecrs'} ne '') && ($reqinfo{'clonedom'} ne '')) {
	$env{'form.cloning'} = 1;
	}
$env{'form.datemode'} = $reqinfo{'datemode'};	$env{'form.datemode'} = $reqinfo{'datemode'};
$env{'form.dateshift'} = $reqinfo{'dateshift'};	$env{'form.dateshift'} = $reqinfo{'dateshift'};
if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) {	if ($reqinfo{'crstype'} eq 'official') {
$env{'form.sectotal'} = $reqinfo{'sectotal'};	$env{'form.autoadds'} = $reqinfo{'autoadds'};
$env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};	$env{'form.autodrops'} = $reqinfo{'autodrops'};
$env{'form.autoadds'} = $reqinfo{'autoadds'};	if ($reqinfo{'instcode'} ne '') {
$env{'form.autdrops'} = $reqinfo{'autodrops'};	$env{'form.sectotal'} = $reqinfo{'sectotal'};
$env{'form.instcode'} = $reqinfo{'instcode'};	$env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};
my $crscode = {	$env{'form.instcode'} = $reqinfo{'instcode'};
$cnum => $reqinfo{'instcode'},	my $crscode = {
};	$cnum => $reqinfo{'instcode'},
&extract_instcode($dom,'instcode',$crscode,$cnum);	};
	&extract_instcode($dom,'instcode',$crscode,$cnum);
	(undef,undef,my $instcredits) =
	&Apache::lonnet::auto_validate_instcode(undef,$dom,
	$reqinfo{'instcode'});
	if ($instcredits ne $reqinfo{'defaultcredits'}) {
	$env{'form.coursecredits'} = $reqinfo{'defaultcredits'};
	}
	}
	} elsif (($reqinfo{'crstype'} eq 'unofficial') \|\| ($reqinfo{'crstype'} eq 'textbook')) {
	$env{'form.coursecredits'} = $reqinfo{'defaultcredits'};
}	}
my @currsec;	my @currsec;
if (ref($reqinfo{'sections'}) eq 'HASH') {	if (ref($reqinfo{'sections'}) eq 'HASH') {

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

Removed from v.1.43
changed lines
	Added in v.1.71