Revision 16c60c08
Von Sven Schöling vor etwa 8 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 36 | 36 |
|
| 37 | 37 |
package CP; |
| 38 | 38 |
use SL::DBUtils; |
| 39 |
use SL::DB; |
|
| 39 | 40 |
|
| 40 | 41 |
use strict; |
| 41 | 42 |
|
| ... | ... | |
| 192 | 193 |
} |
| 193 | 194 |
|
| 194 | 195 |
sub process_payment {
|
| 196 |
my ($self, $myconfig, $form) = @_; |
|
| 195 | 197 |
$main::lxdebug->enter_sub(); |
| 196 | 198 |
|
| 199 |
my $rc = SL::DB->client->with_transaction(\&_process_payment, $self, $myconfig, $form); |
|
| 200 |
|
|
| 201 |
$::lxdebug->leave_sub; |
|
| 202 |
return $rc; |
|
| 203 |
} |
|
| 204 |
|
|
| 205 |
sub _process_payment {
|
|
| 197 | 206 |
my ($self, $myconfig, $form) = @_; |
| 198 | 207 |
my $amount; |
| 199 | 208 |
|
| 200 |
# connect to database, turn AutoCommit off |
|
| 201 |
my $dbh = $form->dbconnect_noauto($myconfig); |
|
| 209 |
my $dbh = SL::DB->client->dbh; |
|
| 202 | 210 |
|
| 203 | 211 |
my ($paymentaccno) = split /--/, $form->{account};
|
| 204 | 212 |
|
| ... | ... | |
| 356 | 364 |
# /saving the history |
| 357 | 365 |
} |
| 358 | 366 |
} |
| 359 |
my $rc; |
|
| 360 |
# Hier wurden negativen Zahlungseingänge abgefangen |
|
| 361 |
# da Zahlungsein- und ausgänge immer positiv sind |
|
| 362 |
# Besser: in Oberfläche schon prüfen erledigt jb 10.2010 |
|
| 363 |
$rc = $dbh->commit; |
|
| 364 | 367 |
|
| 365 |
$dbh->disconnect; |
|
| 366 |
|
|
| 367 |
$main::lxdebug->leave_sub(); |
|
| 368 |
|
|
| 369 |
return $rc; |
|
| 368 |
return 1; |
|
| 370 | 369 |
} |
| 371 | 370 |
|
| 372 | 371 |
1; |
Auch abrufbar als: Unified diff
CP: single-dbh