Rose-DB-Query gefixt

[mfinanz.git] / SL / Controller / CustomerVendor.pm

diff --git a/SL/Controller/CustomerVendor.pm b/SL/Controller/CustomerVendor.pm
index 5985e94d7cebb987b425c673336a229a3f8781cd..8d2f96a39f22a17221b9068fcbd051bfa374f68c 100644 (file)
--- a/SL/Controller/CustomerVendor.pm
+++ b/SL/Controller/CustomerVendor.pm
@@ -18,6 +18,8 @@ use SL::DB::PaymentTerm;
 use SL::DB::Pricegroup;
 use SL::DB::Contact;
 use SL::DB::FollowUp;
 use SL::DB::Pricegroup;
 use SL::DB::Contact;
 use SL::DB::FollowUp;

+use SL::DB::History;
+use SL::DB::Currency;

 
 # safety
 __PACKAGE__->run_before(
 
 # safety
 __PACKAGE__->run_before(


@@ -125,7 +127,13 @@ sub _save {
     $self->{shipto}->save();
   }
 
     $self->{shipto}->save();
   }
 

-  #TODO: history
+  my $snumbers = $self->is_vendor() ? 'vendornumber_'. $self->{cv}->vendornumber : 'customernumber_'. $self->{cv}->customernumber;
+  SL::DB::History->new(
+    trans_id => $self->{cv}->id,
+    snumbers => $snumbers,
+    employee_id => SL::DB::Manager::Employee->current->id,
+    addition => 'SAVED',
+  )->save();

 }
 
 sub action_save {
 }
 
 sub action_save {


@@ -240,7 +248,13 @@ sub action_delete {
   else {
     $self->{cv}->delete();
 
   else {
     $self->{cv}->delete();
 

-    #TODO: history
+    my $snumbers = $self->is_vendor() ? 'vendornumber_'. $self->{cv}->vendornumber : 'customernumber_'. $self->{cv}->customernumber;
+    SL::DB::History->new(
+      trans_id => $self->{cv}->id,
+      snumbers => $snumbers,
+      employee_id => SL::DB::Manager::Employee->current->id,
+      addition => 'DELETED',
+    )->save();

 
     my $msg = $self->is_vendor() ? $::locale->text('Vendor deleted!') : $::locale->text('Customer deleted!');
     $::form->redirect($msg);
 
     my $msg = $self->is_vendor() ? $::locale->text('Vendor deleted!') : $::locale->text('Customer deleted!');
     $::form->redirect($msg);


@@ -714,18 +728,7 @@ sub _pre_render {
     )
   ];
 
     )
   ];
 

-  $query =
-    'SELECT curr
-     FROM defaults';
-  my $curr = selectall_hashref_query($::form, $dbh, $query)->[0]->{curr};
-  my @currencies = grep(
-    { $_; }
-    map(
-      { s/\s//g; $_; }
-      split(m/:/, $curr)
-    )
-  );
-  $self->{all_currencies} = \@currencies;
+  $self->{all_currencies} = SL::DB::Manager::Currency->get_all();

 
   $self->{all_languages} = SL::DB::Manager::Language->get_all();
 
 
   $self->{all_languages} = SL::DB::Manager::Language->get_all();