![]() ![]() | ![]() |
version 1.192, 2003/06/30 20:30:50 | version 1.194, 2003/07/10 06:17:41 |
---|---|
Line 38 use Apache::File(); | Line 38 use Apache::File(); |
use Apache::lonmenu; | use Apache::lonmenu; |
BEGIN { | BEGIN { |
&Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext')); | &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','startouttext','endouttext', |
'simpleeditbutton')); | |
} | } |
sub start_web { | sub start_web { |
Line 1082 sub delete_startouttext { | Line 1083 sub delete_startouttext { |
return 1; | return 1; |
} | } |
sub start_simpleeditbutton { | |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; | |
my $result=''; | |
if (($target eq 'web') && | |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { | |
my $url=$ENV{'REQUEST_URI'}; | |
$url=~s/\?.*$//; | |
$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'. | |
'<a href="'.$url.'/smpedit">Simple Problem Editor</a> - Note: it can take up to 10 minutes for changes to take effect for all users.</td></tr></table><br />'; | |
} | |
return $result; | |
} | |
sub end_simpleeditbutton { | |
return ''; | |
} | |
1; | 1; |
__END__ | __END__ |