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}">