--- deliantra/server/ext/reseller.ext	2007/09/30 16:24:30	1.8
+++ deliantra/server/ext/reseller.ext	2007/12/05 11:08:34	1.9
@@ -54,7 +54,7 @@
 cf::register_script_function "reseller::list_sells" => sub {
    my ($who, $msg, $npc) = @_;
    my $ext_re_sales = $npc->get_ob_key_value ('ext_reseller_sales');
-   my $sells = $ext_re_sales && cf::from_json $ext_re_sales;
+   my $sells = $ext_re_sales && cf::decode_json $ext_re_sales;
    my $hissells = $sells->{$who->name};
 
    unless (keys %{$hissells || {}}) {
@@ -75,7 +75,7 @@
 cf::register_script_function "reseller::pay_player" => sub {
    my ($who, $msg, $npc) = @_;
    my $ext_re_sales = $npc->get_ob_key_value ('ext_reseller_sales');
-   my $sells = $ext_re_sales && cf::from_json $ext_re_sales;
+   my $sells = $ext_re_sales && cf::decode_json $ext_re_sales;
    my $hissells = $sells->{$who->name};
 
    unless (keys %{$hissells || {}}) {
@@ -93,7 +93,7 @@
 
    $sells->{$who->name} = {};
 
-   $npc->set_ob_key_value (ext_reseller_sales => cf::to_json $sells)
+   $npc->set_ob_key_value (ext_reseller_sales => cf::encode_json $sells)
       if $sells;
 
    0
@@ -112,7 +112,7 @@
       }
 
       my $ext_re_sales = $obs[0]->get_ob_key_value ('ext_reseller_sales');
-      my $sells = $ext_re_sales && cf::from_json $ext_re_sales;
+      my $sells = $ext_re_sales && cf::decode_json $ext_re_sales;
 
       my $unpaid_items = {};
 
@@ -157,7 +157,7 @@
       audit_log ($who, 'removed', (join ",", @seller_noted))
          if @seller_noted;
 
-      $obs[0]->set_ob_key_value (ext_reseller_sales => cf::to_json $sells)
+      $obs[0]->set_ob_key_value (ext_reseller_sales => cf::encode_json $sells)
          if $sells;
 
       cf::override;