Revision 0b6cb3b8
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 8 | 8 |
use strict; |
| 9 | 9 |
|
| 10 | 10 |
sub new {
|
| 11 |
my ($package, $form, $dbdriver) = @_;
|
|
| 12 |
my $self = { form => $form, dbdriver => $dbdriver };
|
|
| 13 |
return bless($self, $package);
|
|
| 11 |
my $package = shift;
|
|
| 12 |
|
|
| 13 |
return bless({}, $package)->init(@_);
|
|
| 14 | 14 |
} |
| 15 | 15 |
|
| 16 |
sub set_dbcharset {
|
|
| 17 |
my $self = shift; |
|
| 18 |
$self->{dbcharset} = shift;
|
|
| 16 |
sub init {
|
|
| 17 |
my ($self, %params) = @_; |
|
| 18 |
|
|
| 19 |
map { $self->{$_} = $params{$_} } keys %params;
|
|
| 20 |
|
|
| 19 | 21 |
return $self; |
| 20 | 22 |
} |
| 21 | 23 |
|
Auch abrufbar als: Unified diff
new bekommt Hash-Params, nicht positionsbezogene