archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(DoCategories): Use tabindex=1 for the title

Browse Source 
field, tabindex=2 for the tags field, and tabindex=3 for the
submit button.
This commit is contained in:
Alex Schroeder
2007-02-20 00:22:51 +00:00
parent 1a5c73b3d6
commit 6c48fb7c19
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
modules/weblog-4.pl
View File

@@ -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();
}