| … | |
… | |
| 149 | (delete $_->{model})->remove (delete $_->{iter}) if $_->{model} && $_->{model} != $m2;#d# |
149 | (delete $_->{model})->remove (delete $_->{iter}) if $_->{model} && $_->{model} != $m2;#d# |
| 150 | $_->{model} = $m2; |
150 | $_->{model} = $m2; |
| 151 | $m2->set ($_->{iter} ||= $m2->append, |
151 | $m2->set ($_->{iter} ||= $m2->append, |
| 152 | 0, $_, |
152 | 0, $_, |
| 153 | 1, $room->{name}, |
153 | 1, $room->{name}, |
| 154 | 2, (uc substr $gametype{$_->type}, 0, 1),#d# should use ->gametype_char, which also does P, S |
154 | 2, $_->type_char, |
| 155 | 3, $owner->{name}, |
155 | 3, $owner->{name}, |
| 156 | 4, $owner->rank_string, |
156 | 4, $owner->rank_string, |
| 157 | 5, $owner->rank, |
157 | 5, $owner->rank, |
| 158 | 6, $_->opponent_string, |
158 | 6, $_->opponent_string, |
| 159 | 7, $_->{user1}->rank_string, |
159 | 7, $_->{user1}->rank_string, |
| … | |
… | |
| 166 | (delete $_->{model})->remove (delete $_->{iter}) if $_->{model} && $_->{model} != $m1;#d# |
166 | (delete $_->{model})->remove (delete $_->{iter}) if $_->{model} && $_->{model} != $m1;#d# |
| 167 | $_->{model} = $m1; |
167 | $_->{model} = $m1; |
| 168 | $m1->set ($_->{iter} ||= $m1->append, |
168 | $m1->set ($_->{iter} ||= $m1->append, |
| 169 | 0, $_, |
169 | 0, $_, |
| 170 | 1, $room->{name}, |
170 | 1, $room->{name}, |
| 171 | 2, (uc substr $gametype{$_->type}, 0, 1),#d# should use ->gametype_char, which also does P, S |
171 | 2, $_->type_char, |
| 172 | 3, $owner->{name}, |
172 | 3, $owner->{name}, |
| 173 | 4, $owner->rank_string, |
173 | 4, $owner->rank_string, |
| 174 | 5, $owner->rank, |
174 | 5, $owner->rank, |
| 175 | 6, $_->rules, |
175 | 6, $_->rules, |
| 176 | 7, $_->{notes}, |
176 | 7, $_->{notes}, |
