Revision 4a5f2dea
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/DB/Order.pm | ||
|---|---|---|
| 571 | 571 |
sub is_final_version {
|
| 572 | 572 |
my ($self) = @_; |
| 573 | 573 |
|
| 574 |
my $order_versions = SL::DB::Manager::OrderVersion->get_all(where => [ oe_id => $self->id, final_version => 0 ]);
|
|
| 575 |
die "Invalid version state" unless scalar @{ $order_versions } < 2;
|
|
| 576 |
my $final_version = scalar @{ $order_versions } == 1 ? 0 : 1;
|
|
| 574 |
my $order_versions_count = SL::DB::Manager::OrderVersion->get_all_count(where => [ oe_id => $self->id, final_version => 0 ]);
|
|
| 575 |
die "Invalid version state" unless $order_versions_count < 2;
|
|
| 576 |
my $final_version = $order_versions_count == 1 ? 0 : 1;
|
|
| 577 | 577 |
|
| 578 | 578 |
return $final_version; |
| 579 | 579 |
} |
Auch abrufbar als: Unified diff
Unterversionen: Methode zum Prüfen, ob finalisierte Version, leicht vereinfacht