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/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