Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision cb2abccd

Von Sven Schöling vor fast 13 Jahren hinzugefügt

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.

Unterschiede anzeigen:

bin/mozilla/do.pl
266 266
          if ($form->{"project_id_$_"}); } (1..$form->{"rowcount"}));
267 267

  
268 268
  my $vc = $form->{vc} eq "customer" ? "customers" : "vendors";
269
  $form->get_lists("contacts"       => "ALL_CONTACTS",
270
                   "shipto"         => "ALL_SHIPTO",
269
  $form->get_lists("shipto"         => "ALL_SHIPTO",
271 270
                   "projects"       => {
272 271
                     "key"          => "ALL_PROJECTS",
273 272
                     "all"          => 0,
......
280 279
                   "departments"    => "ALL_DEPARTMENTS",
281 280
                   "business_types" => "ALL_BUSINESS_TYPES",
282 281
    );
282
  $::form->{ALL_CONTACTS}          = SL::DB::Manager::Contact->get_all(query => [
283
    or => [
284
      cp_cv_id => $::form->{"$::form->{vc}_id"} * 1,
285
      and      => [
286
        cp_cv_id => undef,
287
        cp_id    => $::form->{cp_id} * 1
288
      ]
289
    ]
290
  ]);
283 291

  
284 292
  map { $_->{value} = "$_->{description}--$_->{id}" } @{ $form->{ALL_DEPARTMENTS} };
285 293
  map { $_->{value} = "$_->{name}--$_->{id}"        } @{ $form->{ALL_VC} };

Auch abrufbar als: Unified diff