Revision a590a651
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 360 | 360 |
if(!exists $form->{addition}) {
|
| 361 | 361 |
$form->{snumbers} = qq|invnumber_| . $form->{"invnumber_$i"};
|
| 362 | 362 |
$form->{addition} = "POSTED";
|
| 363 |
$form->save_history($form->dbconnect($myconfig));
|
|
| 363 |
$form->save_history; |
|
| 364 | 364 |
} |
| 365 | 365 |
# /saving the history |
| 366 | 366 |
} |
| SL/Form.pm | ||
|---|---|---|
| 3235 | 3235 |
sub save_history {
|
| 3236 | 3236 |
$main::lxdebug->enter_sub(); |
| 3237 | 3237 |
|
| 3238 |
my $self = shift();
|
|
| 3239 |
my $dbh = shift();
|
|
| 3238 |
my $self = shift; |
|
| 3239 |
my $dbh = shift || $self->get_standard_dbh;
|
|
| 3240 | 3240 |
|
| 3241 | 3241 |
if(!exists $self->{employee_id}) {
|
| 3242 | 3242 |
&get_employee($self, $dbh); |
| ... | ... | |
| 3249 | 3249 |
$self->{addition}, $self->{what_done}, "$self->{snumbers}");
|
| 3250 | 3250 |
do_query($self, $dbh, $query, @values); |
| 3251 | 3251 |
|
| 3252 |
$dbh->commit; |
|
| 3253 |
|
|
| 3252 | 3254 |
$main::lxdebug->leave_sub(); |
| 3253 | 3255 |
} |
| 3254 | 3256 |
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 1081 | 1081 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1082 | 1082 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1083 | 1083 |
$form->{addition} = "POSTED";
|
| 1084 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1084 |
$form->save_history; |
|
| 1085 | 1085 |
} |
| 1086 | 1086 |
# /saving the history |
| 1087 | 1087 |
remove_draft() if $form->{remove_draft};
|
| ... | ... | |
| 1107 | 1107 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1108 | 1108 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1109 | 1109 |
$form->{addition} = "POSTED AS NEW";
|
| 1110 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1110 |
$form->save_history; |
|
| 1111 | 1111 |
} |
| 1112 | 1112 |
# /saving the history |
| 1113 | 1113 |
&post; |
| ... | ... | |
| 1190 | 1190 |
if(!exists $form->{addition}) {
|
| 1191 | 1191 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1192 | 1192 |
$form->{addition} = "DELETED";
|
| 1193 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1193 |
$form->save_history; |
|
| 1194 | 1194 |
} |
| 1195 | 1195 |
# /saving the history |
| 1196 | 1196 |
$form->redirect($locale->text('Transaction deleted!'));
|
| ... | ... | |
| 1433 | 1433 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1434 | 1434 |
$form->{snumbers} = "ordnumber_$form->{ordnumber}";
|
| 1435 | 1435 |
$form->{addition} = "STORNO";
|
| 1436 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1436 |
$form->save_history; |
|
| 1437 | 1437 |
} |
| 1438 | 1438 |
# /saving the history |
| 1439 | 1439 |
|
| bin/mozilla/ar.pl | ||
|---|---|---|
| 90 | 90 |
if(!exists $form->{addition} && ($form->{id} ne "")) {
|
| 91 | 91 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 92 | 92 |
$form->{addition} = "ADDED";
|
| 93 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 93 |
$form->save_history; |
|
| 94 | 94 |
} |
| 95 | 95 |
# /saving the history |
| 96 | 96 |
|
| ... | ... | |
| 1140 | 1140 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1141 | 1141 |
$form->{snumbers} = "invnumber_$form->{invnumber}";
|
| 1142 | 1142 |
$form->{addition} = "POSTED";
|
| 1143 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1143 |
$form->save_history; |
|
| 1144 | 1144 |
} |
| 1145 | 1145 |
# /saving the history |
| 1146 | 1146 |
remove_draft() if $form->{remove_draft};
|
| ... | ... | |
| 1163 | 1163 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1164 | 1164 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1165 | 1165 |
$form->{addition} = "POSTED AS NEW";
|
| 1166 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1166 |
$form->save_history; |
|
| 1167 | 1167 |
} |
| 1168 | 1168 |
# /saving the history |
| 1169 | 1169 |
&post; |
| ... | ... | |
| 1246 | 1246 |
if(!exists $form->{addition}) {
|
| 1247 | 1247 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 1248 | 1248 |
$form->{addition} = "DELETED";
|
| 1249 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1249 |
$form->save_history; |
|
| 1250 | 1250 |
} |
| 1251 | 1251 |
# /saving the history |
| 1252 | 1252 |
$form->redirect($locale->text('Transaction deleted!'));
|
| ... | ... | |
| 1520 | 1520 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1521 | 1521 |
$form->{snumbers} = "ordnumber_$form->{ordnumber}";
|
| 1522 | 1522 |
$form->{addition} = "STORNO";
|
| 1523 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1523 |
$form->save_history; |
|
| 1524 | 1524 |
} |
| 1525 | 1525 |
# /saving the history |
| 1526 | 1526 |
|
| bin/mozilla/ct.pl | ||
|---|---|---|
| 350 | 350 |
# # saving the history |
| 351 | 351 |
# if(!exists $form->{addition}) {
|
| 352 | 352 |
# $form->{addition} = "ADD TRANSACTION";
|
| 353 |
# $form->save_history($form->dbconnect(\%myconfig));
|
|
| 353 |
# $form->save_history; |
|
| 354 | 354 |
# } |
| 355 | 355 |
# # /saving the history |
| 356 | 356 |
|
| ... | ... | |
| 384 | 384 |
if(!exists $form->{addition}) {
|
| 385 | 385 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 386 | 386 |
$form->{addition} = "SAVED";
|
| 387 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 387 |
$form->save_history; |
|
| 388 | 388 |
} |
| 389 | 389 |
# /saving the history |
| 390 | 390 |
&add_transaction; |
| ... | ... | |
| 404 | 404 |
if(!exists $form->{addition}) {
|
| 405 | 405 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 406 | 406 |
$form->{addition} = "SAVED";
|
| 407 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 407 |
$form->save_history; |
|
| 408 | 408 |
} |
| 409 | 409 |
# /saving the history |
| 410 | 410 |
&add_transaction; |
| ... | ... | |
| 429 | 429 |
if(!exists $form->{addition}) {
|
| 430 | 430 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 431 | 431 |
$form->{addition} = "SAVED";
|
| 432 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 432 |
$form->save_history; |
|
| 433 | 433 |
} |
| 434 | 434 |
# /saving the history |
| 435 | 435 |
&add_transaction; |
| ... | ... | |
| 450 | 450 |
if(!exists $form->{addition}) {
|
| 451 | 451 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 452 | 452 |
$form->{addition} = "SAVED";
|
| 453 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 453 |
$form->save_history; |
|
| 454 | 454 |
} |
| 455 | 455 |
# /saving the history |
| 456 | 456 |
&add_transaction; |
| ... | ... | |
| 471 | 471 |
if(!exists $form->{addition}) {
|
| 472 | 472 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 473 | 473 |
$form->{addition} = "SAVED";
|
| 474 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 474 |
$form->save_history; |
|
| 475 | 475 |
} |
| 476 | 476 |
# /saving the history |
| 477 | 477 |
&add_transaction; |
| ... | ... | |
| 497 | 497 |
if(!exists $form->{addition}) {
|
| 498 | 498 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 499 | 499 |
$form->{addition} = "SAVED";
|
| 500 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 500 |
$form->save_history; |
|
| 501 | 501 |
} |
| 502 | 502 |
# /saving the history |
| 503 | 503 |
&add_transaction; |
| ... | ... | |
| 530 | 530 |
if(!exists $form->{addition}) {
|
| 531 | 531 |
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
| 532 | 532 |
$form->{addition} = "SAVED";
|
| 533 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 533 |
$form->save_history; |
|
| 534 | 534 |
} |
| 535 | 535 |
# /saving the history |
| 536 | 536 |
$form->redirect($locale->text($msg)); |
| ... | ... | |
| 570 | 570 |
if(!exists $form->{addition}) {
|
| 571 | 571 |
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
| 572 | 572 |
$form->{addition} = "SAVED";
|
| 573 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 573 |
$form->save_history; |
|
| 574 | 574 |
} |
| 575 | 575 |
# /saving the history |
| 576 | 576 |
&edit; |
| ... | ... | |
| 596 | 596 |
if(!exists $form->{addition}) {
|
| 597 | 597 |
$form->{snumbers} = ($form->{"db"} eq "customer" ? qq|customernumber_| . $form->{customernumber} : qq|vendornumber_| . $form->{vendornumber});
|
| 598 | 598 |
$form->{addition} = "DELETED";
|
| 599 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 599 |
$form->save_history; |
|
| 600 | 600 |
} |
| 601 | 601 |
# /saving the history |
| 602 | 602 |
$form->redirect($locale->text($msg)); |
| bin/mozilla/dn.pl | ||
|---|---|---|
| 178 | 178 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 179 | 179 |
$form->{snumbers} = qq|dunning_id_| . $form->{"dunning_id"};
|
| 180 | 180 |
$form->{addition} = "SAVED FOR DUNNING";
|
| 181 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 181 |
$form->save_history; |
|
| 182 | 182 |
} |
| 183 | 183 |
# /saving the history |
| 184 | 184 |
$form->redirect($locale->text('Dunning Process Config saved!'));
|
| ... | ... | |
| 247 | 247 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 248 | 248 |
$form->{snumbers} = qq|dunning_id_| . $form->{"dunning_id"};
|
| 249 | 249 |
$form->{addition} = "DUNNING STARTED";
|
| 250 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 250 |
$form->save_history; |
|
| 251 | 251 |
} |
| 252 | 252 |
# /saving the history |
| 253 | 253 |
|
| bin/mozilla/do.pl | ||
|---|---|---|
| 637 | 637 |
if(!exists $form->{addition}) {
|
| 638 | 638 |
$form->{snumbers} = qq|donumber_| . $form->{donumber};
|
| 639 | 639 |
$form->{addition} = "SAVED";
|
| 640 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 640 |
$form->save_history; |
|
| 641 | 641 |
} |
| 642 | 642 |
# /saving the history |
| 643 | 643 |
|
| ... | ... | |
| 683 | 683 |
if(!exists $form->{addition}) {
|
| 684 | 684 |
$form->{snumbers} = qq|donumber_| . $form->{donumber};
|
| 685 | 685 |
$form->{addition} = "DELETED";
|
| 686 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 686 |
$form->save_history; |
|
| 687 | 687 |
} |
| 688 | 688 |
# /saving the history |
| 689 | 689 |
|
| ... | ... | |
| 732 | 732 |
|
| 733 | 733 |
for my $i (1 .. $form->{rowcount}) {
|
| 734 | 734 |
# für bug 1284 |
| 735 |
if ($form->{discount}){ # Falls wir einen Kundenrabatt haben
|
|
| 735 |
if ($form->{discount}){ # Falls wir einen Kundenrabatt haben
|
|
| 736 | 736 |
# und keinen anderen discount wert an $i ... |
| 737 | 737 |
$form->{"discount_$i"} ||= $form->{discount}*100; # ... nehmen wir den kundenrabatt
|
| 738 | 738 |
} |
| bin/mozilla/gl.pl | ||
|---|---|---|
| 1420 | 1420 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1421 | 1421 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1422 | 1422 |
$form->{addition} = "DELETED";
|
| 1423 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1423 |
$form->save_history; |
|
| 1424 | 1424 |
} |
| 1425 | 1425 |
# /saving the history |
| 1426 | 1426 |
$form->redirect($locale->text('Transaction deleted!'))
|
| ... | ... | |
| 1578 | 1578 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1579 | 1579 |
$form->{addition} = "SAVED";
|
| 1580 | 1580 |
$form->{what_done} = $locale->text("Buchungsnummer") . " = " . $form->{id};
|
| 1581 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1581 |
$form->save_history; |
|
| 1582 | 1582 |
} |
| 1583 | 1583 |
# /saving the history |
| 1584 | 1584 |
|
| ... | ... | |
| 1646 | 1646 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 1647 | 1647 |
$form->{snumbers} = "ordnumber_$form->{ordnumber}";
|
| 1648 | 1648 |
$form->{addition} = "STORNO";
|
| 1649 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1649 |
$form->save_history; |
|
| 1650 | 1650 |
} |
| 1651 | 1651 |
# /saving the history |
| 1652 | 1652 |
|
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1783 | 1783 |
if(!exists $form->{addition}) {
|
| 1784 | 1784 |
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
|
| 1785 | 1785 |
$form->{addition} = "SAVED";
|
| 1786 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1786 |
$form->save_history; |
|
| 1787 | 1787 |
} |
| 1788 | 1788 |
# /saving the history |
| 1789 | 1789 |
$parts_id = $form->{id};
|
| ... | ... | |
| 1916 | 1916 |
if(!exists $form->{addition}) {
|
| 1917 | 1917 |
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
|
| 1918 | 1918 |
$form->{addition} = "SAVED AS NEW";
|
| 1919 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1919 |
$form->save_history; |
|
| 1920 | 1920 |
} |
| 1921 | 1921 |
# /saving the history |
| 1922 | 1922 |
$form->{id} = 0;
|
| ... | ... | |
| 1937 | 1937 |
if(!exists $form->{addition}) {
|
| 1938 | 1938 |
$form->{snumbers} = qq|partnumber_| . $form->{partnumber};
|
| 1939 | 1939 |
$form->{addition} = "DELETED";
|
| 1940 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1940 |
$form->save_history; |
|
| 1941 | 1941 |
} |
| 1942 | 1942 |
# /saving the history |
| 1943 | 1943 |
my $rc = IC->delete(\%myconfig, \%$form); |
| 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 |
|
| bin/mozilla/ir.pl | ||
|---|---|---|
| 552 | 552 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 553 | 553 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 554 | 554 |
$form->{addition} = "CANCELED";
|
| 555 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 555 |
$form->save_history; |
|
| 556 | 556 |
} |
| 557 | 557 |
# /saving the history |
| 558 | 558 |
|
| ... | ... | |
| 618 | 618 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 619 | 619 |
$form->{addition} = "PAYMENT POSTED";
|
| 620 | 620 |
$form->{what_done} = $form->{currency} . qq| | . $form->{paid} . qq| | . $locale->text("POSTED");
|
| 621 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 621 |
$form->save_history; |
|
| 622 | 622 |
# /saving the history |
| 623 | 623 |
} |
| 624 | 624 |
|
| ... | ... | |
| 718 | 718 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 719 | 719 |
$form->{addition} = "POSTED";
|
| 720 | 720 |
#$form->{what_done} = $locale->text("Rechnungsnummer") . qq| | . $form->{invnumber};
|
| 721 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 721 |
$form->save_history; |
|
| 722 | 722 |
} |
| 723 | 723 |
# /saving the history |
| 724 | 724 |
remove_draft() if $form->{remove_draft};
|
| ... | ... | |
| 784 | 784 |
if(!exists $form->{addition}) {
|
| 785 | 785 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 786 | 786 |
$form->{addition} = "DELETED";
|
| 787 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 787 |
$form->save_history; |
|
| 788 | 788 |
} |
| 789 | 789 |
# /saving the history |
| 790 | 790 |
$form->redirect($locale->text('Invoice deleted!'));
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 721 | 721 |
$form->{addition} = $form->{print_and_post} ? "PRINTED AND POSTED" :
|
| 722 | 722 |
$form->{storno} ? "STORNO" :
|
| 723 | 723 |
"POSTED"; |
| 724 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 724 |
$form->save_history; |
|
| 725 | 725 |
} |
| 726 | 726 |
|
| 727 | 727 |
if (!$form->{no_redirect_after_post}) {
|
| ... | ... | |
| 942 | 942 |
if(!exists $form->{addition}) {
|
| 943 | 943 |
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
| 944 | 944 |
$form->{addition} = "DELETED";
|
| 945 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 945 |
$form->save_history; |
|
| 946 | 946 |
} |
| 947 | 947 |
# /saving the history |
| 948 | 948 |
$form->redirect($locale->text('Invoice deleted!'));
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1063 | 1063 |
if(!exists $form->{addition}) {
|
| 1064 | 1064 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1065 | 1065 |
$form->{addition} = "SAVED";
|
| 1066 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1066 |
$form->save_history; |
|
| 1067 | 1067 |
} |
| 1068 | 1068 |
# /saving the history |
| 1069 | 1069 |
|
| ... | ... | |
| 1171 | 1171 |
if(!exists $form->{addition}) {
|
| 1172 | 1172 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1173 | 1173 |
$form->{addition} = "SAVED";
|
| 1174 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1174 |
$form->save_history; |
|
| 1175 | 1175 |
} |
| 1176 | 1176 |
# /saving the history |
| 1177 | 1177 |
|
| ... | ... | |
| 1259 | 1259 |
if(!exists $form->{addition}) {
|
| 1260 | 1260 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 1261 | 1261 |
$form->{addition} = "DELETED";
|
| 1262 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 1262 |
$form->save_history; |
|
| 1263 | 1263 |
} |
| 1264 | 1264 |
# /saving the history |
| 1265 | 1265 |
$form->info($msg); |
| bin/mozilla/pe.pl | ||
|---|---|---|
| 195 | 195 |
if(!exists $form->{addition} && $form->{id} ne "") {
|
| 196 | 196 |
$form->{snumbers} = qq|projectnumber_| . $form->{projectnumber};
|
| 197 | 197 |
$form->{addition} = "SAVED";
|
| 198 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 198 |
$form->save_history; |
|
| 199 | 199 |
} |
| 200 | 200 |
# /saving the history |
| 201 | 201 |
|
| ... | ... | |
| 223 | 223 |
if(!exists $form->{addition}) {
|
| 224 | 224 |
$form->{snumbers} = qq|projectnumber_| . $form->{projectnumber};
|
| 225 | 225 |
$form->{addition} = "DELETED";
|
| 226 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 226 |
$form->save_history; |
|
| 227 | 227 |
} |
| 228 | 228 |
# /saving the history |
| 229 | 229 |
$main::lxdebug->leave_sub(); |
| bin/mozilla/projects.pl | ||
|---|---|---|
| 235 | 235 |
$form->{id} = $project->{id};
|
| 236 | 236 |
$form->{snumbers} = qq|projectnumber_| . $project->{projectnumber};
|
| 237 | 237 |
$form->{addition} = "SAVED";
|
| 238 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 238 |
$form->save_history; |
|
| 239 | 239 |
} |
| 240 | 240 |
# /saving the history |
| 241 | 241 |
|
| ... | ... | |
| 278 | 278 |
if(!exists $form->{addition}) {
|
| 279 | 279 |
$form->{snumbers} = qq|projectnumber_| . $project->{projectnumber};
|
| 280 | 280 |
$form->{addition} = "DELETED";
|
| 281 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 281 |
$form->save_history; |
|
| 282 | 282 |
} |
| 283 | 283 |
# /saving the history |
| 284 | 284 |
|
| bin/mozilla/rp.pl | ||
|---|---|---|
| 2062 | 2062 |
$form->{snumbers} = qq|ordnumber_| . $form->{ordnumber};
|
| 2063 | 2063 |
$form->{addition} = "PRINTED";
|
| 2064 | 2064 |
$form->{what_done} = $form->{type};
|
| 2065 |
$form->save_history($form->dbconnect(\%myconfig));
|
|
| 2065 |
$form->save_history; |
|
| 2066 | 2066 |
} |
| 2067 | 2067 |
# /saving the history |
| 2068 | 2068 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
save_history sollte NICHT jedesmal eine neue datenbankverbindung aufmachen.