Patch title: Release 86 bulk changes
Abstract:
File: /pliant/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"


para
  note "Users database client and server global settings for
    read_only not allowed:"administrator"
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"


para
  note "Users database client and server global settings for
    read_only not allowed:"administrator"
    title "This computer users databse settings"
    title "This computer users database settings"
    table columns 1
      cell header [Users database server computers]
      each s this_computer:env:"pliant":"password"
        if (keyof:s parse "server" any)
          cell
            text s
    table columns 1
      cell header [Users database client computers]
      each c this_computer:env:"pliant":"password"
        if (keyof:c parse "client" any)
          cell
            text c
    table columns 1
      cell header [Users database server computers]
      each s this_computer:env:"pliant":"password"
        if (keyof:s parse "server" any)
          cell
            text s
    table columns 1
      cell header [Users database client computers]
      each c this_computer:env:"pliant":"password"
        if (keyof:c parse "client" any)
          cell
            text c
    input "Computer name: " (var Str name) noeol
    button "Add server" noeol
      var Int num := 1
      while exists:(this_computer:env:"pliant":"password" "s
        num += 1
      this_computer "pliant" "password" "server"+string:num 
      reload_page
    button "Remove server" noeol
      each s this_computer:env:"pliant":"password"
        if (keyof:s parse "server" any) and s=name
          this_computer:env:"pliant":"password" delete keyof
      reload_page
    button "Add client" noeol
      var Int num := 1
      while exists:(this_computer:env:"pliant":"password" "c
        num += 1
      this_computer "pliant" "password" "client"+string:num 
      reload_page
    button "Remove client"
      each c this_computer:env:"pliant":"password"
        if (keyof:c parse "client" any) and c=name
          this_computer:env:"pliant":"password" delete keyof
      reload_page
    if allowed:"administrator"
      input "Computer name: " (var Str name) noeol
      button "Add server" noeol
        var Int num := 1
        while exists:(this_computer:env:"pliant":"password" "server"+string:num)
          num += 1
        this_computer "pliant" "password" "server"+string:num := name
        reload_page
      button "Remove server" noeol
        each s this_computer:env:"pliant":"password"
          if (keyof:s parse "server" any) and s=name
            this_computer:env:"pliant":"password" delete keyof:s
        reload_page
      button "Add client" noeol
        var Int num := 1
        while exists:(this_computer:env:"pliant":"password" "client"+string:num)
          num += 1
        this_computer "pliant" "password" "client"+string:num := name
        reload_page
      button "Remove client"
        each c this_computer:env:"pliant":"password"
          if (keyof:c parse "client" any) and c=name
            this_computer:env:"pliant":"password" delete keyof:c
        reload_page
    para
      [The rule is fairly simple: when a change is applied o
      [Changes to accounts with 'administrator' right are no



    para
      [The rule is fairly simple: when a change is applied o
      [Changes to accounts with 'administrator' right are no