projekt kivitendo

                                   "all" => 1},

                                   "employees"    => "ALL_EMPLOYEES" );

  my %employee_labels = ();

  my @employee_values = ("");

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

    # value in Form "1234--Name" ?bergeben

    my $id = "$item->{'id'}--$item->{'name'}";

    push(@employee_values, "$id");

    $employee_labels{$id} = $item->{"name"};

  }

  my $employeenumber =

    NTI($cgi->popup_menu('-name' => "employee",

                         '-values' => \@employee_values,

                         '-labels' => \%employee_labels));

<input type=hidden name=sort value=datesort>

 <tr>

    <th align=right>| . $locale->text('Employee') . qq|</th>

    <td colspan=3>$employeenumber</td>

  </tr>

  <tr>

    <th align=right>| . $locale->text('Date Sorting') . qq|</th>

    <td colspan=3>

    <input name=datesort class=radio type=radio value=gldate checked>&nbsp;| . $locale->text('Booking Date') . qq|

    <input name=datesort class=radio type=radio value=transdate>&nbsp;| . $locale->text('Invoice Date') . qq|

    </td>

  </tr>

  <tr>

    <th align=right>| . $locale->text('From') . qq|</th>

                    <td>| . $locale->text('Invoice Date') . qq|</td>

                    <td align=right><input name="l_gldate" class=checkbox type=checkbox value=Y checked></td>

                    <td>| . $locale->text('Booking Date') . qq|</td>

                    <td align=right><input name="l_employee" class=checkbox type=checkbox value=Y></td>

                    <td>| . $locale->text('Employee') . qq|</td>

  # generate_report wird beim ersten Aufruf per Weiter-Knopf und POST mit der hidden Variablen sort mit Wert "datesort" (fr?her "transdate" als Defaultsortiervariable) ?bertragen

  # <form method=post action=gl.pl>

  # <input type=hidden name=sort value=datesort>    # form->{sort} setzen

  # <input type=hidden name=nextsub value=generate_report>

  # anhand von neuer Variable datesort wird jetzt $form->{sort} auf transdate oder gldate gesetzt

  # damit ist die Hidden Variable "sort" wahrscheinlich sogar ?berfl?ssig

  # ?ndert man die Sortierreihenfolge per Klick auf eine der ?berschriften wird die Variable "sort" per GET ?bergeben, z.B. id,transdate, gldate, ...

  # gl.pl?action=generate_report&employee=18383--Jan%20B%c3%bcren&datesort=transdate&category=X&l_transdate=Y&l_gldate=Y&l_id=Y&l_reference=Y&l_description=Y&l_source=Y&l_debit=Y&l_credit=Y&sort=gldate&sortdir=0

  if ( $form->{sort} eq 'datesort' ) {   # sollte bei einem Post (Aufruf aus Suchmaske) immer wahr sein

      # je nachdem ob in Suchmaske "transdate" oder "gldate" ausgesucht wurde erstes Suchergebnis entsprechend sortieren

      $form->{sort} = $form->{datesort};

  };

  # was passiert hier?

  report_generator_set_default_sort("$form->{datesort}", 1);

#  report_generator_set_default_sort('transdate', 1);

    gldate         transdate        id             reference      description

    notes          source           debit          debit_accno   

  # add employee here, so that variable is still known and passed in url when choosing a different sort order in resulting table

  my @hidden_variables = qw(accno source reference department description notes project_id datefrom dateto employee datesort category l_subtotal);

  foreach ( @hidden_variables ) {

      print URL "$_\n";

  };

  push @options,      $locale->text('Employee')       . " : $form->{employee_name}"                              if ($form->{employee_name});

  my $datesorttext = $form->{datesort} eq 'transdate' ? $locale->text('Invoice Date') :  $locale->text('Booking Date');

  push @date_options,      "$datesorttext"                              if ($form->{datesort} and ($form->{datefrom} or $form->{dateto}));

  print URL $callback;

  close URL;

#  $form->{l_gldate}           = 'Y';  # Spalte mit gldate immer anzeigen

  $form->{l_datesort} = 'Y';

    'transdate'        => { 'text' => $locale->text('Invoice Date'), },

    'gldate'           => { 'text' => $locale->text('Booking Date'), },

    'employee'         => { 'text' => $locale->text('Employee'), },

  foreach my $name (qw(id transdate gldate reference description debit_accno credit_accno debit_tax_accno credit_tax_accno)) {

  map { $column_alignment{$_}     = 'center' } qw(transdate gldate reference debit_accno credit_accno debit_tax_accno credit_tax_accno);

    map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate gldate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno source);