Revision f88cdcc7
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1767 | 1767 |
sub get_all_currencies {
|
| 1768 | 1768 |
$main::lxdebug->enter_sub(); |
| 1769 | 1769 |
|
| 1770 |
my ($self, $myconfig) = @_; |
|
| 1771 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1770 |
my $self = shift; |
|
| 1771 |
my $myconfig = shift || \%::myconfig; |
|
| 1772 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1772 | 1773 |
|
| 1773 | 1774 |
my $query = qq|SELECT curr FROM defaults|; |
| 1774 | 1775 |
|
| ... | ... | |
| 3015 | 3016 |
sub current_date {
|
| 3016 | 3017 |
$main::lxdebug->enter_sub(); |
| 3017 | 3018 |
|
| 3018 |
my $self = shift;
|
|
| 3019 |
my $myconfig = shift || \%::myconfig;
|
|
| 3019 |
my $self = shift; |
|
| 3020 |
my $myconfig = shift || \%::myconfig;
|
|
| 3020 | 3021 |
my ($thisdate, $days) = @_; |
| 3021 | 3022 |
|
| 3022 | 3023 |
my $dbh = $self->get_standard_dbh($myconfig); |
Auch abrufbar als: Unified diff
Zwei Funktionen, die als erstes Argument myconfig erwarten auf \%::myconfig defaulted.
Conflicts: