projekt kivitendo

am.pl

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger Accounting

# Copyright (c) 1998-2002

#

#  Author: Dieter Simader

#   Email: dsimader@sql-ledger.org

#     Web: http://www.sql-ledger.org

#

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

#

# administration

#

#======================================================================

use SL::AM;

use SL::Form;

use Data::Dumper;

1;

require "$form->{path}/common.pl";

# end of main

sub display {

  if ($form->{display_nextsub}) {

    &{ $form->{display_nextsub} }();

  } else {

    die "display_nextsub not defined";

  }

}

sub save {

  if ($form->{save_nextsub}) {

    &{ $form->{save_nextsub} }();

  } else {

    die "save_nextsub not defined";

  }

}

sub edit {

  if ($form->{edit_nextsub}) {

    &{ $form->{edit_nextsub} }();

  } else {

    die "edit_nextsub not defined";

  }

}

sub display_template {

  $lxdebug->enter_sub();

  $form->{edit} = 0;

  display_template_form();

  $lxdebug->leave_sub();

}

sub edit_template {

  $lxdebug->enter_sub();

  $form->{edit} = 1;

  display_template_form();

  $lxdebug->leave_sub();

}

sub save_template {

  $lxdebug->enter_sub();

  $form->isblank("formname", $locale->text("You're not editing a file.")) unless ($form->{type} eq "stylesheet");

  my ($filename) = AM->prepare_template_filename(\%myconfig, $form);

  if (my $error = AM->save_template($filename, $form->{content})) {

    $form->error(sprintf($locale->text("Saving the file '%s' failed. OS error message: %s"), $filename, $error));

  }

  $form->{edit} = 0;

  display_template_form();

  $lxdebug->leave_sub();

}

sub display_template_form {

  $lxdebug->enter_sub();

  $form->{"formname"} =~ s|.*/||;

  my $format = $form->{"format"} eq "html" ? "html" : "tex";

  $form->{"title"} = $form->{"type"} eq "stylesheet" ? $locale->text("Edit the stylesheet") : $locale->text("Edit templates");

  my %options;

  my @hidden = qw(login path password type format);

  if (($form->{"type"} ne "stylesheet") && !$form->{"edit"}) {

    $options{"SHOW_EDIT_OPTIONS"} = 1;

    #

    # Setup "formname" selection

    #

    my %formname_setup =

      (

       "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 },

       "bin_list" => $locale->text('Bin List'),

       "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 },

       "check" => { "translation" => $locale->text('Check'), "html" => 1 },

       "credit_note" => $locale->text('Credit Note'),

       "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 },

       "invoice" => $locale->text('Invoice'),

       "packing_list" => $locale->text('Packing List'),

       "pick_list" => $locale->text('Pick List'),

       "proforma" => $locale->text('Proforma Invoice'),

       "purchase_order" => $locale->text('Purchase Order'),

       "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 },

       "request_quotation" => $locale->text('RFQ'),

       "sales_order" => $locale->text('Confirmation'),

       "sales_quotation" => $locale->text('Quotation'),

       "statement" => $locale->text('Statement'),

       "storno_invoice" => $locale->text('Storno Invoice'),

       "storno_packing_list" => $locale->text('Storno Packing List'),

       "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 },

       "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 },

       "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 },

       "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 },

       "ustva" => $locale->text("USTVA"),

       "zahlungserinnerung" => $locale->text('Payment Reminder'),

      );

    my (@values, $file, $setup);

    while (($file, $setup) = each(%formname_setup)) {

      next unless (!ref($setup) || $setup->{$format});

      push(@values,

           { "value"   => $file,

             "label"   => ref($setup) ? $setup->{"translation"} : $setup,

             "default" => $file eq $form->{"formname"} });

    }

    @values = sort({ $a->{"label"} cmp $b->{"label"} } @values);

    $options{"FORMNAME"} = [ @values ];

    #

    # Setup "language" selection

    #

    $form->get_lists("printers" => "ALL_PRINTERS",

                     "languages" => "ALL_LANGUAGES");

    @values = ( { "value" => "", "label" => "", "default" => 0 } );

    foreach my $item (@{ $form->{"ALL_LANGUAGES"} }) {

      next unless ($item->{"template_code"});

      my $key = "$item->{id}--$item->{template_code}";

      push(@values,

           { "value"   => $key,

             "label"   => $item->{"description"},

             "default" => $key eq $form->{"language"} });

    }

    $options{"LANGUAGE"} = [ @values ];

    $options{"SHOW_LANGUAGE"} = scalar(@values) > 1;

    @values = ( { "value" => "", "label" => "", "default" => 0 } );

    #

    # Setup "printer" selection

    #

    foreach my $item (@{ $form->{"ALL_PRINTERS"} }) {

      next unless ($item->{"template_code"});

      my $key = "$item->{id}--$item->{template_code}";

      push(@values,

           { "value"   => $key,

             "label"   => $item->{"printer_description"},

             "default" => $key eq $form->{"printer"} });

    }

    $options{"PRINTER"} = [ @values ];

    $options{"SHOW_PRINTER"} = scalar(@values) > 1;

  } else {

    push(@hidden, qw(formname language printer));

  }

  if ($form->{formname} || ($form->{type} eq "stylesheet")) {

    $options{"SHOW_CONTENT"} = 1;

    ($options{"filename"}, $options{"display_filename"})

      = AM->prepare_template_filename(\%myconfig, $form);

    ($options{"content"}, $options{"lines"})

      = AM->load_template($options{"filename"});

    $options{"CAN_EDIT"} = $form->{"edit"};

    if ($form->{edit}) {

      $form->{fokus} = "Form.content";

    } else {

      $options{"content"}                 = "\n\n" if (!$options{"content"});

      $options{"SHOW_SECOND_EDIT_BUTTON"} = $options{"lines"} > 25;

    }

  }

  $options{"HIDDEN"} = [ map(+{ "name" => $_, "value" => $form->{$_} }, @hidden) ];

  $form->header;

  print($form->parse_html_template("am/edit_templates", \%options));

  $lxdebug->leave_sub();

}

