From 6c48fb7c191064fc5cbcf8d7514c29ad614c531b Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Tue, 20 Feb 2007 00:22:51 +0000
Subject: [PATCH] (DoCategories): Use tabindex=1 for the title field,
 tabindex=2 for the tags field, and tabindex=3 for the submit button.

---
 modules/weblog-4.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/modules/weblog-4.pl b/modules/weblog-4.pl
index 170b807f..8486f299 100644
--- a/modules/weblog-4.pl
+++ b/modules/weblog-4.pl
@@ -16,7 +16,7 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: weblog-4.pl,v 1.10 2007/02/20 00:14:30 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: weblog-4.pl,v 1.11 2007/02/20 00:22:51 as Exp $</p>';
 
 push(@MyInitVariables, sub {
        $SearchFreeTextTagUrl = $ScriptName . '?action=browse;tag=1;id=';
@@ -62,11 +62,13 @@ sub DoCategories {
       GetFormStart(undef, 'get', 'cat');
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime();
     my $today = sprintf("%d-%02d-%02d", $year + 1900, $mon + 1, $mday);
+    my $go = T('Go!');
     print $q->p(T('Title: '),
 		qq{<input type="text" name="id" value="$today" tabindex="1" />},
 		GetHiddenValue('action', 'new'));
-    print $q->p(T('Tags: '), $q->textfield('tags'));
-    print $q->p($q->submit(T('Go!')));
+    print $q->p(T('Tags: '),
+		qq{<input type="text" name="tags" tabindex="2" />});
+    print $q->p(qq{<input type="submit" name="$go" tabindex="3" />}));
     print $q->end_form, $q->end_div();
     PrintFooter();
   }