summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrian Jepson <bjepson@oreilly.com>1999-06-26 05:47:45 -0500
committerGurusamy Sarathy <gsar@cpan.org>1999-07-07 08:09:30 +0000
commit69e210baba6414aba2758bc791a6dc3e9e167d9d (patch)
treed94dd1739a374dd84139bd1d51527b9294b45e6a
parent1a67a97c0300941ac67bfb1dd421467b8c59e21c (diff)
downloadperl-69e210baba6414aba2758bc791a6dc3e9e167d9d.tar.gz
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
-rwxr-xr-xjpl/JPL_Rolo/JPL_Rolo.jpl8
1 files changed, 6 insertions, 2 deletions
diff --git a/jpl/JPL_Rolo/JPL_Rolo.jpl b/jpl/JPL_Rolo/JPL_Rolo.jpl
index 3c77fb2690..9c019c84fa 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);
}}