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.