JSON moved :)
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 3 Jul 2007 12:43:39 +0000 (12:43 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 3 Jul 2007 12:43:39 +0000 (12:43 +0000)
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

index 5c6f996..cdb80b9 100755 (executable)
@@ -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);