1;

$self->{texts} = {

  'ADDED'                       => 'Hinzugef?gt',

  'Address'                     => 'Adresse',

  'BWA'                         => 'BWA',

  'Balance Sheet'               => 'Bilanz',

  'Bin List'                    => 'Lagerliste',

  'Check'                       => 'Check',

  'Confirmation'                => 'Auftragsbest?tigung',

  'Credit Note'                 => 'Gutschrift',

  'Customer Number'             => 'Kundennummer',

  'DELETED'                     => 'Gel?scht',

  'DUNNING STARTED'             => 'DUNNING STARTED',

  'Dataset upgrade'             => 'Datenbankaktualisierung',

  'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',

  'ELSE'                        => 'Zusatz',

  'Edit templates'              => 'Vorlage bearbeiten',

  'Edit the stylesheet'         => 'Stilvorlage bearbeiten',

  'Enter longdescription'       => 'Langtext eingeben',

  'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

  'History'                     => 'Historie',

  'Income Statement'            => 'GuV',

  'Invoice'                     => 'Rechnung',

  'MAILED'                      => 'Gesendet',

  'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.',

  'Missing \'tag\' field.'      => 'Fehlendes Feld \'tag\'.',

  'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.',

  'Name'                        => 'Name',

  'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden',

  'No Vendor was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein H?ndler gefunden',

  'No employee was found matching the search parameters.' => 'Es wurde kein Angestellter gefunden, auf den die Suchparameter zutreffen.',

  'No part was found matching the search parameters.' => 'Es wurde kein Artikel gefunden, auf den die Suchparameter zutreffen.',

  'No project was found matching the search parameters.' => 'Es wurde kein Projekt gefunden, auf das die Suchparameter zutreffen.',

  'PAYMENT POSTED'              => 'Rechung gebucht',

  'POSTED'                      => 'Gebucht',

  'POSTED AS NEW'               => 'Als neu gebucht',

  'PRINTED'                     => 'Gedruckt',

  'Packing List'                => 'Lieferschein',

  'Part Number'                 => 'Artikelnummer',

  'Part description'            => 'Artikelbeschreibung',

  'Payment Reminder'            => 'Zahlungserinnerung',

  'Pick List'                   => 'Sammelliste',

  'Please enter values'         => 'Bitte Werte eingeben',

  'Proforma Invoice'            => 'Proformarechnung',

  'Project Number'              => 'Projektnummer',

  'Project description'         => 'Projektbeschreibung',

  'Purchase Order'              => 'Lieferantenauftrag',

  'Quotation'                   => 'Angebot',

  'RFQ'                         => 'Anfrage',

  'Receipt'                     => 'Zahlungseingang',

  'SAVED'                       => 'Gespeichert',

  'SAVED FOR DUNNING'           => 'Gespeichert',

  'SCREENED'                    => 'Angezeigt',

  'Saving the file \'%s\' failed. OS error message: %s' => 'Das Speichern der Datei \'%s\' schlug fehl. Fehlermeldung des Betriebssystems: %s',

  'Select a Customer'           => 'Endkunde ausw?hlen',

  'Select a part'               => 'Artikel auswählen',

  'Select a project'            => 'Projekt auswählen',

  'Select an employee'          => 'Angestellten auswählen',

  'Statement'                   => 'Sammelrechnung',

  'Storno Invoice'              => 'Stornorechnung',

  'Storno Packing List'         => 'Stornolieferschein',

  'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.',

  'USTVA'                       => 'USTVA',

  'USTVA 2004'                  => 'USTVA 2004',

  'USTVA 2005'                  => 'USTVA 2005',

  'USTVA 2006'                  => 'USTVA 2006',

  'USTVA 2007'                  => 'USTVA 2007',

  'Unit'                        => 'Einheit',

  'Unknown dependency \'%s\'.'  => 'Unbekannte Abhängigkeit \'%s\'.',

  'Value'                       => 'Wert',

  'Variable'                    => 'Variable',

  'You\'re not editing a file.' => 'Sie bearbeiten momentan keine Datei.',

  'bin_list'                    => 'Lagerliste',

  'invoice'                     => 'Rechnung',

  'packing_list'                => 'Versandliste',

  'pick_list'                   => 'Entnahmeliste',

  'proforma'                    => 'Proforma',

  'purchase_order'              => 'Auftrag',

  'request_quotation'           => 'Angebotsanforderung',

  'sales_order'                 => 'Kundenauftrag',

  'sales_quotation'             => 'Verkaufsangebot',

};

