Revision 8b34d295
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
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> <a href="[% edit_link %][% row.id %]">[% row.printer_description %]</a></td>
|
||
<td align=left> [% row.printer_command | html %]</td>
|
||
<td align=left> [% 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
Druckerverwaltung auf Admin-Controller umgestellt