[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