Revision 70220684
Von Moritz Bunkus vor mehr als 5 Jahren hinzugefügt
bin/mozilla/ir.pl | ||
---|---|---|
38 | 38 |
use SL::DB::BankTransactionAccTrans; |
39 | 39 |
use SL::DB::Default; |
40 | 40 |
use SL::DB::Department; |
41 |
use SL::DB::Project; |
|
41 | 42 |
use SL::DB::PurchaseInvoice; |
42 | 43 |
use SL::DB::Vendor; |
44 |
use List::MoreUtils qw(uniq); |
|
43 | 45 |
use List::Util qw(max sum); |
44 | 46 |
use List::UtilsBy qw(sort_by); |
45 | 47 |
|
... | ... | |
393 | 395 |
|
394 | 396 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig); |
395 | 397 |
|
396 |
my @old_project_ids = ($form->{"globalproject_id"}); |
|
397 |
map { push @old_project_ids, $form->{"project_id_$_"} if $form->{"project_id_$_"}; } 1..$form->{"rowcount"}; |
|
398 |
my @old_project_ids = uniq grep { $_ } map { $_ * 1 } ($form->{"globalproject_id"}, map { $form->{"project_id_$_"} } 1..$form->{"rowcount"}); |
|
399 |
my @conditions = @old_project_ids ? (id => \@old_project_ids) : (); |
|
400 |
$TMPL_VAR{ALL_PROJECTS} = SL::DB::Manager::Project->get_all_sorted(query => [ or => [ active => 1, @conditions ]]); |
|
401 |
$form->{ALL_PROJECTS} = $TMPL_VAR{ALL_PROJECTS}; # make projects available for second row drop-down in io.pl |
|
398 | 402 |
|
399 | 403 |
$form->get_lists("taxzones" => ($form->{id} ? "ALL_TAXZONES" : "ALL_ACTIVE_TAXZONES"), |
400 | 404 |
"currencies" => "ALL_CURRENCIES", |
templates/webpages/ir/form_header.html | ||
---|---|---|
168 | 168 |
</tr> |
169 | 169 |
<tr> |
170 | 170 |
<th align="right" nowrap>[% 'Project Number' | $T8 %]</th> |
171 |
<td>[% P.project.picker('globalproject_id', globalproject_id) %]</td>
|
|
171 |
<td>[%- L.select_tag('globalproject_id', ALL_PROJECTS, title_key = 'projectnumber', default = globalproject_id, with_empty = '1', onChange = "document.getElementById('update_button').click();") %]</td>
|
|
172 | 172 |
</tr> |
173 | 173 |
</table> |
174 | 174 |
</td> |
Auch abrufbar als: Unified diff
Einkaufsrechnungen: Projektauswahl gefixt