Revision eb9291da
Von Jan Büren vor etwa 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2757 | 2757 |
@{ $self->{all_employees} } =
|
| 2758 | 2758 |
sort { $a->{name} cmp $b->{name} } @{ $self->{all_employees} };
|
| 2759 | 2759 |
|
| 2760 |
if ($module eq 'AR') {
|
|
| 2761 | 2760 |
|
| 2762 | 2761 |
# prepare query for departments |
| 2763 | 2762 |
$query = qq|SELECT id, description |
| 2764 | 2763 |
FROM department |
| 2765 |
WHERE role = 'P' |
|
| 2766 | 2764 |
ORDER BY description|; |
| 2767 | 2765 |
|
| 2768 |
} else {
|
|
| 2769 |
$query = qq|SELECT id, description |
|
| 2770 |
FROM department |
|
| 2771 |
ORDER BY description|; |
|
| 2772 |
} |
|
| 2773 |
|
|
| 2774 | 2766 |
$self->{all_departments} = selectall_hashref_query($self, $dbh, $query);
|
| 2775 | 2767 |
|
| 2776 | 2768 |
# get languages |
| ... | ... | |
| 2840 | 2832 |
my ($self, $myconfig, $table) = @_; |
| 2841 | 2833 |
|
| 2842 | 2834 |
my $dbh = $self->get_standard_dbh($myconfig); |
| 2843 |
my $where; |
|
| 2844 |
|
|
| 2845 |
if ($table eq 'customer') {
|
|
| 2846 |
$where = "WHERE role = 'P' "; |
|
| 2847 |
} |
|
| 2848 | 2835 |
|
| 2849 | 2836 |
my $query = qq|SELECT id, description |
| 2850 | 2837 |
FROM department |
| 2851 |
$where |
|
| 2852 | 2838 |
ORDER BY description|; |
| 2853 | 2839 |
$self->{all_departments} = selectall_hashref_query($self, $dbh, $query);
|
| 2854 | 2840 |
|
Auch abrufbar als: Unified diff
Kosten- und Erfolgstellen zu unterscheiden macht(e) mittlerweile keinen Sinn mehr, da man ja entsprechend Kosten als Erfolg auf eine Kostenstelle buchen möchte. Ferner wird auch die Auswahlliste schon länger nicht mehr unterschieden.
Entsprechend die letzten Rudimente in der Form.pm entfernt und das Datenmodell für Rose angepasst, sowie natürlich die Tabelle