From 69e210baba6414aba2758bc791a6dc3e9e167d9d Mon Sep 17 00:00:00 2001
From: Brian Jepson <bjepson@oreilly.com>
Date: Sat, 26 Jun 1999 05:47:45 -0500
Subject: [PATCH] Patch to JPL example program

	Message-ID: <Pine.LNX.4.10.9906261044180.659-100000@cx384756-a.sking1.ri.home.com>

p4raw-id: //depot/perl@3639
---
 jpl/JPL_Rolo/JPL_Rolo.jpl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/jpl/JPL_Rolo/JPL_Rolo.jpl b/jpl/JPL_Rolo/JPL_Rolo.jpl
index 3c77fb2..9c019c8 100755
--- a/jpl/JPL_Rolo/JPL_Rolo.jpl
+++ b/jpl/JPL_Rolo/JPL_Rolo.jpl
@@ -471,7 +471,11 @@ public class JPL_Rolo extends Frame {
         } else {
             $op = ">=";
         }
-        my @data = $rdb->sql("select name, address, city, state, zip, id from cardfile where id $op $nextid");
+        my $sql = "select name, address, city, "  .
+                  "state, zip, id from cardfile " .
+                  "where id $op $nextid";
+	
+        my @data = $rdb->sql($sql);
         $rdb->close("cardfile");
 
         my $status = shift @data;
@@ -493,7 +497,7 @@ public class JPL_Rolo extends Frame {
         } else {
             $index = 0;
         }
-        my($name, $address, $city, $state, $zip, $id) = split (/\0/, $data[$index], 6);
+        my($name, $address, $city, $state, $zip, $id) = @{$data[$index]};
         $self->setCols__ssssss($name, $address, $city, $state, $zip, $id);
 
     }}
-- 
2.7.4