Revision a590a651
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 210 | 210 |
my %column_data = (); |
| 211 | 211 |
|
| 212 | 212 |
# undo formatting |
| 213 |
map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }
|
|
| 214 |
qw(qty discount sellprice lastcost price_new price_old)
|
|
| 213 |
map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }
|
|
| 214 |
qw(qty discount sellprice lastcost price_new price_old) |
|
| 215 | 215 |
unless ($form->{simple_save});
|
| 216 | 216 |
|
| 217 | 217 |
# unit begin |
| ... | ... | |
| 343 | 343 |
map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(marge_absolut marge_percent);
|
| 344 | 344 |
|
| 345 | 345 |
push @ROW2, { value => sprintf qq|
|
| 346 |
<font %s><b>%s</b> %s %s%% </font>
|
|
| 347 |
<b>%s</b> %s
|
|
| 346 |
<font %s><b>%s</b> %s %s%% </font> |
|
| 347 |
<b>%s</b> %s |
|
| 348 | 348 |
<b>%s</b> <input size="5" name="lastcost_$i" value="%s">|, |
| 349 | 349 |
$marge_color, $locale->text('Ertrag'),$form->{"marge_absolut_$i"}, $form->{"marge_percent_$i"},
|
| 350 | 350 |
$locale->text('LP'), $form->format_amount(\%myconfig, $form->{"listprice_$i"}, 2),
|
| ... | ... | |
| 1429 | 1429 |
if(!exists $form->{addition}) {
|
| 1430 | 1430 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1431 | 1431 |
$form->{addition} = "PRINTED";
|
| 1432 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1432 |
$form->save_history; |
|
| 1433 | 1433 |
} |
| 1434 | 1434 |
# /saving the history |
| 1435 | 1435 |
::end_of_request(); |
| ... | ... | |
| 1660 | 1660 |
elsif($form->{media} =~ /screen/) {
|
| 1661 | 1661 |
$form->{addition} = "SCREENED";
|
| 1662 | 1662 |
} |
| 1663 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1663 |
$form->save_history; |
|
| 1664 | 1664 |
} |
| 1665 | 1665 |
# /saving the history |
| 1666 | 1666 |
|
Auch abrufbar als: Unified diff
save_history sollte NICHT jedesmal eine neue datenbankverbindung aufmachen.