[hcoop-cvs] portal/app app.sml,1.16,1.17

[Adam C. <ad...@us...>]

Update of /cvsroot/hcoop/portal/app
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv22287/app

Modified Files:
	app.sml 
Log Message:
Join script should rule out retired usernames

Index: app.sml
===================================================================
RCS file: /cvsroot/hcoop/portal/app/app.sml,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** app.sml	22 Feb 2008 00:59:15 -0000	1.16
--- app.sml	2 Feb 2010 13:19:21 -0000	1.17
***************
*** 177,181 ****
  
  fun userExists name =
!     (Posix.SysDB.getpwnam name; true) handle OS.SysErr _ => false
  
  fun confirm (id, passwd) =
--- 177,183 ----
  
  fun userExists name =
!     case C.oneOrNoRows (getDb ()) ($`SELECT id FROM WebUser WHERE name = ^(C.stringToSql name)`) of
! 	SOME _ => true
!       | NONE => (Posix.SysDB.getpwnam name; true) handle OS.SysErr _ => false
  
  fun confirm (id, passwd) =