Revision 8c7e4493
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/pe.pl | ||
|---|---|---|
| 43 | 43 |
sub add {
|
| 44 | 44 |
$lxdebug->enter_sub(); |
| 45 | 45 |
|
| 46 |
$auth->assert('config');
|
|
| 47 |
|
|
| 46 | 48 |
$form->{title} = "Add";
|
| 47 | 49 |
|
| 48 | 50 |
# construct callback |
| ... | ... | |
| 58 | 60 |
|
| 59 | 61 |
sub edit {
|
| 60 | 62 |
$lxdebug->enter_sub(); |
| 63 |
|
|
| 64 |
$auth->assert('config');
|
|
| 65 |
|
|
| 61 | 66 |
# show history button |
| 62 | 67 |
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
| 63 | 68 |
#/show hhistory button |
| ... | ... | |
| 81 | 86 |
sub search {
|
| 82 | 87 |
$lxdebug->enter_sub(); |
| 83 | 88 |
|
| 89 |
$auth->assert('config');
|
|
| 90 |
|
|
| 84 | 91 |
if ($form->{type} eq 'project') {
|
| 85 | 92 |
$report = "project_report"; |
| 86 | 93 |
$sort = 'projectnumber'; |
| ... | ... | |
| 191 | 198 |
sub project_report {
|
| 192 | 199 |
$lxdebug->enter_sub(); |
| 193 | 200 |
|
| 201 |
$auth->assert('config');
|
|
| 202 |
|
|
| 194 | 203 |
map { $form->{$_} = $form->unescape($form->{$_}) }
|
| 195 | 204 |
(projectnumber, description); |
| 196 | 205 |
PE->projects(\%myconfig, \%$form); |
| ... | ... | |
| 325 | 334 |
sub form_project_header {
|
| 326 | 335 |
$lxdebug->enter_sub(); |
| 327 | 336 |
|
| 337 |
$auth->assert('config');
|
|
| 338 |
|
|
| 328 | 339 |
$form->{title} = $locale->text("$form->{title} Project");
|
| 329 | 340 |
|
| 330 | 341 |
# $locale->text('Add Project')
|
| ... | ... | |
| 407 | 418 |
sub form_project_footer {
|
| 408 | 419 |
$lxdebug->enter_sub(); |
| 409 | 420 |
|
| 421 |
$auth->assert('config');
|
|
| 422 |
|
|
| 410 | 423 |
print qq| |
| 411 | 424 |
|
| 412 | 425 |
<input name=callback type=hidden value="$form->{callback}">
|
| ... | ... | |
| 448 | 461 |
sub save {
|
| 449 | 462 |
$lxdebug->enter_sub(); |
| 450 | 463 |
|
| 464 |
$auth->assert('config');
|
|
| 465 |
|
|
| 451 | 466 |
if ($form->{type} eq 'project') {
|
| 452 | 467 |
$form->isblank("projectnumber", $locale->text('Project Number missing!'));
|
| 453 | 468 |
PE->save_project(\%myconfig, \%$form); |
| ... | ... | |
| 479 | 494 |
sub delete {
|
| 480 | 495 |
$lxdebug->enter_sub(); |
| 481 | 496 |
|
| 497 |
$auth->assert('config');
|
|
| 498 |
|
|
| 482 | 499 |
PE->delete_tuple(\%myconfig, \%$form); |
| 483 | 500 |
|
| 484 | 501 |
if ($form->{type} eq 'project') {
|
| ... | ... | |
| 505 | 522 |
sub partsgroup_report {
|
| 506 | 523 |
$lxdebug->enter_sub(); |
| 507 | 524 |
|
| 525 |
$auth->assert('config');
|
|
| 526 |
|
|
| 508 | 527 |
map { $form->{$_} = $form->unescape($form->{$_}) } (partsgroup);
|
| 509 | 528 |
PE->partsgroups(\%myconfig, \%$form); |
| 510 | 529 |
|
| ... | ... | |
| 612 | 631 |
sub form_partsgroup_header {
|
| 613 | 632 |
$lxdebug->enter_sub(); |
| 614 | 633 |
|
| 634 |
$auth->assert('config');
|
|
| 635 |
|
|
| 615 | 636 |
$form->{title} = $locale->text("$form->{title} Group");
|
| 616 | 637 |
|
| 617 | 638 |
# $locale->text('Add Group')
|
| ... | ... | |
| 657 | 678 |
sub form_partsgroup_footer {
|
| 658 | 679 |
$lxdebug->enter_sub(); |
| 659 | 680 |
|
| 681 |
$auth->assert('config');
|
|
| 682 |
|
|
| 660 | 683 |
print qq| |
| 661 | 684 |
|
| 662 | 685 |
<input name=callback type=hidden value="$form->{callback}">
|
| ... | ... | |
| 698 | 721 |
sub pricegroup_report {
|
| 699 | 722 |
$lxdebug->enter_sub(); |
| 700 | 723 |
|
| 724 |
$auth->assert('config');
|
|
| 725 |
|
|
| 701 | 726 |
map { $form->{$_} = $form->unescape($form->{$_}) } (pricegroup);
|
| 702 | 727 |
PE->pricegroups(\%myconfig, \%$form); |
| 703 | 728 |
|
| ... | ... | |
| 811 | 836 |
sub form_pricegroup_header {
|
| 812 | 837 |
$lxdebug->enter_sub(); |
| 813 | 838 |
|
| 839 |
$auth->assert('config');
|
|
| 840 |
|
|
| 814 | 841 |
# $locale->text('Add Pricegroup')
|
| 815 | 842 |
# $locale->text('Edit Pricegroup')
|
| 816 | 843 |
|
| ... | ... | |
| 857 | 884 |
sub form_pricegroup_footer {
|
| 858 | 885 |
$lxdebug->enter_sub(); |
| 859 | 886 |
|
| 887 |
$auth->assert('config');
|
|
| 888 |
|
|
| 860 | 889 |
print qq| |
| 861 | 890 |
|
| 862 | 891 |
<input name=callback type=hidden value="$form->{callback}">
|
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.