Update setcalc and getcalc to new infrastructure

diff --git a/Commands/Def.pm b/Commands/Def.pm
index 7c57099bdd8fd506208f96ad68b30dc9aa8b87ef..1762e7c20129e43fb113b63456cd40110999f41b 100644 (file)
--- a/Commands/Def.pm
+++ b/Commands/Def.pm
@@ -196,7 +196,7 @@ sub setcalc
        my $dbh = $c->model;
 
        $dbh->begin_work;
-       my $rows = $dbh->do(q{UPDATE calls SET calc = $2 WHERE id = $1}
+       my $rows = $dbh->do(q{UPDATE calls SET calc = $2 WHERE call = $1}
                ,undef,$id, $calc);
        if ($rows == 1){
                $c->reply("Updated calc call <b>$id</b>");
@@ -219,7 +219,7 @@ sub getcalc
        my $dbh = $c->model;
 
        my $calc = $dbh->selectrow_array(q{
-SELECT calc FROM calls WHERE id = $1}
+SELECT calc FROM calls WHERE call = $1}
                ,undef,$id);
        $calc //= "Bad call id, there is no such call.";
        $c->reply("Calc for call <b>$id</b>: $calc");