From bfd2f7ed595285c2f908089fc78cac8372df522d Mon Sep 17 00:00:00 2001
From: Lucas Bartholemy <lbartholemy@webgui-svn>
Date: Wed, 28 Jun 2006 13:50:37 +0000
Subject: [PATCH] fixed typo + better language checking

---
 lib/WebGUI/International.pm     | 2 +-
 lib/WebGUI/Operation/Profile.pm | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/International.pm b/lib/WebGUI/International.pm
index 8ee0ba9b3..b3b210332 100644
--- a/lib/WebGUI/International.pm
+++ b/lib/WebGUI/International.pm
@@ -32,7 +32,7 @@ This package provides an interface to the internationalization system.
  use WebGUI::International;
  $string = WebGUI::International::get($session,$internationalId,$namespace);
  $hashRef = WebGUI::International::getLanguage($session,$lang);
- $hashRef = WebGUI::International::getLanguages($session,);
+ $hashRef = WebGUI::International::getLanguages($session);
  $url = WebGUI::International::makeUrlCompliant($session,$url);
 
 This package can also be used in object-oriented (OO) style.
diff --git a/lib/WebGUI/Operation/Profile.pm b/lib/WebGUI/Operation/Profile.pm
index c04ee5ea5..1208862db 100644
--- a/lib/WebGUI/Operation/Profile.pm
+++ b/lib/WebGUI/Operation/Profile.pm
@@ -150,6 +150,11 @@ sub validateProfileData {
 		} elsif ($field->getId eq "email" && isDuplicateEmail($session,$data{$field->getId})) {
 			$warning .= '<li>'.$i18n->get(1072).'</li>';
 		}
+		if ($field->getId eq "language") {
+			unless (exists WebGUI::International->new($session)->getLanguages($session)->{$fieldValue}) {
+				$error .= '<li>'.$field->getLabel.' '.$i18n->get(451).'</li>';
+			}
+		}
 	}
 	return (\%data, $error, $warning);
 }