| … | |
… | |
| 17 | # we have to special case some special cases :) |
17 | # we have to special case some special cases :) |
| 18 | sub reject_entry { |
18 | sub reject_entry { |
| 19 | my ($pl) = @_; |
19 | my ($pl) = @_; |
| 20 | |
20 | |
| 21 | my $prev_pos = $pl->ob->{_prev_pos}; |
21 | my $prev_pos = $pl->ob->{_prev_pos}; |
| 22 | $pl->ob->goto ($prev_pos ? @$prev_pos : "/world/world_105_115", 2, 34); |
22 | $pl->ob->goto ($prev_pos ? @$prev_pos : ("/world/world_105_115", 2, 34)); |
| 23 | |
23 | |
| 24 | cf::override; |
24 | cf::override; |
| 25 | } |
25 | } |
| 26 | |
26 | |
| 27 | sub update_balance { |
27 | sub update_balance { |
