![[BACK]](/icons/back.gif){kind=icon}
Return to structuretags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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__ |