$self->{subs} = {

  'E'                           => 'E',

  'H'                           => 'H',

  'NTI'                         => 'NTI',

  'Q'                           => 'Q',

  'build_std_url'               => 'build_std_url',

  'calculate_qty'               => 'calculate_qty',

  'delivery_customer_selection' => 'delivery_customer_selection',

  'display'                     => 'display',

  'display_template'            => 'display_template',

  'display_template_form'       => 'display_template_form',

  'edit'                        => 'edit',

  'edit_template'               => 'edit_template',

  'employee_selection_internal' => 'employee_selection_internal',

  'format_dates'                => 'format_dates',

  'part_selection_internal'     => 'part_selection_internal',

  'project_selection_internal'  => 'project_selection_internal',

  'reformat_numbers'            => 'reformat_numbers',

  'restore_form'                => 'restore_form',

  'save'                        => 'save',

  'save_form'                   => 'save_form',

  'save_template'               => 'save_template',

  'select_employee'             => 'select_employee',

  'select_employee_internal'    => 'select_employee_internal',

  'select_part'                 => 'select_part',

  'select_part_internal'        => 'select_part_internal',

  'set_longdescription'         => 'set_longdescription',

  'show_history'                => 'show_history',

  'vendor_selection'            => 'vendor_selection',

  'weiter'                      => 'continue',

  'anzeigen'                    => 'display',

  'bearbeiten'                  => 'edit',

  'speichern'                   => 'save',

};

1;

module=amtemplates.pl

module=amtemplates.pl

module=amtemplates.pl

