Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 9faa9827

Von Jan Büren vor mehr als 12 Jahren hinzugefügt

  • ID 9faa9827bb822e0b6af9de8ce37cc72fa3941a91
  • Vorgänger 325263e0
  • Nachfolger eda8d185

vclimit auch korrekt für Bugfix 1837 setzen (s.a. Commit davor)

Unterschiede anzeigen:

SL/Form.pm
2545 2545

  
2546 2546
  $table = $table eq "customer" ? "customer" : "vendor";
2547 2547

  
2548
  my $query = qq|SELECT count(*) FROM $table WHERE NOT obsolete|;
2549
  my ($count) = selectrow_query($self, $dbh, $query);
2550

  
2551 2548
  # build selection list
2552 2549
  # Hotfix f?r Bug 1837 - Besser w?re es alte Buchungsbelege
2553 2550
  # OHNE Auswahlliste (reines Textfeld) zu laden. Hilft aber auch
2554 2551
  # nicht f?r ver?nderbare Belege (oe, do, ...)
2555 2552
  my $obsolete = "WHERE NOT obsolete" unless $self->{id};
2553
  my $query = qq|SELECT count(*) FROM $table WHERE NOT $obsolete|;
2554
  my ($count) = selectrow_query($self, $dbh, $query);
2555

  
2556 2556
  if ($count < $myconfig->{vclimit}) {
2557 2557
    $query = qq|SELECT id, name, salesman_id
2558 2558
                FROM $table $obsolete

Auch abrufbar als: Unified diff