Monotone-Parent: 7c43b14e9157686aa029894c48c4f5e4292832f7

Monotone-Revision: 9532f8c1461cc8a7c94898afe1a065fc1c66f2cd

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2008-05-22T15:56:18
Monotone-Branch: ca.inverse.sogo

UI/MainUI/SOGoRootPage.m

@@ -20,6 +20,7 @@
 */
 
 #import <Foundation/NSException.h>
+#import <Foundation/NSUserDefaults.h>
 
 #import <NGObjWeb/WOApplication.h>
 #import <NGObjWeb/WOContext.h>
@@ -141,4 +142,18 @@
   return nil;
 }
 
+- (NSString *) loginSuffix
+{
+  NSUserDefaults *ud;
+
+  ud = [NSUserDefaults standardUserDefaults];
+
+  return [ud stringForKey: @"SOGoLoginSuffix"];
+}
+
+- (BOOL) hasLoginSuffix
+{
+  return ([[self loginSuffix] length]);
+}
+
 @end /* SOGoRootPage */