Patch title: Release 94 bulk changes
Abstract:
File: /pliant/appli/backup/display.pli
Key:
    Removed line
    Added line
   
module "/pliant/language/unsafe.pli"
module "engine.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"
module "/pliant/util/encoding/http.pli"
module "/pliant/fullpliant/this_computer.pli"



method page backup_display
  arg_rw HtmlPage page
  implicit page
    title "Backups administration"
    link "configure cdrom settings" "configure"
    header "Backup lines"
      table columns 7
        cell header [Line ID]
        cell header [Pending count]
        cell header [Pending MB]
        cell header [Oldest pending]
        cell header [Max failures]
        cell header [Troubles]
        cell void
        each l backup_database:data:line
          cell
            text keyof:l
          cell
            if l:pending_nb>0
              text (string l:pending_nb)
          cell
            if l:pending_size>0
              text (string l:pending_size\2^20)+" MB"
          cell
            if l:pending_oldest=defined
              text (string l:pending_oldest)
          if l:max_failures>0
            cell color (color hsl 0 10 70)
              text (string l:max_failures)
          else
            cell void
          cell
            if l:lost_nb+l:corrupted_nb>0
              highlight (shunt l:lost_nb>0 "lost" "")+" "+(s
           cell
            link "edit" "line/"+(http_slash_encode keyof:l) 
      if not is_read_only
        input "Line ID: " (var Str lid) noeol
        button "Create the new line" noeol
          backup_database:data:line create lid
          reload_page
        button "Delete the line"
          backup_database:data:line delete lid
          reload_page
    header "Backup areas"
      table columns 5
        cell header [Area ID]
        cell header [Size]
        cell header [Max failures]
        cell header [Troubles]
        cell void
        each a backup_database:data:area
          cell
            text keyof:a
          cell
            text (string a:total_size\2^20)+" MB"
          var Int max_failures := 0
          each l2 a:line
            max_failures := max max_failures l2:max_failures
          if max_failures>0
            cell color (color hsl 0 10 70)
              text string:max_failures
          else
            cell void
          cell
            if a:lost_nb+a:corrupted_nb>0
              highlight (shunt a:lost_nb>0 "lost" "")+" "+(s
          cell
module "/pliant/language/unsafe.pli"
module "engine.pli"
module "/pliant/protocol/http/server.pli"
module "/pliant/protocol/http/style/default.style"
module "/pliant/util/encoding/http.pli"
module "/pliant/fullpliant/this_computer.pli"



method page backup_display
  arg_rw HtmlPage page
  implicit page
    title "Backups administration"
    link "configure cdrom settings" "configure"
    header "Backup lines"
      table columns 7
        cell header [Line ID]
        cell header [Pending count]
        cell header [Pending MB]
        cell header [Oldest pending]
        cell header [Max failures]
        cell header [Troubles]
        cell void
        each l backup_database:data:line
          cell
            text keyof:l
          cell
            if l:pending_nb>0
              text (string l:pending_nb)
          cell
            if l:pending_size>0
              text (string l:pending_size\2^20)+" MB"
          cell
            if l:pending_oldest=defined
              text (string l:pending_oldest)
          if l:max_failures>0
            cell color (color hsl 0 10 70)
              text (string l:max_failures)
          else
            cell void
          cell
            if l:lost_nb+l:corrupted_nb>0
              highlight (shunt l:lost_nb>0 "lost" "")+" "+(s
           cell
            link "edit" "line/"+(http_slash_encode keyof:l) 
      if not is_read_only
        input "Line ID: " (var Str lid) noeol
        button "Create the new line" noeol
          backup_database:data:line create lid
          reload_page
        button "Delete the line"
          backup_database:data:line delete lid
          reload_page
    header "Backup areas"
      table columns 5
        cell header [Area ID]
        cell header [Size]
        cell header [Max failures]
        cell header [Troubles]
        cell void
        each a backup_database:data:area
          cell
            text keyof:a
          cell
            text (string a:total_size\2^20)+" MB"
          var Int max_failures := 0
          each l2 a:line
            max_failures := max max_failures l2:max_failures
          if max_failures>0
            cell color (color hsl 0 10 70)
              text string:max_failures
          else
            cell void
          cell
            if a:lost_nb+a:corrupted_nb>0
              highlight (shunt a:lost_nb>0 "lost" "")+" "+(s
          cell
            link "edit" "area/"+(http_slash_encode keyof:a) 
            link "edit" "area/"+(http_slash_encode keyof:a) relative no_extension
      if not is_read_only
        input "Area ID: " (var Str aid) noeol
        button "Create the new area" noeol
          backup_database:data:area create aid
          reload_page
        button "Delete the area"
          backup_database:data:area delete aid
          each l backup_database:data:line
            l compute
          reload_page



      if not is_read_only
        input "Area ID: " (var Str aid) noeol
        button "Create the new area" noeol
          backup_database:data:area create aid
          reload_page
        button "Delete the area"
          backup_database:data:area delete aid
          each l backup_database:data:line
            l compute
          reload_page