ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/maps/perl/reseller.ext
(Generate patch)

Comparing deliantra/maps/perl/reseller.ext (file contents):
Revision 1.10 by root, Sun Aug 27 15:23:59 2006 UTC vs.
Revision 1.12 by elmex, Mon Aug 28 19:53:55 2006 UTC

… …
117 $item->set_value ($item->get_ob_key_value ('ext_reseller_orig_value')); 117 $item->set_value ($item->get_ob_key_value ('ext_reseller_orig_value'));
118 $item->set_ob_key_value (ext_reseller_seller => ''); 118 $item->set_ob_key_value (ext_reseller_seller => '');
119 } 119 }
120 120
121 $obs[0]->set_ob_key_value (ext_reseller_sales => cf::to_json $sells); 121 $obs[0]->set_ob_key_value (ext_reseller_sales => cf::to_json $sells);
122
123 cf::override;
122 }, 124 },
123; 125;
124 126
125cf::register "reseller_floor", 127cf::register_attachment "reseller_floor",
126 on_drop_on => sub { 128 on_drop_on => sub {
127 my ($on, $what, $who) = @_; 129 my ($on, $what, $who) = @_;
128 my $name = $what->custom_name; 130 my $name = $what->custom_name;
129 131
130 return if $what->get_flag (cf::FLAG_UNPAID); 132 return if $what->get_flag (cf::FLAG_UNPAID);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines