Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Did I have some other language on the brain?

Browse source 
$self is the standard name for the current object in Perl, of course. :)
This commit is contained in:
Bradley M. Kuhn 2015-12-16 18:07:46 -08:00
parent 6e10f76d5a
commit 3f3f8b7090
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Supporters/lib/Supporters.pm
View file

@ -87,7 +87,7 @@ sub ledgerCmd ($) {
}
######################################################################
sub addSupporter ($$) {
my($this, $sp) = @_;
my($self, $sp) = @_;
die "ledger_entity_id required" unless defined $sp->{ledger_entity_id};
@ -96,19 +96,19 @@ sub addSupporter ($$) {
if ($sp->{public_ack}) {
die "display_name required if public_ack requested" unless defined $sp->{display_name};
}
$this->_beginWork;
my $sth = $this->dbh->prepare(
$self->_beginWork;
my $sth = $self->dbh->prepare(
"INSERT INTO supporter(ledger_entity_id, display_name, public_ack)" .
" values(?, ?, ?)");
$sth->execute($sp->{ledger_entity_id}, $sp->{display_name}, $sp->{public_ack});
my $id = $this->dbh->last_insert_id("","","","");
my $id = $self->dbh->last_insert_id("","","","");
$sth->finish();
$this->addEmailAddress($id, $sp->{email_address}, $sp->{email_address_type})
$self->addEmailAddress($id, $sp->{email_address}, $sp->{email_address_type})
if defined $sp->{email_address};
$this->_commit;
$self->_commit;
return $id;
}
######################################################################