[interchange-cvs] interchange - racke modified 4 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Aug 10 08:05:35 EDT 2007
User: racke
Date: 2007-08-10 12:05:35 GMT
Modified: . WHATSNEW-5.5
Modified: dist/standard/pages/member account.html
Modified: lib/Vend Form.pm
Modified: lib/Vend/Table Editor.pm
Log:
Pass applylocale option into Vend::Form::options_to_array in order to
localize option labels (#80).
Revision Changes Path
1.54 +3 -0 interchange/WHATSNEW-5.5
rev 1.54, prev_rev 1.53
Index: WHATSNEW-5.5
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW-5.5,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- WHATSNEW-5.5 10 Aug 2007 11:14:34 -0000 1.53
+++ WHATSNEW-5.5 10 Aug 2007 12:05:34 -0000 1.54
@@ -117,6 +117,9 @@
* Pass $opt to labeled_list fixing behaviour of fly-list to be matching other
x-list tags (#89).
+* Pass applylocale option into Vend::Form::options_to_array in order to
+ localize option labels (#80).
+
UserDB
------
1.9 +1 -1 interchange/dist/standard/pages/member/account.html
rev 1.9, prev_rev 1.8
Index: account.html
===================================================================
RCS file: /var/cvs/interchange/dist/standard/pages/member/account.html,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- account.html 1 Feb 2007 16:37:47 -0000 1.8
+++ account.html 10 Aug 2007 12:05:34 -0000 1.9
@@ -226,7 +226,7 @@
</tr>
<tr class="contentbar1">
<td align=center colspan=2>
- [display table=userdb type=multiple column=mail_list key="[data session username]"]
+ [display table=userdb type=multiple column=mail_list key="[data session username]" applylocale=1]
</td>
<td colspan=2>
[L]Put me on these mail lists (if any)[/L]
2.71 +10 -4 interchange/lib/Vend/Form.pm
rev 2.71, prev_rev 2.70
Index: Form.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Form.pm,v
retrieving revision 2.70
retrieving revision 2.71
diff -u -r2.70 -r2.71
--- Form.pm 9 Aug 2007 13:40:53 -0000 2.70
+++ Form.pm 10 Aug 2007 12:05:34 -0000 2.71
@@ -1,6 +1,6 @@
# Vend::Form - Generate Form widgets
#
-# $Id: Form.pm,v 2.70 2007/08/09 13:40:53 pajamian Exp $
+# $Id: Form.pm,v 2.71 2007/08/10 12:05:34 racke Exp $
#
# Copyright (C) 2002-2007 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -39,7 +39,7 @@
require Exporter;
@ISA = qw(Exporter);
-$VERSION = substr(q$Revision: 2.70 $, 10);
+$VERSION = substr(q$Revision: 2.71 $, 10);
@EXPORT = qw (
display
@@ -1035,7 +1035,6 @@
for(@$passed) {
push @out, [split /\s*=\s*/, HTML::Entities::decode($_), 2];
}
- return \@out;
}
elsif (ref $passed eq 'HASH') {
my @keys;
@@ -1060,11 +1059,18 @@
for(@keys) {
push @out, [$_, $passed->{$_}];
}
- return \@out;
}
else {
die "bad data type to options_to_array";
}
+
+ if ($opt->{applylocale}) {
+ for (@out) {
+ $_->[1] = errmsg($_->[1]);
+ }
+ }
+
+ return \@out;
}
sub display {
1.87 +3 -2 interchange/lib/Vend/Table/Editor.pm
rev 1.87, prev_rev 1.86
Index: Editor.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Editor.pm,v
retrieving revision 1.86
retrieving revision 1.87
diff -u -r1.86 -r1.87
--- Editor.pm 9 Aug 2007 13:40:56 -0000 1.86
+++ Editor.pm 10 Aug 2007 12:05:35 -0000 1.87
@@ -1,6 +1,6 @@
# Vend::Table::Editor - Swiss-army-knife table editor for Interchange
#
-# $Id: Editor.pm,v 1.86 2007/08/09 13:40:56 pajamian Exp $
+# $Id: Editor.pm,v 1.87 2007/08/10 12:05:35 racke Exp $
#
# Copyright (C) 2002-2007 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.86 $, 10);
+$VERSION = substr(q$Revision: 1.87 $, 10);
use Vend::Util;
use Vend::Interpolate;
@@ -947,6 +947,7 @@
passed => $record->{options},
rows => $opt->{rows} || $record->{height},
value => $opt->{value},
+ applylocale => $opt->{applylocale},
);
while( my ($k, $v) = each %things) {
More information about the interchange-cvs
mailing list