| … | |
… | |
| 89 | unless (@obs) { |
89 | unless (@obs) { |
| 90 | warn "Couldn't find shop keeper in " . $who->map . "\n"; |
90 | warn "Couldn't find shop keeper in " . $who->map . "\n"; |
| 91 | return cf::override; |
91 | return cf::override; |
| 92 | } |
92 | } |
| 93 | |
93 | |
| 94 | my $sells = cf::from_json $selfs[0]->get_ob_key_value ('ext_reseller_sales'); |
94 | my $sells = cf::from_json $obs[0]->get_ob_key_value ('ext_reseller_sales'); |
| 95 | |
95 | |
| 96 | for my $item (find_unpaid ($who)) { |
96 | for my $item (find_unpaid ($who)) { |
| 97 | if ($item->get_ob_key_value ('ext_reseller_seller') eq $who->name) { |
97 | if ($item->get_ob_key_value ('ext_reseller_seller') eq $who->name) { |
| 98 | $item->set_flag (cf::FLAG_UNPAID, 0); |
98 | $item->set_flag (cf::FLAG_UNPAID, 0); |
| 99 | $item->remove; |
99 | $item->remove; |
