Subversion Repositories VORC

Rev

Rev 274 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 274 Rev 276
Line 12... Line 12...
12 
 
 12 
 
Line 13... Line 13...
13 
my $dbh = WebDB::connect ();
 13 
my $dbh = WebDB::connect ();
14 
 
 14 
 
15 
my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");
 15 
my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");
16 
my @REGIDS;
 16 
my @REGIDS;
17 
push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = concat_ws(' ', ?, year(now()))", undef, "RollerCon") };
 17 
push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = concat_ws(' ', ?, year(now())) and isnull(wrstbnd_accountid) = 1", undef, "RollerCon") };
18 
foreach (@REGIDS) {
 18 
foreach (@REGIDS) {
19 
  my $regid = $_;
 19 
  my $regid = $_;
20 
  print "Updating RegID: $regid - ";
 20 
  print "Updating RegID: $regid - ";