Return to structuretags.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.192, 2003/06/30 20:30:50 | version 1.193, 2003/07/07 07:32:16 |
---|---|
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='<a href="'.$url.'/smpedit">Edit</a><br />'; | |
} | |
return $result; | |
} | |
sub end_simpleeditbutton { | |
return ''; | |
} | |
1; | 1; |
__END__ | __END__ |