Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 1e251313

Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt

  • ID 1e25131315e72036aa6df1d626011a761218d233
  • Vorgänger 0615efff
  • Nachfolger 6ebad56e

Preisfatkoren implementiert.

Unterschiede anzeigen:

SL/Form.pm
1876 1876
  $main::lxdebug->leave_sub();
1877 1877
}
1878 1878

  
1879
sub _get_price_factors {
1880
  $main::lxdebug->enter_sub();
1881

  
1882
  my ($self, $dbh, $key) = @_;
1883

  
1884
  $key ||= "all_price_factors";
1885

  
1886
  my $query = qq|SELECT * FROM price_factors ORDER BY sortkey|;
1887

  
1888
  $self->{$key} = selectall_hashref_query($self, $dbh, $query);
1889

  
1890
  $main::lxdebug->leave_sub();
1891
}
1892

  
1879 1893
sub get_lists {
1880 1894
  $main::lxdebug->enter_sub();
1881 1895

  
......
1958 1972
    $self->_get_departments($dbh, $params{"departments"});
1959 1973
  }
1960 1974

  
1975
  if ($params{price_factors}) {
1976
    $self->_get_price_factors($dbh, $params{price_factors});
1977
  }
1978

  
1961 1979
  $main::lxdebug->leave_sub();
1962 1980
}
1963 1981

  

Auch abrufbar als: Unified diff