X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fprojects.pl;h=f854a4af928142bba79f283b425bf47829123a2c;hb=c1b69a2cc9b8bceb807aeeeda9c6a083defde33f;hp=a9740b1fa4dbb22bcdc169aacb6eee2b1c3421bb;hpb=19688fcacc86e86dd6ff5c5427e3b50893bb60f0;p=kivitendo-erp.git diff --git a/bin/mozilla/projects.pl b/bin/mozilla/projects.pl index a9740b1fa..f854a4af9 100644 --- a/bin/mozilla/projects.pl +++ b/bin/mozilla/projects.pl @@ -39,23 +39,31 @@ use SL::ReportGenerator; require "bin/mozilla/common.pl"; require "bin/mozilla/reportgenerator.pl"; +use strict; + sub add { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('project_edit'); - $auth->assert('project_edit'); + my $form = $main::form; + my $locale = $main::locale; # construct callback $form->{callback} = build_std_url('action') unless $form->{callback}; display_project_form(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub edit { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('project_edit'); - $auth->assert('project_edit'); + my $form = $main::form; + my $locale = $main::locale; # show history button $form->{javascript} = qq||; @@ -66,13 +74,16 @@ sub edit { display_project_form(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub search { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $auth->assert('project_edit'); + $main::auth->assert('project_edit'); + + my $form = $main::form; + my $locale = $main::locale; $form->{title} = $locale->text('Projects'); @@ -81,17 +92,22 @@ sub search { $form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables' => $form->{CUSTOM_VARIABLES}, 'include_prefix' => 'l_', 'include_value' => 'Y'); + $form->{fokus} = 'getElementById("projectnumber")'; $form->header(); print $form->parse_html_template('projects/search'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub project_report { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('project_edit'); - $auth->assert('project_edit'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; $form->{sort} ||= 'projectnumber'; my $filter = $form->{filter} || { }; @@ -163,7 +179,7 @@ sub project_report { my $edit_url = build_std_url('action=edit&type=project'); my $callback = $form->escape($href) . '&sort=' . E($form->{sort}); - foreach $project (@{ $form->{project_list} }) { + foreach my $project (@{ $form->{project_list} }) { $project->{active} = $project->{active} ? $locale->text('Yes') : $locale->text('No'); my $row = { map { $_ => { 'data' => $project->{$_} } } keys %{ $project } }; @@ -175,13 +191,16 @@ sub project_report { $report->generate_with_headers(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub display_project_form { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $auth->assert('project_edit'); + $main::auth->assert('project_edit'); + + my $form = $main::form; + my $locale = $main::locale; $form->{project} ||= { }; @@ -194,13 +213,17 @@ sub display_project_form { $form->header(); print $form->parse_html_template('projects/project_form'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub save { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('project_edit'); - $auth->assert('project_edit'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; $form->isblank("project.projectnumber", $locale->text('Project Number missing!')); @@ -212,8 +235,8 @@ sub save { if(!exists $form->{addition} && $project->{id} ne "") { $form->{id} = $project->{id}; $form->{snumbers} = qq|projectnumber_| . $project->{projectnumber}; - $form->{addition} = "SAVED"; - $form->save_history($form->dbconnect(\%myconfig)); + $form->{addition} = "SAVED"; + $form->save_history; } # /saving the history @@ -225,22 +248,29 @@ sub save { $form->redirect($locale->text('Project saved!')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub save_as_new { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; delete $form->{project}->{id} if ($form->{project}); save(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub delete { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + $main::auth->assert('project_edit'); - $auth->assert('project_edit'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; my $project = $form->{project} || { }; Projects->delete_project('id' => $project->{id}); @@ -248,16 +278,16 @@ sub delete { # saving the history if(!exists $form->{addition}) { $form->{snumbers} = qq|projectnumber_| . $project->{projectnumber}; - $form->{addition} = "DELETED"; - $form->save_history($form->dbconnect(\%myconfig)); + $form->{addition} = "DELETED"; + $form->save_history; } # /saving the history $form->redirect($locale->text('Project deleted!')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub continue { - call_sub($form->{nextsub}); + call_sub($main::form->{nextsub}); }