new

2004-02-20 13:28:54 +00:00
parent 5b6ba79772
commit fdb0edfadd
1 changed files with 39 additions and 0 deletions
--- a/modules/doubleclick.pl
+++ b/modules/doubleclick.pl
@@ -0,0 +1,39 @@
+# Copyright (C) 2004  Alex Schroeder <alex@emacswiki.org>
+#               2004  Niklas Volbers <mithrandir42@web.de>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the
+#    Free Software Foundation, Inc.
+#    59 Temple Place, Suite 330
+#    Boston, MA 02111-1307 USA
+
+# This module offers the user the additional possibility to
+# edit a page by double-clicking on it. The user must have
+# JavaScript enabled for this to work.
+
+$ModulesDescription .= '<p>$Id: doubleclick.pl,v 1.1 2004/02/20 13:28:54 as Exp $</p>';
+
+*OldDoubleclickGetHeader = *GetHeader;
+*GetHeader = NewDoubleclickGetHeader;
+
+sub NewDoubleclickGetHeader {
+    my $id = shift;
+    my $html = OldDoubleclickGetHeader($id, @_);
+    my $action = lc(GetParam('action', 'browse'));
+    if (($action eq 'browse') and $id) {
+        my $ondblclick="ondblclick=\"location.href='"
+	    . $ScriptName . "?action=edit;id=" . $id . "'\"";
+        $html =~ s/\<body /\<body $ondblclick /;
+    }
+    return $html;
+}