Revision 626ec4b4
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 272 | 272 |
} |
| 273 | 273 |
|
| 274 | 274 |
if (ref($version_or_control) eq "HASH") {
|
| 275 |
$dbh->do("INSERT INTO schema_info (tag, login) VALUES (" . $dbh->quote($version_or_control->{"tag"}) . ", " . $dbh->quote($form->{"login"}) . ")");
|
|
| 275 |
$dbh->do("INSERT INTO " . $self->{schema} . "schema_info (tag, login) VALUES (" . $dbh->quote($version_or_control->{"tag"}) . ", " . $dbh->quote($form->{"login"}) . ")");
|
|
| 276 | 276 |
} elsif ($version_or_control) {
|
| 277 | 277 |
$dbh->do("UPDATE defaults SET version = " . $dbh->quote($version_or_control));
|
| 278 | 278 |
} |
| ... | ... | |
| 331 | 331 |
|
| 332 | 332 |
my @all_scripts = map { $_->{applied} = 0; $_ } $self->sort_dbupdate_controls;
|
| 333 | 333 |
|
| 334 |
my $query = qq|SELECT tag FROM schema_info|; |
|
| 334 |
my $query = qq|SELECT tag FROM | . $self->{schema} . qq|schema_info|;
|
|
| 335 | 335 |
my $sth = $dbh->prepare($query); |
| 336 | 336 |
$sth->execute || $self->{form}->dberror($query);
|
| 337 | 337 |
while (my ($tag) = $sth->fetchrow_array()) {
|
Auch abrufbar als: Unified diff
DB-Upgrade-Mechanismus für auth-Scripte im Verzeichnis sql/Pg-upgrade2-auth implementiert