Revision 4a9b86a5
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 1010 | 1010 |
return %ship; |
| 1011 | 1011 |
} |
| 1012 | 1012 |
|
| 1013 |
sub is_marked_as_delivered {
|
|
| 1014 |
$main::lxdebug->enter_sub(); |
|
| 1015 |
|
|
| 1016 |
my $self = shift; |
|
| 1017 |
my %params = @_; |
|
| 1018 |
|
|
| 1019 |
Common::check_params(\%params, qw(id)); |
|
| 1020 |
|
|
| 1021 |
my $myconfig = \%main::myconfig; |
|
| 1022 |
my $form = $main::form; |
|
| 1023 |
|
|
| 1024 |
my $dbh = $params{dbh} || $form->get_standard_dbh($myconfig);
|
|
| 1025 |
|
|
| 1026 |
my ($delivered) = selectfirst_array_query($form, $dbh, qq|SELECT delivered FROM delivery_orders WHERE id = ?|, conv_i($params{id}));
|
|
| 1027 |
|
|
| 1028 |
$main::lxdebug->leave_sub(); |
|
| 1029 |
|
|
| 1030 |
return $delivered ? 1 : 0; |
|
| 1031 |
} |
|
| 1032 |
|
|
| 1033 |
|
|
| 1013 | 1034 |
1; |
Auch abrufbar als: Unified diff
------------------------------------------------------------------------
r7133 | mbunkus | 2008-06-20 10:19:46 +0200 (Fri, 20 Jun 2008) | 1 line
Verhindern, dass Lieferscheine mehrfach ein- bzw. ausgelagert werden.
------------------------------------------------------------------------