projekt kivitendo

use List::Util qw(first);

use SL::DB::Printer;

  'scalar --get_set_init' => [ qw(client user group printer nologin_file_name db_cfg is_locked

                                  all_dateformats all_numberformats all_countrycodes all_stylesheets all_menustyles all_clients all_groups all_users all_rights all_printers) ],

__PACKAGE__->run_before(\&setup_client, only => [ qw(list_printers new_printer edit_printer save_printer delete_printer) ]);

#

# actions: printers

#

sub action_list_printers {

  my ($self) = @_;

  $self->render('admin/list_printers', title => t8('Printer management'));

}

sub action_new_printer {

  my ($self) = @_;

  $self->printer(SL::DB::Printer->new);

  $self->edit_printer_form(title => t8('Create a new printer'));

}

sub action_edit_printer {

  my ($self) = @_;

  $self->edit_printer_form(title => t8('Edit Printer'));

}

sub action_save_printer {

  my ($self) = @_;

  my $params = delete($::form->{printer}) || { };

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

  $self->printer($is_new ? SL::DB::Printer->new : SL::DB::Printer->new(id => $params->{id})->load)->assign_attributes(%{ $params });

  my @errors = $self->printer->validate;

  if (@errors) {

    flash('error', @errors);

    $self->edit_printer_form(title => $is_new ? t8('Create a new printer') : t8('Edit Printer'));

    return;

  }

  $self->printer->save;

  flash_later('info', $is_new ? t8('The printer has been created.') : t8('The printer has been saved.'));

  $self->redirect_to(action => 'list_printers', 'client.id' => $self->client->id);

}

sub action_delete_printer {

  my ($self) = @_;

  if (!$self->printer->delete) {

    flash('error', t8('The printer could not be deleted.'));

    $self->edit_printer_form(title => t8('Edit Printer'));

    return;

  }

  flash_later('info', t8('The printer has been deleted.'));

  $self->redirect_to(action => 'list_printers', 'client.id' => $self->client->id);

}

sub init_db_cfg            { $::lx_office_conf{'authentication/database'}                                                    }

sub init_nologin_file_name { $::lx_office_conf{paths}->{userspath} . '/nologin';                                             }

sub init_is_locked         { -e $_[0]->nologin_file_name                                                                     }

sub init_client            { SL::DB::Manager::AuthClient->find_by(id => ($::form->{id} || ($::form->{client}  || {})->{id})) }

sub init_user              { SL::DB::AuthUser  ->new(id => ($::form->{id} || ($::form->{user}    || {})->{id}))->load        }

sub init_group             { SL::DB::AuthGroup ->new(id => ($::form->{id} || ($::form->{group}   || {})->{id}))->load        }

sub init_printer           { SL::DB::Printer   ->new(id => ($::form->{id} || ($::form->{printer} || {})->{id}))->load        }

sub init_all_clients       { SL::DB::Manager::AuthClient->get_all_sorted                                                     }

sub init_all_users         { SL::DB::Manager::AuthUser  ->get_all_sorted                                                     }

sub init_all_groups        { SL::DB::Manager::AuthGroup ->get_all_sorted                                                     }

sub init_all_printers      { SL::DB::Manager::Printer   ->get_all_sorted                                                     }

sub init_all_dateformats   { [ qw(mm/dd/yy dd/mm/yy dd.mm.yy yyyy-mm-dd)      ]                                              }

sub init_all_numberformats { [ qw(1,000.00 1000.00 1.000,00 1000,00)          ]                                              }

sub init_all_stylesheets   { [ qw(lx-office-erp.css Mobile.css kivitendo.css) ]                                              }

sub setup_client {

  my ($self) = @_;

  $self->client((first { $_->is_default } @{ $self->all_clients }) || $self->all_clients->[0]) if !$self->client;

  $::auth->set_client($self->client->id);

}

sub edit_printer_form {

  my ($self, %params) = @_;

  $self->render('admin/edit_printer', %params);

}

package SL::DB::Manager::Printer;

use strict;

use SL::DB::Helper::Manager;

use base qw(SL::DB::Helper::Manager);

use SL::DB::Helper::Paginated;

use SL::DB::Helper::Sorted;

sub object_class { 'SL::DB::Printer' }

__PACKAGE__->make_manager_methods;

sub _sort_spec {

  return ( default => [ 'printer_description', 1 ],

           columns => { SIMPLE => 'ALL' } );

}

