#!/usr/bin/perl -w
use strict;

use DBI;

# Set up database connection
my $user = "content";
my $pass = "content";


my $dbh = DBI->connect("DBI:ODBC:LocalServer",$user, $pass, {RaiseError => 1});

my $dbh2 = DBI->connect("DBI:ODBC:LocalServer",$user, $pass, {RaiseError => 1});

my $new_id = 0;

my $sql = "select id from request";


my $sql2 = '';

my $sth = $dbh->prepare($sql);

my $sth2 = '';

my $sql_data = ($sth->execute() || die $sth->errstr);


while (my $pointer = $sth->fetchrow_hashref) {

$new_id++;

$sql2 = "UPDATE request SET ID='$new_id'";

$sth2 = $dbh2->prepare($sql2);

$sth2->execute() || die $sth2->errstr;

}