projekt kivitendo

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger Accounting

# Copyright (c) 1998-2002

#

# Author: Dieter Simader

# Email: dsimader@sql-ledger.org

# Web: http://www.sql-ledger.org

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# project administration

#======================================================================

use POSIX qw(strftime);

use SL::ReportGenerator;

require "bin/mozilla/common.pl";

require "bin/mozilla/reportgenerator.pl";

$main::auth->assert('project_edit');

my $locale = $main::locale;

# construct callback

$form->{callback} = build_std_url('action') unless $form->{callback};

display_project_form();

sub edit {

$main::auth->assert('project_edit');

my $locale = $main::locale;

# show history button

$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;

#/show hhistory button

$form->{title} = "Edit";

$form->{project} = Projects->get_project('id' => $form->{id}, 'orphaned' => 1);

display_project_form();

sub search {

my $form = $main::form;

my $locale = $main::locale;

$form->{title} = $locale->text('Projects');

($form->{CUSTOM_VARIABLES_FILTER_CODE},

$form->{CUSTOM_VARIABLES_INCLUSION_CODE}) = CVar->render_search_options('variables' => $form->{CUSTOM_VARIABLES},

'include_prefix' => 'l_',

'include_value' => 'Y');

print $form->parse_html_template('projects/search');

sub project_report {

$main::auth->assert('project_edit');

my %myconfig = %main::myconfig;

my $locale = $main::locale;

$form->{sort} ||= 'projectnumber';

my $filter = $form->{filter} || { };

my $report = SL::ReportGenerator->new(\%myconfig, $form);

my @columns = qw(projectnumber description active);

my @hidden_vars = ('filter');

my $href = build_std_url('action=project_report', @hidden_vars);

my %column_defs_cvars = ();

foreach (@includeable_custom_variables) {

$column_defs_cvars{"cvar_$_->{name}"} = {

'text' => $_->{description},

'visible' => $form->{"l_cvar_$_->{name}"} eq 'Y',

};

}

push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;

'description' => { 'text' => $locale->text('Description'), },

'active' => { 'text' => $locale->text('Active'), 'visible' => 'both' eq $filter->{active}, },

foreach (qw(projectnumber description)) {

$column_defs{$_}->{link} = $href . "&sort=$_";

$column_defs{$_}->{visible} = 1;

}

$report->set_columns(%column_defs);

$report->set_column_order(@columns);

$report->set_sort_indicator($form->{sort}, 1);

my @options;

push @options, $locale->text('All') if ($filter->{all});

push @options, $locale->text('Orphaned') if ($filter->{orphaned});

push @options, $locale->text('Project Number') . " : $filter->{projectnumber}" if ($filter->{projectnumber});

push @options, $locale->text('Description') . " : $filter->{description}" if ($filter->{description});

push @options, $locale->text('Active') if ($filter->{active} eq 'active');

push @options, $locale->text('Inactive') if ($filter->{active} eq 'inactive');

push @options, $locale->text('Orphaned') if ($filter->{status} eq 'orphaned');

$form->{title} = $locale->text('Projects');

$report->set_options('top_info_text' => join("\n", @options),

'output_format' => 'HTML',

'title' => $form->{title},

'attachment_basename' => $locale->text('project_list') . strftime('_%Y%m%d', localtime time),

);

$report->set_options_from_form();

'trans_id_field' => 'id',

'configs' => $cvar_configs,

'column_defs' => \%column_defs,

'data' => $form->{project_list});

my $callback = $form->escape($href) . '&sort=' . E($form->{sort});

my $row = { map { $_ => { 'data' => $project->{$_} } } keys %{ $project } };

$row->{projectnumber}->{link} = $edit_url . "&id=" . E($project->{id}) . "&callback=${callback}";

$report->add_data($row);

}

$report->generate_with_headers();

sub display_project_form {

my $form = $main::form;

my $locale = $main::locale;

$form->{project} ||= { };

$form->{title} = $form->{project}->{id} ? $locale->text("Edit Project") : $locale->text("Add Project");

print $form->parse_html_template('projects/project_form');

sub save {

$main::auth->assert('project_edit');

my %myconfig = %main::myconfig;

my $locale = $main::locale;

$form->isblank("project.projectnumber", $locale->text('Project Number missing!'));

my $project = $form->{project} || { };

my $is_new = !$project->{id};

$project->{id} = Projects->save_project(%{ $project });

# saving the history

if(!exists $form->{addition} && $project->{id} ne "") {

$form->{id} = $project->{id};

$form->{snumbers} = qq|projectnumber_| . $project->{projectnumber};

# /saving the history

if ($form->{callback}) {

map { $form->{callback} .= "&new_${_}=" . $form->escape($project->{$_}); } qw(projectnumber description id);

my $message = $is_new ? $locale->text('The project has been added.') : $locale->text('The project has been saved.');

$form->{callback} .= "&message=" . E($message);

}

$form->redirect($locale->text('Project saved!'));

sub save_as_new {

my $form = $main::form;

my $locale = $main::locale;

delete $form->{project}->{id} if ($form->{project});

save();

sub delete {

$main::auth->assert('project_edit');

my %myconfig = %main::myconfig;

my $locale = $main::locale;

my $project = $form->{project} || { };

Projects->delete_project('id' => $project->{id});

# saving the history

if(!exists $form->{addition}) {

$form->{snumbers} = qq|projectnumber_| . $project->{projectnumber};

# /saving the history

$form->redirect($locale->text('Project deleted!'));

sub continue {