如何在Typoscript中获取下一周的星期一的日期？

# 获取当前日期
currentDate = TEXT
currentDate.data = date:U

# 计算下一周的星期一的日期
nextMonday = COA_INT
nextMonday {
  10 = TEXT
  10 {
    # 获取当前星期几（0代表星期日，1代表星期一，以此类推）
    data = {currentDate:strftime(%w)}
    wrap = |+1
    intval = 1
  }
  20 = TEXT
  20 {
    # 获取当前日期的年份
    data = {currentDate:strftime(%Y)}
    wrap = |-
  }
  30 = TEXT
  30 {
    # 获取当前日期的月份
    data = {currentDate:strftime(%m)}
    wrap = |-
  }
  40 = TEXT
  40 {
    # 获取当前日期的日期
    data = {currentDate:strftime(%d)}
    wrap = |+7
    intval = 7
  }
  50 = TEXT
  50 {
    # 格式化日期为YYYY-MM-DD
    data = date:U
    strftime = %Y-%m-%d
  }
}

# 输出下一周的星期一的日期
page.10 = TEXT
page.10.data = register:nextMonday