Revision 54746051
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 124 | 124 |
$self->create_schema_info_table($form, $dbh); |
| 125 | 125 |
|
| 126 | 126 |
my $dbupdater = SL::DBUpgrade2->new(form => $form)->parse_dbupdate_controls; |
| 127 |
my $update_available = $dbupdater->update2_available($dbh);
|
|
| 127 |
my @unapplied_scripts = $dbupdater->unapplied_upgrade_scripts($dbh);
|
|
| 128 | 128 |
$dbh->disconnect; |
| 129 | 129 |
|
| 130 |
if (!$update_available) {
|
|
| 130 |
if (!@unapplied_scripts) {
|
|
| 131 | 131 |
SL::DB::Manager::Employee->update_entries_for_authorized_users; |
| 132 | 132 |
return LOGIN_OK(); |
| 133 | 133 |
} |
| ... | ... | |
| 142 | 142 |
$form->{dbupdate} = "db" . $::auth->client->{dbname};
|
| 143 | 143 |
|
| 144 | 144 |
if ($form->{"show_dbupdate_warning"}) {
|
| 145 |
print $form->parse_html_template("dbupgrade/warning");
|
|
| 145 |
print $form->parse_html_template("dbupgrade/warning", { unapplied_scripts => \@unapplied_scripts });
|
|
| 146 | 146 |
::end_of_request(); |
| 147 | 147 |
} |
| 148 | 148 |
|
Auch abrufbar als: Unified diff
DB-Upgrade-Warnung: Einzuspielende Datenbankupgrades optional anzeigen