Revision 9aaca433
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 115 | 115 |
qq|Lx-Office ERP $form->{version} | . $locale->text('Administration');
|
| 116 | 116 |
|
| 117 | 117 |
$form->header(); |
| 118 |
print $form->parse_html_template2('admin/adminlogin');
|
|
| 118 |
print $form->parse_html_template('admin/adminlogin');
|
|
| 119 | 119 |
} |
| 120 | 120 |
|
| 121 | 121 |
sub login {
|
| ... | ... | |
| 155 | 155 |
$form->{MEMBERS} = [ @members{sort { lc $a cmp lc $b } keys %members} ];
|
| 156 | 156 |
|
| 157 | 157 |
$form->header(); |
| 158 |
print $form->parse_html_template2("admin/list_users");
|
|
| 158 |
print $form->parse_html_template("admin/list_users");
|
|
| 159 | 159 |
} |
| 160 | 160 |
|
| 161 | 161 |
sub add_user {
|
| ... | ... | |
| 313 | 313 |
chop $form->{all_acs};
|
| 314 | 314 |
|
| 315 | 315 |
$form->header(); |
| 316 |
print $form->parse_html_template2("admin/edit_user");
|
|
| 316 |
print $form->parse_html_template("admin/edit_user");
|
|
| 317 | 317 |
} |
| 318 | 318 |
|
| 319 | 319 |
sub save {
|
| ... | ... | |
| 520 | 520 |
. $locale->text('Change Admin Password');
|
| 521 | 521 |
|
| 522 | 522 |
$form->header(); |
| 523 |
print $form->parse_html_template2("admin/change_admin_password");
|
|
| 523 |
print $form->parse_html_template("admin/change_admin_password");
|
|
| 524 | 524 |
} |
| 525 | 525 |
|
| 526 | 526 |
sub change_password {
|
| ... | ... | |
| 572 | 572 |
$form->{ALLOW_DBBACKUP} = "$pg_dump_exe" ne "DISABLED";
|
| 573 | 573 |
|
| 574 | 574 |
$form->header(); |
| 575 |
print $form->parse_html_template2("admin/dbadmin");
|
|
| 575 |
print $form->parse_html_template("admin/dbadmin");
|
|
| 576 | 576 |
} |
| 577 | 577 |
|
| 578 | 578 |
sub continue {
|
| ... | ... | |
| 594 | 594 |
$form->{ALL_UPDATED} = !scalar @need_updates;
|
| 595 | 595 |
|
| 596 | 596 |
$form->header(); |
| 597 |
print $form->parse_html_template2("admin/update_dataset");
|
|
| 597 |
print $form->parse_html_template("admin/update_dataset");
|
|
| 598 | 598 |
} |
| 599 | 599 |
|
| 600 | 600 |
sub dbupdate {
|
| ... | ... | |
| 609 | 609 |
|
| 610 | 610 |
$| = 1; |
| 611 | 611 |
|
| 612 |
print $form->parse_html_template2("admin/dbupgrade_all_header");
|
|
| 612 |
print $form->parse_html_template("admin/dbupgrade_all_header");
|
|
| 613 | 613 |
|
| 614 | 614 |
foreach my $i (@update_rows) {
|
| 615 | 615 |
restore_form($saved_form); |
| ... | ... | |
| 618 | 618 |
|
| 619 | 619 |
my $controls = parse_dbupdate_controls($form, $form->{dbdriver});
|
| 620 | 620 |
|
| 621 |
print $form->parse_html_template2("admin/dbupgrade_header");
|
|
| 621 |
print $form->parse_html_template("admin/dbupgrade_header");
|
|
| 622 | 622 |
|
| 623 | 623 |
$form->{dbupdate} = $form->{dbname};
|
| 624 | 624 |
$form->{$form->{dbname}} = 1;
|
| ... | ... | |
| 626 | 626 |
User->dbupdate($form); |
| 627 | 627 |
User->dbupdate2($form, $controls); |
| 628 | 628 |
|
| 629 |
print $form->parse_html_template2("admin/dbupgrade_footer");
|
|
| 629 |
print $form->parse_html_template("admin/dbupgrade_footer");
|
|
| 630 | 630 |
} |
| 631 | 631 |
|
| 632 |
print $form->parse_html_template2("admin/dbupgrade_all_done");
|
|
| 632 |
print $form->parse_html_template("admin/dbupgrade_all_done");
|
|
| 633 | 633 |
} |
| 634 | 634 |
|
| 635 | 635 |
sub create_dataset {
|
| ... | ... | |
| 663 | 663 |
. $locale->text('Create Dataset');
|
| 664 | 664 |
|
| 665 | 665 |
$form->header(); |
| 666 |
print $form->parse_html_template2("admin/create_dataset");
|
|
| 666 |
print $form->parse_html_template("admin/create_dataset");
|
|
| 667 | 667 |
} |
| 668 | 668 |
|
| 669 | 669 |
sub dbcreate {
|
| ... | ... | |
| 677 | 677 |
. $locale->text('Create Dataset');
|
| 678 | 678 |
|
| 679 | 679 |
$form->header(); |
| 680 |
print $form->parse_html_template2("admin/dbcreate");
|
|
| 680 |
print $form->parse_html_template("admin/dbcreate");
|
|
| 681 | 681 |
} |
| 682 | 682 |
|
| 683 | 683 |
sub delete_dataset {
|
| ... | ... | |
| 691 | 691 |
$form->{DBSOURCES} = [ map { { "name", $_ } } sort @dbsources ];
|
| 692 | 692 |
|
| 693 | 693 |
$form->header(); |
| 694 |
print $form->parse_html_template2("admin/delete_dataset");
|
|
| 694 |
print $form->parse_html_template("admin/delete_dataset");
|
|
| 695 | 695 |
} |
| 696 | 696 |
|
| 697 | 697 |
sub dbdelete {
|
| ... | ... | |
| 707 | 707 |
. $locale->text('Database Administration') . " / "
|
| 708 | 708 |
. $locale->text('Delete Dataset');
|
| 709 | 709 |
$form->header(); |
| 710 |
print $form->parse_html_template2("admin/dbdelete");
|
|
| 710 |
print $form->parse_html_template("admin/dbdelete");
|
|
| 711 | 711 |
} |
| 712 | 712 |
|
| 713 | 713 |
sub backup_dataset {
|
| ... | ... | |
| 729 | 729 |
$form->{from} = "Lx-Office Admin <${username}\@${hostname}>";
|
| 730 | 730 |
|
| 731 | 731 |
$form->header(); |
| 732 |
print $form->parse_html_template2("admin/backup_dataset");
|
|
| 732 |
print $form->parse_html_template("admin/backup_dataset");
|
|
| 733 | 733 |
} |
| 734 | 734 |
|
| 735 | 735 |
sub backup_dataset_start {
|
| ... | ... | |
| 818 | 818 |
. $locale->text('Backup Dataset');
|
| 819 | 819 |
|
| 820 | 820 |
$form->header(); |
| 821 |
print $form->parse_html_template2("admin/backup_dataset_email_done");
|
|
| 821 |
print $form->parse_html_template("admin/backup_dataset_email_done");
|
|
| 822 | 822 |
} |
| 823 | 823 |
} |
| 824 | 824 |
|
| ... | ... | |
| 844 | 844 |
} |
| 845 | 845 |
|
| 846 | 846 |
$form->header(); |
| 847 |
print $form->parse_html_template2("admin/restore_dataset");
|
|
| 847 |
print $form->parse_html_template("admin/restore_dataset");
|
|
| 848 | 848 |
} |
| 849 | 849 |
|
| 850 | 850 |
sub restore_dataset_start {
|
| ... | ... | |
| 956 | 956 |
$AUTOFLUSH = 1; |
| 957 | 957 |
|
| 958 | 958 |
$form->header(); |
| 959 |
print $form->parse_html_template2("admin/restore_dataset_start_header");
|
|
| 959 |
print $form->parse_html_template("admin/restore_dataset_start_header");
|
|
| 960 | 960 |
|
| 961 | 961 |
while (my $line = <$in>) {
|
| 962 | 962 |
print $line; |
| ... | ... | |
| 964 | 964 |
$in->close(); |
| 965 | 965 |
|
| 966 | 966 |
$form->{retval} = $CHILD_ERROR >> 8;
|
| 967 |
print $form->parse_html_template2("admin/restore_dataset_start_footer");
|
|
| 967 |
print $form->parse_html_template("admin/restore_dataset_start_footer");
|
|
| 968 | 968 |
|
| 969 | 969 |
unlink "${tmpdir}/.pgpass", $tmp;
|
| 970 | 970 |
rmdir $tmpdir; |
Auch abrufbar als: Unified diff
Die Funktion Form::parse_html_template2() in Form::parse_html_template() umbenannt (letztere wurde in Revision 2923 entfernt).