Patch title: Release 90 bulk changes
Abstract:
File: /fullpliant/user.pli
Key:
    Removed line
    Added line
   
abstract
  [Users database definition.]


type User
  field Str first_name name abstract
  field Str email homepage contact
  field Str password_md5
  field Str public_key
  field Str options
  field Str style_options
  field Set:UserRight right
abstract
  [Users database definition.]


type User
  field Str first_name name abstract
  field Str email homepage contact
  field Str password_md5
  field Str public_key
  field Str options
  field Str style_options
  field Set:UserRight right
  field Set:Str template
  field Set:Str mailbox
  field Int uid <- undefined ; field Str computer


function migrate
  each u user
    if u:password_md5<>""
      if not exists:(user_secret_database:data:user keyof:u)
        user_secret_database:data:user create keyof:u
      user_secret_database:data:user:(keyof u) password_md5 
      u password_md5 := ""
migrate
  field Set:Str mailbox
  field Int uid <- undefined ; field Str computer


function migrate
  each u user
    if u:password_md5<>""
      if not exists:(user_secret_database:data:user keyof:u)
        user_secret_database:data:user create keyof:u
      user_secret_database:data:user:(keyof u) password_md5 
      u password_md5 := ""
migrate