<body>

 <div class="listheading"><TMPL_VAR title></div>

 <form method="post" name="Form" action="amtemplates.pl">

  <TMPL_LOOP HIDDEN><input type="hidden" name="<TMPL_VAR name ESCAPE=HTML>" value="<TMPL_VAR value ESCAPE=HTML>"></TMPL_LOOP>

  <TMPL_IF SHOW_EDIT_OPTIONS>

   <p>

    Druckvorlage

    <select name="formname">

     <TMPL_LOOP FORMNAME><option value="<TMPL_VAR value ESCAPE=HTML>" <TMPL_IF default>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>

    </select>

    <TMPL_IF SHOW_LANGUAGE>

     Sprache

     <select name="language">

      <TMPL_LOOP LANGUAGE><option value="<TMPL_VAR value ESCAPE=HTML>" <TMPL_IF default>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>

     </select>

    </TMPL_IF>

    <TMPL_IF SHOW_PRINTER>

     Drucker

     <select name="printer">

      <TMPL_LOOP PRINTER><option value="<TMPL_VAR value ESCAPE=HTML>" <TMPL_IF default>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>

     </select>

    </TMPL_IF>

    <input type="hidden" name="display_nextsub" value="display_template">

    <input name="action" type="submit" class="submit" value="Anzeigen">

   </p>

   <hr>

  </TMPL_IF>

  <TMPL_IF SHOW_CONTENT>

   <p>

    <div class="listtop">

     <TMPL_IF CAN_EDIT>Datei bearbeiten<TMPL_ELSE>Datei anzeigen</TMPL_IF> <TMPL_VAR display_filename ESCAPE=HTML>

    </div>

   </p>

   <TMPL_IF CAN_EDIT>

    <p><textarea name="content" id="content" cols="100" rows="25"><TMPL_VAR content ESCAPE=HTML></textarea></p>

    <p>

     <input type="hidden" name="save_nextsub" value="save_template">

     <input type="submit" name="action" value="Speichern">

    </p>

    <TMPL_ELSE>

    <input type="hidden" name="edit_nextsub" value="edit_template">

    <p><input name="action" type="submit" class="submit" value="Bearbeiten"></p>

    <p><pre class="filecontent"><TMPL_VAR content ESCAPE=HTML></pre></p>

    <TMPL_IF SHOW_SECOND_EDIT_BUTTON>

     <p><input name="action" type="submit" class="submit" value="Bearbeiten"></p>

    </TMPL_IF>

   </TMPL_IF> <!-- CAN_EDIT -->

  </TMPL_IF> <!-- SHOW_CONTENT -->

 </form>

</body>

</html>

<body>

 <div class="listheading"><TMPL_VAR title></div>

 <form method="post" name="Form" action="amtemplates.pl">

  <TMPL_LOOP HIDDEN><input type="hidden" name="<TMPL_VAR name ESCAPE=HTML>" value="<TMPL_VAR value ESCAPE=HTML>"></TMPL_LOOP>

  <TMPL_IF SHOW_EDIT_OPTIONS>

   <p>

    <translate>Template</translate>

    <select name="formname">

     <TMPL_LOOP FORMNAME><option value="<TMPL_VAR value ESCAPE=HTML>" <TMPL_IF default>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>

    </select>

    <TMPL_IF SHOW_LANGUAGE>

     <translate>Language</translate>

     <select name="language">

      <TMPL_LOOP LANGUAGE><option value="<TMPL_VAR value ESCAPE=HTML>" <TMPL_IF default>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>

     </select>

    </TMPL_IF>

    <TMPL_IF SHOW_PRINTER>

     <translate>Printer</translate>

     <select name="printer">

      <TMPL_LOOP PRINTER><option value="<TMPL_VAR value ESCAPE=HTML>" <TMPL_IF default>selected</TMPL_IF>><TMPL_VAR label ESCAPE=HTML></option></TMPL_LOOP>

     </select>

    </TMPL_IF>

    <input type="hidden" name="display_nextsub" value="display_template">

    <input name="action" type="submit" class="submit" value="<translate>Display</translate>">

   </p>

   <hr>

  </TMPL_IF>

  <TMPL_IF SHOW_CONTENT>

   <p>

    <div class="listtop">

     <TMPL_IF CAN_EDIT><translate>Edit file</translate><TMPL_ELSE><translate>Display file</translate></TMPL_IF> <TMPL_VAR display_filename ESCAPE=HTML>

    </div>

   </p>

   <TMPL_IF CAN_EDIT>

    <p><textarea name="content" id="content" cols="100" rows="25"><TMPL_VAR content ESCAPE=HTML></textarea></p>

    <p>

     <input type="hidden" name="save_nextsub" value="save_template">

     <input type="submit" name="action" value="<translate>Save</translate>">

    </p>

    <TMPL_ELSE>

    <input type="hidden" name="edit_nextsub" value="edit_template">

    <p><input name="action" type="submit" class="submit" value="<translate>Edit</translate>"></p>

    <p><pre class="filecontent"><TMPL_VAR content ESCAPE=HTML></pre></p>

    <TMPL_IF SHOW_SECOND_EDIT_BUTTON>

     <p><input name="action" type="submit" class="submit" value="<translate>Edit</translate>"></p>

    </TMPL_IF>

   </TMPL_IF> <!-- CAN_EDIT -->

  </TMPL_IF> <!-- SHOW_CONTENT -->

 </form>

</body>

</html>