From 2bd51903b8c0ed8114ba05e481573b9440918210 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 31 Jan 2013 09:48:58 +0100 Subject: [PATCH] Verwaltung von Pflichtenheftrisikograden --- SL/Controller/RequirementSpecRisk.pm | 115 ++++++++++++++++++ SL/DB/RequirementSpecRisk.pm | 3 +- locale/de/all | 8 ++ .../webpages/requirement_spec_risk/form.html | 24 ++++ .../webpages/requirement_spec_risk/list.html | 42 +++++++ 5 files changed, 191 insertions(+), 1 deletion(-) create mode 100644 SL/Controller/RequirementSpecRisk.pm create mode 100755 templates/webpages/requirement_spec_risk/form.html create mode 100644 templates/webpages/requirement_spec_risk/list.html diff --git a/SL/Controller/RequirementSpecRisk.pm b/SL/Controller/RequirementSpecRisk.pm new file mode 100644 index 000000000..eef69ee5e --- /dev/null +++ b/SL/Controller/RequirementSpecRisk.pm @@ -0,0 +1,115 @@ +package SL::Controller::RequirementSpecRisk; + +use strict; + +use parent qw(SL::Controller::Base); + +use SL::DB::RequirementSpecRisk; +use SL::DB::Language; +use SL::Helper::Flash; +use SL::Locale::String; + +use Rose::Object::MakeMethods::Generic +( + scalar => [ qw(requirement_spec_risk) ], +); + +__PACKAGE__->run_before('check_auth'); +__PACKAGE__->run_before('load_requirement_spec_risk', only => [ qw(edit update destroy) ]); + +# +# actions +# + +sub action_list { + my ($self) = @_; + + $self->render('requirement_spec_risk/list', + title => t8('Risk levels'), + REQUIREMENT_SPEC_RISKS => SL::DB::Manager::RequirementSpecRisk->get_all_sorted); +} + +sub action_new { + my ($self) = @_; + + $self->{requirement_spec_risk} = SL::DB::RequirementSpecRisk->new; + $self->render('requirement_spec_risk/form', title => t8('Create a new risk level')); +} + +sub action_edit { + my ($self) = @_; + $self->render('requirement_spec_risk/form', title => t8('Edit risk level')); +} + +sub action_create { + my ($self) = @_; + + $self->{requirement_spec_risk} = SL::DB::RequirementSpecRisk->new; + $self->create_or_update; +} + +sub action_update { + my ($self) = @_; + $self->create_or_update; +} + +sub action_destroy { + my ($self) = @_; + + if (eval { $self->{requirement_spec_risk}->delete; 1; }) { + flash_later('info', t8('The risk level has been deleted.')); + } else { + flash_later('error', t8('The risk level is in use and cannot be deleted.')); + } + + $self->redirect_to(action => 'list'); +} + +sub action_reorder { + my ($self) = @_; + + SL::DB::RequirementSpecRisk->reorder_list(@{ $::form->{requirement_spec_risk_id} || [] }); + + $self->render('1;', { type => 'js', inline => 1 }); +} + +# +# filters +# + +sub check_auth { + $::auth->assert('config'); +} + +# +# helpers +# + +sub create_or_update { + my $self = shift; + my $is_new = !$self->{requirement_spec_risk}->id; + my $params = delete($::form->{requirement_spec_risk}) || { }; + my $title = $is_new ? t8('Create a new risk level') : t8('Edit risk level'); + + $self->{requirement_spec_risk}->assign_attributes(%{ $params }); + + my @errors = $self->{requirement_spec_risk}->validate; + + if (@errors) { + flash('error', @errors); + $self->render('requirement_spec_risk/form', title => $title); + return; + } + + $self->{requirement_spec_risk}->save; + + flash_later('info', $is_new ? t8('The risk level has been created.') : t8('The risk level has been saved.')); + $self->redirect_to(action => 'list'); +} + +sub load_requirement_spec_risk { + my ($self) = @_; + $self->{requirement_spec_risk} = SL::DB::RequirementSpecRisk->new(id => $::form->{id})->load; +} + +1; diff --git a/SL/DB/RequirementSpecRisk.pm b/SL/DB/RequirementSpecRisk.pm index 065b9adc1..7d1449bf2 100644 --- a/SL/DB/RequirementSpecRisk.pm +++ b/SL/DB/RequirementSpecRisk.pm @@ -11,7 +11,8 @@ sub validate { my ($self) = @_; my @errors; - push @errors, t8('The description is missing.') if !$self->description; + push @errors, t8('The description is missing.') if !$self->description; + push @errors, t8('The description is not unique.') if $self->get_first_conflicting('description'); return @errors; } diff --git a/locale/de/all b/locale/de/all index f830c13a5..fe9a81456 100755 --- a/locale/de/all +++ b/locale/de/all @@ -531,6 +531,7 @@ $self->{texts} = { 'Create a new project type' => 'Einen neuen Projekttypen anlegen', 'Create a new requirement spec status' => 'Einen neuen Pflichtenheftstatus anlegen', 'Create a new requirement spec type' => 'Einen neuen Pflichtenhefttypen anlegen', + 'Create a new risk level' => 'Einen neuen Risikograd anlegen', 'Create a new user' => 'Einen neuen Benutzer anlegen', 'Create a new user group' => 'Eine neue Benutzergruppe erfassen', 'Create and edit RFQs' => 'Lieferantenanfragen erfassen und bearbeiten', @@ -870,6 +871,7 @@ $self->{texts} = { 'Edit project type' => 'Projekttypen bearbeiten', 'Edit requirement spec status' => 'Pflichtenheftstatus bearbeiten', 'Edit requirement spec type' => 'Pflichtenhefttypen bearbeiten', + 'Edit risk level' => 'Risikograd bearbeiten', 'Edit templates' => 'Vorlagen bearbeiten', 'Edit the Delivery Order' => 'Lieferschein bearbeiten', 'Edit the configuration for periodic invoices' => 'Konfiguration für wiederkehrende Rechnungen bearbeiten', @@ -1423,6 +1425,7 @@ $self->{texts} = { 'No report with id #1' => 'Es gibt keinen Report mit der Id #1', 'No requirement spec statuses has been created yet.' => 'Es wurden noch keine Pflichtenheftstatus angelegt.', 'No requirement spec type has been created yet.' => 'Es wurden noch keine Pflichtenhefttypen angelegt.', + 'No risks level has been created yet.' => 'Es wurden noch keine Risikograde angelegt.', 'No shipto selected to delete' => 'Keine Lieferadresse zum Löschen ausgewählt', 'No summary account' => 'Kein Sammelkonto', 'No transaction selected!' => 'Keine Transaktion ausgewählt', @@ -1808,6 +1811,7 @@ $self->{texts} = { 'Revenues EU without UStId' => 'Erlöse EU o. UStId', 'Review of Aging list' => 'Altersstrukturliste', 'Right' => 'Rechts', + 'Risk levels' => 'Risikograde', 'Risks' => 'Risikograde', 'Row' => 'Zeile', 'Row #1: amount has to be different from zero.' => 'Zeile #1: Der Wert darf nicht 0 sein.', @@ -2283,6 +2287,10 @@ $self->{texts} = { 'The requirement spec type has been deleted.' => 'Der Pflichtenhefttyp wurde gelöscht.', 'The requirement spec type has been saved.' => 'Der Pflichtenhefttyp wurde gespeichert.', 'The requirement spec type is in use and cannot be deleted.' => 'Der Pflichtenhefttyp wird verwendet und kann nicht gelöscht werden.', + 'The risk level has been created.' => 'Der Risikograd wurde angelegt.', + 'The risk level has been deleted.' => 'Der Risikograd wurde gelöscht.', + 'The risk level has been saved.' => 'Der Risikograd wurde gespeichert.', + 'The risk level is in use and cannot be deleted.' => 'Der Risikograd wird verwendet und kann nicht gelöscht werden.', 'The second reason is that kivitendo allowed the user to enter the tax amount manually regardless of the taxkey used.' => 'Der zweite Grund war, dass kivitendo zuließ, dass die Benutzer beliebige, von den tatsächlichen Steuerschlüsseln unabhängige Steuerbeträge eintrugen.', 'The second way is to use Perl\'s CPAN module and let it download and install the module for you.' => 'Die zweite Variante besteht darin, Perls CPAN-Modul zu benutzen und es das Modul für Sie installieren zu lassen.', 'The selected bank account does not exist anymore.' => 'Das ausgewählte Bankkonto existiert nicht mehr.', diff --git a/templates/webpages/requirement_spec_risk/form.html b/templates/webpages/requirement_spec_risk/form.html new file mode 100755 index 000000000..82e8467f0 --- /dev/null +++ b/templates/webpages/requirement_spec_risk/form.html @@ -0,0 +1,24 @@ +[% USE HTML %][% USE L %][% USE LxERP %] + +
+
[% FORM.title %]
+ +[%- INCLUDE 'common/flash.html' %] + + + + + + +
[% LxERP.t8("Description") %][% L.input_tag("requirement_spec_risk.description", SELF.requirement_spec_risk.description) %]
+ +

