Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision e2e2ed86

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

  • ID e2e2ed862870a67293c234c04a0b76675849393e
  • Vorgänger 164b344b
  • Nachfolger d3e3d258

Debug-Code entfernt

Unterschiede anzeigen:

SL/Common.pm
57 57 
    $filter .= qq| AND ($_ ILIKE ?)|;
58 58 
    push @filter_values, '%' . $form->{$_} . '%';
59 59 
  }
60 
$main::lxdebug->dump(0, "assemblies in common", $form->{assemblies});
61 
$main::lxdebug->dump(0, "no assemblies in common", $form->{no_assemblies});
62 60 

  		




  63
  61
  
    
  if ($form->{no_assemblies}) {


  		




  64
  62
  
    
    $filter .= qq| AND (NOT COALESCE(assembly, FALSE))|;


  		




  ......




  85
  83
  
    
    qq|ORDER BY $order_by $order_dir|;


  		




  86
  84
  
    
  my $sth = $dbh->prepare($query);


  		




  87
  85
  
    
  $sth->execute(@filter_values) || $form->dberror($query . " (" . join(", ", @filter_values) . ")");


  		




  88
  
  
    

  		




  89
  
  
    
$main::lxdebug->dump(0, "query", $query);


  		




  90
  
  
    

  		




  91
  
  
    
$main::lxdebug->dump(0, "values", @filter_values);


  		




  92
  
  
    

  		




  93
  
  
    

  		




  
  86
  
    
    open STDERR, ">>/usr/local/src/lxoffice/users/de.log" or die $!; print STDERR "hier:" . $query . "filter " . $filter . "filterwerte:" . $filter_values[0] .  "\n"; close STDERR;


  		




  94
  87
  
    
  my $parts = [];


  		




  95
  88
  
    
  while (my $ref = $sth->fetchrow_hashref()) {


  		




  96
  89
  
    
    push(@{$parts}, $ref);


  		












Auch abrufbar als:  Unified diff