Patch title: Release 87 bulk changes
Abstract:
File: /pliant/appli/backup/virtual_tree.page
Key:
    Removed line
    Added line
   
module "engine.pli"
module "display.pli"
module "/pliant/util/encoding/http.pli"

requires "backup"
read_only not allowed:"adminitrator"
  if (virtual_path parse "/area/" any:(var Str aid) "/" any:
module "engine.pli"
module "display.pli"
module "/pliant/util/encoding/http.pli"

requires "backup"
read_only not allowed:"adminitrator"
  if (virtual_path parse "/area/" any:(var Str aid) "/" any:
    var Data:BackupArea a :> backup_database:data:area (http
    var Data:BackupFile f :> a:file (http_decode fid)
    var Data:BackupArea a :> backup_database:data:area http_slash_decode:aid
    var Data:BackupFile f :> a:file http_slash_decode:fid
    backup_display_file a f
  eif (virtual_path parse "/area/" any:(var Str aid))
    backup_display_file a f
  eif (virtual_path parse "/area/" any:(var Str aid))
    var Data:BackupArea a :> backup_database:data:area (http
    var Data:BackupArea a :> backup_database:data:area http_slash_decode:aid
    backup_display_area a
    if not is_read_only
      button "Update"
        goto_backward
  eif (virtual_path parse "/line/" any:(var Str lid))
    backup_display_area a
    if not is_read_only
      button "Update"
        goto_backward
  eif (virtual_path parse "/line/" any:(var Str lid))
    var Data:BackupLine l :> backup_database:data:line (http
    var Data:BackupLine l :> backup_database:data:line http_slash_decode:lid
    backup_display_line l
    if not is_read_only
      button "Update"
        goto_backward
    button "Record files changes" noeol
      l update "modify"
      reload_page
    button "Record files changes and removed" noeol
      l update "modify remove"
      reload_page
    button "Record files changes and deletes" noeol
      para
        [Files that are missing on the disks will be removed
      [Are you sure you want to do that ? ]
      button "yes" noeol
        l update "modify delete"
        goto_backward
      button "no"
        goto_backward
    [ on all involved areas.] ; eol
    button "Engrave a CD" noeol
      var ExtendedStatus status := l engrave ""
      if status=success
        reload_page
      else
        highlight "Failed to engrave CD !" ; eol
        text status:message
    button "Engrave a temporary CD"
      var ExtendedStatus status := l engrave "temporary"
      if status=success
        reload_page
      else
        highlight "Failed to engrave the temporary CD !" ; e
        text status:message
  eif virtual_path="/configure.html"
    cdrom_configure "engraver"
  eif virtual_path="/"
    backup_display
    if not is_read_only
      button "Recompute"
        each l backup_database:data:line
          l compute
        reload_page
    if allowed:"administrator"
      button "Reset failures"
        backup_reset_failures
        reload_page
    backup_display_line l
    if not is_read_only
      button "Update"
        goto_backward
    button "Record files changes" noeol
      l update "modify"
      reload_page
    button "Record files changes and removed" noeol
      l update "modify remove"
      reload_page
    button "Record files changes and deletes" noeol
      para
        [Files that are missing on the disks will be removed
      [Are you sure you want to do that ? ]
      button "yes" noeol
        l update "modify delete"
        goto_backward
      button "no"
        goto_backward
    [ on all involved areas.] ; eol
    button "Engrave a CD" noeol
      var ExtendedStatus status := l engrave ""
      if status=success
        reload_page
      else
        highlight "Failed to engrave CD !" ; eol
        text status:message
    button "Engrave a temporary CD"
      var ExtendedStatus status := l engrave "temporary"
      if status=success
        reload_page
      else
        highlight "Failed to engrave the temporary CD !" ; e
        text status:message
  eif virtual_path="/configure.html"
    cdrom_configure "engraver"
  eif virtual_path="/"
    backup_display
    if not is_read_only
      button "Recompute"
        each l backup_database:data:line
          l compute
        reload_page
    if allowed:"administrator"
      button "Reset failures"
        backup_reset_failures
        reload_page
  else
    reset_http_answer