Revision 0acabd54
Von Udo Spallek vor mehr als 18 Jahren hinzugefügt
| SL/PE.pm | ||
|---|---|---|
| 136 | 136 |
# connect to database |
| 137 | 137 |
my $dbh = $form->dbconnect($myconfig); |
| 138 | 138 |
|
| 139 |
map { $form->{$_} =~ s/\'/\'\'/g } (projectnumber, description);
|
|
| 139 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(projectnumber description);
|
|
| 140 | 140 |
|
| 141 | 141 |
if ($form->{id}) {
|
| 142 | 142 |
$query = qq|UPDATE project SET |
| ... | ... | |
| 218 | 218 |
# connect to database |
| 219 | 219 |
my $dbh = $form->dbconnect($myconfig); |
| 220 | 220 |
|
| 221 |
map { $form->{$_} =~ s/\'/\'\'/g } (partsgroup);
|
|
| 222 |
|
|
| 221 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(partsgroup);
|
|
| 223 | 222 |
$form->{discount} /= 100;
|
| 224 | 223 |
|
| 225 | 224 |
if ($form->{id}) {
|
| ... | ... | |
| 360 | 359 |
# connect to database |
| 361 | 360 |
my $dbh = $form->dbconnect($myconfig); |
| 362 | 361 |
|
| 363 |
map { $form->{$_} =~ s/\'/\'\'/g } (pricegroup);
|
|
| 362 |
map { $form->{$_} =~ s/\'/\'\'/g } qw(pricegroup);
|
|
| 364 | 363 |
|
| 365 | 364 |
$form->{discount} /= 100;
|
| 366 | 365 |
|
| bin/mozilla/arap.pl | ||
|---|---|---|
| 236 | 236 |
|
| 237 | 237 |
# delete all the new_ variables |
| 238 | 238 |
for $i (1 .. $form->{lastndx}) {
|
| 239 |
map { delete $form->{"new_${_}_$i"} } (id, name);
|
|
| 239 |
map { delete $form->{"new_${_}_$i"} } qw(id name);
|
|
| 240 | 240 |
} |
| 241 | 241 |
|
| 242 | 242 |
map { delete $form->{$_} } qw(ndx lastndx nextsub);
|
| ... | ... | |
| 441 | 441 |
|
| 442 | 442 |
sub continue { &{ $form->{nextsub} } }
|
| 443 | 443 |
sub gl_transaction { &add }
|
| 444 |
sub ar_transaction { &add_transaction(ar) }
|
|
| 445 |
sub ap_transaction { &add_transaction(ap) }
|
|
| 446 |
sub sales_invoice { &add_transaction(is) }
|
|
| 447 |
sub vendor_invoice { &add_transaction(ir) }
|
|
| 444 |
sub ar_transaction { &add_transaction('ar') }
|
|
| 445 |
sub ap_transaction { &add_transaction('ap') }
|
|
| 446 |
sub sales_invoice { &add_transaction('is') }
|
|
| 447 |
sub vendor_invoice { &add_transaction('ir') }
|
|
| 448 | 448 |
|
| bin/mozilla/gl.pl | ||
|---|---|---|
| 1259 | 1259 |
|
| 1260 | 1260 |
# with JavaScript Calendar |
| 1261 | 1261 |
$button1 = qq| |
| 1262 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate} tabindex="2" $readonly>
|
|
| 1262 |
<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" tabindex="2" $readonly>
|
|
| 1263 | 1263 |
<input type=button name=transdate id="trigger1" value=| |
| 1264 | 1264 |
. $locale->text('button') . qq|></td>
|
| 1265 | 1265 |
|; |
| ... | ... | |
| 1272 | 1272 |
|
| 1273 | 1273 |
# without JavaScript Calendar |
| 1274 | 1274 |
$button1 = |
| 1275 |
qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate} tabindex="2" $readonly></td>|;
|
|
| 1275 |
qq|<td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value="$form->{transdate}" tabindex="2" $readonly></td>|;
|
|
| 1276 | 1276 |
} |
| 1277 | 1277 |
|
| 1278 | 1278 |
$form->header; |
Auch abrufbar als: Unified diff
Quoting Barewords.