Subversion Repositories VORC

Rev

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

Rev 173 Rev 174
Line 13... Line 13...
13 
print "Adding WRSTBND Class IDs to VORC Classes...\n";
 13 
print "Adding WRSTBND Class IDs to VORC Classes...\n";
14 
while (<>) {
 14 
while (<>) {
15 
	my ($id, $wbid) = split /,/, $_;
 15 
	my ($id, $wbid) = split /,/, $_;
16 
	$wbid =~ s/\s+//;
 16 
	$wbid =~ s/\s+//;
17 
	print "Updating Class: $id with WRSTBND_ID: $wbid...";
 17 
	print "Updating Class: $id with WRSTBND_ID: $wbid...";
18 
#	$sth->execute ($wbid, $id);
 18 
	$sth->execute ($wbid, $id);
19 
	warn "ERROR: $sth->errstr\n" unless !$sth->err;
 19 
	warn "ERROR: $sth->errstr\n" unless !$sth->err;
20 
	print "done.\n";
 20 
	print "done.\n";
21 
}
 21 
}
Line 22... Line 22...
22 
 
 22 
 
23 
print "Done.\n";
 23 
print "Done.\n";