Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.78 and 1.97

version 1.78, 2014/04/16 14:40:17	version 1.97, 2016/04/04 01:07:17
Line 172 sub handler {	Line 172 sub handler {
if ($can_request{'textbook'}) {	if ($can_request{'textbook'}) {
&process_textbook_request($r,$dom,$action,\%domdefs,\%domconfig,\%can_request);	&process_textbook_request($r,$dom,$action,\%domdefs,\%domconfig,\%can_request);
} else {	} else {
&textbook_request_disabled($r,$dom,\%can_request);	&textbook_request_disabled($r,$dom,$action,\%can_request);
	}
	} elsif ($action eq 'display') {
	my ($uname,$udom,$result,$warning) = &domcoord_display($dom);
	if ($warning ne '') {
	my $args = { only_body => 1 };
	$r->print(&header('Course/Community Requests','','' ,'',$args).
	'<h3>'.&mt('Course/Community Request Details').'</h3>'.
	'<div class="LC_warning">'.$warning.'</div>'.
	&close_popup_form());
	} else {
	$states{'display'} = ['details'];
	my $loaditems = &onload_action($action,$state);
	my $page = 0;
	&request_administration($r,$action,$state,$page,\%states,$dom,$jscript,
	$loaditems,'','','','','',$showcredits,'','',
	$uname,$udom);
}	}
} else {	} else {
if ($can_request{'textbook'}) {	if ($can_request{'textbook'}) {
&print_textbook_form($r,$dom,\@incdoms,\%domdefs,$domconfig{'requestcourses'},\%can_request);	&print_textbook_form($r,$dom,\@incdoms,\%domdefs,$domconfig{'requestcourses'},\%can_request);
} else {	} else {
&textbook_request_disabled($r,$dom,\%can_request);	&textbook_request_disabled($r,$dom,$action,\%can_request);
}	}
}	}
return OK;	return OK;
Line 232 sub handler {	Line 248 sub handler {
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))) {	($uname,$udom,$result,$warning) = &domcoord_display($dom);
if ($env{'form.cnum'} ne '') {
my $cnum = $env{'form.cnum'};
my $queue = $env{'form.queue'};
my $reqkey = $cnum.'_'.$queue;
my $namespace = 'courserequestqueue';
my $domconfig = &Apache::lonnet::get_domainconfiguser($dom);
my %queued =
&Apache::lonnet::get($namespace,[$reqkey],$dom,$domconfig);
if (ref($queued{$reqkey}) eq 'HASH') {
$uname = $queued{$reqkey}{'ownername'};
$udom = $queued{$reqkey}{'ownerdom'};
if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) {
$result = &retrieve_settings($dom,$cnum,$udom,$uname);
} else {
if ($env{'form.crstype'} eq 'community') {
$warning = &mt('Invalid username or domain for community requestor');
} else {
$warning = &mt('Invalid username or domain for course requestor');
}
}
} else {
if ($env{'form.crstype'} eq 'community') {
$warning = &mt('No information was found for this community request.');
} else {
$warning = &mt('No information was found for this course request.');
}
}
} else {
$warning = &mt('No course request ID provided.');
}
} else {
if ($env{'form.crstype'} eq 'any') {
$warning = &mt('You do not have rights to view course or community request information.');
} elsif ($env{'form.crstype'} eq 'community') {
$warning = &mt('You do not have rights to view community request information.');
} else {
$warning = &mt('You do not have rights to view course request information.');
}
}
} elsif ((defined($state)) && (defined($action))) {	} elsif ((defined($state)) && (defined($action))) {
if (($action eq 'view') && ($state eq 'details')) {	if (($action eq 'view') && ($state eq 'details')) {
if ((defined($env{'form.showdom'})) && (defined($env{'form.cnum'}))) {	if ((defined($env{'form.showdom'})) && (defined($env{'form.cnum'}))) {
Line 334 sub handler {	Line 311 sub handler {
$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);	$jscript = &Apache::lonhtmlcommon::set_form_elements($elementsref,\%stored);
if ($state eq 'courseinfo') {	if ($state eq 'courseinfo') {
$jscript .= &cloning_javascript();	$jscript .= &cloning_javascript();
	} elsif ($state eq 'process') {
	$jscript .= &processing_javascript();
}	}
}	}
}	}
Line 436 function setCloneDisplay(courseForm) {	Line 415 function setCloneDisplay(courseForm) {
for (var i=0; i<courseForm.cloning.length; i++) {	for (var i=0; i<courseForm.cloning.length; i++) {
if (courseForm.cloning[i].checked) {	if (courseForm.cloning[i].checked) {
if (courseForm.cloning[i].value == 1) {	if (courseForm.cloning[i].value == 1) {
document.getElementById('cloneoptions').style.display="block";;	document.getElementById('cloneoptions').style.display="block";
}	}
}	}
}	}
Line 445 function setCloneDisplay(courseForm) {	Line 424 function setCloneDisplay(courseForm) {
END	END
}	}

	sub processing_javascript {
	return <<"END";
	function hideProcessing() {
	if (document.getElementById('processing')) {
	document.getElementById('processing').style.display="none";
	}
	}

	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 486 sub get_breadcrumbs {	Line 476 sub get_breadcrumbs {
}	}
}	}
}	}
for (my $i=0; $i<@{$states->{$action}}; $i++) {	if (ref($states->{$action}) eq 'ARRAY') {
if ($$state eq $states->{$action}[$i]) {	for (my $i=0; $i<@{$states->{$action}}; $i++) {
&Apache::lonhtmlcommon::add_breadcrumb(	if ($$state eq $states->{$action}[$i]) {
{text=>"$trail->{$$state}"});
$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
last;
} else {
if (($$state eq 'process') \|\| ($$state eq 'removal') \|\| ($$state eq 'reqauthor')) {
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{ href => '/adm/requestcourse',	{text=>"$trail->{$$state}"});
text => "$trail->{$states->{$action}[$i]}",	$crumb = &Apache::lonhtmlcommon::breadcrumbs('Course/Community Requests','Course_Requests');
}	last;
);
} else {	} else {
&Apache::lonhtmlcommon::add_breadcrumb(	if (($$state eq 'process') \|\| ($$state eq 'removal') \|\| ($$state eq 'reqauthor')) {
	&Apache::lonhtmlcommon::add_breadcrumb(
	{ href => '/adm/requestcourse',
	text => "$trail->{$states->{$action}[$i]}",
	}
	);
	} else {
	&Apache::lonhtmlcommon::add_breadcrumb(
{ href => "javascript:backPage(document.requestcrs,'$states->{$action}[$i]')",	{ href => "javascript:backPage(document.requestcrs,'$states->{$action}[$i]')",
text => "$trail->{$states->{$action}[$i]}", }	text => "$trail->{$states->{$action}[$i]}", }
);	);
}	}
}	}
}	}
	}
} else {	} else {
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{text=>'Pick Action'});	{text=>'Pick Action'});
Line 720 sub onload_action {	Line 712 sub onload_action {
if ($state eq 'courseinfo') {	if ($state eq 'courseinfo') {
$loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);';	$loaditems{'onload'} .= 'javascript:setCloneDisplay(document.requestcrs);';
}	}
	if ($state eq 'process') {
	$loaditems{'onload'} .= 'javascript:hideProcessing();';
	}
}	}
return \%loaditems;	return \%loaditems;
}	}
Line 765 function check_can_request(crschoice,act	Line 760 function check_can_request(crschoice,act
var unofficial = '';	var unofficial = '';
var community = '';	var community = '';
var textbook = '';	var textbook = '';
	var placement = '';
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 773 END	Line 769 END
";	";
}	}
}	}
my %lt = &Apache::lonlocal::texthash(	my %js_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 in this domain.',	community => 'You are not permitted to request creation of a community in this domain.',
textbook => 'You are not permitted to request creation of a textbook course in this domain',	textbook => 'You are not permitted to request creation of a textbook course in this domain',
	placement => 'You are not permitted to request creation of a placement test in this domain',
all => 'You must choose a specific course type when making a new course request.',	all => 'You must choose a specific course type when making a new course request.',
allt => '"All types" is not allowed.',	allt => '"All types" is not allowed.',
);	);
	&js_escape(\%js_lt);
