loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.272, 2004/11/11 23:45:35	version 1.273, 2004/11/30 23:28:57
Line 1363 sub delete_startouttext {	Line 1363 sub delete_startouttext {
sub start_simpleeditbutton {	sub start_simpleeditbutton {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result='';	my $result='';
if (($target eq 'web') &&	if (($ENV{'form.simple_edit_button'} ne 'off') &&
	($target eq 'web') &&
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
my $url=$ENV{'request.noversionuri'};	my $url=$ENV{'request.noversionuri'};
$url=~s/\?.*$//;	$url=~s/\?.*$//;
$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.	$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
'<a href="'.$url.'/smpedit">'.&mt('Simple Problem Editor').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').	'<a href="'.$url.'/smpedit">'.&mt('Edit').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
&Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />';	&Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />';
}	}
return $result;	return $result;