Add new site search widget to the home page.
Patch by denise.
diffs (69 lines):
diff -r abc7f70e22fd -r c1ab80df65e0 bin/upgrading/en.dat
--- a/bin/upgrading/en.dat Mon Oct 26 02:03:20 2009 +0000
+++ b/bin/upgrading/en.dat Mon Oct 26 02:07:27 2009 +0000
@@ -4739,6 +4739,10 @@ widget.shopitemoptions.price.seed=Foreve
widget.sitemessages.title=[[sitename]] Plugs In
+widget.sitesearch.desc=Search for entries containing:
+
+widget.sitesearch.title=Search [[sitename]]
+
widget.support.submit.button=Submit Request
widget.support.submit.captcha=Prove You're Human
diff -r abc7f70e22fd -r c1ab80df65e0 cgi-bin/DW/Panel.pm
--- a/cgi-bin/DW/Panel.pm Mon Oct 26 02:03:20 2009 +0000
+++ b/cgi-bin/DW/Panel.pm Mon Oct 26 02:07:27 2009 +0000
@@ -59,6 +59,7 @@ sub init {
];
$ret->{secondary} = [
+ "DW::Widget::SiteSearch",
"DW::Widget::ReadingList",
"LJ::Widget::FriendBirthdays",
"DW::Widget::AccountStatistics",
diff -r abc7f70e22fd -r c1ab80df65e0 cgi-bin/DW/Widget/SiteSearch.pm
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/cgi-bin/DW/Widget/SiteSearch.pm Mon Oct 26 02:07:27 2009 +0000
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+#
+# DW::Widget::SiteSearch
+#
+# Simple site-search module (global search only).
+#
+# Authors:
+# Denise Paolucci <[email protected]>
+#
+# Copyright (c) 2009 by Dreamwidth Studios, LLC.
+#
+# This program is free software; you may redistribute it and/or modify it under
+# the same terms as Perl itself. For a copy of the license, please reference
+# 'perldoc perlartistic' or 'perldoc perlgpl'.
+#
+
+package DW::Widget::SiteSearch;
+
+use strict;
+use base qw/ LJ::Widget /;
+
+sub render_body {
+
+ my ( $class, %opts ) = @_;
+
+ my $remote = LJ::get_remote()
+ or return;
+
+ my $ret = "<h2>" . $class->ml( 'widget.sitesearch.title', { sitename =>
$LJ::SITENAMESHORT } ) . "</h2>";
+ $ret .= "<p>" . $class->ml( 'widget.sitesearch.desc' ) . "</p>";
+
+ $ret .= "<form method='post' action='$LJ::SITEROOT/search'>" .
LJ::form_auth();
+ $ret .= "<input type='text' name='query' maxlength='255' size='30'>";
+ $ret .= "<input type='submit' value='Search'></form>";
+
+ return $ret;
+
+};
+
+1;
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