1;

use SL::DB::Manager::Printer;

use SL::DB::Helper::Util;

sub validate {

  my ($self) = @_;

  my @errors;

  push @errors, $::locale->text('The description is missing.')    if !$self->printer_description;

  push @errors, $::locale->text('The command is missing.')        if !$self->printer_command;

  push @errors, $::locale->text('The description is not unique.') if !SL::DB::Helper::Util::is_unique($self, 'printer_description');

  return @errors;

}

[%- USE LxERP -%][%- USE HTML -%][%- USE L -%]

[% INCLUDE 'common/flash.html' %]

<h1>[% HTML.escape(title) %]</h1>

<form method="post">

 [% L.hidden_tag("client.id", SELF.client.id) %]

 [% L.hidden_tag("action", 'Admin/dispatch') %]

 [% L.hidden_tag("printer.id", SELF.printer.id) %]

 <table>

  <tr>

   <th align="right">[% LxERP.t8('Printer Description') %]</th>

   <td>[% L.input_tag("printer.printer_description", SELF.printer.printer_description, size=30) %]</td>

  <tr>

  <tr>

   <th align="right">[% LxERP.t8('Printer Command') %]</th>

   <td>[% L.input_tag("printer.printer_command", SELF.printer.printer_command, size=30) %]</td>

  </tr>

  <tr>

   <th align="right">[% LxERP.t8('Template Code') %]</th>

   <td>[% L.input_tag("printer.template_code", SELF.printer.template_code, size=8) %]</td>

  </tr>

 </table>

 <p>

  <a href="[% SELF.url_for(action='list_printers', 'client.id'=SELF.client.id) %]">[% LxERP.t8("Back") %]</a>

  [% L.submit_tag("action_save_printer", LxERP.t8("Save")) %]

  [%- IF SELF.printer.id %]

   [% L.submit_tag("action_delete_printer", LxERP.t8("Delete"), confirm=LxERP.t8("Are you sure?")) %]

 [%- END %]

 </p>

</form>

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%]

[% INCLUDE 'common/flash.html' %]

<h1>[% HTML.escape(title) %]</h1>

[% IF !SELF.all_clients.size %]

<div class="error">

 [% LxERP.t8("Error") %]:

 [% LxERP.t8("No clients have been created yet.") %]

</div>

<div>

 <a href="[% SELF.url_for(action='show') %]">[% LxERP.t8("Back") %]</a>

</div>

[%- ELSE %]

 <div>

  [% LxERP.t8("Actions") %]:

  <span class="link_separator"></span>

  <a href="[% SELF.url_for(action='show') %]">[% LxERP.t8("Back") %]</a>

  <span class="link_separator">|</span>

  <a href="[% SELF.url_for(action='new_printer', 'client.id'=SELF.client.id) %]">[% LxERP.t8("Add printer") %]</a>

 </div>

 <hr>

 <p>

  [% LxERP.t8("Client to configure the printers for") %]:

  [% L.select_tag('client.id', SELF.all_clients, id='client_id', title_key='name', default=SELF.client.id) %]

 </p>

 [%- IF !SELF.all_printers.size %]

  <p>

   [% LxERP.t8("No printers have been created yet.") %]

  </p>

 [%- ELSE %]

  <table width="100%">

   <tr class="listheading">

    <th>[% LxERP.t8('Description') %]</th>

    <th>[% LxERP.t8('Printer Command') %]</th>

    <th>[% LxERP.t8('Template Code') %]</th>

   </tr>

   [%- FOREACH printer = SELF.all_printers %]

    <tr valign="top" class="listrow">

     <td><a href="[% SELF.url_for(action='edit_printer', 'client.id'=SELF.client.id, id=printer.id) %]">[% HTML.escape(printer.printer_description) %]</a></td>

     <td>[% HTML.escape(printer.printer_command) %]</td>

     <td>[% HTML.escape(printer.template_code) %]</td>

    </tr>

   [%- END %]

  </table>

 [%- END %]

 <script type="text/javascript">

<!--

  $(function() {

    $('#client_id').change(function() {

      window.location.href = "controller.pl?action=Admin/list_printers&client.id=" + $('#client_id').val();

    });

  });

-->

 </script>

[%- END %]

 [% L.link(SELF.url_for(action="list_printers"), LxERP.t8("Printer Management")) %]