[interchange-cvs] interchange - heins modified lib/Vend/Table/Editor.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Tue Jul 22 00:36:00 EDT 2003


User:      heins
Date:      2003-07-22 03:36:37 GMT
Modified:  lib/Vend/Table Editor.pm
Log:
* Don't focus on meta links when tabbing through form.

Revision  Changes    Path
1.41      +6 -6      interchange/lib/Vend/Table/Editor.pm


rev 1.41, prev_rev 1.40
Index: Editor.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- Editor.pm	21 Jul 2003 17:58:55 -0000	1.40
+++ Editor.pm	22 Jul 2003 03:36:37 -0000	1.41
@@ -1,6 +1,6 @@
 # Vend::Table::Editor - Swiss-army-knife table editor for Interchange
 #
-# $Id: Editor.pm,v 1.40 2003/07/21 17:58:55 mheins Exp $
+# $Id: Editor.pm,v 1.41 2003/07/22 03:36:37 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Table::Editor;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.40 $, 10);
+$VERSION = substr(q$Revision: 1.41 $, 10);
 
 use Vend::Util;
 use Vend::Interpolate;
@@ -3292,7 +3292,7 @@
 												}
 										});
 				$meta_specific = <<EOF;
-<br><a href="$meta_url_specific"$opt->{meta_extra}>$opt->{meta_anchor_specific}</A>
+<br><a href="$meta_url_specific"$opt->{meta_extra} tabindex=9999>$opt->{meta_anchor_specific}</A>
 EOF
 			}
 								
@@ -3302,18 +3302,18 @@
 #::logDebug("meta-title=$opt->{meta_title}");
 				my $title = errmsg($opt->{meta_title}, $t, $c);
 				$meta_string = <<EOF;
-<a href="$meta_url"$opt->{meta_extra}><img src="$opt->{meta_image}" title="$title" $opt->{meta_image_extra}></A></A>
+<a href="$meta_url"$opt->{meta_extra} tabindex=9999><img src="$opt->{meta_image}" title="$title" $opt->{meta_image_extra}></A></A>
 EOF
 				if($meta_specific) {
 					$title = errmsg($opt->{meta_title_specific}, $t, $c, $key);
 					$meta_string .= <<EOF;
-<a href="$meta_url_specific"$opt->{meta_extra}><img src="$opt->{meta_image_specific}" title="$title" $opt->{meta_image_extra}></A>
+<a href="$meta_url_specific"$opt->{meta_extra} tabindex=9999><img src="$opt->{meta_image_specific}" title="$title" $opt->{meta_image_extra}></A>
 EOF
 				}
 			}
 			else {
 				$meta_string = <<EOF;
-$opt->{meta_prepend}<a href="$meta_url"$opt->{meta_extra}>$opt->{meta_anchor}</A>
+$opt->{meta_prepend}<a href="$meta_url"$opt->{meta_extra} tabindex=9999>$opt->{meta_anchor}</A>
 $meta_specific$opt->{meta_append}
 EOF
 			}







More information about the interchange-cvs mailing list