$js .= <<END;	$js .= <<END;
if (crschoice == 'official') {	if (crschoice == 'official') {
if (official != 1) {	if (official != 1) {
alert("$lt{'official'}");	alert("$js_lt{'official'}");
return false;	return false;
}	}
} else {	} else {
if (crschoice == 'unofficial') {	if (crschoice == 'unofficial') {
if (unofficial != 1) {	if (unofficial != 1) {
alert("$lt{'unofficial'}");	alert("$js_lt{'unofficial'}");
return false;	return false;
}	}
} else {	} else {
if (crschoice == 'community') {	if (crschoice == 'community') {
if (community != 1) {	if (community != 1) {
alert("$lt{'community'}");	alert("$js_lt{'community'}");
return false;	return false;
}	}
} else {	} else {
if (crschoice == 'textbook') {	if (crschoice == 'textbook') {
if (textbook != 1) {	if (textbook != 1) {
alert("$lt{'community'}");	alert("$js_lt{'textbook'}");
return false;	return false;
}	}
} else {	} else {
if (actionchoice == 'new') {	if (crschoice == 'placement') {
alert('$lt{'all'}'+'\\n'+'$lt{'allt'}');	if (placement != 1) {
return false;	alert("$js_lt{'placement'}");
	return false;
	}
	} else {
	if (actionchoice == 'new') {
	alert('$js_lt{'all'}'+'\\n'+'$js_lt{'allt'}');
	return false;
	}
}	}
}	}
}	}
Line 819 END	Line 824 END
END	END
my ($pagetitle,$pageinfo,$domaintitle,$earlyout);	my ($pagetitle,$pageinfo,$domaintitle,$earlyout);
if (ref($can_request) eq 'HASH') {	if (ref($can_request) eq 'HASH') {
if (($can_request->{'official'}) \|\| ($can_request->{'unofficial'}) \|\| $can_request->{'textbook'}) {	if (($can_request->{'official'}) \|\| ($can_request->{'unofficial'}) \|\| ($can_request->{'textbook'}) \|\| ($can_request->{'placement'})) {
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 944 END	Line 949 END
if ($action eq 'new') {	if ($action eq 'new') {
my $jsextra;	my $jsextra;
if (($state eq 'courseinfo') \|\| ($state eq 'codepick')) {	if (($state eq 'courseinfo') \|\| ($state eq 'codepick')) {
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);	$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom,'','','','','',
	$newinstcode);
} elsif ($state eq 'enrollment') {	} elsif ($state eq 'enrollment') {
if (($env{'form.crstype'} eq 'official') &&	if (($env{'form.crstype'} eq 'official') &&
(&Apache::lonnet::auto_run('',$dom))) {	(&Apache::lonnet::auto_run('',$dom))) {
Line 995 END	Line 1001 END
$title = &mt('Pending requests for unofficial courses');	$title = &mt('Pending requests for unofficial courses');
} elsif ($env{'form.crstype'} eq 'textbook') {	} elsif ($env{'form.crstype'} eq 'textbook') {
$title = &mt('Pending requests for textbook courses');	$title = &mt('Pending requests for textbook courses');
	} elsif ($env{'form.crstype'} eq 'textbook') {
	$title = &mt('Pending requests for placement tests');
} else {	} else {
$title = &mt('Pending course/community requests');	$title = &mt('Pending course/community requests');
}	}
Line 1129 END	Line 1137 END
return;	return;
}	}

	sub domcoord_display {
	my ($dom) = @_;
	my ($uname,$udom,$result,$warning);
	if (($dom eq $env{'request.role.domain'}) && (&Apache::lonnet::allowed('ccc',$dom))) {
	if ($env{'form.cnum'} ne '') {
	my $cnum = $env{'form.cnum'};
	my $queue = $env{'form.queue'};
	my $reqkey = $cnum.'_'.$queue;
	my $namespace = 'courserequestqueue';
	my $domconfig = &Apache::lonnet::get_domainconfiguser($dom);
	my %queued =
	&Apache::lonnet::get($namespace,[$reqkey],$dom,$domconfig);
	if (ref($queued{$reqkey}) eq 'HASH') {
	$uname = $queued{$reqkey}{'ownername'};
	$udom = $queued{$reqkey}{'ownerdom'};
	if (($udom =~ /^$match_domain$/) && ($uname =~ /^$match_username$/)) {
	$result = &retrieve_settings($dom,$cnum,$udom,$uname);
	} else {
	if ($env{'form.crstype'} eq 'community') {
	$warning = &mt('Invalid username or domain for community requestor');
	} else {
	$warning = &mt('Invalid username or domain for course requestor');
	}
	}
	} else {
	if ($env{'form.crstype'} eq 'community') {
	$warning = &mt('No information was found for this community request.');
	} else {
	$warning = &mt('No information was found for this course request.');
	}
	}
	} else {
	$warning = &mt('No course request ID provided.');
	}
	} else {
	if ($env{'form.crstype'} eq 'any') {
	$warning = &mt('You do not have rights to view course or community request information.');
	} elsif ($env{'form.crstype'} eq 'community') {
	$warning = &mt('You do not have rights to view community request information.');
	} else {
	$warning = &mt('You do not have rights to view course request information.');
	}
	}
	return ($uname,$udom,$result,$warning);
	}

sub enrollment_lcsec_js {	sub enrollment_lcsec_js {
my %alerts = &section_check_alerts();	my %alerts = &section_check_alerts();
my $secname = $alerts{'badsec'};	my $secname = $alerts{'badsec'};
my $secnone = $alerts{'reserved'};	my $secnone = $alerts{'reserved'};
	&js_escape(\$secname);
	&js_escape(\$secnone);
my $output = '	my $output = '
function validateEnrollSections(formname,nextstate) {	function validateEnrollSections(formname,nextstate) {
var badsectotal = 0;	var badsectotal = 0;
Line 1190 function validateEnrollSections(formname	Line 1246 function validateEnrollSections(formname

sub personnel_lcsec_js {	sub personnel_lcsec_js {
my %alerts = &section_check_alerts();	my %alerts = &section_check_alerts();
my $secname = $alerts{'badsec'}.'\\n'.$alerts{'separate'};	my $secname = $alerts{'badsec'}."\n".$alerts{'separate'};
my $secnone = $alerts{'reserved'};	my $secnone = $alerts{'reserved'};
	&js_escape(\$secname);
	&js_escape(\$secnone);
my $output = '	my $output = '
function validatePersonnelSections(formname,nextstate) {	function validatePersonnelSections(formname,nextstate) {
var badsectotal = 0;	var badsectotal = 0;
Line 1527 sub print_request_form {	Line 1585 sub print_request_form {
\%cat_order,\@code_order);	\%cat_order,\@code_order);
}	}
my $lonhost = $r->dir_config('lonHostID');	my $lonhost = $r->dir_config('lonHostID');
my ($storeresult,$result) = &print_request_outcome($lonhost,$dom,\@codetitles,	my ($storeresult,$result,$customized) = &print_request_outcome($r,$lonhost,$dom,\@codetitles,
\@code_order,$instcredits);	\@code_order,$instcredits);
$r->print($result);	$r->print($result);
if (($storeresult eq 'ok') \|\| ($storeresult eq 'created')) {	if (($storeresult eq 'ok') \|\| ($storeresult eq 'created')) {
if ($storeresult eq 'ok') {	if ($storeresult eq 'ok') {
Line 1537 sub print_request_form {	Line 1595 sub print_request_form {
'<a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');	'<a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');
}	}
if (&Apache::loncoursequeueadmin::author_prompt()) {	if (&Apache::loncoursequeueadmin::author_prompt()) {
&print_author_prompt($r,$env{'form.action'},$env{'form.cnum'},$env{'form.showdom'},	unless ($customized) {
$env{'form.crstype'},$storeresult);	&print_author_prompt($r,$env{'form.action'},$env{'form.cnum'},$env{'form.showdom'},
	$env{'form.crstype'},$storeresult);
	}
} elsif ($storeresult eq 'created') {	} elsif ($storeresult eq 'created') {
$r->print('<p><a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');	unless ($customized) {
	$r->print('<p><a href="/adm/requestcourse">'.&mt('Make another request').'</a></p>');
	}
}	}
}	}
} elsif ($state eq 'reqauthor') {	} elsif ($state eq 'reqauthor') {
Line 2042 sub print_personnel_menu {	Line 2104 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'};	$lt{'textbook'} = $lt{'official'};
	$lt{'placement'} = $lt{'official'};
$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 2374 ENDJS	Line 2437 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".
&mt('Your request will be removed.');	&mt('Your request will be removed.');
	&js_escape(\$alert);
return << "ENDJS";	return << "ENDJS";
function nextPage(formname,nextstate) {	function nextPage(formname,nextstate) {
if (confirm('$alert')) {	if (confirm('$alert')) {
Line 2452 sub print_request_logs {	Line 2516 sub print_request_logs {
if (ref($domconfig{'requestcourses'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}) eq 'HASH') {
if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {	if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') {
if ($curr{'crstype'} eq 'any') {	if ($curr{'crstype'} eq 'any') {
my @types = qw(official unofficial community textbook);	my @types = qw(official unofficial community textbook placement);
foreach my $type (@types) {	foreach my $type (@types) {
if ($domconfig{'requestcourses'}{'uniquecode'}{$type}) {	if ($domconfig{'requestcourses'}{'uniquecode'}{$type}) {
$showuniquecode = 1;	$showuniquecode = 1;
Line 2620 sub reqstatus_names {	Line 2684 sub reqstatus_names {
rejected => 'Request rejected',	rejected => 'Request rejected',
cancelled => 'Request cancelled',	cancelled => 'Request cancelled',
);	);
if (($crstype eq 'official') \|\| ($crstype eq 'unofficial') \|\| ($crstype eq 'textbook')) {	if (($crstype eq 'official') \|\| ($crstype eq 'unofficial') \|\| ($crstype eq 'textbook') \|\| ($crstype eq 'placement')) {
$statusnames{'created'} = &mt('Course created');	$statusnames{'created'} = &mt('Course created');
} elsif ($crstype eq 'community') {	} elsif ($crstype eq 'community') {
$statusnames{'created'} = &mt('Community created');	$statusnames{'created'} = &mt('Community created');
Line 2747 sub print_review {	Line 2811 sub print_review {

my $enrollrow_title = &mt('Default Access Dates').'<br />'.	my $enrollrow_title = &mt('Default Access Dates').'<br />'.
'('.&Apache::lonnet::plaintext('st',$category).')';	'('.&Apache::lonnet::plaintext('st',$category).')';
	my $instcode;
if ($env{'form.crstype'} eq 'official') {	if ($env{'form.crstype'} eq 'official') {
if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH')) {	if ((ref($codetitles) eq 'ARRAY') && (ref($cat_titles) eq 'HASH')) {
foreach my $title (@{$codetitles}) {	foreach my $title (@{$codetitles}) {
Line 2762 sub print_review {	Line 2827 sub print_review {
}	}
}	}
}	}
	if (ref($code_order) eq 'ARRAY') {
	foreach my $item (@{$code_order}) {
	$instcode .= $env{'form.instcode_'.$item};
	}
	}
$inst_headers .= '<th>'.&mt('Credits').'</th>';	$inst_headers .= '<th>'.&mt('Credits').'</th>';
if ($instcredits) {	if ($instcredits) {
$inst_values .= '<td>'.$instcredits.'</td>';	$inst_values .= '<td>'.$instcredits.'</td>';
Line 2849 sub print_review {	Line 2919 sub print_review {
($env{'form.clonedom'} =~ /^$match_domain$/)) {	($env{'form.clonedom'} =~ /^$match_domain$/)) {
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname,	my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname,
$udom,$env{'form.clonecrs'},$env{'form.clonedom'},	$udom,$env{'form.clonecrs'},$env{'form.clonedom'},
$env{'form.crstype'});	$env{'form.crstype'},$dom,$instcode);
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 3011 sub dates_from_form {	Line 3081 sub dates_from_form {

sub courseinfo_form {	sub courseinfo_form {
my ($dom,$formname,$crstype,$next,$description) = @_;	my ($dom,$formname,$crstype,$next,$description) = @_;
my %lt = &Apache::lonlocal::texthash(	my %js_lt = &Apache::lonlocal::texthash(
official => 'You must provide a (brief) course description.',	official => 'You must provide a (brief) course description.',
community => 'You must provide a (brief) community description.'	community => 'You must provide a (brief) community description.'
);	);
$lt{'unofficial'} = $lt{'official'};	&js_escape(\%js_lt);
$lt{'textbook'} = $lt{'official'};	$js_lt{'unofficial'} = $js_lt{'official'};
	$js_lt{'textbook'} = $js_lt{'official'};
	$js_lt{'placement'} = $js_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('$lt{$crstype}');	alert('$js_lt{$crstype}');
return;	return;
}	}
nextPage(document.$formname,'$next');	nextPage(document.$formname,'$next');
Line 3103 sub clone_form {	Line 3175 sub clone_form {
&Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'.	&Apache::loncommon::select_dom_form($dom,'clonedom').'</label>'.
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.	&Apache::lonhtmlcommon::row_title($lt{'cid'}).'<label>'.
'<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','','$type'".')" />'.	'<input type="text" size="25" name="clonecrs" value="" onfocus="this.blur();opencrsbrowser('."'$formname','clonecrs','clonedom','','','','$type'".')" />'.
'</label> '.	'</label> '.
&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type).	&Apache::loncommon::selectcourse_link($formname,'clonecrs','clonedom','','','',$type).
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
Line 3336 sub display_navbuttons {	Line 3408 sub display_navbuttons {
}	}

sub print_request_outcome {	sub print_request_outcome {
my ($lonhost,$dom,$codetitles,$code_order,$instcredits) = @_;	my ($r,$lonhost,$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);	$uniquecode);
Line 3547 sub print_request_outcome {	Line 3619 sub print_request_outcome {
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);	$crstype,$dom,$instcode);
if ($canclone) {	if ($canclone) {
$clonecrs = $env{'form.clonecrs'};	$clonecrs = $env{'form.clonecrs'};
$clonedom = $env{'form.clonedom'};	$clonedom = $env{'form.clonedom'};
Line 3581 sub print_request_outcome {	Line 3653 sub print_request_outcome {
accessend => $accessend,	accessend => $accessend,
personnel => \%personnel,	personnel => \%personnel,
};	};
my ($result,$output) = &process_request($lonhost,$dom,$cnum,$crstype,$now,$details,$instcode,	my ($result,$output,$customized) = &process_request($r,$lonhost,$dom,$cnum,$crstype,$now,$details,
$req_notifylist,\@instsections,\%domconfig);	$instcode,$req_notifylist,\@instsections,\%domconfig);
return ($result,$output);	return ($result,$output,$customized);
}	}

sub process_request {	sub process_request {
my ($lonhost,$dom,$cnum,$crstype,$now,$details,$instcode,$req_notifylist,$instsections,	my ($r,$lonhost,$dom,$cnum,$crstype,$now,$details,$instcode,$req_notifylist,$instsections,
$domconfig) = @_;	$domconfig) = @_;
my (@inststatuses,$storeresult,$creationresult,$output);	my (@inststatuses,$storeresult,$creationresult,$output,$customized);
my $val =	my $val =
&Apache::loncoursequeueadmin::get_processtype('course',$env{'user.name'},	&Apache::loncoursequeueadmin::get_processtype('course',$env{'user.name'},
$env{'user.domain'},$env{'user.adv'},	$env{'user.domain'},$env{'user.adv'},
Line 3603 sub process_request {	Line 3675 sub process_request {
$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') {	} elsif ($crstype eq 'textbook') {
$output = &mt('You are not permitted to request creation of textbook courses');	$output = &mt('You are not permitted to request creation of textbook courses');
	} elsif ($crstype eq 'placement') {
	$output = &mt('You are not permitted to request creation of placement tests');
} else {	} else {
$output = &mt('Unrecognized course type: [_1]',$crstype);	$output = &mt('Unrecognized course type: [_1]',$crstype);
}	}
$storeresult = 'notpermitted';	$storeresult = 'notpermitted';
} else {	} else {
my ($disposition,$message,$reqstatus,$coursedesc);	my ($disposition,$message,$reqstatus,$coursedesc,$accessstart,$accessend,%customvalidation);
my %reqhash = (	my %reqhash = (
reqtime => $now,	reqtime => $now,
crstype => $crstype,	crstype => $crstype,
Line 3620 sub process_request {	Line 3694 sub process_request {
$env{'user.domain'});	$env{'user.domain'});
if (ref($details) eq 'HASH') {	if (ref($details) eq 'HASH') {
$coursedesc = $details->{'cdescr'};	$coursedesc = $details->{'cdescr'};
	$accessstart = $details->{'accessstart'};
	$accessend = $details->{'accessend'};
}	}
if ($val eq 'autolimit=') {	if ($val eq 'autolimit=') {
$disposition = 'process';	$disposition = 'process';
Line 3628 sub process_request {	Line 3704 sub process_request {
$disposition = &check_autolimit($env{'user.name'},$env{'user.domain'},	$disposition = &check_autolimit($env{'user.name'},$env{'user.domain'},
$dom,$crstype,$limit,\$message);	$dom,$crstype,$limit,\$message);
} elsif ($val eq 'validate') {	} elsif ($val eq 'validate') {
my ($inststatuslist,$validationchk,$validation,%custominfo);	my ($inststatuslist,$validationchk,$validation);
	if (ref($details) eq 'HASH') {
	if ($details->{'clonecrs'}) {
	$customvalidation{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'};
	}
	}
if (@inststatuses > 0) {	if (@inststatuses > 0) {
$inststatuslist = join(',',@inststatuses);	$inststatuslist = join(',',@inststatuses);
}	}
Line 3638 sub process_request {	Line 3719 sub process_request {
$instseclist = join(',',@{$instsections});	$instseclist = join(',',@{$instsections});
}	}
}	}
	#
	# Retrieve any custom form information used for validation
	#
my $preprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'prevalidate',$env{'user.name'},	my $preprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'prevalidate',$env{'user.name'},
$env{'user.domain'},$fullname,$coursedesc);	$env{'user.domain'},$fullname,$coursedesc);
if (ref($preprocess) eq 'HASH') {	if (ref($preprocess) eq 'HASH') {
if (ref($preprocess->{'formitems'}) eq 'HASH') {	&custom_formitems($preprocess,\%customvalidation);
foreach my $key (keys(%{$preprocess->{'formitems'}})) {
if ($preprocess->{'formitems'}->{$key} eq 'multiple') {
if (exists($env{'form.'.$key})) {
@{$custominfo{$key}} = &Apache::loncommon::get_env_multiple($env{'form.'.$key});
}
} else {
if (exists($env{'form.'.$key})) {
$custominfo{$key} = $env{'form.'.$key};
}
}
}
}
}	}
$validationchk =	$validationchk =
&Apache::lonnet::auto_courserequest_validation($dom,	&Apache::lonnet::auto_courserequest_validation($dom,
$env{'user.name'}.':'.$env{'user.domain'},$crstype,	$env{'user.name'}.':'.$env{'user.domain'},$crstype,
$inststatuslist,$instcode,$instseclist,\%custominfo);	$inststatuslist,$instcode,$instseclist,\%customvalidation);
if ($validationchk =~ /:/) {	if ($validationchk =~ /:/) {
($validation,$message) = split(':',$validationchk);	($validation,$message) = split(':',$validationchk);
} else {	} else {
Line 3675 sub process_request {	Line 3747 sub process_request {
}	}
$reqhash{'disposition'} = $disposition;	$reqhash{'disposition'} = $disposition;
$reqstatus = $disposition;	$reqstatus = $disposition;
my ($modified,$queued,$coursedesc,$token,%customitems);	my ($modified,$queued,$token,%customitems);
unless ($disposition eq 'rejected') {	unless ($disposition eq 'rejected') {
my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$env{'user.name'},	my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,'process',$env{'user.name'},
$env{'user.domain'},$fullname,$coursedesc);	$env{'user.domain'},$fullname,$coursedesc,undef,
	undef,undef,\%customvalidation);
	#
	# Retrieve any custom form information submitted with review page and include in request details.
	#
if (ref($inprocess) eq 'HASH') {	if (ref($inprocess) eq 'HASH') {
if (ref($inprocess->{'formitems'}) eq 'HASH') {	&custom_formitems($inprocess,\%customitems);
foreach my $key (keys(%{$inprocess->{'formitems'}})) {	foreach my $key (keys(%customitems)) {
if ($inprocess->{'formitems'}->{$key} eq 'multiple') {	$reqhash{'custom'}{$key} = $customitems{$key};
if (exists($env{'form.'.$key})) {
@{$customitems{$key}} = &Apache::loncommon::get_env_multiple($env{'form.'.$key});
}
} else {
if (exists($env{'form.'.$key})) {
$customitems{$key} = $env{'form.'.$key};
$reqhash{'custom'}{$key} = $customitems{$key};
}
}
}
}	}
}	}
}	}
Line 3717 sub process_request {	Line 3783 sub process_request {
foreach my $role (@roles) {	foreach my $role (@roles) {
$longroles{$role}=&Apache::lonnet::plaintext($role,$type);	$longroles{$role}=&Apache::lonnet::plaintext($role,$type);
}	}
	$r->print('<div id="processing" style="display:block;">'."\n".
	&mt('Your request is being processed; this page will update when processing is complete.').
	'</div>');
	$r->rflush();
	if (ref($details) eq 'HASH') {
	if ($details->{'clonecrs'}) {
	$customitems{'_LC_clonefrom'} = $details->{'clonedom'}.'_'.$details->{'clonecrs'};
	}
	}
	$customitems{'_LC_ownerfullname'} = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'},'first');
	my $owneremail;
	my %emails = &Apache::loncommon::getemails();
	foreach my $email ('permanentemail','critnotification','notification') {
	$owneremail = $emails{$email};
	last if ($owneremail ne '');
	}
	if ($owneremail ne '') {
	$customitems{'_LC_owneremail'} = $owneremail;
	}
	$customitems{'_LC_coursedomainname'} = &Apache::lonnet::domain($dom,'description');
	$customitems{'_LC_coursedescription'} = $coursedesc;
	$customitems{'_LC_coursestartdate'} = $accessstart;
	$customitems{'_LC_courseenddate'} = $accessend;
my ($result,$postprocess) = &Apache::loncoursequeueadmin::course_creation($dom,$cnum,	my ($result,$postprocess) = &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,\%customitems);	\$code,\%customitems);
	if (ref($postprocess) eq 'HASH') {
	$customized = $postprocess->{'createdcustomized'};
	}
if ($result eq 'created') {	if ($result eq 'created') {
$disposition = 'created';	$disposition = 'created';
$reqstatus = 'created';	$reqstatus = 'created';
Line 3739 sub process_request {	Line 3831 sub process_request {
if ($code) {	if ($code) {
$reqhash{'code'} = $code;	$reqhash{'code'} = $code;
}	}
$output .= '<br />'.$role_result.'</p>';	if (ref($postprocess) eq 'HASH') {
	if (ref($postprocess->{'createdactions'}) eq 'HASH') {
	if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') {
	&Apache::loncoursequeueadmin::postprocess_crsenv($dom,$cnum,
	$postprocess->{'createdactions'}{'environment'});
	}
	}
	}
	unless ($customized) {
	$output .= '<br />'.$role_result;
	}
	$output .= '</p>';
$creationresult = 'created';	$creationresult = 'created';
} else {	} else {
$output = '<span class="LC_error">';	$output = '<span class="LC_error">';
Line 3844 sub process_request {	Line 3947 sub process_request {
if ((ref($postprocess) eq 'HASH') &&	if ((ref($postprocess) eq 'HASH') &&
((ref($postprocess->{'queuedmsg'}) eq 'HASH') \|\| ($postprocess->{'queuedweb'}))) {	((ref($postprocess->{'queuedmsg'}) eq 'HASH') \|\| ($postprocess->{'queuedweb'}))) {
&notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);	&notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);
	$customized = $postprocess->{'createdcustomized'};
}	}
} elsif ($disposition eq 'pending') {	} elsif ($disposition eq 'pending') {
my $pendingform;	my $pendingform;
Line 3856 sub process_request {	Line 3960 sub process_request {
} else {	} else {
$output .= &notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);	$output .= &notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);
}	}
	if (ref($postprocess) eq 'HASH') {
	$customized = $postprocess->{'createdcustomized'};
	}
}	}
}	}
if ($validationerror ne '') {	if ($validationerror ne '') {
Line 3866 sub process_request {	Line 3973 sub process_request {
}	}
}	}
if ($creationresult ne '') {	if ($creationresult ne '') {
return ($creationresult,$output);	return ($creationresult,$output,$customized);
} else {	} else {
return ($storeresult,$output);	return ($storeresult,$output,$customized);
	}
	}

	sub custom_formitems {
	my ($preprocess,$customhash) = @_;
	return unless ((ref($preprocess) eq 'HASH') && (ref($customhash) eq 'HASH'));
	if (ref($preprocess->{'formitems'}) eq 'HASH') {
	foreach my $key (keys(%{$preprocess->{'formitems'}})) {
	if ($preprocess->{'formitems'}->{$key} eq 'multiple') {
	if (exists($env{'form.'.$key})) {
	my @items = &Apache::loncommon::get_env_multiple($env{'form.'.$key});
	foreach my $item (@items) {
	$item =~ s/(`)/'/g;
	$item =~ s/\$/$\$$/g;
	push(@{$customhash->{$key}},$item);
	}
	}
	} else {
	if (exists($env{'form.'.$key})) {
	$customhash->{$key} = $env{'form.'.$key};
	$customhash->{$key} =~ s/(`)/'/g;
	$customhash->{$key} =~ s/\$/$\$$/g;
	}
	}
	}
}	}
}	}

Line 4182 sub check_autolimit {	Line 4314 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') \|\| ($crstype eq 'textbook')) &&	} elsif ((($crstype eq 'official') \|\| ($crstype eq 'unofficial') \|\| ($crstype eq 'textbook') \|\| ($crstype eq 'placement')) &&
(exists($crsroles{$cnum.':'.$cdom.':cc'}))) {	(exists($crsroles{$cnum.':'.$cdom.':cc'}))) {
$count ++;	$count ++;
}	}
Line 4385 sub generate_date_items {	Line 4517 sub generate_date_items {

sub print_textbook_form {	sub print_textbook_form {
my ($r,$dom,$incdoms,$domdefs,$settings,$can_request) = @_;	my ($r,$dom,$incdoms,$domdefs,$settings,$can_request) = @_;
my ($bookshash,%ordered);	my (%prefab,%ordered,%numprefab);
my $crstype = 'textbook';	my $crstype = 'textbook';
#	#
# Retrieve list of textbook courses cloneable by user	# Retrieve list of prefabricated courses (textbook courses and templates) cloneable by user
#	#
my $numbook;	foreach my $type ('textbooks','templates') {
if (ref($settings) eq 'HASH') {	$numprefab{$type} = 0;
$bookshash = $settings->{'textbooks'};	if (ref($settings) eq 'HASH') {
if (ref($bookshash) eq 'HASH') {	$prefab{$type} = $settings->{$type};
foreach my $item (keys(%{$bookshash})) {	if (ref($prefab{$type}) eq 'HASH') {
my ($clonedom,$clonecrs) = split(/_/,$item);	foreach my $item (keys(%{$prefab{$type}})) {
if (ref($bookshash->{$item}) eq 'HASH') {
my ($clonedom,$clonecrs) = split(/_/,$item);	my ($clonedom,$clonecrs) = split(/_/,$item);
if (&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},	if (ref($prefab{$type}{$item}) eq 'HASH') {
$env{'user.domain'},$clonecrs,$clonedom,$crstype)) {	if (&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
	$env{'user.domain'},$clonecrs,$clonedom,$crstype,$dom)) {
my $num = $bookshash->{$item}{'order'};
$ordered{$num} = $item;	my $num = $prefab{$type}{$item}{'order'};
$numbook ++;	$ordered{$type}{$num} = $item;
	$numprefab{$type} ++;
	}
}	}
}	}
}	}
Line 4421 sub print_textbook_form {	Line 4554 sub print_textbook_form {
}	}

#	#
# Retrieve information about courses owned by user, or in which user has an active or future	# Retrieve information about courses owned by user, or in which user has an active
# Course Coordinator role	# Course Coordinator role
#	#
my $numcurrent;	my $numcurrent;
my %cloneable = &Apache::lonnet::courseiddump($dom,'.',1,'.',$env{'user.name'}.':'.$env{'user.domain'},	my %cloneable = &Apache::lonnet::courseiddump($dom,'.',1,'.',$env{'user.name'}.':'.$env{'user.domain'},
undef,undef,undef,'Course');	'.',undef,undef,'Course');
my %ccroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',	my %ccroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',
['active','future'],['cc']);	['active'],['cc']);

	my $cc_clone = '';
foreach my $role (keys(%ccroles)) {	foreach my $role (keys(%ccroles)) {
my ($cnum,$cdom,$rest) = split(/:/,$role,3);	my ($cnum,$cdom,$rest) = split(/:/,$role,3);
	$cc_clone .= $cdom.':'.$cnum.'&';
unless (exists($cloneable{$cdom.'_'.$cnum})) {	unless (exists($cloneable{$cdom.'_'.$cnum})) {
my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{'one_time' => 1});	my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{'one_time' => 1});
$cloneable{$cdom.'_'.$cnum} = \%courseinfo;	$cloneable{$cdom.'_'.$cnum} = {
	context => $courseinfo{'internal.creationcontext'},
	created => $courseinfo{'internal.created'},
	creator => $courseinfo{'internal.creator'},
	description => $courseinfo{'description'},
	inst_code => $courseinfo{'coursecode'},
	owner => $courseinfo{'internal.courseowner'},
	releaserequired => $courseinfo{'internal.releaserequired'},
	type => $courseinfo{'type'},
	};
}	}
}	}

my $numcurrent = scalar(keys(%cloneable));	my $numcurrent = scalar(keys(%cloneable));

my $jscript = &textbook_request_javascript($numbook,$numcurrent);	#
	# Retrieve information about courses from user's domain which user can clone, but which not owned
	# or cloneable based on Course Coordinator role.
	#
	my ($numdomcourses,%domcloneable);
	my %allcloneable = &Apache::lonnet::courseiddump($dom,'.',1,'.','.','.',undef,undef,'Course',
	undef,undef,undef,undef,undef,
	$env{'user.name'}.':'.$env{'user.domain'},
	$cc_clone,1);
	foreach my $cid (keys(%allcloneable)) {
	unless (exists($cloneable{$cid})) {
	$domcloneable{$cid} = $allcloneable{$cid};
	}
	}
	$numdomcourses = scalar(keys(%domcloneable));

	my $fullname = &Apache::loncommon::plainname($env{'user.name'},
	$env{'user.domain'});

	#
	# Retrieve any custom form information prior to rendering page
	#

	my $initprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'initializereview',$env{'user.name'},
	$env{'user.domain'},$fullname);
	my %custominit;
	if (ref($initprocess) eq 'HASH') {
	&custom_formitems($initprocess,\%custominit);
	}

	#
	# Retrieve any custom onload actions or javascript used for page before rendering
	#

	my ($customonload,$customjs,$customvalidationjs);
	my $inprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'prereview',$env{'user.name'},
	$env{'user.domain'},$fullname,undef,undef,
	undef,undef,\%custominit);
	if (ref($inprocess) eq 'HASH') {
	$customonload = $inprocess->{'onload'};
	$customjs = $inprocess->{'javascript'};
	$customvalidationjs = $inprocess->{'validationjs'};
	}

	my $postprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'review',
	$env{'user.name'},
	$env{'user.domain'},$fullname,undef,undef,
	undef,undef,\%custominit);

	my $jscript = &textbook_request_javascript(\%numprefab,$numcurrent,$numdomcourses,$customvalidationjs);
	$jscript .= $customjs;
my %loaditems;	my %loaditems;
$loaditems{'onload'} = 'javascript:uncheckAllRadio();';	$loaditems{'onload'} = 'javascript:uncheckAllRadio();'.$customonload;
$r->print(&header('Course Request',$jscript,\%loaditems));	$r->print(&header('Course Request',$jscript,\%loaditems));

if (ref($can_request) eq 'HASH') {	if (ref($can_request) eq 'HASH') {
Line 4486 sub print_textbook_form {	Line 4681 sub print_textbook_form {
#	#
# Content source selection, if more than one available	# Content source selection, if more than one available
#	#
if (keys(%cloneable) \|\| keys(%ordered)) {	if (keys(%cloneable) \|\| keys(%ordered) \|\| keys(%domcloneable)) {
$r->print('<div>'.	$r->print('<div>'.
'<fieldset><legend>'.&mt('Course Content').'</legend>');	'<fieldset><legend>'.&mt('Course Content').'</legend>');
if (keys(%ordered)) {	if (keys(%ordered)) {
$r->print('<span class="LC_nobreak"><label>'.	if (ref($ordered{'textbooks'}) eq 'HASH') {
'<input type="radio" name="cloning" value="textbook" onclick="javascript:cloneChoice();" />'.	$r->print('<span class="LC_nobreak"><label>'.
&mt('Load textbook content').'</span>'.(' 'x2).' ');	'<input type="radio" name="cloning" value="textbook" onclick="javascript:cloneChoice();" />'.
	&mt('Load textbook content').'</span>'.(' 'x2).' ');
	}
	if (ref($ordered{'templates'}) eq 'HASH') {
	$r->print('<span class="LC_nobreak"><label>'.
	'<input type="radio" name="cloning" value="template" onclick="javascript:cloneChoice();" />'.
	&mt('Load pre-existing template').'</span>'.(' 'x2).' ');
	}
}	}
if (keys(%cloneable)) {	if (keys(%cloneable)) {
$r->print('<span class="LC_nobreak"><label>'.	$r->print('<span class="LC_nobreak"><label>'.
'<input type="radio" name="cloning" value="existing" onclick="javascript:cloneChoice();" />'.	'<input type="radio" name="cloning" value="existing" onclick="javascript:cloneChoice();" />'.
&mt('Copy one of your courses').'</label></span>'.(' 'x2).' ');	&mt('Copy one of your courses').'</label></span>'.(' 'x2).' ');
}	}
	if (keys(%domcloneable)) {
	$r->print('<span class="LC_nobreak"><label>'.
	'<input type="radio" name="cloning" value="colleague" onclick="javascript:cloneChoice();" />'.
	&mt("Copy a colleague's course").'</label></span>'.(' 'x2).' ');
	}
$r->print('<span class="LC_nobreak"><label>'.	$r->print('<span class="LC_nobreak"><label>'.
'<input type="radio" name="cloning" value="none" checked="checked" onclick="javascript:cloneChoice();" />'.	'<input type="radio" name="cloning" value="none" checked="checked" onclick="javascript:cloneChoice();" />'.
&mt('Empty course shell').'</label></span>');	&mt('Empty course shell').'</label></span>');
Line 4510 sub print_textbook_form {	Line 4717 sub print_textbook_form {
# Table of cloneable textbook courses	# Table of cloneable textbook courses
#	#
if (keys(%ordered)) {	if (keys(%ordered)) {
$r->print('<div id="showtextbook" style="display:none">'.	foreach my $type ('textbooks','templates') {
&Apache::loncommon::start_data_table().	my $divid = 'showtextbook';
&Apache::loncommon::start_data_table_header_row().	my $radioid = 'book';
'<th>'.&mt('Title').'</th>'.	if ($type eq 'templates') {
'<th>'.&mt('Author(s)').'</th>'.	$divid = 'showtemplate';
'<th>'.&mt('Subject').'</th>'.	$radioid = 'template';
'<th>'.&mt('Book').'</th>'.	}
&Apache::loncommon::end_data_table_header_row());	if (ref($ordered{$type}) eq 'HASH') {
my @items = sort { $a <=> $b } keys(%ordered);	$r->print('<div id="'.$divid.'" style="display:none">'.
foreach my $num (@items) {	&Apache::loncommon::start_data_table().
my $item = $ordered{$num};	&Apache::loncommon::start_data_table_header_row().
my $cleantitle=&HTML::Entities::encode($bookshash->{$item}->{'title'},'<>&"');	'<th>'.&mt('Title').'</th>');
$cleantitle=~s/'/\\'/g;	if ($type eq 'textbooks') {
$cleantitle =~ s/^\s+//;	$r->print('<th>'.&mt('Author(s)').'</th>');
$r->print(&Apache::loncommon::start_data_table_row().	}
'<td><label><input type="radio" name="book" value="'.$item.'" />'.	$r->print('<th>'.&mt('Subject').'</th>');
$cleantitle.'</label></td>'.	if ($type eq 'textbooks') {
'<td>'.$bookshash->{$item}->{'author'}.'</td>'.	$r->print('<th>'.&mt('Publisher').'</th>'.
'<td>'.$bookshash->{$item}->{'subject'}.'</td>'.	'<th>'.&mt('Book').'</th>');
'<td><img border="0" src="'.$bookshash->{$item}->{'image'}.	}
'" alt="'.$cleantitle.'" /></td>'.	$r->print(&Apache::loncommon::end_data_table_header_row());
&Apache::loncommon::end_data_table_row());	my @items = sort { $a <=> $b } keys(%{$ordered{$type}});
	foreach my $num (@items) {
	my $item = $ordered{$type}{$num};
	my $cleantitle=&HTML::Entities::encode($prefab{$type}{$item}{'title'},'<>&"');
	$cleantitle=~s/'/\\'/g;
	$cleantitle =~ s/^\s+//;
	$r->print(&Apache::loncommon::start_data_table_row().
	'<td><label><input type="radio" name="'.$radioid.'" value="'.$item.'" />'.
	$cleantitle.'</label></td>');
	if ($type eq 'textbooks') {
	$r->print('<td>'.$prefab{$type}{$item}{'author'}.'</td>');
	}
	$r->print('<td>'.$prefab{$type}{$item}{'subject'}.'</td>');
	if ($type eq 'textbooks') {
	$r->print('<td>'.$prefab{$type}{$item}{'publisher'}.'</td>'.
	'<td><img border="0" src="'.$prefab{$type}{$item}{'image'}.
	'" alt="'.$cleantitle.'" /></td>');
	}
	$r->print(&Apache::loncommon::end_data_table_row());
	}
	$r->print(&Apache::loncommon::end_data_table().
	'</div>');
	}
}	}
$r->print(&Apache::loncommon::end_data_table().
'</div>');
}	}

#	#
# Table of user's current courses (owner and/or course coordinator)	# Table of user's current courses (owner and/or course coordinator)
#	#
	my %lt = &clone_text();
if (keys(%cloneable)) {	if (keys(%cloneable)) {
my %lt = &clone_text();
$r->print('<div id="showexisting" style="display:none">'.	$r->print('<div id="showexisting" style="display:none">'.
&Apache::loncommon::start_data_table().	&clone_selection_table($dom,'owned',\%cloneable).
&Apache::loncommon::start_data_table_header_row().	'<p><input type="radio" name="owndatemode" value="delete" /> '.$lt{'ncd'}.
'<th>'.&mt('Title').'</th>'.	'</label><br /><label>'.
'<th>'.&mt('Owner/co-owner(s)').'</th>'.	'<input type="radio" name="owndatemode" value="preserve" /> '.$lt{'prd'}.
&Apache::loncommon::end_data_table_header_row());	'</label><br /><label>'.
my %allownernames;	'<input type="radio" name="owndatemode" value="shift" checked="checked" /> '.
my %sortbytitle;	$lt{'shd'}.'</label>'.
foreach my $cid (sort(keys(%cloneable))) {	'<input type="text" size="5" name="owndateshift" value="365" />'.
if (ref($cloneable{$cid}) eq 'HASH') {	'</div>');
my $cdesc = $cloneable{$cid}{'description'};
$cdesc =~ s/`/'/g;
if ($cdesc ne '') {
push(@{$sortbytitle{$cdesc}},$cid);
}
}
}
foreach my $title (sort(keys(%sortbytitle))) {
if (ref($sortbytitle{$title}) eq 'ARRAY') {
foreach my $cid (sort(@{$sortbytitle{$title}})) {
my $cleantitle=&HTML::Entities::encode($title,'<>&"');
$cleantitle=~s/'/\\'/g;
$cleantitle =~ s/^\s+//;
my ($namestr,@owners,%ownernames);
my $singleowner = $cloneable{$cid}{'internal.courseowner'};
push(@owners,$singleowner);
if ($cloneable{$cid}{'co-owners'} ne '') {
foreach my $item (split(/,/,$cloneable{$cid}{'internal.co-owners'})) {
push(@owners,$item);
}
}
foreach my $owner (@owners) {
my ($ownername,$ownerdom);
if ($owner =~ /:/) {
($ownername,$ownerdom) = split(/:/,$owner);
} else {
$ownername = $owner;
if ($owner ne '') {
$ownerdom = $dom;
}
}
if ($ownername ne '' && $ownerdom ne '') {
if (exists($allownernames{$ownername.':'.$ownerdom})) {
$ownernames{$ownername.':'.$ownerdom} = $allownernames{$ownername.':'.$ownerdom};
} else {
my %namehash=&Apache::loncommon::getnames($ownername,$ownerdom);
$ownernames{$ownername.':'.$ownerdom} = \%namehash;
$allownernames{$ownername.':'.$ownerdom} = $ownernames{$ownername.':'.$ownerdom};
}
}
}
my @lastnames;
foreach my $owner (keys(%ownernames)) {
if (ref($ownernames{$owner}) eq 'HASH') {
push(@lastnames,$ownernames{$owner}{'lastname'});
}
}
if (@lastnames) {
$namestr = join(', ',sort(@lastnames));
}
$r->print(&Apache::loncommon::start_data_table_row().
'<td><label><input type="radio" name="owned" value="'.$cid.'" />'.
'&nbsp'.$cleantitle.'</label></td>'.
'<td>'.$namestr.'</td>'.
&Apache::loncommon::end_data_table_row());
}
}
}
$r->print(&Apache::loncommon::end_data_table().
'<p><input type="radio" name="datemode" value="delete" /> '.$lt{'ncd'}.
'</label><br /><label>'.
'<input type="radio" name="datemode" value="preserve" /> '.$lt{'prd'}.
'</label><br /><label>'.
'<input type="radio" name="datemode" value="shift" checked="checked" /> '.
$lt{'shd'}.'</label>'.
'<input type="text" size="5" name="dateshift" value="365" />'.
'</div>');
}	}
#	#
	# Table of other cloneable courses from user's domain (exclude own courses)
	#
	if (keys(%domcloneable)) {
	$r->print('<div id="showcolleague" style="display:none">'.
	&clone_selection_table($dom,'colleague',\%domcloneable).
	'<p><input type="radio" name="colldatemode" value="delete" /> '.$lt{'ncd'}.
	'</label><br /><label>'.
	'<input type="radio" name="colldatemode" value="preserve" /> '.$lt{'prd'}.
	'</label><br /><label>'.
	'<input type="radio" name="colldatemode" value="shift" checked="checked" /> '.
	$lt{'shd'}.'</label>'.
	'<input type="text" size="5" name="colldateshift" value="365" />'.
	'</div>');
	}

	#
# End of content selector	# End of content selector
#	#
if (keys(%cloneable) \|\| keys(%ordered)) {	if (keys(%cloneable) \|\| keys(%domcloneable) \|\| keys(%ordered)) {
$r->print('</fieldset></div>');	$r->print('</fieldset></div>');
}	}

Line 4654 sub print_textbook_form {	Line 4830 sub print_textbook_form {
#	#
# Display any custom fields for this course type	# Display any custom fields for this course type
#	#
my $fullname = &Apache::loncommon::plainname($env{'user.name'},
$env{'user.domain'});
my $postprocess = &Apache::lonnet::auto_crsreq_update($dom,undef,$crstype,'review',
$env{'user.name'},
$env{'user.domain'},$fullname);
if (ref($postprocess) eq 'HASH') {	if (ref($postprocess) eq 'HASH') {
if ($postprocess->{'reviewweb'}) {	if ($postprocess->{'reviewweb'}) {
$r->print($postprocess->{'reviewweb'});	$r->print($postprocess->{'reviewweb'});
Line 4681 sub print_textbook_form {	Line 4852 sub print_textbook_form {
return;	return;
}	}

	sub clone_selection_table {
	my ($dom,$name,$cloneableref) = @_;
	return unless ((ref($cloneableref) eq 'HASH') && (($name eq 'owned') \|\| ($name eq 'colleague')));
	my %allownernames;
	my %sortbytitle;
	my $output;
	foreach my $cid (sort(keys(%{$cloneableref}))) {
	if (ref($cloneableref->{$cid}) eq 'HASH') {
	my $cdesc = $cloneableref->{$cid}{'description'};
	$cdesc =~ s/`/'/g;
	if ($cdesc ne '') {
	push(@{$sortbytitle{$cdesc}},$cid);
	}
	}
	}
	foreach my $title (sort(keys(%sortbytitle))) {
	if (ref($sortbytitle{$title}) eq 'ARRAY') {
	foreach my $cid (sort(@{$sortbytitle{$title}})) {
	my $cleantitle=&HTML::Entities::encode($title,'<>&"');
	$cleantitle=~s/'/\\'/g;
	$cleantitle =~ s/^\s+//;
	my ($namestr,@owners,%ownernames);
	if ($cloneableref->{$cid}{'owner'} ne '') {
	push(@owners,$cloneableref->{$cid}{'owner'});
	}
	if ($cloneableref->{$cid}{'co-owners'} ne '') {
	foreach my $item (split(/,/,$cloneableref->{$cid}{'co-owners'})) {
	if (($item ne '') && (!grep(/^\Q$item\E$/,@owners))) {
	push(@owners,$item);
	}
	}
	}
	foreach my $owner (@owners) {
	my ($ownername,$ownerdom);
	if ($owner =~ /:/) {
	($ownername,$ownerdom) = split(/:/,$owner);
	} else {
	$ownername = $owner;
	if ($owner ne '') {
	$ownerdom = $dom;
	}
	}
	if ($ownername ne '' && $ownerdom ne '') {
	if (exists($allownernames{$ownername.':'.$ownerdom})) {
	$ownernames{$ownername.':'.$ownerdom} = $allownernames{$ownername.':'.$ownerdom};
	} else {
	my %namehash=&Apache::loncommon::getnames($ownername,$ownerdom);
	$ownernames{$ownername.':'.$ownerdom} = \%namehash;
	$allownernames{$ownername.':'.$ownerdom} = $ownernames{$ownername.':'.$ownerdom};
	}
	}
	}
	my @lastnames;
	foreach my $owner (keys(%ownernames)) {
	if (ref($ownernames{$owner}) eq 'HASH') {
	push(@lastnames,$ownernames{$owner}{'lastname'});
	}
	}
	if (@lastnames) {
	$namestr = join(', ',sort(@lastnames));
	}
	$output .= &Apache::loncommon::start_data_table_row().
	'<td><label><input type="radio" name="'.$name.'" value="'.$cid.'" />'.
	' '.$cleantitle.'</label></td>'.
	'<td>'.$namestr.'</td>'.
	&Apache::loncommon::end_data_table_row();
	}
	}
	}
	if ($output) {
	return &Apache::loncommon::start_data_table().
	&Apache::loncommon::start_data_table_header_row().
	'<th>'.&mt('Title').'</th>'.
	'<th>'.&mt('Owner/co-owner(s)').'</th>'.
	&Apache::loncommon::end_data_table_header_row().
	$output.
	&Apache::loncommon::end_data_table();
	}
	return;
	}

sub process_textbook_request {	sub process_textbook_request {
my ($r,$dom,$action,$domdefs,$domconfig,$can_request) = @_;	my ($r,$dom,$action,$domdefs,$domconfig,$can_request) = @_;
my ($uniquecode,$req_notifylist);	my ($uniquecode,$req_notifylist);
Line 4702 sub process_textbook_request {	Line 4954 sub process_textbook_request {
my ($clonefrom,$clonedom,$clonecrs);	my ($clonefrom,$clonedom,$clonecrs);
if ($reqtype eq 'textbook') {	if ($reqtype eq 'textbook') {
$clonefrom = $env{'form.book'};	$clonefrom = $env{'form.book'};
	} elsif ($reqtype eq 'template') {
	$clonefrom = $env{'form.template'};
} elsif ($reqtype eq 'existing') {	} elsif ($reqtype eq 'existing') {
$clonefrom = $env{'form.owned'};	$clonefrom = $env{'form.owned'};
	} elsif ($reqtype eq 'colleague') {
	$clonefrom = $env{'form.colleague'};
}	}
my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');	my ($accessstart,$accessend) = &dates_from_form('accessstart','accessend');
if ($clonefrom) {	if ($clonefrom) {
Line 4711 sub process_textbook_request {	Line 4967 sub process_textbook_request {
if (&Apache::lonnet::homeserver($clonecrs,$clonedom) ne 'no_host') {	if (&Apache::lonnet::homeserver($clonecrs,$clonedom) 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'},$clonecrs,$clonedom,$crstype);	$env{'user.domain'},$clonecrs,$clonedom,$crstype,$dom);
unless ($canclone) {	unless ($canclone) {
undef($clonecrs);	undef($clonecrs);
undef($clonedom);	undef($clonedom);
Line 4721 sub process_textbook_request {	Line 4977 sub process_textbook_request {
undef($clonedom);	undef($clonedom);
}	}
}	}
$r->print(&header('Course Creation'));	my $js = &processing_javascript();
	my $loaditems = {
	onload => 'javascript:hideProcessing();',
	};
	$r->print(&header('Course Creation',$js,$loaditems));

if (ref($can_request) eq 'HASH') {	if (ref($can_request) eq 'HASH') {
unless ((scalar(keys(%{$can_request})) == 1) && ($can_request->{'textbook'})) {	unless ((scalar(keys(%{$can_request})) == 1) && ($can_request->{'textbook'})) {
Line 4755 sub process_textbook_request {	Line 5015 sub process_textbook_request {
accessend => $accessend,	accessend => $accessend,
personnel => {},	personnel => {},
};	};
if ($reqtype eq 'existing') {	if (($clonecrs ne '') && ($clonedom ne '')) {
$details->{datemode} = $env{'form.datemode'};	if ($reqtype eq 'existing') {
$details->{dateshift} = $env{'form.dateshift'};	$details->{datemode} = $env{'form.owndatemode'};
	if ($details->{datemode} eq 'shift') {
	$details->{dateshift} = $env{'form.owndateshift'};
	} else {
	$details->{dateshift} = '';
	}
	} elsif ($reqtype eq 'colleague') {
	$details->{datemode} = $env{'form.colldatemode'};
	if ($details->{datemode} eq 'shift') {
	$details->{dateshift} = $env{'form.colldateshift'};
	} else {
	$details->{dateshift} = '';
	}
	}
	if ($details->{dateshift} ne '') {
	$details->{dateshift} =~ s/[^\d\.]+//g;
	}
	} else {
	$details->{datemode} = '';
	$details->{dateshift} = '';
}	}
my $lonhost = $r->dir_config('lonHostID');	my $lonhost = $r->dir_config('lonHostID');
my ($result,$output) = &process_request($lonhost,$dom,$cnum,$crstype,$now,$details,'',	$r->rflush();
$req_notifylist,[],$domconfig);	my ($result,$output,$customized) = &process_request($r,$lonhost,$dom,$cnum,$crstype,$now,$details,
	'',$req_notifylist,[],$domconfig);
$r->print($output);	$r->print($output);
if (&Apache::loncoursequeueadmin::author_prompt()) {	if (&Apache::loncoursequeueadmin::author_prompt()) {
&print_author_prompt($r,$action,$cnum,$dom,$crstype,$result);	unless ($customized) {
	&print_author_prompt($r,$action,$cnum,$dom,$crstype,$result);
	}
} elsif ($result eq 'created') {	} elsif ($result eq 'created') {
$r->print('<p><a href="/adm/requestcourse">'.&mt('Create another course').'</a></p>');	unless ($customized) {
	$r->print('<p><a href="/adm/requestcourse">'.&mt('Create another course').'</a></p>');
	}
}	}
&endContentScreen($r);	&endContentScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

sub textbook_request_javascript {	sub textbook_request_javascript {
my ($numbook,$numcurrent) = @_;	my ($numprefab,$numcurrent,$numcolleague,$customvalidationjs) = @_;
my %lt = &Apache::lonlocal::texthash(	return unless (ref($numprefab) eq 'HASH');
choose => 'Please select a content option.',	return if (!$numprefab->{'textbooks'} && !$numprefab->{'templates'} && !$numcurrent && !$numcolleague);
textbook => 'Please select a textbook, or choose a different option.',	my %js_lt = &Apache::lonlocal::texthash(
existing => 'Please select one of your existing courses to copy, or choose a different option.',	choose => 'Please select a content option.',
title => 'Please enter a course title.',	textbook => 'Please select a textbook, or choose a different option.',
	template => 'Please select a template, or choose a different option.',
	existing => 'Please select one of your existing courses to copy, or choose a different option.',
	colleague => "Please select a colleague's course to copy, or choose a different option.",
	title => 'Please enter a course title.',
);	);
return if (!$numbook && !$numcurrent);	&js_escape(\%js_lt);
return <<"ENDSCRIPT";	return <<"ENDSCRIPT";
function cloneChoice() {	function cloneChoice() {
if (document.requestcourse.cloning) {	if (document.requestcourse.cloning) {
var radioLength = document.requestcourse.cloning.length;	var radioLength = document.requestcourse.cloning.length;
if (radioLength == undefined) {	if (radioLength == undefined) {
var val = document.requestcourse.cloning.value;	var val = document.requestcourse.cloning.value;
if ((val == 'textbook') \|\| (val == 'existing')) {	if ((val == 'textbook') \|\| (val == 'template') \|\| (val == 'existing') \|\| (val == 'colleague')) {
var elem = document.getElementById('show'+val);	var elem = document.getElementById('show'+val);
if (document.requestcourse.cloning.checked) {	if (document.requestcourse.cloning.checked) {
elem.style.display = 'block';	elem.style.display = 'block';
Line 4799 function cloneChoice() {	Line 5087 function cloneChoice() {
} else {	} else {
for (var i=0; i<radioLength; i++) {	for (var i=0; i<radioLength; i++) {
var val = document.requestcourse.cloning[i].value;	var val = document.requestcourse.cloning[i].value;
if ((val == 'textbook') \|\| (val == 'existing')) {	if ((val == 'textbook') \|\| (val == 'template') \|\| (val == 'existing') \|\| (val == 'colleague')) {
var elem = document.getElementById('show'+val);	var elem = document.getElementById('show'+val);
if (document.requestcourse.cloning[i].checked) {	if (document.requestcourse.cloning[i].checked) {
elem.style.display = 'block';	elem.style.display = 'block';
Line 4807 function cloneChoice() {	Line 5095 function cloneChoice() {
if (val == 'textbook') {	if (val == 'textbook') {
uncheckRadio('book');	uncheckRadio('book');
}	}
	if (val == 'template') {
	uncheckRadio('template');
	}
if (val == 'existing') {	if (val == 'existing') {
uncheckRadio('owned');	uncheckRadio('owned');
}	}
	if (val == 'colleague') {
	uncheckRadio('colleague');
	}
elem.style.display = 'none';	elem.style.display = 'none';
}	}
}	}
Line 4834 function uncheckRadio(radioGroupName) {	Line 5128 function uncheckRadio(radioGroupName) {

function uncheckAllRadio() {	function uncheckAllRadio() {
uncheckRadio('cloning');	uncheckRadio('cloning');
var numbook = $numbook;	var numbook = $numprefab->{'textbooks'};
	var numtemplate = $numprefab->{'templates'};
var numcurrent = $numcurrent;	var numcurrent = $numcurrent;
	var numcolleague = $numcolleague;
if (numbook > 0) {	if (numbook > 0) {
uncheckRadio('textbook');	uncheckRadio('textbook');
}	}
	if (numtemplate > 0) {
	uncheckRadio('template');
	}
if (numcurrent > 0) {	if (numcurrent > 0) {
uncheckRadio('existing');	uncheckRadio('existing');
}	}
	if (numcolleague > 0) {
	uncheckRadio('colleague');
	}
return;	return;
}	}

Line 4851 function validTextbookReq() {	Line 5153 function validTextbookReq() {
var radioLength = document.requestcourse.cloning.length;	var radioLength = document.requestcourse.cloning.length;
if (radioLength == undefined) {	if (radioLength == undefined) {
if (document.requestcourse.cloning.checked == false) {	if (document.requestcourse.cloning.checked == false) {
alert("$lt{'choose'}");	alert("$js_lt{'choose'}");
return false;	return false;
} else {	} else {
cloneChoice = document.requestcourse.cloning.value;	cloneChoice = document.requestcourse.cloning.value;
Line 4864 function validTextbookReq() {	Line 5166 function validTextbookReq() {
}	}
}	}
if (cloneChoice == 0) {	if (cloneChoice == 0) {
alert("$lt{'choose'}");	alert("$js_lt{'choose'}");
return false;	return false;
}	}
}	}
var group;	var group;
if ((cloneChoice == 'textbook') \|\| (cloneChoice == 'existing')) {	if ((cloneChoice == 'textbook') \|\| (cloneChoice == 'template') \|\| (cloneChoice == 'existing') \|\| (cloneChoice == 'colleague')) {
var group;	var group;
if (cloneChoice == 'textbook') {	if (cloneChoice == 'textbook') {
group = document.getElementsByName('book');	group = document.getElementsByName('book');
} else {	} else {
group = document.getElementsByName('owned');	if (cloneChoice == 'template') {
	group = document.getElementsByName('template');
	} else {
	if (cloneChoice == 'existing') {
	group = document.getElementsByName('owned');
	} else {
	group = document.getElementsByName('colleague');
	}
	}
}	}
var groupLength = group.length;	var groupLength = group.length;
var chosen = 0;	var chosen = 0;
Line 4892 function validTextbookReq() {	Line 5202 function validTextbookReq() {
}	}
if (chosen == 0) {	if (chosen == 0) {
if (cloneChoice == 'textbook') {	if (cloneChoice == 'textbook') {
alert("$lt{'textbook'}");	alert("$js_lt{'textbook'}");
} else {	} else {
alert("$lt{'existing'}");	if (cloneChoice == 'template') {
	alert("$js_lt{'template'}");
	} else {
	if (cloneChoice == 'existing') {
	alert("$js_lt{'existing'}");
	} else {
	alert("$js_lt{'colleague'}");
	}
	}
}	}
return false;	return false;
}	}
}	}
}	}
if (document.requestcourse.cdescr.value == '') {	if (document.requestcourse.cdescr.value == '') {
alert("$lt{'title'}");	alert("$js_lt{'title'}");
return false;	return false;
}	}
	$customvalidationjs
return true;	return true;
}	}

Line 4911 ENDSCRIPT	Line 5230 ENDSCRIPT

}	}

	sub textbook_request_disabled {
	my ($r,$dom,$action,$can_request) = @_;
	if (ref($can_request) eq 'HASH') {
	if ($action eq 'process') {
	unless ((scalar(keys(%{$can_request})) == 1)) {
	&Apache::lonhtmlcommon::add_breadcrumb(
	{ href => '/adm/requestcourse',
	text => 'Pick action',
	});
	}
	}
	}
	$r->print(&header('Course Request'));
	&Apache::lonhtmlcommon::add_breadcrumb({text=>'Course Request'});
	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Requests','Course_Requests').
	'<div>'.
	'<p class="LC_info">'.&mt('You do not have privileges to request creation of textbook courses.').'</p>');
	if (ref($can_request) eq 'HASH') {
	if (scalar(keys(%{$can_request})) > 1) {
	$r->print('<a href="/adm/requestcourse">'.&mt('Go back').'</a>');
	}
	}
	$r->print('</div>'.
	&Apache::loncommon::end_page());
	return;
	}

sub startContentScreen {	sub startContentScreen {
my ($r,$mode)=@_;	my ($r,$mode)=@_;
$r->print("\n".'<ul class="LC_TabContentBigger" id="textbookreq">'."\n");	$r->print("\n".'<ul class="LC_TabContentBigger" id="textbookreq">'."\n");

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.78
changed lines
	Added in v.1.97