Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8b34d295

Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt

  • ID 8b34d2951ae9a949476331eb5b8f6249df616b5b
  • Vorgänger 3772d03a
  • Nachfolger f4800c43

Druckerverwaltung auf Admin-Controller umgestellt

Unterschiede anzeigen:

SL/Controller/Admin.pm
use parent qw(SL::Controller::Base);
use IO::File;
use List::Util qw(first);
use SL::DB::AuthUser;
use SL::DB::AuthGroup;
use SL::DB::Printer;
use SL::Helper::Flash;
use SL::Locale::String qw(t8);
use SL::User;
use Rose::Object::MakeMethods::Generic
(
'scalar --get_set_init' => [ qw(client user group nologin_file_name db_cfg all_dateformats all_numberformats all_countrycodes all_stylesheets all_menustyles all_clients all_groups all_users all_rights is_locked) ],
'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_layout);
__PACKAGE__->run_before(\&setup_client, only => [ qw(list_printers new_printer edit_printer save_printer delete_printer) ]);
sub get_auth_level { "admin" };
sub keep_auth_vars {
......
$self->redirect_to(action => 'show');
}
#
# 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);
}
#
# actions: locking, unlocking
#
......
# initializers
#
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::AuthClient->new(id => ($::form->{id} || ($::form->{client} || {})->{id}))->load }
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_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_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 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 init_all_menustyles {
return [
{ id => 'old', title => $::locale->text('Old (on the side)') },
......
$::form->{favicon} = "favicon.ico";
}
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);
}
#
# displaying forms
#
......
$self->use_multiselect_js->render('admin/edit_group', %params);
}
sub edit_printer_form {
my ($self, %params) = @_;
$self->render('admin/edit_printer', %params);
}
#
# helpers
#
SL/DB/Manager/Printer.pm
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;
SL/DB/Printer.pm
use strict;
use SL::DB::MetaSetup::Printer;
__PACKAGE__->meta->make_manager_class;
use SL::DB::Manager::Printer;
use SL::DB::Helper::Util;
sub description {
goto &printer_description;
}
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;
}
1;
bin/mozilla/admin.pl
use SL::Template;
require "bin/mozilla/common.pl";
require "bin/mozilla/admin_printer.pl";
use strict;
bin/mozilla/admin_printer.pl
use strict;
use SL::Printer;
sub get_login {
unless ($::form->{login}) {
get_login_form();
::end_of_request();
}
return $::form->{login};
}
sub get_login_form {
my %users = $::auth->read_all_users;
$::form->header;
print $::form->parse_html_template('admin_printer/login', {
users => [ values %users ],
});
}
sub printer_dispatcher {
for my $action (qw(get_login_form list_printers add_printer edit_printer save_printer delete_printer)) {
if ($::form->{$action}) {
::call_sub($::locale->findsub($action));
::end_of_request()
}
}
die "cannot find sub";
}
sub printer_management {
&get_login_form;
}
sub add_printer {
$::lxdebug->enter_sub;
my $login = get_login();
my %users = $::auth->read_all_users;
$::form->header;
print $::form->parse_html_template('admin_printer/edit', {
title => $::locale->text("Add Printer"),
printer => { },
users => [ values %users ],
});
$::lxdebug->leave_sub
}
sub edit_printer {
$::lxdebug->enter_sub;
my $login = get_login();
my $id = $::form->{id} or $::form->{printer}{id} or &add_printer;
my %users = $::auth->read_all_users;
my $printer = SL::Printer->get_printer(id => $id, login => $login);
$::form->header;
print $::form->parse_html_template('admin_printer/edit', {
title => $::locale->text("Edit Printer"),
printer => $printer,
users => [ values %users ],
});
$::lxdebug->leave_sub;
}
sub list_printers {
$::lxdebug->enter_sub;
my $login = get_login();
my $printers = SL::Printer->all_printers(login => $login);
my %users = $::auth->read_all_users;
$::form->header;
print $::form->parse_html_template('admin_printer/list', {
title => $::locale->text('Printer'),
all_printers => $printers,
edit_link => build_std_url("login=$login", 'action=edit_printer', 'id='),
users => [ values %users ],
});
$::lxdebug->leave_sub;
}
sub save_printer {
$::lxdebug->enter_sub;
my $login = get_login();
my $printer = $::form->{printer} || die 'no printer to save';
$::form->error($::locale->text('Description missing!')) unless $printer->{printer_description};
$::form->error($::locale->text('Printer Command missing!')) unless $printer->{printer_command};
SL::Printer->save_printer(%$::form);
list_printers();
$::lxdebug->leave_sub;
}
sub delete_printer {
$::lxdebug->enter_sub;
my $login = get_login();
my $printer = $::form->{printer} || die 'no printer to delete';
SL::Printer->delete_printer(%$::form);
list_printers();
$::lxdebug->leave_sub;
}
1;
templates/webpages/admin/edit_printer.html
[%- 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>
templates/webpages/admin/list_printers.html
[%- 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 %]
templates/webpages/admin/show.html
<span class="link_separator">|</span>
[% L.link(SELF.url_for(action="pg_database_administration", controller="admin.pl"), LxERP.t8("Pg Database Administration")) %]
<span class="link_separator">|</span>
[% L.link(SELF.url_for(action="printer_management", controller="admin.pl"), LxERP.t8("Printer Management")) %]
[% L.link(SELF.url_for(action="list_printers"), LxERP.t8("Printer Management")) %]
<span class="link_separator">|</span>
[% IF SELF.is_locked %]
[% L.link(SELF.url_for(action="unlock_system"), LxERP.t8("Unlock System")) %]
templates/webpages/admin_printer/_login_form.html
[%- USE T8 %]
[%- USE L %]
<p>[% 'Please select a user' | $T8 %]: [% L.select_tag('login', users, value_key = 'login', title_key = 'login', default = login) %]</p>
templates/webpages/admin_printer/edit.html
[%- USE T8 %]
<form method=post>
<h1 class=listtop colspan=2>[% title %]</h1>
[%- PROCESS 'admin_printer/_login_form.html' %]
<input type=hidden name="printer.id" value="[% printer.id | html %]">
<table width=100%>
<tr height="5"></tr>
<tr>
<th align=left>[% 'Printer' | $T8 %]</th>
<td><input name="printer.printer_description" size=30 value="[% printer.printer_description | html %]"></td>
<tr>
<tr>
<th align=left>[% 'Printer Command' | $T8 %]</th>
<td><input name="printer.printer_command" size=30 value="[% printer.printer_command | html %]"></td>
</tr>
<tr>
<th align=left>[% 'Template Code' | $T8 %]</th>
<td><input name="printer.template_code" size=5 value="[% printer.template_code | html %]"></td>
</tr>
<td colspan=2><hr size=3 noshade></td>
</tr>
</table>
<br>
<input type=hidden name=action value="printer_dispatcher">
<input type=submit class=submit name=list_printers value="[% 'Back' | $T8 %]">
<input type=submit class=submit name=save_printer value="[% 'Save' | $T8 %]">
[%- IF id %]
<input type=submit class=submit name=delete_printer value="[% 'Delete' | $T8 %]">
[%- END %]
</form>
templates/webpages/admin_printer/list.html
[%- USE T8 %]
<form method='post'>
<h1 class=listtop>[% title %]</h1>
[%- PROCESS 'admin_printer/_login_form.html' %]
<table width=100%>
<tr>
<td>
<table width=100%>
<tr class=listheading>
<th>[% 'Description' | $T8 %]</th>
<th>[% 'Printer Command' | $T8 %]</th>
<th>[% 'Template Code' | $T8 %]</th>
</tr>
[%- IF all_printers.size %]
[%- FOREACH row = all_printers %]
<tr valign=top class="listrow[% loop.count % 2 %]">
<td>&nbsp;<a href="[% edit_link %][% row.id %]">[% row.printer_description %]</a></td>
<td align=left>&nbsp;[% row.printer_command | html %]</td>
<td align=left>&nbsp;[% row.template_code | html %]</td>
</tr>
[%- END %]
[%- ELSE %]
<tr><td colspan='3'><p class="message_hint">[% 'No data was found.' | $T8 %]</p></td></tr>
[%- END %]
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
<br>
<input type="hidden" name="action" value="printer_dispatcher">
<input type="submit" name='get_login_form' value="[% 'Back' | $T8 %]">
<input type="submit" name="add_printer" value ="[% 'Add' | $T8 %]">
</form>
templates/webpages/admin_printer/login.html
[% USE T8 %]
[% USE L %]
<h1 class=listtop>[% 'Printer Management' | $T8 %]</h1>
<form method='post'>
<p>[% 'Printers are created for a user database. Please select a user. The associated database will be edited.' | $T8 %]</p>
[%- PROCESS 'admin_printer/_login_form.html' %]
<input type='hidden' name='action' value='printer_dispatcher'>
<p>
<a href="controller.pl?action=Admin/show">[% 'Back' | $T8 %]</a>
<input type='submit' name='list_printers' value='[% 'Continue' | $T8 %]'>
</p>
</form>

Auch abrufbar als: Unified diff