| … | |
… | |
| 114 | } |
114 | } |
| 115 | |
115 | |
| 116 | sub event_game_record { |
116 | sub event_game_record { |
| 117 | my ($self) = @_; |
117 | my ($self) = @_; |
| 118 | |
118 | |
|
|
119 | use POSIX (); |
|
|
120 | |
| 119 | for (@{$self->{game_record}}) { |
121 | for (@{$self->{game_record}}) { |
| 120 | ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_->{timestamp}); |
|
|
| 121 | push @{$self->{record_list}->{data}}, |
122 | push @{$self->{record_list}->{data}}, |
| 122 | [ |
123 | [ |
| 123 | sprintf ("%04d.%02d.%02d %02dh %02dm", $year + 1900, $mon + 1, $mday, $min, $hour), |
124 | (POSIX::strftime "%Y-%m-%d %H:%M", localtime $_->{timestamp}), |
| 124 | $_->{black}->{name}, |
125 | $_->{black}{name}, |
| 125 | $_->{white}->{name}, |
126 | $_->{white}{name}, |
| 126 | $_->size, # sprintf ("%dx%d", $_->size, $_->size), # when sorting is fixed |
127 | $_->size, # sprintf ("%dx%d", $_->size, $_->size), # when sorting is fixed |
| 127 | sprintf ("%.1d", $_->handicap), |
128 | (sprintf "%.1d", $_->handicap), |
| 128 | $_->komi, |
129 | $_->komi, |
| 129 | $_->score_string, |
130 | $_->score_string, |
| 130 | ]; |
131 | ]; |
| 131 | } |
132 | } |
| 132 | } |
133 | } |
