xowf::test_item::Answer_manager method pretty_period (protected)

 <instance of xowf::test_item::Answer_manager> pretty_period \
    [ -dayfmt dayfmt ] [ -timefmt timefmt ] from to

Defined in packages/xowf/tcl/test-item-procs.tcl

Switches:

-dayfmt

(defaults to "%q") (optional)

-timefmt

(defaults to "%H:%M") (optional)

Parameters:

from
to

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

set from_day [lc_time_fmt $from $dayfmt]
set from_time [lc_time_fmt $from $timefmt]
if {$to ne ""} {
  set to_day [lc_time_fmt $to $dayfmt]
  set to_time [lc_time_fmt $to $timefmt]
} else {
  set to_day ""
  set to_time ""
}
if {$to_day eq ""} {
  set period "$from_day, $from_time -"
} elseif {$from_day eq $to_day} {
  set period "$from_day, $from_time - $to_time"
} else {
  set period "$from_day, $from_time - $to_day, $to_time"
}
return $period

XQL Not present:

Generic, PostgreSQL, Oracle