$main::lxdebug->leave_sub();
}
-sub printer {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
-
- my $query = qq|SELECT id, printer_description, template_code, printer_command
- FROM printers
- ORDER BY 2|;
-
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- $form->{"ALL"} = [];
- while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
- push @{ $form->{ALL} }, $ref;
- }
-
- $sth->finish;
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-}
-
-sub get_printer {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
-
- my $query =
- qq|SELECT p.printer_description, p.template_code, p.printer_command
- FROM printers p
- WHERE p.id = ?|;
- my $sth = $dbh->prepare($query);
- $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");
-
- my $ref = $sth->fetchrow_hashref("NAME_lc");
-
- map { $form->{$_} = $ref->{$_} } keys %$ref;
-
- $sth->finish;
-
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-}
-
-sub save_printer {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
- my $query;
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
-
- my @values = ($form->{printer_description},
- $form->{template_code},
- $form->{printer_command});
-
- # id is the old record
- if ($form->{id}) {
- $query = qq|UPDATE printers SET
- printer_description = ?, template_code = ?, printer_command = ?
- WHERE id = ?|;
- push(@values, $form->{id});
- } else {
- $query = qq|INSERT INTO printers
- (printer_description, template_code, printer_command)
- VALUES (?, ?, ?)|;
- }
- do_query($form, $dbh, $query, @values);
-
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-}
-
-sub delete_printer {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
-
- # connect to database
- my $dbh = $form->dbconnect($myconfig);
-
- my $query = qq|DELETE FROM printers
- WHERE id = ?|;
- do_query($form, $dbh, $query, $form->{id});
-
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-}
-
sub payment {
$main::lxdebug->enter_sub();
return $self;
}
+sub get_user_dbh {
+ my ($self, $login) = @_;
+ my %user = $self->read_user($login);
+ my $dbh = DBI->connect(
+ $user{dbconnect},
+ $user{dbuser},
+ $user{dbpasswd},
+ {
+ pg_enable_utf8 => $::locale->is_utf8,
+ AutoCommit => 0
+ }
+ ) or $::form->dberror;
+
+ if ($user{dboptions}) {
+ $dbh->do($user{dboptions}) or $::form->dberror($user{dboptions});
+ }
+
+ return $dbh;
+}
+
sub DESTROY {
my $self = shift;
--- /dev/null
+package SL::Printer;
+
+use SL::DBUtils;
+
+sub all_printers {
+ $::lxdebug->enter_sub;
+
+ my ($self, %params) = @_;
+
+ my $dbh = $::auth->get_user_dbh($params{login});
+
+ my $query = qq|SELECT * FROM printers ORDER BY printer_description|;
+ my @printers = selectall_hashref_query($::form, $dbh, $query);
+
+ $::lxdebug->leave_sub;
+
+ return wantarray ? @printers : \@printers;
+}
+
+sub get_printer {
+ $::lxdebug->enter_sub;
+
+ my ($self, %params) = @_;
+
+ my $dbh = $::auth->get_user_dbh($params{login});
+
+ my $query = qq|SELECT * FROM printers WHERE id = ?|;
+ my ($printer) = selectfirst_hashref_query($::form, $dbh, $query, $params{id});
+
+ $::lxdebug->leave_sub;
+
+ return $printer;
+}
+
+sub save_printer {
+ $main::lxdebug->enter_sub();
+
+ my ($self, %params) = @_;
+
+ # connect to database
+ my $dbh = $::auth->get_user_dbh($params{login});
+ my $printer = $params{printer};
+
+ unless ($printer->{id}) {
+ ($printer->{id}) = selectfirst_array_query($::form, $dbh, "SELECT nextval('id'::text)");
+ do_query($::form, $dbh, "INSERT INTO printers (id, printer_description) VALUES (?, '')", $printer->{id});
+ }
+
+ my $query = <<SQL;
+ UPDATE printers SET
+ printer_description = ?,
+ template_code = ?,
+ printer_command = ?
+ WHERE id = ?
+SQL
+ do_query($::form, $dbh, $query,
+ $printer->{printer_description},
+ $printer->{template_code},
+ $printer->{printer_command},
+ $printer->{id},
+ );
+
+ $dbh->commit;
+
+ $::lxdebug->leave_sub;
+}
+
+sub delete_printer {
+ $::lxdebug->enter_sub;
+
+ my ($self, %params) = @_;
+
+ my $dbh = $::auth->get_user_dbh($params{login});
+
+ my $query = qq|DELETE FROM printers WHERE id = ?|;
+ do_query($::form, $dbh, $query, $params{id});
+
+ $dbh->commit;
+
+ $::lxdebug->leave_sub;
+}
+
+1;
require "bin/mozilla/common.pl";
require "bin/mozilla/admin_groups.pl";
+require "bin/mozilla/admin_printer.pl";
use strict;
--- /dev/null
+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 {
+ $::lxdebug->dump(0, "testing", $::form);
+ for (qw(get_login_form list_printers add_printer edit_printer save_printer delete_printer list_users)) {
+ if ($::form->{$_}) {
+ ::call_sub($::locale->findsub($_));
+ ::end_of_request()
+ }
+ }
+ die "cannot find sub";
+}
+
+sub printer_management {
+ &list_printers;
+}
+
+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;
$main::lxdebug->leave_sub();
}
-
-sub add_printer {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
-
- $main::auth->assert('config');
-
- $form->{title} = "Add";
-
- $form->{callback} = "am.pl?action=add_printer" unless $form->{callback};
-
- &printer_header;
- &form_footer;
-
- $main::lxdebug->leave_sub();
-}
-
-sub edit_printer {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
-
- $main::auth->assert('config');
-
- $form->{title} = "Edit";
-
- AM->get_printer(\%myconfig, \%$form);
-
- &printer_header;
-
- $form->{orphaned} = 1;
- &form_footer;
-
- $main::lxdebug->leave_sub();
-}
-
-sub list_printer {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- AM->printer(\%myconfig, \%$form);
-
- $form->{callback} = "am.pl?action=list_printer";
-
- my $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Printer');
-
- my @column_index = qw(printer_description printer_command template_code);
- my %column_header;
- $column_header{printer_description} =
- qq|<th class=listheading width=60%>|
- . $locale->text('Printer Description')
- . qq|</th>|;
- $column_header{printer_command} =
- qq|<th class=listheading width=10%>|
- . $locale->text('Printer Command')
- . qq|</th>|;
- $column_header{template_code} =
- qq|<th class=listheading>|
- . $locale->text('Template Code')
- . qq|</th>|;
-
- $form->header;
-
- print qq|
-<body>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
-
- my ($i, %column_data);
- foreach my $ref (@{ $form->{ALL} }) {
-
- $i++;
- $i %= 2;
-
- print qq|
- <tr valign=top class=listrow$i>
-|;
-
-
- $column_data{printer_description} = qq|<td><a href="am.pl?action=edit_printer&id=$ref->{id}&callback=$callback">$ref->{printer_description}</td>|;
- $column_data{printer_command} = qq|<td align=right>$ref->{printer_command}</td>|;
- $column_data{template_code} =
- qq|<td align=right>$ref->{template_code}</td>|;
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
- }
-
- print qq|
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<br>
-<form method=post action=am.pl>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=printer>
-
-<input class=submit type=submit name=action value="|
- . $locale->text('Add') . qq|">
-
- </form>
-
- </body>
- </html>
-|;
-
- $main::lxdebug->leave_sub();
-}
-
-sub printer_header {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- $form->{title} = $locale->text("$form->{title} Printer");
-
- # $locale->text('Add Printer')
- # $locale->text('Edit Printer')
-
- $form->{printer_description} =~ s/\"/"/g;
- $form->{template_code} =~ s/\"/"/g;
- $form->{printer_command} =~ s/\"/"/g;
-
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=am.pl>
-
-<input type=hidden name=id value=$form->{id}>
-<input type=hidden name=type value=printer>
-
-<table width=100%>
- <tr>
- <th class=listtop colspan=2>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <th align=right>| . $locale->text('Printer') . qq|</th>
- <td><input name=printer_description size=30 value="$form->{printer_description}"></td>
- <tr>
- <tr>
- <th align=right>| . $locale->text('Printer Command') . qq|</th>
- <td><input name=printer_command size=30 value="$form->{printer_command}"></td>
- </tr>
- <tr>
- <th align=right>| . $locale->text('Template Code') . qq|</th>
- <td><input name=template_code size=5 value="$form->{template_code}"></td>
- </tr>
- <td colspan=2><hr size=3 noshade></td>
- </tr>
-</table>
-|;
-
- $main::lxdebug->leave_sub();
-}
-
-sub save_printer {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- $form->isblank("printer_description", $locale->text('Description missing!'));
- $form->isblank("printer_command", $locale->text('Printer Command missing!'));
- AM->save_printer(\%myconfig, \%$form);
- $form->redirect($locale->text('Printer saved!'));
-
- $main::lxdebug->leave_sub();
-}
-
-sub delete_printer {
- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- AM->delete_printer(\%myconfig, \%$form);
- $form->redirect($locale->text('Printer deleted!'));
-
- $main::lxdebug->leave_sub();
-}
-
sub add_payment {
$main::lxdebug->enter_sub();
{ 'name' => $locale->text('Queue'), 'value' => 'queue', 'selected' => $selected{queue}, },
];
- AM->printer(\%myconfig, $form);
-
$form->{PRINTERS} = [];
- foreach my $printer (@{$form->{"ALL"}}) {
+ foreach my $printer (SL::Printer->all_printers(%::myconfig)) {
push @{ $form->{PRINTERS} }, {
'name' => $printer->{printer_description},
'value' => $printer->{id},
'Please read the file' => 'Bitte lesen Sie die Datei',
'Please select a customer from the list below.' => 'Bitte einen Endkunden aus der Liste auswählen',
'Please select a part from the list below.' => 'Bitte wählen Sie einen Artikel aus der Liste aus.',
+ 'Please select a user' => 'Bitte wählen Sie einen Benutzer aus',
'Please select a vendor from the list below.' => 'Bitte einen Händler aus der Liste auswählen',
'Please select the chart of accounts this installation is using from the list below.' => 'Bitte wählen Sie den Kontenrahmen aus, der bei dieser Installation verwendet wird.',
'Please select the database you want to backup' => 'Bitte wählen Sie die zu sichernde Datenbank gefunden',
'Printer' => 'Drucker',
'Printer Command' => 'Druckbefehl',
'Printer Command missing!' => 'Druckbefehl fehlt',
- 'Printer Description' => 'Druckerbeschreibung',
- 'Printer deleted!' => 'Drucker gelöscht!',
- 'Printer saved!' => 'Drucker gespeichert!',
+ 'Printer Management' => 'Druckeradministration',
+ 'Printers are created for a user database. Please select a user. The associated database will be edited.' => 'Drucker werden für eine Benutzerdatenbank erzeugt. Bitte wählen Sie einen Benutzer aus. Die Drucker werden in der verknüpften Datenbank angelegt.',
'Printing ... ' => 'Es wird gedruckt.',
'Prior to Lx-Office v2.4.0 the user could enter arbitrary strings as units for parts, services and in invoices, sales quotations etc.' => 'Vor Lx-Office 2.4.0 konnte der Benutzer bei Artikeln, Dienstleistungen und Rechnungen, Angeboten etc beliebige Einheiten angeben.',
'Prior to Lx-Office v2.4.0 the user had to chose the accounts for each part and service.' => 'Vor Lx-Office 2.4.0 musste der Benutzer die Konten bei jeder Ware und jeder Dienstleistung einzeln auswählen.',
action=edit_greetings
-[System--Printer]
-module=menu.pl
-action=acc_menu
-target=acc_menu
-submenu=1
-
-[System--Printer--Add Printer]
-module=am.pl
-action=add_printer
-
-[System--Printer--List Printer]
-module=am.pl
-action=list_printer
-
[System--Payment Terms]
module=menu.pl
action=acc_menu
<input type="submit" class="submit" name="action" value="[% 'Add User' | $T8 %]">
<input type="submit" class="submit" name="action" value="[% 'Edit groups' | $T8 %]">
+ <input type="submit" class="submit" name="action" value="[% 'Printer Management' | $T8 %]">
<input type="submit" class="submit" name="action" value="[% 'Pg Database Administration' | $T8 %]">
[% IF LOCKED %]
<input type="submit" class="submit" name="action" value="[% 'Unlock System' | $T8 %]">
--- /dev/null
+[%- USE T8 %]
+[%- USE L %]
+<p>[% 'Please select a user' | $T8 %]: [% L.select_tag('login', L.options_for_select(users, value => 'login', title => 'login', default => login)) %]</p>
+
--- /dev/null
+[%- USE T8 %]
+<body>
+
+<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=right>[% 'Printer' | $T8 %]</th>
+ <td><input name="printer.printer_description" size=30 value="[% printer.printer_description | html %]"></td>
+ <tr>
+ <tr>
+ <th align=right>[% 'Printer Command' | $T8 %]</th>
+ <td><input name="printer.printer_command" size=30 value="[% printer.printer_command | html %]"></td>
+ </tr>
+ <tr>
+ <th align=right>[% '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=save_printer value="[% 'Save' | $T8 %]">
+
+[%- IF id %]
+<input type=submit class=submit name=delete_printer value="[% 'Delete' | $T8 %]">
+[%- END %]
+<input type=submit class=submit name=list_printers value="[% 'Back' | $T8 %]">
+
+</form>
+
+</body>
+</html>
--- /dev/null
+[%- USE T8 %]
+
+<body>
+<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=right>[% row.printer_command | html %]</td>
+ <td align=right>[% row.template_code | html %]</td>
+ </tr>
+[%- END %]
+[%- ELSE %]
+ <tr><td colspan='3'>[% 'No data was found.' | $T8 %]</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="add_printer" value ="[% 'Add' | $T8 %]">
+ <input type="submit" name='get_login_form' value="[% 'Back' | $T8 %]">
+</form>
+</body>
+</html>
--- /dev/null
+[% 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>
+<input type='submit' name='list_printers' value='[% 'Continue' | $T8 %]'>
+<input type='submit' name='list_users' value='[% 'Back' | $T8 %]'>
+</p>
+
+</form>