From f16abae9524dc7ffd6c40bc37784791883e29739 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 30 Jan 2007 13:14:40 +0000
Subject: [PATCH] =?utf8?q?Benutzereinstellungen:=20Neue=20Optionen=20f?=
 =?utf8?q?=C3=BCr=20den=20Standardausgabekanal=20und=20den=20Standarddruck?=
 =?utf8?q?er=20hinzugef=C3=BCgt.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/User.pm        |  2 +-
 bin/mozilla/am.pl | 31 ++++++++++++++++++++++++++++++-
 bin/mozilla/io.pl | 12 ++++++++++++
 bin/mozilla/is.pl |  2 --
 bin/mozilla/oe.pl |  1 -
 locale/de/all     |  2 ++
 locale/de/am      |  4 ++++
 7 files changed, 49 insertions(+), 5 deletions(-)

diff --git a/SL/User.pm b/SL/User.pm
index 5217ef811..9fd9e5ee4 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -1092,7 +1092,7 @@ sub config_vars {
     dbname dbuser dbpasswd email fax name numberformat in_numberformat password
     printer role sid signature stylesheet tel templates vclimit angebote bestellungen rechnungen
     anfragen lieferantenbestellungen einkaufsrechnungen taxnumber co_ustid duns menustyle
-    template_format copies show_form_details);
+    template_format default_media default_printer_id copies show_form_details);
 
   $main::lxdebug->leave_sub();
 
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 4e327fd42..7084aa388 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -2858,7 +2858,7 @@ sub config {
   if (!$myconfig{"template_format"}) {
     $myconfig{"template_format"} = "pdf";
   }
-  $template_format = "";
+  my $template_format = "";
   foreach $item (@formats) {
     $template_format .=
       "<option value=\"$item->{value}\"" .
@@ -2867,6 +2867,27 @@ sub config {
        ">" . H($item->{"name"}) . "</option>";
   }
 
+  if (!$myconfig{"default_media"}) {
+    $myconfig{"default_media"} = "screen";
+  }
+  my %selected = ($myconfig{"default_media"} => "selected");
+  my $default_media = qq|
+  <option value="screen" $selected{'screen'}>| . $locale->text("Screen") . qq|</option>
+  <option value="printer" $selected{'printer'}>| . $locale->text("Printer") . qq|</option>
+  <option value="queue" $selected{'queue'}>| . $locale->text("Queue") . qq|</option>
+|;
+
+  %selected = ();
+  $selected{$myconfig{"default_printer_id"}} = "selected"
+    if ($myconfig{"default_printer_id"});
+  my $default_printer = qq|<option></option>|;
+  AM->printer(\%myconfig, $form);
+  foreach my $printer (@{$form->{"ALL"}}) {
+    $default_printer .= qq|<option value="| . Q($printer->{"id"}) .
+      qq|" $selected{$printer->{'id'}}>| .
+      H($printer->{"printer_description"}) . qq|</option>|;
+  }
+
   %countrycodes = User->country_codes;
   $countrycodes = '';
   foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} }
@@ -3027,6 +3048,14 @@ sub config {
 	  <th align=right>| . $locale->text('Default template format') . qq|</th>
 	  <td><select name="template_format">$template_format</select></td>
 	</tr>
+	<tr>
+	  <th align=right>| . $locale->text('Default output medium') . qq|</th>
+	  <td><select name="default_media">$default_media</select></td>
+	</tr>
+	<tr>
+	  <th align=right>| . $locale->text('Default printer') . qq|</th>
+	  <td><select name="default_printer_id">$default_printer</select></td>
+	</tr>
 	<tr>
 	  <th align=right>| . $locale->text('Number of copies') . qq|</th>
 	  <td><input name="copies" size="10" value="| .
diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index afcdb6672..820ad48f2 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1469,6 +1469,18 @@ sub print_options {
     $myconfig{"copies"} ? $myconfig{"copies"} :
     3;
 
+  $form->{"media"} =
+    $form->{"media"} ? $form->{"media"} :
+    $myconfig{"default_media"} ? $myconfig{"default_media"} :
+    "screen";
+
+  $lxdebug->message(0, "fm $form->{media}");
+
+  $form->{"printer_id"} =
+    defined($form->{"printer_id"}) ? $form->{"printer_id"} :
+    $myconfig{"default_printer_id"} ? $myconfig{"default_printer_id"} :
+    "";
+
   $form->{PD}{ $form->{formname} } = "selected";
   $form->{DF}{ $form->{format} }   = "selected";
   $form->{OP}{ $form->{media} }    = "selected";
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 6b94e2c9a..89b375b43 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -244,11 +244,9 @@ sub prepare_invoice {
   if ($form->{type} eq "credit_note") {
     $form->{type}     = "credit_note";
     $form->{formname} = "credit_note";
-    $form->{media}    = "screen";
   } else {
     $form->{type}     = "invoice";
     $form->{formname} = "invoice";
-    $form->{media}    = "screen";
   }
 
   if ($form->{id}) {
diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl
index aabb659d4..10e71ac17 100644
--- a/bin/mozilla/oe.pl
+++ b/bin/mozilla/oe.pl
@@ -284,7 +284,6 @@ sub order_links {
 
 sub prepare_order {
   $lxdebug->enter_sub();
-  $form->{media}    = "screen";
   $form->{formname} = $form->{type} unless $form->{formname};
 
   my $i = 0;
diff --git a/locale/de/all b/locale/de/all
index 8d7e7bde2..868637021 100644
--- a/locale/de/all
+++ b/locale/de/all
@@ -313,6 +313,8 @@ aktualisieren wollen?',
   'December'                    => 'Dezember',
   'Decimalplaces'               => 'Dezimalstellen',
   'Decrease'                    => 'Verringern',
+  'Default output medium'       => 'Standardausgabekanal',
+  'Default printer'             => 'Standarddrucker',
   'Default template format'     => 'Standardvorlagenformat',
   'Delete'                      => 'Löschen',
   'Delete Account'              => 'Konto löschen',
diff --git a/locale/de/am b/locale/de/am
index d083ac86e..ef6bf66a4 100644
--- a/locale/de/am
+++ b/locale/de/am
@@ -66,6 +66,8 @@ $self->{texts} = {
   'Dataset upgrade'             => 'Datenbankaktualisierung',
   'Date Format'                 => 'Datumsformat',
   'Debit'                       => 'Soll',
+  'Default output medium'       => 'Standardausgabekanal',
+  'Default printer'             => 'Standarddrucker',
   'Default template format'     => 'Standardvorlagenformat',
   'Delete'                      => 'Löschen',
   'Delete Account'              => 'Konto löschen',
@@ -186,6 +188,7 @@ $self->{texts} = {
   'Profit Center'               => 'Erfolgsbereich',
   'Project Number'              => 'Projektnummer',
   'Project description'         => 'Projektbeschreibung',
+  'Queue'                       => 'Warteschlange',
   'Rate'                        => 'Rate',
   'Receipt'                     => 'Zahlungseingang',
   'Receivables'                 => 'Forderungen',
@@ -195,6 +198,7 @@ $self->{texts} = {
   'SIC saved!'                  => 'SIC gespeichert',
   'Salesman'                    => 'Vertreter',
   'Save'                        => 'Speichern',
+  'Screen'                      => 'Bildschirm',
   'Select a Customer'           => 'Endkunde auswählen',
   'Select a part'               => 'Artikel ausw&auml;hlen',
   'Select a project'            => 'Projekt ausw&auml;hlen',
-- 
2.20.1