X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=sql-ledger%2Fbin%2Fmozilla%2Fpe.pl;h=841c3fef24fb3a602dee92a064f7c4b7b3c4f565;hp=d8706d4136f2805a69e46710b219d874433b7d72;hb=32306b5f8ffe4ce594409aa6e89626740b225a39;hpb=52072fcd26f2faf57923f598c358e7f47c4e2643
diff --git a/sql-ledger/bin/mozilla/pe.pl b/sql-ledger/bin/mozilla/pe.pl
index d8706d413..841c3fef2 100644
--- a/sql-ledger/bin/mozilla/pe.pl
+++ b/sql-ledger/bin/mozilla/pe.pl
@@ -1,6 +1,6 @@
#=====================================================================
# SQL-Ledger Accounting
-# Copyright (c) 1998-2002
+# Copyright (c) 2002
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
@@ -23,6 +23,7 @@
#
# project administration
# partsgroup administration
+# translation maintainance
#
#======================================================================
@@ -39,10 +40,10 @@ sub add {
$form->{title} = "Add";
# construct callback
- $form->{callback} = "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
+ $form->{callback} = "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
- &{ "form_$form->{type}_header" };
- &{ "form_$form->{type}_footer" };
+ &{ "$form->{type}_header" };
+ &{ "$form->{type}_footer" };
}
@@ -51,15 +52,9 @@ sub edit {
$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" };
+ &{ "PE::get_$form->{type}" }("", \%myconfig, \%$form);
+ &{ "$form->{type}_header" };
+ &{ "$form->{type}_footer" };
}
@@ -96,6 +91,20 @@ sub search {
|;
}
+ if ($form->{type} eq 'pricegroup') {
+ $report = "pricegroup_report";
+ $sort = 'pricegroup';
+ $form->{title} = $locale->text('Pricegroups');
+
+ $number = qq|
+
+ |.$locale->text('Pricegroup').qq| |
+ |
+
+|;
+
+ }
+
$form->header;
@@ -133,7 +142,7 @@ sub search {
{path}>
{login}>
-{password}>
+{sessionid}>
@@ -152,8 +161,11 @@ sub project_report {
map { $form->{$_} = $form->unescape($form->{$_}) } (projectnumber, description);
PE->projects(\%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;
+ $href = "$form->{script}?action=project_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
+
+ $form->sort_order();
+
+ $callback = "$form->{script}?action=project_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}";
if ($form->{status} eq 'all') {
$option = $locale->text('All');
@@ -219,7 +231,7 @@ 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{projectnumber} = qq|{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{projectnumber} | |;
$column_data{description} = qq|$ref->{description} | |;
map { print "$column_data{$_}\n" } @column_index;
@@ -229,6 +241,16 @@ sub project_report {
";
}
+ $i = 1;
+ if ($myconfig{acs} !~ /Projects--Projects/) {
+ $button{'Projects--Add Project'}{code} = qq| |;
+ $button{'Projects--Add Project'}{order} = $i++;
+
+ foreach $item (split /;/, $myconfig{acs}) {
+ delete $button{$item};
+ }
+ }
+
print qq|
@@ -247,10 +269,21 @@ sub project_report {
{path}>
{login}>
-{password}>
+{sessionid}>
+|;
-
+ foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
+ print $item->{code};
+ }
+
+ if ($form->{menubar}) {
+ require "$form->{path}/menu.pl";
+ &menubar;
+ }
+ print qq|
+
+