Patch title: Release 90 bulk changes
Abstract:
File: /fullpliant/user.page
Key:
    Removed line
    Added line
   
module "/pliant/language/stream.pli"
module "/pliant/admin/md5.pli"
module "/pliant/util/crypto/rsa.pli"
module "/pliant/util/crypto/legal.pli"
module "user.pli"
module "this_computer.pli"
module "login.pli"
module "/pliant/language/context.pli"


module "/pliant/language/stream.pli"
module "/pliant/admin/md5.pli"
module "/pliant/util/crypto/rsa.pli"
module "/pliant/util/crypto/legal.pli"
module "user.pli"
module "this_computer.pli"
module "login.pli"
module "/pliant/language/context.pli"


        [Add all the rights defined in some template accounts:]
        table columns 2
          cell header [Line ID]
          cell header [Template account]
          each t u:template
            cell
              text keyof:t
            cell
              input "" t length 30
        if allowed:"administrator"
          input "Line ID: " (var Str tid) length 10 noeol
          button "Add a line" noeol
            u:template create tid
            reload_page
          button "Remove a line"
            u:template delete tid
            reload_page
  
        [The following table enables you to assign maiboxes 
        table columns 2
          cell header [Line ID]
          cell header [Mailbox]
          each m u:mailbox
            cell
              text keyof:m
            cell
              input "" m length 30
        if allowed:"administrator"
          input "Line ID: " (var Str mid) length 10 noeol
          button "Add a line" noeol
            u:mailbox create mid
            reload_page
          button "Remove a line"
            u:mailbox delete mid
            reload_page
  
          para
            page button "Update user informations"
              if password<>""
                user_secret_database:data:user create id
                user_secret_database:data:user:id password_m
              var CBool ok := true
              each c this_computer:env:"pliant":"password"
                if (keyof:c parse "client" any) and c<>compu
                  if (user_update id u:first_name u:name u:a
                    text "Failed to forward changes to serve
                    ok := false
              if ok
                goto_backward
          para
            var Int dc := 7
            button "Display '"+id+"' log history" noeol
              title (string dc)+" days history for '"+id+"' 
              detailed_history id dc
            input " on " dc length 2 noeol ; [ days]


        [The following table enables you to assign maiboxes 
        table columns 2
          cell header [Line ID]
          cell header [Mailbox]
          each m u:mailbox
            cell
              text keyof:m
            cell
              input "" m length 30
        if allowed:"administrator"
          input "Line ID: " (var Str mid) length 10 noeol
          button "Add a line" noeol
            u:mailbox create mid
            reload_page
          button "Remove a line"
            u:mailbox delete mid
            reload_page
  
          para
            page button "Update user informations"
              if password<>""
                user_secret_database:data:user create id
                user_secret_database:data:user:id password_m
              var CBool ok := true
              each c this_computer:env:"pliant":"password"
                if (keyof:c parse "client" any) and c<>compu
                  if (user_update id u:first_name u:name u:a
                    text "Failed to forward changes to serve
                    ok := false
              if ok
                goto_backward
          para
            var Int dc := 7
            button "Display '"+id+"' log history" noeol
              title (string dc)+" days history for '"+id+"' 
              detailed_history id dc
            input " on " dc length 2 noeol ; [ days]