From 3d733a1a9382552c0ca244ead3920236608be1c6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 11 Feb 2010 19:15:01 -0800
Subject: [PATCH] Add subtext to list of form fields that will do i18n lookups.

---
 lib/WebGUI/Definition/Role/Object.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Definition/Role/Object.pm b/lib/WebGUI/Definition/Role/Object.pm
index 057961d47..cd465cbf3 100644
--- a/lib/WebGUI/Definition/Role/Object.pm
+++ b/lib/WebGUI/Definition/Role/Object.pm
@@ -138,7 +138,7 @@ sub getFormProperties {
     my $form     = $property->form;
     PROPERTY: while (my ($property_name, $property_value) = each %{ $form }) {
         next PROPERTY unless ref $property_value;
-        if (($property_name eq 'label' || $property_name eq 'hoverHelp') and ref $property_value eq 'ARRAY') {
+        if (($property_name eq 'label' || $property_name eq 'hoverHelp' || $property_name eq 'subtext') and ref $property_value eq 'ARRAY') {
             $form->{$property_name} = WebGUI::International->new($self->session)->get(@{$property_value});
         }
         elsif (ref $property_value eq 'CODE') {