loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.62, 2011/01/24 00:59:50	version 1.64, 2012/08/14 15:45:06
Line 3333 sub print_request_outcome {	Line 3333 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 3489 sub print_request_outcome {	Line 3490 sub print_request_outcome {
}	}
($storeresult,my $updateresult) =	($storeresult,my $updateresult) =
&Apache::loncoursequeueadmin::update_coursereq_status(\%reqhash,$dom,	&Apache::loncoursequeueadmin::update_coursereq_status(\%reqhash,$dom,
$cnum,$reqstatus,'request');	$cnum,$reqstatus,'request',$env{'user.domain'},$env{'user.name'});
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>';