Revision 251dc385
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
bin/mozilla/do.pl | ||
---|---|---|
1248 | 1248 |
sub transfer_in { |
1249 | 1249 |
$main::lxdebug->enter_sub(); |
1250 | 1250 |
|
1251 |
save(no_redirect => 1); |
|
1252 |
|
|
1253 | 1251 |
my $form = $main::form; |
1254 | 1252 |
my %myconfig = %main::myconfig; |
1255 | 1253 |
my $locale = $main::locale; |
1256 | 1254 |
|
1257 |
if (DO->is_marked_as_delivered('id' => $form->{id})) {
|
|
1255 |
if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
|
|
1258 | 1256 |
$form->show_generic_error($locale->text('The parts for this delivery order have already been transferred in.'), 'back_button' => 1); |
1259 | 1257 |
} |
1260 | 1258 |
|
1259 |
save(no_redirect => 1); |
|
1260 |
|
|
1261 | 1261 |
my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_in_${_}"} } (1 .. $form->{rowcount}); |
1262 | 1262 |
my @all_requests; |
1263 | 1263 |
|
... | ... | |
1316 | 1316 |
sub transfer_out { |
1317 | 1317 |
$main::lxdebug->enter_sub(); |
1318 | 1318 |
|
1319 |
save(no_redirect => 1); |
|
1320 |
|
|
1321 | 1319 |
my $form = $main::form; |
1322 | 1320 |
my %myconfig = %main::myconfig; |
1323 | 1321 |
my $locale = $main::locale; |
1324 | 1322 |
|
1325 |
if (DO->is_marked_as_delivered('id' => $form->{id})) {
|
|
1323 |
if ($form->{id} && DO->is_marked_as_delivered(id => $form->{id})) {
|
|
1326 | 1324 |
$form->show_generic_error($locale->text('The parts for this delivery order have already been transferred out.'), 'back_button' => 1); |
1327 | 1325 |
} |
1328 | 1326 |
|
1327 |
save(no_redirect => 1); |
|
1328 |
|
|
1329 | 1329 |
my @part_ids = map { $form->{"id_${_}"} } grep { $form->{"id_${_}"} && $form->{"stock_out_${_}"} } (1 .. $form->{rowcount}); |
1330 | 1330 |
my @all_requests; |
1331 | 1331 |
|
Auch abrufbar als: Unified diff
Verhindern, dass Lieferscheine mehrfach ein- bzw. ausgelagert werden können
Ging in 088bf5a0 kaputt. Fix für Bug 1660.