+ [% L.hidden_tag("id", SELF.requirement_spec_risk.id) %] + [% L.hidden_tag("action", "RequirementSpecRisk/dispatch") %] + [% L.submit_tag("action_" _ (SELF.requirement_spec_risk.id ? "update" : "create"), LxERP.t8('Save')) %] + [%- IF SELF.requirement_spec_risk.id %] + [% L.submit_tag("action_destroy", LxERP.t8('Delete'), confirm=LxERP.t8('Do you really want to delete this object?')) %] + [%- END %] + [%- LxERP.t8('Abort') %] +

+
diff --git a/templates/webpages/requirement_spec_risk/list.html b/templates/webpages/requirement_spec_risk/list.html new file mode 100644 index 000000000..af4a475a3 --- /dev/null +++ b/templates/webpages/requirement_spec_risk/list.html @@ -0,0 +1,42 @@ +[% USE HTML %][% USE L %][% USE LxERP %] + +
[% FORM.title %]
+ +[%- INCLUDE "common/flash.html" %] + +
+ [% IF !REQUIREMENT_SPEC_RISKS.size %] +

+ [%- LxERP.t8("No risks level has been created yet.") %] +

+ + [%- ELSE %] + + + + + + + + + + [%- FOREACH requirement_spec_risk = REQUIREMENT_SPEC_RISKS %] + + + + + [%- END %] + +
[ LxERP.t8([%- LxERP.t8("Description") %]
[ LxERP.t8( + requirement_spec_risk.id) %]"> + [%- HTML.escape(requirement_spec_risk.description) %] + +
+ [%- END %] + +

+ [%- LxERP.t8("Create a new risk level") %] +

+
+ + [% L.sortable_element("#requirement_spec_risk_list tbody", url => "controller.pl?action=RequirementSpecRisk/reorder", with => "requirement_spec_risk_id") %] -- 2.20.1