Revision 8085e7b1
Von Moritz Bunkus vor mehr als 7 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
|
return grep { !$_->{applied} } @all_scripts;
|
||
|
}
|
||
|
|
||
|
sub update2_available {
|
||
|
my ($self, $dbh) = @_;
|
||
|
|
||
|
my @unapplied_scripts = $self->unapplied_upgrade_scripts($dbh);
|
||
|
|
||
|
return !!@unapplied_scripts;
|
||
|
}
|
||
|
|
||
|
sub apply_admin_dbupgrade_scripts {
|
||
|
my ($self, $called_from_admin) = @_;
|
||
|
|
||
| ... | ... | |
|
|
||
|
Requires that the scripts have been parsed.
|
||
|
|
||
|
=item C<update2_available $dbh>
|
||
|
|
||
|
Returns trueish if at least one upgrade script hasn't been applied to
|
||
|
a database yet. C<$dbh> is an open handle to the database that is
|
||
|
checked.
|
||
|
|
||
|
Requires that the scripts have been parsed.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 BUGS
|
||
Auch abrufbar als: Unified diff
SL::DBUpgrade2: unbenutzte Funktion `update2_available` entfernen