From 2138721402023284bb9976e4b2e636814dbbce96 Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Tue, 8 Sep 2009 16:17:57 +0200
Subject: [PATCH] Update setcalc and getcalc to new infrastructure

---
 Commands/Def.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Commands/Def.pm b/Commands/Def.pm
index 7c57099..1762e7c 100644
--- 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");
-- 
2.39.2