Subversion Repositories VORC

Rev

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

Rev 238 Rev 277
Line 94... Line 94...
94 
  use REST::Client;
 94 
  use REST::Client;
95 
  use JSON;
 95 
  use JSON;
Line 96... Line 96...
96
96
97 
  my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");
 97 
  my $sth = $dbh->prepare ("update ticket set wrstbnd_accountid = ? where id = ?");
98 
  my @REGIDS;
 98 
  my @REGIDS;
99 
  push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = ? and isnull(wrstbnd_accountid) = 1", undef, "RollerCon 2025") };
 99 
  push @REGIDS, map { @{$_} } @{ $dbh->selectall_arrayref ("select id from ticket where event_name = concat_ws(' ', ?, year(now())) and isnull(wrstbnd_accountid) = 1", undef, "RollerCon") };
100 
  foreach (@REGIDS) {
 100 
  foreach (@REGIDS) {
101 
    my $regid = $_;
 101 
    my $regid = $_;
102 
  	my $wbdid = getAccountId ($regid);
 102 
  	my $wbdid = getAccountId ($regid);
103 
  	$sth->execute ($wbdid, $regid);
 103 
  	$sth->execute ($wbdid, $regid);