Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 134120bc

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

  • ID 134120bca7ac33d80c09afb5cabe25a1c1a73e8f
  • Vorgänger a0a30f41
  • Nachfolger 16fc2b20

bugs die durch strict aufgedeckt wurden.

Unterschiede anzeigen:

SL/AP.pm
475 475
  }
476 476

  
477 477
  my @a = qw(transdate invnumber name);
478
  push @a, "employee" if $self->{l_employee};
478
  push @a, "employee" if $form->{l_employee};
479 479
  my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';
480 480
  my $sortorder = join(', ', map { "$_ $sortdir" } @a);
481 481

  

Auch abrufbar als: Unified diff