Revision 7148aad6
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/arap.pl | ||
|---|---|---|
| 275 | 275 |
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
| 276 | 276 |
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report'); |
| 277 | 277 |
|
| 278 |
my $nextsub = shift || 'update'; |
|
| 279 |
|
|
| 278 | 280 |
for $i (1 .. $form->{rowcount}) {
|
| 279 | 281 |
my $suffix = $i ? "_$i" : ""; |
| 280 | 282 |
my $prefix = $i ? "" : "global"; |
| ... | ... | |
| 289 | 291 |
|
| 290 | 292 |
# check form->{project_list} how many there are
|
| 291 | 293 |
$form->{rownumber} = $i;
|
| 292 |
&select_project($i ? undef : 1); |
|
| 294 |
&select_project($i ? undef : 1, $nextsub);
|
|
| 293 | 295 |
exit; |
| 294 | 296 |
} |
| 295 | 297 |
|
| ... | ... | |
| 317 | 319 |
$auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
|
| 318 | 320 |
'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report'); |
| 319 | 321 |
|
| 320 |
my ($is_global) = @_; |
|
| 322 |
my ($is_global, $nextsub) = @_;
|
|
| 321 | 323 |
|
| 322 | 324 |
@column_index = qw(ndx projectnumber description); |
| 323 | 325 |
|
| ... | ... | |
| 405 | 407 |
print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
|
| 406 | 408 |
} |
| 407 | 409 |
|
| 408 |
print qq| |
|
| 409 |
<input type="hidden" name="is_global" value="$is_global"> |
|
| 410 |
<input type=hidden name=nextsub value=project_selected> |
|
| 410 |
|
|
| 411 |
$cgi->hidden('-name' => 'is_global', '-default' => [$is_global])
|
|
| 412 |
. $cgi->hidden('-name' => 'project_selected_nextsub', '-default' => [$nextsub])
|
|
| 413 |
. qq|<input type=hidden name=nextsub value=project_selected> |
|
| 411 | 414 |
|
| 412 | 415 |
<br> |
| 413 | 416 |
<input class=submit type=submit name=action value="| |
| ... | ... | |
| 446 | 449 |
map { delete $form->{"new_${_}_$i"} } qw(id projectnumber description);
|
| 447 | 450 |
} |
| 448 | 451 |
|
| 449 |
map { delete $form->{$_} } qw(ndx lastndx nextsub is_global);
|
|
| 452 |
my $nextsub = $form->{project_selected_nextsub} || 'update';
|
|
| 450 | 453 |
|
| 451 |
if ($form->{update}) {
|
|
| 452 |
call_sub($form->{"update"});
|
|
| 453 |
} else {
|
|
| 454 |
&update; |
|
| 455 |
} |
|
| 454 |
map { delete $form->{$_} } qw(ndx lastndx nextsub is_global project_selected_nextsub);
|
|
| 455 |
|
|
| 456 |
call_sub($nextsub); |
|
| 456 | 457 |
|
| 457 | 458 |
$lxdebug->leave_sub(); |
| 458 | 459 |
} |
Auch abrufbar als: Unified diff
Nach der Projektauswahl die richtige Funktion aufrufen.
Fix für Bug 940.