Revision 8c7e4493
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/pe.pl | ||
|---|---|---|
|
sub add {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
$form->{title} = "Add";
|
||
|
|
||
|
# construct callback
|
||
| ... | ... | |
|
|
||
|
sub edit {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
# show history button
|
||
|
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
||
|
#/show hhistory button
|
||
| ... | ... | |
|
sub search {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
if ($form->{type} eq 'project') {
|
||
|
$report = "project_report";
|
||
|
$sort = 'projectnumber';
|
||
| ... | ... | |
|
sub project_report {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
map { $form->{$_} = $form->unescape($form->{$_}) }
|
||
|
(projectnumber, description);
|
||
|
PE->projects(\%myconfig, \%$form);
|
||
| ... | ... | |
|
sub form_project_header {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
$form->{title} = $locale->text("$form->{title} Project");
|
||
|
|
||
|
# $locale->text('Add Project')
|
||
| ... | ... | |
|
sub form_project_footer {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
print qq|
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
| ... | ... | |
|
sub save {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
if ($form->{type} eq 'project') {
|
||
|
$form->isblank("projectnumber", $locale->text('Project Number missing!'));
|
||
|
PE->save_project(\%myconfig, \%$form);
|
||
| ... | ... | |
|
sub delete {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
PE->delete_tuple(\%myconfig, \%$form);
|
||
|
|
||
|
if ($form->{type} eq 'project') {
|
||
| ... | ... | |
|
sub partsgroup_report {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
map { $form->{$_} = $form->unescape($form->{$_}) } (partsgroup);
|
||
|
PE->partsgroups(\%myconfig, \%$form);
|
||
|
|
||
| ... | ... | |
|
sub form_partsgroup_header {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
$form->{title} = $locale->text("$form->{title} Group");
|
||
|
|
||
|
# $locale->text('Add Group')
|
||
| ... | ... | |
|
sub form_partsgroup_footer {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
print qq|
|
||
|
|
||
|
<input name=callback type=hidden value="$form->{callback}">
|
||
| ... | ... | |
|
sub pricegroup_report {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
map { $form->{$_} = $form->unescape($form->{$_}) } (pricegroup);
|
||
|
PE->pricegroups(\%myconfig, \%$form);
|
||
|
|
||
| ... | ... | |
|
sub form_pricegroup_header {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
# $locale->text('Add Pricegroup')
|
||
|
# $locale->text('Edit Pricegroup')
|
||
|
|
||
| ... | ... | |
|
sub form_pricegroup_footer {
|
||
|
$lxdebug->enter_sub();
|
||
|
|
||
|
$auth->assert('config');
|
||
|
|
||
|
print qq|
|
||
|
|
||
|
<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.