Revision dcef6ec7
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 3 | 3 |
require Exporter; |
| 4 | 4 |
@ISA = qw(Exporter); |
| 5 | 5 |
|
| 6 |
@EXPORT = qw(conv_i conv_date do_query selectrow_query dump_query); |
|
| 6 |
@EXPORT = qw(conv_i conv_date do_query selectrow_query do_statement dump_query);
|
|
| 7 | 7 |
|
| 8 | 8 |
sub conv_i {
|
| 9 | 9 |
my ($value, $default) = @_; |
| ... | ... | |
| 40 | 40 |
} |
| 41 | 41 |
} |
| 42 | 42 |
|
| 43 |
sub do_statement {
|
|
| 44 |
my ($form, $sth, $query) = splice(@_, 0, 3); |
|
| 45 |
|
|
| 46 |
if (0 == scalar(@_)) {
|
|
| 47 |
$sth->execute() || $form->dberror($query); |
|
| 48 |
} else {
|
|
| 49 |
$sth->execute(@_) || |
|
| 50 |
$form->dberror($query . " (" . join(", ", @_) . ")");
|
|
| 51 |
} |
|
| 52 |
} |
|
| 53 |
|
|
| 43 | 54 |
sub dump_query {
|
| 44 | 55 |
my ($level, $msg, $query) = splice(@_, 0, 3); |
| 45 | 56 |
while ($query =~ /\?/) {
|
Auch abrufbar als: Unified diff
Für alle Zahlungskonditionen kann jetzt für jede Sprache eine Übersetzung speichern.