Revision 8085e7b1
Von Moritz Bunkus vor etwa 7 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 320 | 320 |
return grep { !$_->{applied} } @all_scripts;
|
| 321 | 321 |
} |
| 322 | 322 |
|
| 323 |
sub update2_available {
|
|
| 324 |
my ($self, $dbh) = @_; |
|
| 325 |
|
|
| 326 |
my @unapplied_scripts = $self->unapplied_upgrade_scripts($dbh); |
|
| 327 |
|
|
| 328 |
return !!@unapplied_scripts; |
|
| 329 |
} |
|
| 330 |
|
|
| 331 | 323 |
sub apply_admin_dbupgrade_scripts {
|
| 332 | 324 |
my ($self, $called_from_admin) = @_; |
| 333 | 325 |
|
| ... | ... | |
| 657 | 649 |
|
| 658 | 650 |
Requires that the scripts have been parsed. |
| 659 | 651 |
|
| 660 |
=item C<update2_available $dbh> |
|
| 661 |
|
|
| 662 |
Returns trueish if at least one upgrade script hasn't been applied to |
|
| 663 |
a database yet. C<$dbh> is an open handle to the database that is |
|
| 664 |
checked. |
|
| 665 |
|
|
| 666 |
Requires that the scripts have been parsed. |
|
| 667 |
|
|
| 668 | 652 |
=back |
| 669 | 653 |
|
| 670 | 654 |
=head1 BUGS |
Auch abrufbar als: Unified diff
SL::DBUpgrade2: unbenutzte Funktion `update2_available` entfernen