Revision cb2abccd
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 327 | 327 |
my @old_project_ids = ($form->{"globalproject_id"}, grep { $_ } map { $form->{"project_id_$_"} } 1..$form->{"rowcount"});
|
| 328 | 328 |
|
| 329 | 329 |
my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
|
| 330 |
$form->get_lists("contacts" => "ALL_CONTACTS",
|
|
| 331 |
"shipto" => "ALL_SHIPTO", |
|
| 330 |
$form->get_lists("shipto" => "ALL_SHIPTO",
|
|
| 332 | 331 |
"projects" => { "key" => "ALL_PROJECTS",
|
| 333 | 332 |
"all" => 0, |
| 334 | 333 |
"old_id" => \@old_project_ids }, |
| ... | ... | |
| 343 | 342 |
"price_factors" => "ALL_PRICE_FACTORS"); |
| 344 | 343 |
|
| 345 | 344 |
# label subs |
| 345 |
$TMPL_VAR{ALL_CONTACTS} = SL::DB::Manager::Contact->get_all(query => [
|
|
| 346 |
or => [ |
|
| 347 |
cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
|
|
| 348 |
and => [ |
|
| 349 |
cp_cv_id => undef, |
|
| 350 |
cp_id => $::form->{cp_id} * 1
|
|
| 351 |
] |
|
| 352 |
] |
|
| 353 |
]); |
|
| 346 | 354 |
$TMPL_VAR{sales_employee_labels} = sub { $_[0]->{name} || $_[0]->{login} };
|
| 347 | 355 |
$TMPL_VAR{shipto_labels} = sub { join "; ", grep { $_ } map { $_[0]->{"shipto${_}" } } qw(name department_1 street city) };
|
| 348 |
$TMPL_VAR{contact_labels} = sub { join(', ', $_[0]->{"cp_name"}, $_[0]->{"cp_givenname"}) . ($_[0]->{cp_abteilung} ? " ($_[0]->{cp_abteilung})" : "") };
|
|
| 349 | 356 |
$TMPL_VAR{department_labels} = sub { "$_[0]->{description}--$_[0]->{id}" };
|
| 350 | 357 |
|
| 351 | 358 |
# vendor/customer |
Auch abrufbar als: Unified diff
Ansprechpartner löschbar machen.
Ansprechpartner können jetzt gelöscht werden. Ist der Ansprechpartner noch in
verwendung wird eine Nachricht an den User gegeben und der Ansprechpartner nur
auf ungültig gesetzt. Ungültige Ansprechpartner werden in den Belegmasken nicht
angezeigt, es sei denn der Beleg wird aus der Datenbank geholt und der
ungültige Ansprechpartner ist vorausgewählt. Beim ersten Erneuern bei dem ein
anderer Ansprechpartner ausgewählt ist, der ungültige nicht mehr zur Auswahl
gestellt.
Es gibt noch keinen Aufräummechanismus für unbenutzte Zombieansprechpartner in
der Datenbank.
Beim Testen in Bonn hatte ich massive Probleme mit einem Setup unter Ubuntu
10.04 mit Postgres 8.4.10, Perl 5.10.1, DBI 1.609, RDBO 0.785, RDB 0.758, RO
0.856. Kompilierung ist scheinbar ohne erkennbare Zusammenhänge unter CGI und
FCGI schon zur compile time abgestürzt.
Sollten diese Probleme nochmal auftauchen, bitte melden.