X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fpe.pl;h=8c6132ecb61adb2acd38cedd606cc9ad42d7500d;hb=bb5ee43d0ddff8f8b57ce0f15a5664b26c110d1f;hp=201e96b225e356bcf944418044b47f569dffdd1c;hpb=0576299f2aa98125991c4ffcd2f75073ea583d7d;p=kivitendo-erp.git
diff --git a/bin/mozilla/pe.pl b/bin/mozilla/pe.pl
index 201e96b22..8c6132ecb 100644
--- a/bin/mozilla/pe.pl
+++ b/bin/mozilla/pe.pl
@@ -27,13 +27,14 @@
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#======================================================================
#
-# project administration
-# partsgroup administration
+# partsgroup, pricegroup administration
#
#======================================================================
use SL::PE;
+require "bin/mozilla/common.pl";
+
1;
# end of main
@@ -41,15 +42,17 @@ use SL::PE;
sub add {
$lxdebug->enter_sub();
+ $auth->assert('config');
+
$form->{title} = "Add";
# construct callback
$form->{callback} =
- "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
+ "$form->{script}?action=add&type=$form->{type}"
unless $form->{callback};
- &{"form_$form->{type}_header"};
- &{"form_$form->{type}_footer"};
+ call_sub("form_$form->{type}_header");
+ call_sub("form_$form->{type}_footer");
$lxdebug->leave_sub();
}
@@ -57,17 +60,21 @@ sub add {
sub edit {
$lxdebug->enter_sub();
+ $auth->assert('config');
+
+ # show history button
+ $form->{javascript} = qq||;
+ #/show hhistory button
$form->{title} = "Edit";
- if ($form->{type} eq 'project') {
- PE->get_project(\%myconfig, \%$form);
- }
if ($form->{type} eq 'partsgroup') {
PE->get_partsgroup(\%myconfig, \%$form);
}
-
- &{"form_$form->{type}_header"};
- &{"form_$form->{type}_footer"};
+ if ($form->{type} eq 'pricegroup') {
+ PE->get_pricegroup(\%myconfig, \%$form);
+ }
+ call_sub("form_$form->{type}_header");
+ call_sub("form_$form->{type}_footer");
$lxdebug->leave_sub();
}
@@ -75,23 +82,8 @@ sub edit {
sub search {
$lxdebug->enter_sub();
- if ($form->{type} eq 'project') {
- $report = "project_report";
- $sort = 'projectnumber';
- $form->{title} = $locale->text('Projects');
-
- $number = qq|
-
- | | . $locale->text('Number') . qq| |
- |
-
-
- | | . $locale->text('Description') . qq| |
- |
-
-|;
+ $auth->assert('config');
- }
if ($form->{type} eq 'partsgroup') {
$report = "partsgroup_report";
$sort = 'partsgroup';
@@ -106,6 +98,21 @@ sub search {
}
+ # for pricesgroups
+ if ($form->{type} eq 'pricegroup') {
+ $report = "pricegroup_report";
+ $sort = 'pricegroup';
+ $form->{title} = $locale->text('Pricegroup');
+
+ $number = qq|
+
+ | | . $locale->text('Pricegroup') . qq| |
+ |
+
+|;
+
+ }
+
$form->header;
print qq|
@@ -130,8 +137,7 @@ sub search {
|
. $locale->text('All') . qq|
|
- . $locale->text('Orphaned')
- . qq| |
+ . $locale->text('Orphaned') . qq|
@@ -143,10 +149,6 @@ sub search {
-{path}>
-{login}>
-{password}>
-
@@ -159,16 +161,69 @@ sub search {
$lxdebug->leave_sub();
}
-sub project_report {
+sub save {
$lxdebug->enter_sub();
- map { $form->{$_} = $form->unescape($form->{$_}) }
- (projectnumber, description);
- PE->projects(\%myconfig, \%$form);
+ $auth->assert('config');
+
+ if ($form->{type} eq 'partsgroup') {
+ $form->isblank("partsgroup", $locale->text('Group missing!'));
+ PE->save_partsgroup(\%myconfig, \%$form);
+ $form->redirect($locale->text('Group saved!'));
+ }
+
+ # choice pricegroup and save
+ if ($form->{type} eq 'pricegroup') {
+ $form->isblank("pricegroup", $locale->text('Pricegroup missing!'));
+ PE->save_pricegroup(\%myconfig, \%$form);
+ $form->redirect($locale->text('Pricegroup saved!'));
+ }
+ # saving the history
+ if(!exists $form->{addition} && $form->{id} ne "") {
+ $form->{snumbers} = qq|projectnumber_| . $form->{projectnumber};
+ $form->{addition} = "SAVED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
+
+ $lxdebug->leave_sub();
+}
+
+sub delete {
+ $lxdebug->enter_sub();
+
+ $auth->assert('config');
+
+ PE->delete_tuple(\%myconfig, \%$form);
+
+ if ($form->{type} eq 'partsgroup') {
+ $form->redirect($locale->text('Group deleted!'));
+ }
+ if ($form->{type} eq 'pricegroup') {
+ $form->redirect($locale->text('Pricegroup deleted!'));
+ }
+ # saving the history
+ if(!exists $form->{addition}) {
+ $form->{snumbers} = qq|projectnumber_| . $form->{projectnumber};
+ $form->{addition} = "DELETED";
+ $form->save_history($form->dbconnect(\%myconfig));
+ }
+ # /saving the history
+ $lxdebug->leave_sub();
+}
+
+sub continue { call_sub($form->{"nextsub"}); }
+
+sub partsgroup_report {
+ $lxdebug->enter_sub();
+
+ $auth->assert('config');
+
+ map { $form->{$_} = $form->unescape($form->{$_}) } (partsgroup);
+ PE->partsgroups(\%myconfig, \%$form);
$callback =
- "$form->{script}?action=project_report&type=$form->{type}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
- $href = $callback;
+ "$form->{script}?action=partsgroup_report&type=$form->{type}&status=$form->{status}";
if ($form->{status} eq 'all') {
$option = $locale->text('All');
@@ -176,31 +231,17 @@ sub project_report {
if ($form->{status} eq 'orphaned') {
$option .= $locale->text('Orphaned');
}
- if ($form->{projectnumber}) {
- $href .= "&projectnumber=" . $form->escape($form->{projectnumber});
- $callback .= "&projectnumber=$form->{projectnumber}";
- $option .=
- "\n
" . $locale->text('Project') . " : $form->{projectnumber}";
- }
- if ($form->{description}) {
- $href .= "&description=" . $form->escape($form->{description});
- $callback .= "&description=$form->{description}";
- $option .=
- "\n
" . $locale->text('Description') . " : $form->{description}";
+ if ($form->{partsgroup}) {
+ $callback .= "&partsgroup=$form->{partsgroup}";
+ $option .= "\n
" . $locale->text('Group') . " : $form->{partsgroup}";
}
- @column_index = $form->sort_columns(qw(projectnumber description));
+ @column_index = $form->sort_columns(qw(partsgroup));
- $column_header{projectnumber} =
- qq||
- . $locale->text('Number')
- . qq| | |;
- $column_header{description} =
- qq||
- . $locale->text('Description')
- . qq| | |;
+ $column_header{partsgroup} =
+ qq|| . $locale->text('Group') . qq| | |;
- $form->{title} = $locale->text('Projects');
+ $form->{title} = $locale->text('Groups');
$form->header;
@@ -228,12 +269,12 @@ sub project_report {
|;
# escape callback
- $form->{callback} = $callback .= "&sort=$form->{sort}";
+ $form->{callback} = $callback;
# escape callback for href
$callback = $form->escape($callback);
- foreach $ref (@{ $form->{project_list} }) {
+ foreach $ref (@{ $form->{item_list} }) {
$i++;
$i %= 2;
@@ -242,10 +283,8 @@ sub project_report {
|;
- $column_data{projectnumber} =
- qq|| {script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{projectnumber} | |;
- $column_data{description} = qq|$ref->{description} | |;
-
+ $column_data{partsgroup} =
+ qq|{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&callback=$callback>$ref->{partsgroup} | |;
map { print "$column_data{$_}\n" } @column_index;
print "
@@ -269,19 +308,9 @@ sub project_report {
{type}>
-{path}>
-{login}>
-{password}>
-
|;
+ . $locale->text('Add') . qq|">
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
@@ -291,23 +320,17 @@ sub project_report {
$lxdebug->leave_sub();
}
-sub form_project_header {
+sub form_partsgroup_header {
$lxdebug->enter_sub();
- $form->{title} = $locale->text("$form->{title} Project");
+ $auth->assert('config');
- # $locale->text('Add Project')
- # $locale->text('Edit Project')
+ $form->{title} = $locale->text("$form->{title} Group");
- $form->{description} =~ s/\"/"/g;
+ # $locale->text('Add Group')
+ # $locale->text('Edit Group')
- if (($rows = $form->numtextrows($form->{description}, 60)) > 1) {
- $description =
- qq|