From: Michael Andreen <harv@ruin.nu>
Date: Tue, 8 Sep 2009 14:17:57 +0000 (+0200)
Subject: Update setcalc and getcalc to new infrastructure
X-Git-Url: https://ruin.nu/git/?p=NDIRC.git;a=commitdiff_plain;h=2138721402023284bb9976e4b2e636814dbbce96;hp=284c203203bc036d9f4b70115d2bcf33ed1c8fad

Update setcalc and getcalc to new infrastructure
---

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");