From 0661323818670e20a3c24be9a1450be1fe0c9909 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 3 Jul 2007 12:43:39 +0000 Subject: [PATCH] JSON moved :) git-svn-id: svn://svn.open-ils.org/ILS/trunk@7510 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/support-scripts/offline-blocked-list.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/support-scripts/offline-blocked-list.pl b/Open-ILS/src/support-scripts/offline-blocked-list.pl index 5c6f996049..cdb80b9757 100755 --- a/Open-ILS/src/support-scripts/offline-blocked-list.pl +++ b/Open-ILS/src/support-scripts/offline-blocked-list.pl @@ -14,7 +14,7 @@ if(1) { # XXX command line param # Make this the default for now. # ------------------------------------------------------------ - use JSON; + use OpenSRF::Utils::JSON; use IPC::Open2 qw/open2/; sub runmethod { @@ -29,7 +29,7 @@ if(1) { # XXX command line param for my $barcode (<$child_stdout>) { next if $barcode =~ /^oils/o; # hack to chop out the oils_requestor prompt chomp $barcode; - $barcode = JSON->JSON2perl($barcode); + $barcode = OpenSRF::Utils::JSON->JSON2perl($barcode); print "$barcode $flag\n" if $barcode; } close($child_stdout); -- 2.11.0