Sorry, forgot to comment something...yeeesh
#!/usr/local/perl -wT
use strict;
use CGI;
use DBI; # need this!
my $marker = 5; # (or whatever number)
my $dbh=DBI->connect(DBI:mysql:database:localhost,"user","password");
my $sth=$dbh->prepare("SELECT task_ID, priority FROM task_list WHERE
priority > ?");
$sth->execute($marker);
while(my($hashref) = $response->fetchrow_hashref) {
$hashref->{priority}--; # decrement each priority by 1
}
$sth->finish;
$dbh->disconnect;
Scot R.
inSite
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
