changeset 0:4c6479bbf7f1 default tip

Initial import
author Radomir Dopieralski <devel@sheep.art.pl>
date Thu, 19 Jun 2008 00:41:45 +0200
parents
children
files edit_button.pl
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/edit_button.pl	Thu Jun 19 00:41:45 2008 +0200
@@ -0,0 +1,8 @@
+push(@MyInitVariables, \&EditButtonAdd);
+
+sub EditButtonAdd {
+    my $edit_url = $ScriptName . '?action=edit;id=' . UrlEncode(GetId());
+    $HtmlHeaders .= '<link rel="alternate" type="application/wiki"' .
+                    'title="Edit this page!" href="' . $edit_url . '"/>';
+}
+