| … | |
… | |
| 205 | |
205 | |
| 206 | $what->set_ob_key_value (ext_reseller_seller => $who->name); |
206 | $what->set_ob_key_value (ext_reseller_seller => $who->name); |
| 207 | $what->set_ob_key_value (ext_reseller_orig_value => $orig_value); |
207 | $what->set_ob_key_value (ext_reseller_orig_value => $orig_value); |
| 208 | # warn "SET SELLER ON " . $what->name . " + " . $what->{seller}->[0] . "\n"; |
208 | # warn "SET SELLER ON " . $what->name . " + " . $what->{seller}->[0] . "\n"; |
| 209 | $what->set_custom_name ( |
209 | $what->set_custom_name ( |
| 210 | $what->name . " (property of " . $who->name . ")" |
210 | $what->name . " (by " . $who->name . ")" |
| 211 | ); |
211 | ); |
| 212 | $what->set_flag (cf::FLAG_UNPAID, 1); |
212 | $what->set_flag (cf::FLAG_UNPAID, 1); |
| 213 | $what->insert_ob_in_map_at ($who->map, $who, cf::INS_BELOW_ORIGINATOR, $who->x, $who->y); |
213 | $what->insert_ob_in_map_at ($who->map, $who, cf::INS_BELOW_ORIGINATOR, $who->x, $who->y); |
| 214 | 1; |
214 | 1; |
| 215 | } |
215 | } |
