Revision 74fca575
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
bin/mozilla/gl.pl | ||
---|---|---|
234 | 234 |
} (@{ $form->{all_departments} || [] }); |
235 | 235 |
} |
236 | 236 |
|
237 |
my $department = qq| |
|
237 |
my $department; |
|
238 |
$department = qq| |
|
238 | 239 |
<tr> |
239 | 240 |
<th align=right nowrap>| . $locale->text('Department') . qq|</th> |
240 | 241 |
<td colspan=3><select name=department>$form->{selectdepartment}</select></td> |
... | ... | |
1017 | 1018 |
my $projectnumber_hidden = qq| |
1018 | 1019 |
<input type="hidden" name="project_id_$i" value="$form->{"project_id_$i"}">|; |
1019 | 1020 |
|
1020 |
my $copy2credit = 'onkeyup="copy_debit_to_credit()"' if $i == 1;
|
|
1021 |
my $copy2credit = $i == 1 ? 'onkeyup="copy_debit_to_credit()"' : '';
|
|
1021 | 1022 |
|
1022 | 1023 |
print qq|<tr valign=top> |
1023 | 1024 |
$accno |
... | ... | |
1079 | 1080 |
$form->{title} = $locale->text("$title General Ledger Transaction"); |
1080 | 1081 |
my $readonly = ($form->{id}) ? "readonly" : ""; |
1081 | 1082 |
|
1082 |
my $show_details_checked = "checked" if $form->{show_details}; |
|
1083 |
|
|
1084 |
my $ob_transaction_checked = "checked" if $form->{ob_transaction}; |
|
1085 |
my $cb_transaction_checked = "checked" if $form->{cb_transaction}; |
|
1083 |
my $show_details_checked = $form->{show_details} ? "checked" : ''; |
|
1084 |
my $ob_transaction_checked = $form->{ob_transaction} ? "checked" : ''; |
|
1085 |
my $cb_transaction_checked = $form->{cb_transaction} ? "checked" : ''; |
|
1086 | 1086 |
|
1087 | 1087 |
# $locale->text('Add General Ledger Transaction') |
1088 | 1088 |
# $locale->text('Edit General Ledger Transaction') |
... | ... | |
1410 | 1410 |
|
1411 | 1411 |
} else { |
1412 | 1412 |
if ($form->{draft_id}) { |
1413 |
my $remove_draft_checked = 'checked' if ($form->{remove_draft});
|
|
1413 |
my $remove_draft_checked = $form->{remove_draft} ? 'checked' : '';
|
|
1414 | 1414 |
print qq|<p>\n| |
1415 | 1415 |
. qq| <input name="remove_draft" id="remove_draft" type="checkbox" class="checkbox" ${remove_draft_checked}>| |
1416 | 1416 |
. qq| <label for="remove_draft">| . $locale->text('Remove Draft') . qq|</label>\n| |
Auch abrufbar als: Unified diff
Fixes für das "my $var if $cond;" pattern.