Revision 8c7e4493
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 31 | 31 |
# |
| 32 | 32 |
#====================================================================== |
| 33 | 33 |
|
| 34 |
use SL::Auth; |
|
| 34 | 35 |
use SL::AM; |
| 35 | 36 |
use SL::CA; |
| 36 | 37 |
use SL::Form; |
| ... | ... | |
| 57 | 58 |
sub add_account {
|
| 58 | 59 |
$lxdebug->enter_sub(); |
| 59 | 60 |
|
| 61 |
$auth->assert('config');
|
|
| 62 |
|
|
| 60 | 63 |
$form->{title} = "Add";
|
| 61 | 64 |
$form->{charttype} = "A";
|
| 62 | 65 |
AM->get_account(\%myconfig, \%$form); |
| 63 | 66 |
|
| 64 |
$form->{callback} =
|
|
| 65 |
"$form->{script}?action=list_account&login=$form->{login}&password=$form->{password}"
|
|
| 66 |
unless $form->{callback};
|
|
| 67 |
$form->{callback} = "am.pl?action=list_account" unless $form->{callback};
|
|
| 67 | 68 |
|
| 68 | 69 |
&account_header; |
| 69 | 70 |
&form_footer; |
| ... | ... | |
| 74 | 75 |
sub edit_account {
|
| 75 | 76 |
$lxdebug->enter_sub(); |
| 76 | 77 |
|
| 78 |
$auth->assert('config');
|
|
| 79 |
|
|
| 77 | 80 |
$form->{title} = "Edit";
|
| 78 | 81 |
AM->get_account(\%myconfig, \%$form); |
| 79 | 82 |
|
| ... | ... | |
| 90 | 93 |
sub account_header {
|
| 91 | 94 |
$lxdebug->enter_sub(); |
| 92 | 95 |
|
| 96 |
$auth->assert('config');
|
|
| 97 |
|
|
| 93 | 98 |
if ( $form->{action} eq 'edit_account') {
|
| 94 | 99 |
$form->{account_exists} = '1';
|
| 95 | 100 |
} |
| ... | ... | |
| 348 | 353 |
sub form_footer {
|
| 349 | 354 |
$lxdebug->enter_sub(); |
| 350 | 355 |
|
| 351 |
print qq|
|
|
| 356 |
$auth->assert('config');
|
|
| 352 | 357 |
|
| 353 |
<input name=callback type=hidden value="$form->{callback}">
|
|
| 358 |
print qq|
|
|
| 354 | 359 |
|
| 355 |
<input type=hidden name=login value=$form->{login}>
|
|
| 356 |
<input type=hidden name=password value=$form->{password}>
|
|
| 360 |
<input name=callback type=hidden value="| . H($form->{callback}) . qq|">
|
|
| 357 | 361 |
|
| 358 | 362 |
<br>|; |
| 359 | 363 |
if ((!$form->{id}) || ($form->{id} && $form->{orphaned}) || (($form->{type} eq "account") && (!$form->{new_chart_valid}))) {
|
| ... | ... | |
| 381 | 385 |
sub save_account {
|
| 382 | 386 |
$lxdebug->enter_sub(); |
| 383 | 387 |
|
| 388 |
$auth->assert('config');
|
|
| 389 |
|
|
| 384 | 390 |
$form->isblank("accno", $locale->text('Account Number missing!'));
|
| 385 | 391 |
$form->isblank("description", $locale->text('Account Description missing!'));
|
| 386 | 392 |
|
| ... | ... | |
| 398 | 404 |
sub list_account {
|
| 399 | 405 |
$lxdebug->enter_sub(); |
| 400 | 406 |
|
| 407 |
$auth->assert('config');
|
|
| 408 |
|
|
| 401 | 409 |
$form->{callback} = build_std_url('action=list_account');
|
| 402 | 410 |
my $link_edit_account = build_std_url('action=edit_account', 'callback');
|
| 403 | 411 |
|
| ... | ... | |
| 449 | 457 |
# Ajax Funktion aus list_account_details |
| 450 | 458 |
$lxdebug->enter_sub(); |
| 451 | 459 |
|
| 460 |
$auth->assert('config');
|
|
| 461 |
|
|
| 452 | 462 |
my $chart_id = $form->{args};
|
| 453 | 463 |
|
| 454 | 464 |
CA->all_accounts(\%myconfig, \%$form, $chart_id); |
| ... | ... | |
| 514 | 524 |
sub delete_account {
|
| 515 | 525 |
$lxdebug->enter_sub(); |
| 516 | 526 |
|
| 527 |
$auth->assert('config');
|
|
| 528 |
|
|
| 517 | 529 |
$form->{title} = $locale->text('Delete Account');
|
| 518 | 530 |
|
| 519 | 531 |
foreach $id ( |
| ... | ... | |
| 534 | 546 |
sub add_department {
|
| 535 | 547 |
$lxdebug->enter_sub(); |
| 536 | 548 |
|
| 549 |
$auth->assert('config');
|
|
| 550 |
|
|
| 537 | 551 |
$form->{title} = "Add";
|
| 538 | 552 |
$form->{role} = "P";
|
| 539 | 553 |
|
| 540 |
$form->{callback} =
|
|
| 541 |
"$form->{script}?action=add_department&login=$form->{login}&password=$form->{password}"
|
|
| 542 |
unless $form->{callback};
|
|
| 554 |
$form->{callback} = "am.pl?action=add_department" unless $form->{callback};
|
|
| 543 | 555 |
|
| 544 | 556 |
&department_header; |
| 545 | 557 |
&form_footer; |
| ... | ... | |
| 550 | 562 |
sub edit_department {
|
| 551 | 563 |
$lxdebug->enter_sub(); |
| 552 | 564 |
|
| 565 |
$auth->assert('config');
|
|
| 566 |
|
|
| 553 | 567 |
$form->{title} = "Edit";
|
| 554 | 568 |
|
| 555 | 569 |
AM->get_department(\%myconfig, \%$form); |
| ... | ... | |
| 563 | 577 |
sub list_department {
|
| 564 | 578 |
$lxdebug->enter_sub(); |
| 565 | 579 |
|
| 580 |
$auth->assert('config');
|
|
| 581 |
|
|
| 566 | 582 |
AM->departments(\%myconfig, \%$form); |
| 567 | 583 |
|
| 568 |
$form->{callback} =
|
|
| 569 |
"$form->{script}?action=list_department&login=$form->{login}&password=$form->{password}";
|
|
| 584 |
$form->{callback} = "am.pl?action=list_department";
|
|
| 570 | 585 |
|
| 571 | 586 |
$callback = $form->escape($form->{callback});
|
| 572 | 587 |
|
| ... | ... | |
| 622 | 637 |
$profitcenter = ($ref->{role} eq "P") ? "X" : "";
|
| 623 | 638 |
|
| 624 | 639 |
$column_data{description} =
|
| 625 |
qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 640 |
qq|<td><a href="am.pl?action=edit_department&id=$ref->{id}&callback=$callback">$ref->{description}</td>|;
|
|
| 626 | 641 |
$column_data{cost} = qq|<td align=center>$costcenter</td>|;
|
| 627 | 642 |
$column_data{profit} = qq|<td align=center>$profitcenter</td>|;
|
| 628 | 643 |
|
| ... | ... | |
| 643 | 658 |
</table> |
| 644 | 659 |
|
| 645 | 660 |
<br> |
| 646 |
<form method=post action=$form->{script}>
|
|
| 661 |
<form method=post action=am.pl>
|
|
| 647 | 662 |
|
| 648 | 663 |
<input name=callback type=hidden value="$form->{callback}">
|
| 649 | 664 |
|
| 650 | 665 |
<input type=hidden name=type value=department> |
| 651 | 666 |
|
| 652 |
<input type=hidden name=login value=$form->{login}>
|
|
| 653 |
<input type=hidden name=password value=$form->{password}>
|
|
| 654 |
|
|
| 655 | 667 |
<input class=submit type=submit name=action value="| |
| 656 | 668 |
. $locale->text('Add') . qq|">
|
| 657 | 669 |
|
| ... | ... | |
| 667 | 679 |
sub department_header {
|
| 668 | 680 |
$lxdebug->enter_sub(); |
| 669 | 681 |
|
| 682 |
$auth->assert('config');
|
|
| 683 |
|
|
| 670 | 684 |
$form->{title} = $locale->text("$form->{title} Department");
|
| 671 | 685 |
|
| 672 | 686 |
# $locale->text('Add Department')
|
| ... | ... | |
| 690 | 704 |
print qq| |
| 691 | 705 |
<body> |
| 692 | 706 |
|
| 693 |
<form method=post action=$form->{script}>
|
|
| 707 |
<form method=post action=am.pl>
|
|
| 694 | 708 |
|
| 695 | 709 |
<input type=hidden name=id value=$form->{id}>
|
| 696 | 710 |
<input type=hidden name=type value=department> |
| ... | ... | |
| 723 | 737 |
sub save_department {
|
| 724 | 738 |
$lxdebug->enter_sub(); |
| 725 | 739 |
|
| 740 |
$auth->assert('config');
|
|
| 741 |
|
|
| 726 | 742 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 727 | 743 |
AM->save_department(\%myconfig, \%$form); |
| 728 | 744 |
$form->redirect($locale->text('Department saved!'));
|
| ... | ... | |
| 733 | 749 |
sub delete_department {
|
| 734 | 750 |
$lxdebug->enter_sub(); |
| 735 | 751 |
|
| 752 |
$auth->assert('config');
|
|
| 753 |
|
|
| 736 | 754 |
AM->delete_department(\%myconfig, \%$form); |
| 737 | 755 |
$form->redirect($locale->text('Department deleted!'));
|
| 738 | 756 |
|
| ... | ... | |
| 742 | 760 |
sub add_lead {
|
| 743 | 761 |
$lxdebug->enter_sub(); |
| 744 | 762 |
|
| 763 |
$auth->assert('config');
|
|
| 764 |
|
|
| 745 | 765 |
$form->{title} = "Add";
|
| 746 | 766 |
|
| 747 |
$form->{callback} =
|
|
| 748 |
"$form->{script}?action=add_lead&login=$form->{login}&password=$form->{password}"
|
|
| 749 |
unless $form->{callback};
|
|
| 767 |
$form->{callback} = "am.pl?action=add_lead" unless $form->{callback};
|
|
| 750 | 768 |
|
| 751 | 769 |
&lead_header; |
| 752 | 770 |
&form_footer; |
| ... | ... | |
| 757 | 775 |
sub edit_lead {
|
| 758 | 776 |
$lxdebug->enter_sub(); |
| 759 | 777 |
|
| 778 |
$auth->assert('config');
|
|
| 779 |
|
|
| 760 | 780 |
$form->{title} = "Edit";
|
| 761 | 781 |
|
| 762 | 782 |
AM->get_lead(\%myconfig, \%$form); |
| ... | ... | |
| 772 | 792 |
sub list_lead {
|
| 773 | 793 |
$lxdebug->enter_sub(); |
| 774 | 794 |
|
| 795 |
$auth->assert('config');
|
|
| 796 |
|
|
| 775 | 797 |
AM->lead(\%myconfig, \%$form); |
| 776 | 798 |
|
| 777 |
$form->{callback} =
|
|
| 778 |
"$form->{script}?action=list_lead&login=$form->{login}&password=$form->{password}";
|
|
| 799 |
$form->{callback} = "am.pl?action=list_lead";
|
|
| 779 | 800 |
|
| 780 | 801 |
$callback = $form->escape($form->{callback});
|
| 781 | 802 |
|
| ... | ... | |
| 818 | 839 |
|
| 819 | 840 |
$lead = $ref->{lead};
|
| 820 | 841 |
|
| 821 |
$column_data{description} =
|
|
| 822 |
qq|<td><a href=$form->{script}?action=edit_lead&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{lead}</td>|;
|
|
| 842 |
$column_data{description} = qq|<td><a href="am.pl?action=edit_lead&id=$ref->{id}&callback=$callback">$ref->{lead}</td>|;
|
|
| 823 | 843 |
|
| 824 | 844 |
map { print "$column_data{$_}\n" } @column_index;
|
| 825 | 845 |
|
| ... | ... | |
| 835 | 855 |
</table> |
| 836 | 856 |
|
| 837 | 857 |
<br> |
| 838 |
<form method=post action=$form->{script}>
|
|
| 858 |
<form method=post action=am.pl>
|
|
| 839 | 859 |
|
| 840 | 860 |
<input name=callback type=hidden value="$form->{callback}">
|
| 841 | 861 |
|
| 842 | 862 |
<input type=hidden name=type value=lead> |
| 843 | 863 |
|
| 844 |
<input type=hidden name=login value=$form->{login}>
|
|
| 845 |
<input type=hidden name=password value=$form->{password}>
|
|
| 846 |
|
|
| 847 | 864 |
<input class=submit type=submit name=action value="| |
| 848 | 865 |
. $locale->text('Add') . qq|">
|
| 849 | 866 |
|
| ... | ... | |
| 859 | 876 |
sub lead_header {
|
| 860 | 877 |
$lxdebug->enter_sub(); |
| 861 | 878 |
|
| 879 |
$auth->assert('config');
|
|
| 880 |
|
|
| 862 | 881 |
$form->{title} = $locale->text("$form->{title} Lead");
|
| 863 | 882 |
|
| 864 | 883 |
# $locale->text('Add Lead')
|
| ... | ... | |
| 874 | 893 |
print qq| |
| 875 | 894 |
<body> |
| 876 | 895 |
|
| 877 |
<form method=post action=$form->{script}>
|
|
| 896 |
<form method=post action=am.pl>
|
|
| 878 | 897 |
|
| 879 | 898 |
<input type=hidden name=id value=$form->{id}>
|
| 880 | 899 |
<input type=hidden name=type value=lead> |
| ... | ... | |
| 899 | 918 |
sub save_lead {
|
| 900 | 919 |
$lxdebug->enter_sub(); |
| 901 | 920 |
|
| 921 |
$auth->assert('config');
|
|
| 922 |
|
|
| 902 | 923 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 903 | 924 |
AM->save_lead(\%myconfig, \%$form); |
| 904 | 925 |
$form->redirect($locale->text('lead saved!'));
|
| ... | ... | |
| 909 | 930 |
sub delete_lead {
|
| 910 | 931 |
$lxdebug->enter_sub(); |
| 911 | 932 |
|
| 933 |
$auth->assert('config');
|
|
| 934 |
|
|
| 912 | 935 |
AM->delete_lead(\%myconfig, \%$form); |
| 913 | 936 |
$form->redirect($locale->text('lead deleted!'));
|
| 914 | 937 |
|
| ... | ... | |
| 918 | 941 |
sub add_business {
|
| 919 | 942 |
$lxdebug->enter_sub(); |
| 920 | 943 |
|
| 944 |
$auth->assert('config');
|
|
| 945 |
|
|
| 921 | 946 |
$form->{title} = "Add";
|
| 922 | 947 |
|
| 923 |
$form->{callback} =
|
|
| 924 |
"$form->{script}?action=add_business&login=$form->{login}&password=$form->{password}"
|
|
| 925 |
unless $form->{callback};
|
|
| 948 |
$form->{callback} = "am.pl?action=add_business" unless $form->{callback};
|
|
| 926 | 949 |
|
| 927 | 950 |
&business_header; |
| 928 | 951 |
&form_footer; |
| ... | ... | |
| 948 | 971 |
sub list_business {
|
| 949 | 972 |
$lxdebug->enter_sub(); |
| 950 | 973 |
|
| 974 |
$auth->assert('config');
|
|
| 975 |
|
|
| 951 | 976 |
AM->business(\%myconfig, \%$form); |
| 952 | 977 |
|
| 953 |
$form->{callback} =
|
|
| 954 |
"$form->{script}?action=list_business&login=$form->{login}&password=$form->{password}";
|
|
| 978 |
$form->{callback} = "am.pl?action=list_business";
|
|
| 955 | 979 |
|
| 956 | 980 |
$callback = $form->escape($form->{callback});
|
| 957 | 981 |
|
| ... | ... | |
| 1007 | 1031 |
$form->format_amount(\%myconfig, $ref->{discount} * 100);
|
| 1008 | 1032 |
$description = |
| 1009 | 1033 |
$ref->{description};
|
| 1010 |
$column_data{description} =
|
|
| 1011 |
qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$description</td>|;
|
|
| 1034 |
$column_data{description} = qq|<td><a href="am.pl?action=edit_business&id=$ref->{id}&callback=$callback">$description</td>|;
|
|
| 1012 | 1035 |
$column_data{discount} = qq|<td align=right>$discount</td>|;
|
| 1013 | 1036 |
$column_data{customernumberinit} =
|
| 1014 | 1037 |
qq|<td align=right>$ref->{customernumberinit}</td>|;
|
| ... | ... | |
| 1030 | 1053 |
</table> |
| 1031 | 1054 |
|
| 1032 | 1055 |
<br> |
| 1033 |
<form method=post action=$form->{script}>
|
|
| 1056 |
<form method=post action=am.pl>
|
|
| 1034 | 1057 |
|
| 1035 | 1058 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1036 | 1059 |
|
| 1037 | 1060 |
<input type=hidden name=type value=business> |
| 1038 | 1061 |
|
| 1039 |
<input type=hidden name=login value=$form->{login}>
|
|
| 1040 |
<input type=hidden name=password value=$form->{password}>
|
|
| 1041 |
|
|
| 1042 | 1062 |
<input class=submit type=submit name=action value="| |
| 1043 | 1063 |
. $locale->text('Add') . qq|">
|
| 1044 | 1064 |
|
| ... | ... | |
| 1054 | 1074 |
sub business_header {
|
| 1055 | 1075 |
$lxdebug->enter_sub(); |
| 1056 | 1076 |
|
| 1077 |
$auth->assert('config');
|
|
| 1078 |
|
|
| 1057 | 1079 |
$form->{title} = $locale->text("$form->{title} Business");
|
| 1058 | 1080 |
|
| 1059 | 1081 |
# $locale->text('Add Business')
|
| ... | ... | |
| 1068 | 1090 |
print qq| |
| 1069 | 1091 |
<body> |
| 1070 | 1092 |
|
| 1071 |
<form method=post action=$form->{script}>
|
|
| 1093 |
<form method=post action=am.pl>
|
|
| 1072 | 1094 |
|
| 1073 | 1095 |
<input type=hidden name=id value=$form->{id}>
|
| 1074 | 1096 |
<input type=hidden name=type value=business> |
| ... | ... | |
| 1101 | 1123 |
sub save_business {
|
| 1102 | 1124 |
$lxdebug->enter_sub(); |
| 1103 | 1125 |
|
| 1126 |
$auth->assert('config');
|
|
| 1127 |
|
|
| 1104 | 1128 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 1105 | 1129 |
$form->{discount} = $form->parse_amount(\%myconfig, $form->{discount}) / 100;
|
| 1106 | 1130 |
AM->save_business(\%myconfig, \%$form); |
| ... | ... | |
| 1112 | 1136 |
sub delete_business {
|
| 1113 | 1137 |
$lxdebug->enter_sub(); |
| 1114 | 1138 |
|
| 1139 |
$auth->assert('config');
|
|
| 1140 |
|
|
| 1115 | 1141 |
AM->delete_business(\%myconfig, \%$form); |
| 1116 | 1142 |
$form->redirect($locale->text('Business deleted!'));
|
| 1117 | 1143 |
|
| ... | ... | |
| 1121 | 1147 |
sub add_language {
|
| 1122 | 1148 |
$lxdebug->enter_sub(); |
| 1123 | 1149 |
|
| 1150 |
$auth->assert('config');
|
|
| 1151 |
|
|
| 1124 | 1152 |
$form->{title} = "Add";
|
| 1125 | 1153 |
|
| 1126 |
$form->{callback} =
|
|
| 1127 |
"$form->{script}?action=add_language&login=$form->{login}&password=$form->{password}"
|
|
| 1128 |
unless $form->{callback};
|
|
| 1154 |
$form->{callback} = "am.pl?action=add_language" unless $form->{callback};
|
|
| 1129 | 1155 |
|
| 1130 | 1156 |
&language_header; |
| 1131 | 1157 |
&form_footer; |
| ... | ... | |
| 1136 | 1162 |
sub edit_language {
|
| 1137 | 1163 |
$lxdebug->enter_sub(); |
| 1138 | 1164 |
|
| 1165 |
$auth->assert('config');
|
|
| 1166 |
|
|
| 1139 | 1167 |
$form->{title} = "Edit";
|
| 1140 | 1168 |
|
| 1141 | 1169 |
AM->get_language(\%myconfig, \%$form); |
| ... | ... | |
| 1151 | 1179 |
sub list_language {
|
| 1152 | 1180 |
$lxdebug->enter_sub(); |
| 1153 | 1181 |
|
| 1182 |
$auth->assert('config');
|
|
| 1183 |
|
|
| 1154 | 1184 |
AM->language(\%myconfig, \%$form); |
| 1155 | 1185 |
|
| 1156 |
$form->{callback} =
|
|
| 1157 |
"$form->{script}?action=list_language&login=$form->{login}&password=$form->{password}";
|
|
| 1186 |
$form->{callback} = "am.pl?action=list_language";
|
|
| 1158 | 1187 |
|
| 1159 | 1188 |
$callback = $form->escape($form->{callback});
|
| 1160 | 1189 |
|
| ... | ... | |
| 1220 | 1249 |
|
| 1221 | 1250 |
|
| 1222 | 1251 |
$column_data{description} =
|
| 1223 |
qq|<td><a href=$form->{script}?action=edit_language&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 1252 |
qq|<td><a href="am.pl?action=edit_language&id=$ref->{id}&callback=$callback">$ref->{description}</td>|;
|
|
| 1224 | 1253 |
$column_data{template_code} = qq|<td align=right>$ref->{template_code}</td>|;
|
| 1225 | 1254 |
$column_data{article_code} =
|
| 1226 | 1255 |
qq|<td align=right>$ref->{article_code}</td>|;
|
| ... | ... | |
| 1256 | 1285 |
</table> |
| 1257 | 1286 |
|
| 1258 | 1287 |
<br> |
| 1259 |
<form method=post action=$form->{script}>
|
|
| 1288 |
<form method=post action=am.pl>
|
|
| 1260 | 1289 |
|
| 1261 | 1290 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1262 | 1291 |
|
| 1263 | 1292 |
<input type=hidden name=type value=language> |
| 1264 | 1293 |
|
| 1265 |
<input type=hidden name=login value=$form->{login}>
|
|
| 1266 |
<input type=hidden name=password value=$form->{password}>
|
|
| 1267 |
|
|
| 1268 | 1294 |
<input class=submit type=submit name=action value="| |
| 1269 | 1295 |
. $locale->text('Add') . qq|">
|
| 1270 | 1296 |
|
| ... | ... | |
| 1280 | 1306 |
sub language_header {
|
| 1281 | 1307 |
$lxdebug->enter_sub(); |
| 1282 | 1308 |
|
| 1309 |
$auth->assert('config');
|
|
| 1310 |
|
|
| 1283 | 1311 |
$form->{title} = $locale->text("$form->{title} Language");
|
| 1284 | 1312 |
|
| 1285 | 1313 |
# $locale->text('Add Language')
|
| ... | ... | |
| 1317 | 1345 |
print qq| |
| 1318 | 1346 |
<body> |
| 1319 | 1347 |
|
| 1320 |
<form method=post action=$form->{script}>
|
|
| 1348 |
<form method=post action=am.pl>
|
|
| 1321 | 1349 |
|
| 1322 | 1350 |
<input type=hidden name=id value=$form->{id}>
|
| 1323 | 1351 |
<input type=hidden name=type value=language> |
| ... | ... | |
| 1368 | 1396 |
sub save_language {
|
| 1369 | 1397 |
$lxdebug->enter_sub(); |
| 1370 | 1398 |
|
| 1399 |
$auth->assert('config');
|
|
| 1400 |
|
|
| 1371 | 1401 |
$form->isblank("description", $locale->text('Language missing!'));
|
| 1372 | 1402 |
$form->isblank("template_code", $locale->text('Template Code missing!'));
|
| 1373 | 1403 |
$form->isblank("article_code", $locale->text('Article Code missing!'));
|
| ... | ... | |
| 1380 | 1410 |
sub delete_language {
|
| 1381 | 1411 |
$lxdebug->enter_sub(); |
| 1382 | 1412 |
|
| 1413 |
$auth->assert('config');
|
|
| 1414 |
|
|
| 1383 | 1415 |
AM->delete_language(\%myconfig, \%$form); |
| 1384 | 1416 |
$form->redirect($locale->text('Language deleted!'));
|
| 1385 | 1417 |
|
| ... | ... | |
| 1390 | 1422 |
sub add_buchungsgruppe {
|
| 1391 | 1423 |
$lxdebug->enter_sub(); |
| 1392 | 1424 |
|
| 1425 |
$auth->assert('config');
|
|
| 1426 |
|
|
| 1393 | 1427 |
# $locale->text("Add Buchungsgruppe")
|
| 1394 | 1428 |
# $locale->text("Edit Buchungsgruppe")
|
| 1395 | 1429 |
$form->{title} = "Add";
|
| 1396 | 1430 |
|
| 1397 |
$form->{callback} =
|
|
| 1398 |
"$form->{script}?action=add_buchungsgruppe&login=$form->{login}&password=$form->{password}"
|
|
| 1399 |
unless $form->{callback};
|
|
| 1431 |
$form->{callback} = "am.pl?action=add_buchungsgruppe" unless $form->{callback};
|
|
| 1432 |
|
|
| 1400 | 1433 |
AM->get_buchungsgruppe(\%myconfig, \%$form); |
| 1401 | 1434 |
$form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"};
|
| 1402 | 1435 |
for (my $i = 0; 4 > $i; $i++) {
|
| ... | ... | |
| 1413 | 1446 |
sub edit_buchungsgruppe {
|
| 1414 | 1447 |
$lxdebug->enter_sub(); |
| 1415 | 1448 |
|
| 1449 |
$auth->assert('config');
|
|
| 1450 |
|
|
| 1416 | 1451 |
$form->{title} = "Edit";
|
| 1417 | 1452 |
|
| 1418 | 1453 |
AM->get_buchungsgruppe(\%myconfig, \%$form); |
| ... | ... | |
| 1427 | 1462 |
sub list_buchungsgruppe {
|
| 1428 | 1463 |
$lxdebug->enter_sub(); |
| 1429 | 1464 |
|
| 1465 |
$auth->assert('config');
|
|
| 1466 |
|
|
| 1430 | 1467 |
AM->buchungsgruppe(\%myconfig, \%$form); |
| 1431 | 1468 |
|
| 1432 |
$form->{callback} =
|
|
| 1433 |
"$form->{script}?action=list_buchungsgruppe&login=$form->{login}&password=$form->{password}";
|
|
| 1469 |
$form->{callback} = "am.pl?action=list_buchungsgruppe";
|
|
| 1434 | 1470 |
|
| 1435 | 1471 |
$callback = $form->escape($form->{callback});
|
| 1436 | 1472 |
|
| ... | ... | |
| 1512 | 1548 |
</tr> |
| 1513 | 1549 |
|; |
| 1514 | 1550 |
|
| 1515 |
my $swap_link = qq|$form->{script}?action=swap_buchungsgruppen&|;
|
|
| 1516 |
map({ $swap_link .= $_ . "=" . $form->escape($form->{$_}) . "&" }
|
|
| 1517 |
qw(login password)); |
|
| 1551 |
my $swap_link = qq|am.pl?action=swap_buchungsgruppen&|; |
|
| 1518 | 1552 |
|
| 1519 | 1553 |
my $row = 0; |
| 1520 | 1554 |
foreach $ref (@{ $form->{ALL} }) {
|
| ... | ... | |
| 1548 | 1582 |
qq|</a></td>|; |
| 1549 | 1583 |
} |
| 1550 | 1584 |
|
| 1551 |
$column_data{description} =
|
|
| 1552 |
qq|<td><a href=$form->{script}?action=edit_buchungsgruppe&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
|
|
| 1585 |
$column_data{description} = qq|<td><a href="am.pl?action=edit_buchungsgruppe&id=$ref->{id}&callback=$callback">$ref->{description}</td>|;
|
|
| 1553 | 1586 |
$column_data{inventory_accno} = qq|<td align=right>$ref->{inventory_accno}</td>|;
|
| 1554 | 1587 |
$column_data{income_accno_0} =
|
| 1555 | 1588 |
qq|<td align=right>$ref->{income_accno_0}</td>|;
|
| ... | ... | |
| 1583 | 1616 |
</table> |
| 1584 | 1617 |
|
| 1585 | 1618 |
<br> |
| 1586 |
<form method=post action=$form->{script}>
|
|
| 1619 |
<form method=post action=am.pl>
|
|
| 1587 | 1620 |
|
| 1588 | 1621 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1589 | 1622 |
|
| 1590 | 1623 |
<input type=hidden name=type value=buchungsgruppe> |
| 1591 | 1624 |
|
| 1592 |
<input type=hidden name=login value=$form->{login}>
|
|
| 1593 |
<input type=hidden name=password value=$form->{password}>
|
|
| 1594 |
|
|
| 1595 | 1625 |
<input class=submit type=submit name=action value="| |
| 1596 | 1626 |
. $locale->text('Add') . qq|">
|
| 1597 | 1627 |
|
| ... | ... | |
| 1607 | 1637 |
sub buchungsgruppe_header {
|
| 1608 | 1638 |
$lxdebug->enter_sub(); |
| 1609 | 1639 |
|
| 1640 |
$auth->assert('config');
|
|
| 1641 |
|
|
| 1610 | 1642 |
$form->{title} = $locale->text("$form->{title} Buchungsgruppe");
|
| 1611 | 1643 |
|
| 1612 | 1644 |
# $locale->text('Add Accounting Group')
|
| ... | ... | |
| 1721 | 1753 |
print qq| |
| 1722 | 1754 |
<body> |
| 1723 | 1755 |
|
| 1724 |
<form method=post action=$form->{script}>
|
|
| 1756 |
<form method=post action=am.pl>
|
|
| 1725 | 1757 |
|
| 1726 | 1758 |
<input type=hidden name=id value=$form->{id}>
|
| 1727 | 1759 |
<input type=hidden name=type value=buchungsgruppe> |
| ... | ... | |
| 1747 | 1779 |
sub save_buchungsgruppe {
|
| 1748 | 1780 |
$lxdebug->enter_sub(); |
| 1749 | 1781 |
|
| 1782 |
$auth->assert('config');
|
|
| 1783 |
|
|
| 1750 | 1784 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 1751 | 1785 |
|
| 1752 | 1786 |
AM->save_buchungsgruppe(\%myconfig, \%$form); |
| ... | ... | |
| 1758 | 1792 |
sub delete_buchungsgruppe {
|
| 1759 | 1793 |
$lxdebug->enter_sub(); |
| 1760 | 1794 |
|
| 1795 |
$auth->assert('config');
|
|
| 1796 |
|
|
| 1761 | 1797 |
AM->delete_buchungsgruppe(\%myconfig, \%$form); |
| 1762 | 1798 |
$form->redirect($locale->text('Accounting Group deleted!'));
|
| 1763 | 1799 |
|
| ... | ... | |
| 1767 | 1803 |
sub swap_buchungsgruppen {
|
| 1768 | 1804 |
$lxdebug->enter_sub(); |
| 1769 | 1805 |
|
| 1806 |
$auth->assert('config');
|
|
| 1807 |
|
|
| 1770 | 1808 |
AM->swap_sortkeys(\%myconfig, $form, "buchungsgruppen"); |
| 1771 | 1809 |
list_buchungsgruppe(); |
| 1772 | 1810 |
|
| ... | ... | |
| 1777 | 1815 |
sub add_printer {
|
| 1778 | 1816 |
$lxdebug->enter_sub(); |
| 1779 | 1817 |
|
| 1818 |
$auth->assert('config');
|
|
| 1819 |
|
|
| 1780 | 1820 |
$form->{title} = "Add";
|
| 1781 | 1821 |
|
| 1782 |
$form->{callback} =
|
|
| 1783 |
"$form->{script}?action=add_printer&login=$form->{login}&password=$form->{password}"
|
|
| 1784 |
unless $form->{callback};
|
|
| 1822 |
$form->{callback} = "am.pl?action=add_printer" unless $form->{callback};
|
|
| 1785 | 1823 |
|
| 1786 | 1824 |
&printer_header; |
| 1787 | 1825 |
&form_footer; |
| ... | ... | |
| 1792 | 1830 |
sub edit_printer {
|
| 1793 | 1831 |
$lxdebug->enter_sub(); |
| 1794 | 1832 |
|
| 1833 |
$auth->assert('config');
|
|
| 1834 |
|
|
| 1795 | 1835 |
$form->{title} = "Edit";
|
| 1796 | 1836 |
|
| 1797 | 1837 |
AM->get_printer(\%myconfig, \%$form); |
| ... | ... | |
| 1807 | 1847 |
sub list_printer {
|
| 1808 | 1848 |
$lxdebug->enter_sub(); |
| 1809 | 1849 |
|
| 1850 |
$auth->assert('config');
|
|
| 1851 |
|
|
| 1810 | 1852 |
AM->printer(\%myconfig, \%$form); |
| 1811 | 1853 |
|
| 1812 |
$form->{callback} =
|
|
| 1813 |
"$form->{script}?action=list_printer&login=$form->{login}&password=$form->{password}";
|
|
| 1854 |
$form->{callback} = "am.pl?action=list_printer";
|
|
| 1814 | 1855 |
|
| 1815 | 1856 |
$callback = $form->escape($form->{callback});
|
| 1816 | 1857 |
|
| ... | ... | |
| 1863 | 1904 |
|; |
| 1864 | 1905 |
|
| 1865 | 1906 |
|
| 1866 |
$column_data{printer_description} =
|
|
| 1867 |
qq|<td><a href=$form->{script}?action=edit_printer&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{printer_description}</td>|;
|
|
| 1907 |
$column_data{printer_description} = qq|<td><a href="am.pl?action=edit_printer&id=$ref->{id}&callback=$callback">$ref->{printer_description}"</td>|;
|
|
| 1868 | 1908 |
$column_data{printer_command} = qq|<td align=right>$ref->{printer_command}</td>|;
|
| 1869 | 1909 |
$column_data{template_code} =
|
| 1870 | 1910 |
qq|<td align=right>$ref->{template_code}</td>|;
|
| ... | ... | |
| 1886 | 1926 |
</table> |
| 1887 | 1927 |
|
| 1888 | 1928 |
<br> |
| 1889 |
<form method=post action=$form->{script}>
|
|
| 1929 |
<form method=post action=am.pl>
|
|
| 1890 | 1930 |
|
| 1891 | 1931 |
<input name=callback type=hidden value="$form->{callback}">
|
| 1892 | 1932 |
|
| 1893 | 1933 |
<input type=hidden name=type value=printer> |
| 1894 | 1934 |
|
| 1895 |
<input type=hidden name=login value=$form->{login}>
|
|
| 1896 |
<input type=hidden name=password value=$form->{password}>
|
|
| 1897 |
|
|
| 1898 | 1935 |
<input class=submit type=submit name=action value="| |
| 1899 | 1936 |
. $locale->text('Add') . qq|">
|
| 1900 | 1937 |
|
| ... | ... | |
| 1910 | 1947 |
sub printer_header {
|
| 1911 | 1948 |
$lxdebug->enter_sub(); |
| 1912 | 1949 |
|
| 1950 |
$auth->assert('config');
|
|
| 1951 |
|
|
| 1913 | 1952 |
$form->{title} = $locale->text("$form->{title} Printer");
|
| 1914 | 1953 |
|
| 1915 | 1954 |
# $locale->text('Add Printer')
|
| ... | ... | |
| 1925 | 1964 |
print qq| |
| 1926 | 1965 |
<body> |
| 1927 | 1966 |
|
| 1928 |
<form method=post action=$form->{script}>
|
|
| 1967 |
<form method=post action=am.pl>
|
|
| 1929 | 1968 |
|
| 1930 | 1969 |
<input type=hidden name=id value=$form->{id}>
|
| 1931 | 1970 |
<input type=hidden name=type value=printer> |
| ... | ... | |
| 1958 | 1997 |
sub save_printer {
|
| 1959 | 1998 |
$lxdebug->enter_sub(); |
| 1960 | 1999 |
|
| 2000 |
$auth->assert('config');
|
|
| 2001 |
|
|
| 1961 | 2002 |
$form->isblank("printer_description", $locale->text('Description missing!'));
|
| 1962 | 2003 |
$form->isblank("printer_command", $locale->text('Printer Command missing!'));
|
| 1963 | 2004 |
AM->save_printer(\%myconfig, \%$form); |
| ... | ... | |
| 1969 | 2010 |
sub delete_printer {
|
| 1970 | 2011 |
$lxdebug->enter_sub(); |
| 1971 | 2012 |
|
| 2013 |
$auth->assert('config');
|
|
| 2014 |
|
|
| 1972 | 2015 |
AM->delete_printer(\%myconfig, \%$form); |
| 1973 | 2016 |
$form->redirect($locale->text('Printer deleted!'));
|
| 1974 | 2017 |
|
| ... | ... | |
| 1978 | 2021 |
sub add_payment {
|
| 1979 | 2022 |
$lxdebug->enter_sub(); |
| 1980 | 2023 |
|
| 2024 |
$auth->assert('config');
|
|
| 2025 |
|
|
| 1981 | 2026 |
$form->{title} = "Add";
|
| 1982 | 2027 |
|
| 1983 |
$form->{callback} =
|
|
| 1984 |
"$form->{script}?action=add_payment&login=$form->{login}&password=$form->{password}"
|
|
| 1985 |
unless $form->{callback};
|
|
| 2028 |
$form->{callback} = "am.pl?action=add_payment" unless $form->{callback};
|
|
| 1986 | 2029 |
|
| 1987 | 2030 |
$form->{terms_netto} = 0;
|
| 1988 | 2031 |
$form->{terms_skonto} = 0;
|
| ... | ... | |
| 2000 | 2043 |
sub edit_payment {
|
| 2001 | 2044 |
$lxdebug->enter_sub(); |
| 2002 | 2045 |
|
| 2046 |
$auth->assert('config');
|
|
| 2047 |
|
|
| 2003 | 2048 |
$form->{title} = "Edit";
|
| 2004 | 2049 |
|
| 2005 | 2050 |
AM->get_payment(\%myconfig, $form); |
| ... | ... | |
| 2017 | 2062 |
sub list_payment {
|
| 2018 | 2063 |
$lxdebug->enter_sub(); |
| 2019 | 2064 |
|
| 2065 |
$auth->assert('config');
|
|
| 2066 |
|
|
| 2020 | 2067 |
AM->payment(\%myconfig, \%$form); |
| 2021 | 2068 |
|
| 2022 | 2069 |
$form->{callback} = build_std_url("action=list_payment");
|
| ... | ... | |
| 2145 | 2192 |
</table> |
| 2146 | 2193 |
|
| 2147 | 2194 |
<br> |
| 2148 |
<form method=post action=$form->{script}>
|
|
| 2195 |
<form method=post action=am.pl>
|
|
| 2149 | 2196 |
|
| 2150 | 2197 |
<input name=callback type=hidden value="$form->{callback}">
|
| 2151 | 2198 |
|
| 2152 | 2199 |
<input type=hidden name=type value=payment> |
| 2153 | 2200 |
|
| 2154 |
<input type=hidden name=login value=$form->{login}>
|
|
| 2155 |
<input type=hidden name=password value=$form->{password}>
|
|
| 2156 |
|
|
| 2157 | 2201 |
<input class=submit type=submit name=action value="| |
| 2158 | 2202 |
. $locale->text('Add') . qq|">
|
| 2159 | 2203 |
|
| ... | ... | |
| 2169 | 2213 |
sub payment_header {
|
| 2170 | 2214 |
$lxdebug->enter_sub(); |
| 2171 | 2215 |
|
| 2216 |
$auth->assert('config');
|
|
| 2217 |
|
|
| 2172 | 2218 |
$form->{title} = $locale->text("$form->{title} Payment Terms");
|
| 2173 | 2219 |
|
| 2174 | 2220 |
# $locale->text('Add Payment Terms')
|
| ... | ... | |
| 2183 | 2229 |
print qq| |
| 2184 | 2230 |
<body> |
| 2185 | 2231 |
|
| 2186 |
<form method=post action=$form->{script}>
|
|
| 2232 |
<form method=post action=am.pl>
|
|
| 2187 | 2233 |
|
| 2188 | 2234 |
<input type=hidden name=id value=$form->{id}>
|
| 2189 | 2235 |
<input type=hidden name=type value=payment> |
| ... | ... | |
| 2275 | 2321 |
sub save_payment {
|
| 2276 | 2322 |
$lxdebug->enter_sub(); |
| 2277 | 2323 |
|
| 2324 |
$auth->assert('config');
|
|
| 2325 |
|
|
| 2278 | 2326 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 2279 | 2327 |
$form->{"percent_skonto"} =
|
| 2280 | 2328 |
$form->parse_amount(\%myconfig, $form->{percent_skonto}) / 100;
|
| ... | ... | |
| 2287 | 2335 |
sub delete_payment {
|
| 2288 | 2336 |
$lxdebug->enter_sub(); |
| 2289 | 2337 |
|
| 2338 |
$auth->assert('config');
|
|
| 2339 |
|
|
| 2290 | 2340 |
AM->delete_payment(\%myconfig, \%$form); |
| 2291 | 2341 |
$form->redirect($locale->text('Payment terms deleted!'));
|
| 2292 | 2342 |
|
| ... | ... | |
| 2296 | 2346 |
sub swap_payment_terms {
|
| 2297 | 2347 |
$lxdebug->enter_sub(); |
| 2298 | 2348 |
|
| 2349 |
$auth->assert('config');
|
|
| 2350 |
|
|
| 2299 | 2351 |
AM->swap_sortkeys(\%myconfig, $form, "payment_terms"); |
| 2300 | 2352 |
list_payment(); |
| 2301 | 2353 |
|
| ... | ... | |
| 2438 | 2490 |
|
| 2439 | 2491 |
$myconfig{show_form_details} = 1 unless (defined($myconfig{show_form_details}));
|
| 2440 | 2492 |
$form->{"menustyle_$myconfig{menustyle}"} = 1;
|
| 2493 |
$form->{CAN_CHANGE_PASSWORD} = $auth->can_change_password();
|
|
| 2441 | 2494 |
|
| 2442 | 2495 |
$form->{title} = $locale->text('Edit Preferences for #1', $form->{login});
|
| 2443 | 2496 |
|
| ... | ... | |
| 2452 | 2505 |
|
| 2453 | 2506 |
$form->{stylesheet} = $form->{usestylesheet};
|
| 2454 | 2507 |
|
| 2455 |
$form->redirect($locale->text('Preferences saved!'))
|
|
| 2456 |
if ( |
|
| 2457 |
AM->save_preferences(\%myconfig, \%$form, $memberfile, $userspath, $webdav |
|
| 2458 |
)); |
|
| 2508 |
$form->redirect($locale->text('Preferences saved!')) if (AM->save_preferences(\%myconfig, \%$form, $webdav));
|
|
| 2459 | 2509 |
$form->error($locale->text('Cannot save preferences!'));
|
| 2460 | 2510 |
|
| 2461 | 2511 |
$lxdebug->leave_sub(); |
| ... | ... | |
| 2464 | 2514 |
sub audit_control {
|
| 2465 | 2515 |
$lxdebug->enter_sub(); |
| 2466 | 2516 |
|
| 2517 |
$auth->assert('config');
|
|
| 2518 |
|
|
| 2467 | 2519 |
$form->{title} = $locale->text('Audit Control');
|
| 2468 | 2520 |
|
| 2469 | 2521 |
AM->closedto(\%myconfig, \%$form); |
| ... | ... | |
| 2479 | 2531 |
print qq| |
| 2480 | 2532 |
<body> |
| 2481 | 2533 |
|
| 2482 |
<form method=post action=$form->{script}>
|
|
| 2483 |
|
|
| 2484 |
<input type=hidden name=login value=$form->{login}>
|
|
| 2485 |
<input type=hidden name=password value=$form->{password}>
|
|
| 2534 |
<form method=post action=am.pl> |
|
| 2486 | 2535 |
|
| 2487 | 2536 |
<table width=100%> |
| 2488 | 2537 |
<tr><th class=listtop>$form->{title}</th></tr>
|
| ... | ... | |
| 2528 | 2577 |
sub doclose {
|
| 2529 | 2578 |
$lxdebug->enter_sub(); |
| 2530 | 2579 |
|
| 2580 |
$auth->assert('config');
|
|
| 2581 |
|
|
| 2531 | 2582 |
AM->closebooks(\%myconfig, \%$form); |
| 2532 | 2583 |
|
| 2533 | 2584 |
if ($form->{revtrans}) {
|
| ... | ... | |
| 2549 | 2600 |
sub edit_units {
|
| 2550 | 2601 |
$lxdebug->enter_sub(); |
| 2551 | 2602 |
|
| 2603 |
$auth->assert('config');
|
|
| 2604 |
|
|
| 2552 | 2605 |
$units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"}, "resolved_");
|
| 2553 | 2606 |
AM->units_in_use(\%myconfig, $form, $units); |
| 2554 | 2607 |
map({ $units->{$_}->{"BASE_UNIT_DDBOX"} = AM->unit_select_data($units, $units->{$_}->{"base_unit"}, 1); } keys(%{$units}));
|
| ... | ... | |
| 2592 | 2645 |
sub add_unit {
|
| 2593 | 2646 |
$lxdebug->enter_sub(); |
| 2594 | 2647 |
|
| 2648 |
$auth->assert('config');
|
|
| 2649 |
|
|
| 2595 | 2650 |
$form->isblank("new_name", $locale->text("The name is missing."));
|
| 2596 | 2651 |
$units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"});
|
| 2597 | 2652 |
$all_units = AM->retrieve_units(\%myconfig, $form); |
| ... | ... | |
| 2628 | 2683 |
sub set_unit_languages {
|
| 2629 | 2684 |
$lxdebug->enter_sub(); |
| 2630 | 2685 |
|
| 2686 |
$auth->assert('config');
|
|
| 2687 |
|
|
| 2631 | 2688 |
my ($unit, $languages, $idx) = @_; |
| 2632 | 2689 |
|
| 2633 | 2690 |
$unit->{"LANGUAGES"} = [];
|
| ... | ... | |
| 2646 | 2703 |
sub save_unit {
|
| 2647 | 2704 |
$lxdebug->enter_sub(); |
| 2648 | 2705 |
|
| 2706 |
$auth->assert('config');
|
|
| 2707 |
|
|
| 2649 | 2708 |
$old_units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"}, "resolved_");
|
| 2650 | 2709 |
AM->units_in_use(\%myconfig, $form, $old_units); |
| 2651 | 2710 |
|
| ... | ... | |
| 2724 | 2783 |
sub show_history_search {
|
| 2725 | 2784 |
$lxdebug->enter_sub(); |
| 2726 | 2785 |
|
| 2786 |
$auth->assert('config');
|
|
| 2787 |
|
|
| 2727 | 2788 |
$form->{title} = $locale->text("History Search");
|
| 2728 | 2789 |
$form->header(); |
| 2729 | 2790 |
|
| ... | ... | |
| 2734 | 2795 |
|
| 2735 | 2796 |
sub show_am_history {
|
| 2736 | 2797 |
$lxdebug->enter_sub(); |
| 2798 |
|
|
| 2799 |
$auth->assert('config');
|
|
| 2800 |
|
|
| 2737 | 2801 |
my %search = ( "Artikelnummer" => "parts", |
| 2738 | 2802 |
"Kundennummer" => "customer", |
| 2739 | 2803 |
"Lieferantennummer" => "vendor", |
| ... | ... | |
| 2819 | 2883 |
|
| 2820 | 2884 |
sub get_employee_id {
|
| 2821 | 2885 |
$lxdebug->enter_sub(); |
| 2886 |
|
|
| 2887 |
$auth->assert('config');
|
|
| 2888 |
|
|
| 2822 | 2889 |
my $query = qq|SELECT id FROM employee WHERE name = '| . $_[0] . qq|'|; |
| 2823 | 2890 |
my $sth = $_[1]->prepare($query); |
| 2824 | 2891 |
$sth->execute() || $form->dberror($query); |
| ... | ... | |
| 2831 | 2898 |
sub swap_units {
|
| 2832 | 2899 |
$lxdebug->enter_sub(); |
| 2833 | 2900 |
|
| 2901 |
$auth->assert('config');
|
|
| 2902 |
|
|
| 2834 | 2903 |
my $dir = $form->{"dir"} eq "down" ? "down" : "up";
|
| 2835 | 2904 |
my $unit_type = $form->{"unit_type"} eq "dimension" ?
|
| 2836 | 2905 |
"dimension" : "service"; |
| ... | ... | |
| 2844 | 2913 |
sub add_tax {
|
| 2845 | 2914 |
$lxdebug->enter_sub(); |
| 2846 | 2915 |
|
| 2916 |
$auth->assert('config');
|
|
| 2917 |
|
|
| 2847 | 2918 |
$form->{title} = $locale->text('Add');
|
| 2848 | 2919 |
|
| 2849 |
$form->{callback} =
|
|
| 2850 |
"$form->{script}?action=add_tax&login=$form->{login}&password=$form->{password}"
|
|
| 2851 |
unless $form->{callback};
|
|
| 2920 |
$form->{callback} ||= "am.pl?action=add_tax";
|
|
| 2852 | 2921 |
|
| 2853 | 2922 |
_get_taxaccount_selection(); |
| 2854 | 2923 |
|
| ... | ... | |
| 2867 | 2936 |
sub edit_tax {
|
| 2868 | 2937 |
$lxdebug->enter_sub(); |
| 2869 | 2938 |
|
| 2939 |
$auth->assert('config');
|
|
| 2940 |
|
|
| 2870 | 2941 |
$form->{title} = $locale->text('Edit');
|
| 2871 | 2942 |
|
| 2872 | 2943 |
AM->get_tax(\%myconfig, \%$form); |
| ... | ... | |
| 2888 | 2959 |
sub list_tax {
|
| 2889 | 2960 |
$lxdebug->enter_sub(); |
| 2890 | 2961 |
|
| 2962 |
$auth->assert('config');
|
|
| 2963 |
|
|
| 2891 | 2964 |
AM->taxes(\%myconfig, \%$form); |
| 2892 | 2965 |
|
| 2893 | 2966 |
map { $_->{rate} = $form->format_amount(\%myconfig, $_->{rate}, 2) } @{ $form->{TAX} };
|
| ... | ... | |
| 2907 | 2980 |
sub _get_taxaccount_selection{
|
| 2908 | 2981 |
$lxdebug->enter_sub(); |
| 2909 | 2982 |
|
| 2983 |
$auth->assert('config');
|
|
| 2984 |
|
|
| 2910 | 2985 |
AM->get_tax_accounts(\%myconfig, \%$form); |
| 2911 | 2986 |
|
| 2912 | 2987 |
map { $_->{selected} = $form->{chart_id} == $_->{id} } @{ $form->{ACCOUNTS} };
|
| ... | ... | |
| 2917 | 2992 |
sub save_tax {
|
| 2918 | 2993 |
$lxdebug->enter_sub(); |
| 2919 | 2994 |
|
| 2995 |
$auth->assert('config');
|
|
| 2996 |
|
|
| 2920 | 2997 |
$form->isblank("rate", $locale->text('Taxrate missing!'));
|
| 2921 | 2998 |
$form->isblank("taxdescription", $locale->text('Taxdescription missing!'));
|
| 2922 | 2999 |
$form->isblank("taxkey", $locale->text('Taxkey missing!'));
|
| ... | ... | |
| 2940 | 3017 |
sub delete_tax {
|
| 2941 | 3018 |
$lxdebug->enter_sub(); |
| 2942 | 3019 |
|
| 3020 |
$auth->assert('config');
|
|
| 3021 |
|
|
| 2943 | 3022 |
AM->delete_tax(\%myconfig, \%$form); |
| 2944 | 3023 |
$form->redirect($locale->text('Tax deleted!'));
|
| 2945 | 3024 |
|
| ... | ... | |
| 2949 | 3028 |
sub add_price_factor {
|
| 2950 | 3029 |
$lxdebug->enter_sub(); |
| 2951 | 3030 |
|
| 3031 |
$auth->assert('config');
|
|
| 3032 |
|
|
| 2952 | 3033 |
$form->{title} = $locale->text('Add Price Factor');
|
| 2953 | 3034 |
$form->{callback} ||= build_std_url('action=add_price_factor');
|
| 2954 | 3035 |
$form->{fokus} = 'description';
|
| ... | ... | |
| 2962 | 3043 |
sub edit_price_factor {
|
| 2963 | 3044 |
$lxdebug->enter_sub(); |
| 2964 | 3045 |
|
| 3046 |
$auth->assert('config');
|
|
| 3047 |
|
|
| 2965 | 3048 |
$form->{title} = $locale->text('Edit Price Factor');
|
| 2966 | 3049 |
$form->{callback} ||= build_std_url('action=add_price_factor');
|
| 2967 | 3050 |
$form->{fokus} = 'description';
|
| ... | ... | |
| 2979 | 3062 |
sub list_price_factors {
|
| 2980 | 3063 |
$lxdebug->enter_sub(); |
| 2981 | 3064 |
|
| 3065 |
$auth->assert('config');
|
|
| 3066 |
|
|
| 2982 | 3067 |
AM->get_all_price_factors(\%myconfig, \%$form); |
| 2983 | 3068 |
|
| 2984 | 3069 |
my $previous; |
| ... | ... | |
| 3006 | 3091 |
sub save_price_factor {
|
| 3007 | 3092 |
$lxdebug->enter_sub(); |
| 3008 | 3093 |
|
| 3094 |
$auth->assert('config');
|
|
| 3095 |
|
|
| 3009 | 3096 |
$form->isblank("description", $locale->text('Description missing!'));
|
| 3010 | 3097 |
$form->isblank("factor", $locale->text('Factor missing!'));
|
| 3011 | 3098 |
|
| ... | ... | |
| 3023 | 3110 |
sub delete_price_factor {
|
| 3024 | 3111 |
$lxdebug->enter_sub(); |
| 3025 | 3112 |
|
| 3113 |
$auth->assert('config');
|
|
| 3114 |
|
|
| 3026 | 3115 |
AM->delete_price_factor(\%myconfig, \%$form); |
| 3027 | 3116 |
|
| 3028 | 3117 |
$form->{callback} .= '&MESSAGE=' . $form->escape($locale->text('Price factor deleted!')) if ($form->{callback});
|
| ... | ... | |
| 3035 | 3124 |
sub swap_price_factors {
|
| 3036 | 3125 |
$lxdebug->enter_sub(); |
| 3037 | 3126 |
|
| 3127 |
$auth->assert('config');
|
|
| 3128 |
|
|
| 3038 | 3129 |
AM->swap_sortkeys(\%myconfig, $form, 'price_factors'); |
| 3039 | 3130 |
list_price_factors(); |
| 3040 | 3131 |
|
Auch abrufbar als: Unified diff
Umstellung der Benutzerverwaltung von Dateien im Verzeichnis "users" auf die Verwendung einer Authentifizierungsdatenbank.
Es ist erforderlich, die Dateien doc/UPGRADE und doc/INSTALL/index.html zu lesen und die angesprochenen Punkte auszuführen, um nach einem Upgrade weiter arbeiten zu können.