Patch title: Release 91 bulk changes
Abstract:
File: /appli/calendar/index.page
Key:
    Removed line
    Added line
   
module "database.pli"


module "database.pli"


method d iso_week -> w
  arg Date d ; arg Int w
  var Date sunday0 := date d:year 1 3 ; sunday0 days -= sunday0 day_of_week
  w := (d:days+6-sunday0:days)\7
  if w=0
    w := 53
  eif w=53 and { (var Date d2) days := d:days+7 ; d2:iso_week=2 }
    w := 1


method d text_month -> m
  arg Date d ; arg Str m
  var Array:Str monthes
  monthes += "january"
  monthes += "february"
  monthes += "march"
  monthes += "april"
  monthes += "may"
  monthes += "june"
  monthes += "july"
  monthes += "august"
  monthes += "september"
  monthes += "october"
  monthes += "november"
  monthes += "december"
  m := monthes d:month-1


       
method d text_month -> m
  arg Date d ; arg Str m
  var Array:Str monthes
  monthes += "january"
  monthes += "february"
  monthes += "march"
  monthes += "april"
  monthes += "may"
  monthes += "june"
  monthes += "july"
  monthes += "august"
  monthes += "september"
  monthes += "october"
  monthes += "november"
  monthes += "december"
  m := monthes d:month-1


       
title user_name+" diary"


var Date today := datetime date

var Date date := today ; date days += 1-date:day_of_week
title user_name+" diary for week "+(string date:iso_week)

para


para


var Date date := datetime date ; date days -= date day_of_we
var Date date := today ; date days -= date day_of_week
display_calendar calendar_database:data:user:user_name:event
  
para

  var Date date := datetime date ; date days -= date day_of_
  select "" (var Str futur) noeol
    for (var Int i) 1 51
      date days += 7
      var Date until := date ; until days += 6
display_calendar calendar_database:data:user:user_name:event
  
para

  var Date date := datetime date ; date days -= date day_of_
  select "" (var Str futur) noeol
    for (var Int i) 1 51
      date days += 7
      var Date until := date ; until days += 6
      option date:text_month+" "+(string date:day)+" to "+(s
      option date:text_month+" "+(string date:day)+" to "+(shunt until:month<>date:month until:text_month+" " "")+(string until:day)+" (week "+(string until:iso_week)+")" string:date
  page button "display futur week"
  page button "display futur week"
    title user_name+" diary"
    futur parse (var Date d) ; d days += 1
    title user_name+" diary for week "+(string d:iso_week)
    display_calendar calendar_database:data:user:user_name:e
  
  var Date date := datetime date ; date days -= date day_of_
  select "" (var Str past) noeol
    for (var Int i) 1 51
      date days -= 7
      var Date until := date ; until days += 6
    display_calendar calendar_database:data:user:user_name:e
  
  var Date date := datetime date ; date days -= date day_of_
  select "" (var Str past) noeol
    for (var Int i) 1 51
      date days -= 7
      var Date until := date ; until days += 6
      option (string date:year)+" "+date:text_month+" "+(str
      option (string date:year)+" "+date:text_month+" "+(string date:day)+" to "+(shunt until:month<>date:month until:text_month+" " "")+(string until:day)+" (week "+(string until:iso_week)+")" string:date
  page button "display past week"
  page button "display past week"
    title user_name+" diary"
    past parse (var Date d) ; d days += 1
    title user_name+" diary for week "+(string d:iso_week)
    display_calendar calendar_database:data:user:user_name:h
    display_calendar calendar_database:data:user:user_name:h