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 |
|
SL/User.pm | ||
---|---|---|
125 | 125 |
|
126 | 126 |
$rc = 0; |
127 | 127 |
|
128 |
my $dbupdater = SL::DBUpgrade2->new($form, $myconfig{"dbdriver"});
|
|
128 |
my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $myconfig{dbdriver});
|
|
129 | 129 |
my $controls = $dbupdater->parse_dbupdate_controls; |
130 | 130 |
|
131 | 131 |
map({ $form->{$_} = $myconfig{$_} } |
... | ... | |
395 | 395 |
my $db_charset = $Common::db_encoding_to_charset{$form->{encoding}}; |
396 | 396 |
$db_charset ||= Common::DEFAULT_CHARSET; |
397 | 397 |
|
398 |
my $dbupdater = SL::DBUpgrade2->new($form, $form->{dbdriver});
|
|
398 |
my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver});
|
|
399 | 399 |
# create the tables |
400 | 400 |
$dbupdater->process_query($dbh, "sql/lx-office.sql", undef, $db_charset); |
401 | 401 |
|
... | ... | |
457 | 457 |
my ($self, $form) = @_; |
458 | 458 |
|
459 | 459 |
my %members = $main::auth->read_all_users(); |
460 |
my $controls = SL::DBUpgrade2->new($form, $form->{dbdriver})->parse_dbupdate_controls;
|
|
460 |
my $controls = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver})->parse_dbupdate_controls;
|
|
461 | 461 |
|
462 | 462 |
my ($query, $sth, %dbs_needing_updates); |
463 | 463 |
|
... | ... | |
597 | 597 |
my $db_charset = $main::dbcharset; |
598 | 598 |
$db_charset ||= Common::DEFAULT_CHARSET; |
599 | 599 |
|
600 |
my $dbupdater = SL::DBUpgrade2->new($form, $form->{dbdriver});
|
|
600 |
my $dbupdater = SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver});
|
|
601 | 601 |
|
602 | 602 |
foreach my $db (split(/ /, $form->{dbupdate})) { |
603 | 603 |
|
Auch abrufbar als: Unified diff
new bekommt Hash-Params, nicht positionsbezogene