| … | |
… | |
| 39 | if ($_[0] > $low) { |
39 | if ($_[0] > $low) { |
| 40 | util::format_time $_[0] - $low; |
40 | util::format_time $_[0] - $low; |
| 41 | } else { |
41 | } else { |
| 42 | sprintf "%s (%d)", |
42 | sprintf "%s (%d)", |
| 43 | util::format_time int (($_[0] - 1) % $interval + 1), |
43 | util::format_time int (($_[0] - 1) % $interval + 1), |
| 44 | $_[0] / $interval; |
44 | ($_[0] - 1) / $interval; |
| 45 | } |
45 | } |
| 46 | }; |
46 | }; |
| 47 | |
47 | |
| 48 | } elsif ($timesys == TIMESYS_CANADIAN) { |
48 | } elsif ($timesys == TIMESYS_CANADIAN) { |
| 49 | $self->{set} = sub { $self->{time} = $_[0]; $self->{moves} = $_[1] }; |
49 | $self->{set} = sub { $self->{time} = $_[0]; $self->{moves} = $_[1] }; |
