Subversion Repositories VORC

Rev

Rev 180 | Rev 235 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 180 Rev 208
Line 11... Line 11...
11 
my $dbh = WebDB::connect ();
 11 
my $dbh = WebDB::connect ();
12 
my $headers = { Authorization => '601037851507c624' };
 12 
my $headers = { Authorization => '601037851507c624' };
Line 13... Line 13...
13 
 
 13 
 
Line 14... Line 14...
14 
print "Bulk adding class registrations...\n";
 14 
print "Bulk adding class registrations...\n";
15 
 
 15 
 
Line 16... Line 16...
16 
my $sth = $dbh->prepare ("select class.id, v_class_signup.RCid, wrstbnd_id, wrstbnd_accountid from v_class_signup left join class on v_class_signup.id = class.id left join RCid_ticket_link on v_class_signup.RCid = RCid_ticket_link.RCid and year = year(now()) left join ticket on MVPid = ticket.id where year(v_class_signup.date) = year(now())");
 16 
my $sth = $dbh->prepare ("select class.id, v_class_signup_new.RCid, wrstbnd_id, wrstbnd_accountid from v_class_signup_new left join class on v_class_signup_new.id = class.id left join RCid_ticket_link on v_class_signup_new.RCid = RCid_ticket_link.RCid and year = year(now()) left join ticket on MVPid = ticket.id where year(v_class_signup_new.date) = year(now())");
Line 17... Line 17...
17 
my $assignment = $dbh->prepare ("update assignment set wb_ticket_act = ? where Gid = ? and RCid = ? and role like ?");
 17 
my $assignment = $dbh->prepare ("update assignment set wb_ticket_act = ? where Gid = ? and RCid = ? and role like ?");