From: Brian Jepson Date: Sat, 26 Jun 1999 10:47:45 +0000 (-0500) Subject: Patch to JPL example program X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69e210baba6414aba2758bc791a6dc3e9e167d9d;p=p5sagit%2Fp5-mst-13.2.git Patch to JPL example program Message-ID: p4raw-id: //depot/perl@3639 --- 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); }}