loncom/interface/lonmodifycourse.pm - diff

Return to lonmodifycourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.65, 2013/12/24 19:15:11	version 1.66, 2014/01/15 18:47:56
Line 996 sub modify_course {	Line 996 sub modify_course {
$reply = '<h3>'.$mainheader.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'."\n".	$reply = '<h3>'.$mainheader.' <span class="LC_nobreak">'.$cdesc.'</span></h3>'."\n".
'<p>'.$reply.'</p>'."\n".	'<p>'.$reply.'</p>'."\n".
'<form action="/adm/modifycourse" method="post" name="processparms">'.	'<form action="/adm/modifycourse" method="post" name="processparms">'.
&hidden_form_elements().	&hidden_form_elements();
'<a href="javascript:changePage(document.processparms,'."'menu'".')">'.	my @actions =
&mt('Pick another action').'</a>';	('<a href="javascript:changePage(document.processparms,'."'menu'".')">'.
	&mt('Pick another action').'</a>');
if ($numwarnings) {	if ($numwarnings) {
my $newrole = $ccrole.'./'.$cdom.'/'.$cnum;	my $newrole = $ccrole.'./'.$cdom.'/'.$cnum;
my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole.	my $escuri = &HTML::Entities::encode('/adm/roles?selectrole=1&'.$newrole.
'=1&destinationurl=/adm/populate','&<>"');	'=1&destinationurl=/adm/populate','&<>"');

$reply .= '<br /><a href="'.$escuri.'">'.	push(@actions, '<a href="'.$escuri.'">'.
&mt('Go to Automated Enrollment Manager for course').'</a>';	&mt('Go to Automated Enrollment Manager for course').'</a>');
}	}
$reply .= '</form>';	$reply .= &Apache::lonhtmlcommon::actionbox(\@actions).'</form>';
$r->print($reply);	$r->print($reply);
return;	return;
}	}