loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.216, 2003/10/13 21:09:47	version 1.220, 2003/11/01 16:37:21
Line 1115 sub end_startouttext {	Line 1115 sub end_startouttext {
&Apache::edit::editfield($token->[1],$text,"",80,4);	&Apache::edit::editfield($token->[1],$text,"",80,4);
}	}
if ($target eq 'modified') {	if ($target eq 'modified') {
$text=&Apache::lonxml::get_all_text("endouttext",$parser);	$result='<startouttext />'.&Apache::edit::modifiedfield("endouttext",$parser);
$result='<startouttext />'.&Apache::edit::modifiedfield();
}	}
if ($target eq 'tex') {	if ($target eq 'tex') {
$result .= '\noindent ';	$result .= '\noindent ';
Line 1160 sub start_simpleeditbutton {	Line 1159 sub start_simpleeditbutton {
my $result='';	my $result='';
if (($target eq 'web') &&	if (($target eq 'web') &&
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
my $url=$ENV{'REQUEST_URI'};	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('Simple Problem Editor').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').