From 91dbc79caec558d7088d98a7888ce8671023268a Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Mon, 23 Oct 2006 12:23:29 +0000 Subject: [PATCH] Using store_result method to update zebra. --- lib/ZOOM/IRSpy/Test/Search/Bib1.pm | 16 +++++++--------- lib/ZOOM/IRSpy/Test/Search/Dan1.pm | 17 ++++++++--------- 2 files changed, 15 insertions(+), 18 deletions(-) diff --git a/lib/ZOOM/IRSpy/Test/Search/Bib1.pm b/lib/ZOOM/IRSpy/Test/Search/Bib1.pm index a84fcd5..e5ecfdc 100644 --- a/lib/ZOOM/IRSpy/Test/Search/Bib1.pm +++ b/lib/ZOOM/IRSpy/Test/Search/Bib1.pm @@ -1,4 +1,4 @@ -# $Id: Bib1.pm,v 1.10 2006-10-13 10:34:34 sondberg Exp $ +# $Id: Bib1.pm,v 1.11 2006-10-23 12:23:29 sondberg Exp $ # See the "Main" test package for documentation @@ -37,10 +37,9 @@ sub found { $conn->log("irspy_test", "search on access-point $attr found $n record", $n==1 ? "" : "s"); - $conn->record()->append_entry("irspy:status", - "". - isodate(time()) . - ""); + $conn->record()->store_result('search', 'set' => 'bib1', + 'ap' => $attr, + 'ok' => 1); return ZOOM::IRSpy::Status::TASK_DONE; } @@ -52,10 +51,9 @@ sub error { $conn->log("irspy_test", "search on access-point $attr had error: ", $exception); - $conn->record()->append_entry("irspy:status", - "". - isodate(time()) . - ""); + $conn->record()->store_result('search', 'set' => 'bib1', + 'ap' => $attr, + 'ok' => 0); return ZOOM::IRSpy::Status::TASK_DONE; } diff --git a/lib/ZOOM/IRSpy/Test/Search/Dan1.pm b/lib/ZOOM/IRSpy/Test/Search/Dan1.pm index f435ba9..77be15d 100644 --- a/lib/ZOOM/IRSpy/Test/Search/Dan1.pm +++ b/lib/ZOOM/IRSpy/Test/Search/Dan1.pm @@ -1,4 +1,4 @@ -# $Id: Dan1.pm,v 1.1 2006-10-13 13:40:29 sondberg Exp $ +# $Id: Dan1.pm,v 1.2 2006-10-23 12:23:29 sondberg Exp $ # See the "Main" test package for documentation @@ -34,10 +34,9 @@ sub found { $conn->log("irspy_test", "search on access-point $attr found $n record", $n==1 ? "" : "s"); - $conn->record()->append_entry("irspy:status", - "". - isodate(time()) . - ""); + $conn->record()->store_result('search', 'set' => 'dan1', + 'ap' => $attr, + 'ok' => 1); return ZOOM::IRSpy::Status::TASK_DONE; } @@ -49,10 +48,10 @@ sub error { $conn->log("irspy_test", "search on access-point $attr had error: ", $exception); - $conn->record()->append_entry("irspy:status", - "". - isodate(time()) . - ""); + $conn->record()->store_result('search', 'set' => 'dan1', + 'ap' => $attr, + 'ok' => 0); + return ZOOM::IRSpy::Status::TASK_DONE; } -- 1.7.10.4