Revision 356cd04b
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 1111 | 1111 |
for $i (1 .. $form->{rowcount}) {
|
| 1112 | 1112 |
|
| 1113 | 1113 |
$source = qq| |
| 1114 |
<td><input name="source_$i" value="$form->{"source_$i"}" size="16" tabindex=|
|
|
| 1115 |
. ($i + 11 + (($i - 1) * 8)) . qq|></td>|; |
|
| 1114 |
<td><input name="source_$i" value="$form->{"source_$i"}" size="16"></td>|;
|
|
| 1116 | 1115 |
$memo = qq| |
| 1117 |
<td><input name="memo_$i" value="$form->{"memo_$i"}" size="16" tabindex=|
|
|
| 1118 |
. ($i + 12 + (($i - 1) * 8)) . qq|></td>|; |
|
| 1116 |
<td><input name="memo_$i" value="$form->{"memo_$i"}" size="16"></td>|;
|
|
| 1119 | 1117 |
|
| 1120 | 1118 |
my $selected_accno_full; |
| 1121 | 1119 |
my ($accno_row) = split(/--/, $form->{"accno_$i"});
|
| ... | ... | |
| 1140 | 1138 |
} |
| 1141 | 1139 |
|
| 1142 | 1140 |
$accno = qq|<td>| . |
| 1143 |
$cgi->popup_menu('-name' => "accno_$i",
|
|
| 1144 |
'-id' => "accno_$i", |
|
| 1145 |
'-onChange' => "setTaxkey(this, $i)", |
|
| 1146 |
'-style' => 'width:200px', |
|
| 1147 |
'-tabindex' => ($i + 5 + (($i - 1) * 8)), |
|
| 1148 |
'-values' => \@chart_values, |
|
| 1149 |
'-labels' => \%chart_labels, |
|
| 1150 |
'-default' => $selected_accno_full) |
|
| 1141 |
NTI($cgi->popup_menu('-name' => "accno_$i",
|
|
| 1142 |
'-id' => "accno_$i", |
|
| 1143 |
'-onChange' => "setTaxkey(this, $i)", |
|
| 1144 |
'-style' => 'width:200px', |
|
| 1145 |
'-values' => \@chart_values, |
|
| 1146 |
'-labels' => \%chart_labels, |
|
| 1147 |
'-default' => $selected_accno_full)) |
|
| 1151 | 1148 |
. $cgi->hidden('-name' => "previous_accno_$i",
|
| 1152 | 1149 |
'-default' => $selected_accno_full) |
| 1153 | 1150 |
. qq|</td>|; |
| 1154 | 1151 |
$tax = qq|<td>| . |
| 1155 |
$cgi->popup_menu('-name' => "taxchart_$i",
|
|
| 1156 |
'-id' => "taxchart_$i", |
|
| 1157 |
'-style' => 'width:200px', |
|
| 1158 |
'-tabindex' => ($i + 10 + (($i - 1) * 8)), |
|
| 1159 |
'-values' => \@taxchart_values, |
|
| 1160 |
'-labels' => \%taxchart_labels, |
|
| 1161 |
'-default' => $selected_taxchart) |
|
| 1152 |
NTI($cgi->popup_menu('-name' => "taxchart_$i",
|
|
| 1153 |
'-id' => "taxchart_$i", |
|
| 1154 |
'-style' => 'width:200px', |
|
| 1155 |
'-values' => \@taxchart_values, |
|
| 1156 |
'-labels' => \%taxchart_labels, |
|
| 1157 |
'-default' => $selected_taxchart)) |
|
| 1162 | 1158 |
. qq|</td>|; |
| 1163 | 1159 |
|
| 1164 | 1160 |
if ($init) {
|
| 1165 | 1161 |
$korrektur = |
| 1166 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=| |
|
| 1167 |
. ($i + 9 + (($i - 1) * 8)) |
|
| 1168 |
. qq|></td>|; |
|
| 1162 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1"</td>|; |
|
| 1169 | 1163 |
if ($form->{transfer}) {
|
| 1170 | 1164 |
$fx_transaction = qq| |
| 1171 | 1165 |
<td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td> |
| ... | ... | |
| 1202 | 1196 |
} |
| 1203 | 1197 |
$checked = ($form->{"korrektur_$i"}) ? "checked" : "";
|
| 1204 | 1198 |
$korrektur = |
| 1205 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" $checked tabindex=| |
|
| 1206 |
. ($i + 9 + (($i - 1) * 8)) |
|
| 1207 |
. qq|></td>|; |
|
| 1199 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" $checked></td>|; |
|
| 1208 | 1200 |
$form->hide_form("accno_$i");
|
| 1209 | 1201 |
|
| 1210 | 1202 |
} else {
|
| 1211 | 1203 |
$korrektur = |
| 1212 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1" tabindex=| |
|
| 1213 |
. ($i + 9 + (($i - 1) * 8)) |
|
| 1214 |
. qq|></td>|; |
|
| 1204 |
qq|<td><input type="checkbox" name="korrektur_$i" value="1"></td>|; |
|
| 1215 | 1205 |
if ($form->{transfer}) {
|
| 1216 | 1206 |
$fx_transaction = qq| |
| 1217 | 1207 |
<td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1></td> |
| ... | ... | |
| 1238 | 1228 |
print qq|<tr valign=top> |
| 1239 | 1229 |
$accno |
| 1240 | 1230 |
$fx_transaction |
| 1241 |
<td><input name="debit_$i" size=8 value="$form->{"debit_$i"}" accesskey=$i tabindex=|
|
|
| 1242 |
. ($i + 6 + (($i - 1) * 8)) . qq| $debitreadonly></td> |
|
| 1243 |
<td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" tabindex=|
|
|
| 1244 |
. ($i + 7 + (($i - 1) * 8)) . qq| $creditreadonly></td> |
|
| 1245 |
<td><input name="tax_$i" size=6 value="$form->{"tax_$i"}" tabindex=|
|
|
| 1246 |
. ($i + 8 + (($i - 1) * 8)) . qq|></td> |
|
| 1231 |
<td><input name="debit_$i" size=8 value="$form->{"debit_$i"}" accesskey=$i $debitreadonly></td>
|
|
| 1232 |
<td><input name="credit_$i" size=8 value="$form->{"credit_$i"}" $creditreadonly></td>
|
|
| 1233 |
<td><input name="tax_$i" size=6 value="$form->{"tax_$i"}"></td>
|
|
| 1247 | 1234 |
$korrektur |
| 1248 | 1235 |
$tax |
| 1249 | 1236 |
$source |
| ... | ... | |
| 1301 | 1288 |
qq|<textarea name=description rows=$rows cols=50 wrap=soft $readonly >$form->{description}</textarea>|;
|
| 1302 | 1289 |
} else {
|
| 1303 | 1290 |
$description = |
| 1304 |
qq|<input name=description size=50 value="$form->{description}" tabindex="3" $readonly>|;
|
|
| 1291 |
qq|<input name=description size=50 value="$form->{description}" $readonly>|;
|
|
| 1305 | 1292 |
} |
| 1306 | 1293 |
|
| 1307 | 1294 |
$taxincluded = ($form->{taxincluded}) ? "checked" : "";
|
| ... | ... | |
| 1330 | 1317 |
|
| 1331 | 1318 |
# with JavaScript Calendar |
| 1332 | 1319 |
$button1 = qq| |
| 1333 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" tabindex="2" $readonly>
|
|
| 1320 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly>
|
|
| 1334 | 1321 |
<input type=button name=transdate id="trigger1" value=| |
| 1335 | 1322 |
. $locale->text('button') . qq|></td>
|
| 1336 | 1323 |
|; |
| ... | ... | |
| 1342 | 1329 |
|
| 1343 | 1330 |
# without JavaScript Calendar |
| 1344 | 1331 |
$button1 = |
| 1345 |
qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" tabindex="2" $readonly></td>|;
|
|
| 1332 |
qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" $readonly></td>|;
|
|
| 1346 | 1333 |
} |
| 1347 | 1334 |
|
| 1348 | 1335 |
$form->header; |
| ... | ... | |
| 1369 | 1356 |
<table width=100%> |
| 1370 | 1357 |
<tr> |
| 1371 | 1358 |
<th align=left>| . $locale->text('Reference') . qq|</th>
|
| 1372 |
<td><input name=reference size=20 value="$form->{reference}" tabindex="1" $readonly></td>
|
|
| 1359 |
<td><input name=reference size=20 value="$form->{reference}" $readonly></td>
|
|
| 1373 | 1360 |
<td align=left> |
| 1374 | 1361 |
<table> |
| 1375 | 1362 |
<tr> |
| ... | ... | |
| 1405 | 1392 |
<table> |
| 1406 | 1393 |
<tr> |
| 1407 | 1394 |
<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
|
| 1408 |
<td><input type=checkbox name=taxincluded value=1 tabindex="5" $taxincluded></td>
|
|
| 1395 |
<td><input type=checkbox name=taxincluded value=1 $taxincluded></td> |
|
| 1409 | 1396 |
</tr> |
| 1410 | 1397 |
</table> |
| 1411 | 1398 |
</td> |
| ... | ... | |
| 1427 | 1414 |
<table> |
| 1428 | 1415 |
<tr> |
| 1429 | 1416 |
<th align=left>| . $locale->text('MwSt. inkl.') . qq|</th>
|
| 1430 |
<td><input type=checkbox name=taxincluded value=1 tabindex="5" $taxincluded></td>
|
|
| 1417 |
<td><input type=checkbox name=taxincluded value=1 $taxincluded></td> |
|
| 1431 | 1418 |
</tr> |
| 1432 | 1419 |
</table> |
| 1433 | 1420 |
</td> |
Auch abrufbar als: Unified diff
Durch ständige Maskenveränderungen waren die Tab-Indices nicht mehr richtig, doppelt vergeben oder fehlten. Dadurch wurde die Bedienung deutlich komplizierter und verwirrender, vor allem, weil die durch den Browser vorgegebene Reihenfolge der Eingabeelemente eh schon die intuitive ist.