Auftrags-Controller: Steuerzonen sortiert anzeigen.

[mfinanz.git] / SL / Notes.pm

diff --git a/SL/Notes.pm b/SL/Notes.pm
index c61dd3d1e49fe5468eb1c563e308c9724fd6cd0d..38959f429f53514b083e91316356a41524f2c901 100644 (file)
--- a/SL/Notes.pm
+++ b/SL/Notes.pm
@@ -5,6 +5,8 @@ package Notes;
 use SL::Common;
 use SL::DBUtils;
 
+use strict;
+
 sub save {
   $main::lxdebug->enter_sub();
 
@@ -21,7 +23,7 @@ sub save {
     ($params{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('note_id')|);
     $query        = qq|INSERT INTO notes (created_by, trans_id, trans_module, subject, body, id)
                        VALUES ((SELECT id FROM employee WHERE login = ?), ?, ?, ?, ?, ?)|;
-    push @values, $form->{login}, conv_i($params{trans_id}), $params{trans_module};
+    push @values, $::myconfig{login}, conv_i($params{trans_id}), $params{trans_module};
 
   } else {
     $query        = qq|UPDATE notes SET subject = ?, body = ? WHERE id = ?|;
@@ -51,7 +53,7 @@ sub retrieve {
 
   my $dbh      = $form->get_standard_dbh($myconfig);
 
-  my $ref      = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($param{id}));
+  my $ref      = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($params{id}));
 
   $main::lxdebug->leave_sub();
 
@@ -79,8 +81,6 @@ sub delete {
   $dbh->commit() unless ($params{dbh});
 
   $main::lxdebug->leave_sub();
-
-  return $ref;
 }
 
 1;