Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub getNames {
- my $package = shift;
- my $usr = shift;
- my $sth = $dbh->prepare(q{SELECT firstname, lastname from Pilots WHERE username = ?; })
- or die "Couldn't prepare statement: " . $dbh->errstr;
- $sth->execute($usr)
- or die "Couldn't execute statement: " . $sth->errstr;
- my $row = $sth->fetch;
- my $Firstname = $row->[0];
- return $Firstname;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement