X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FNotes.pm;h=38959f429f53514b083e91316356a41524f2c901;hb=e83604f2c7d6d499d9db8d066cc7f637e6f609de;hp=c61dd3d1e49fe5468eb1c563e308c9724fd6cd0d;hpb=7a7f33b5c1b3531ab761adba1cf19d4ad68cffcd;p=kivitendo-erp.git

diff --git a/SL/Notes.pm b/SL/Notes.pm
index c61dd3d1e..38959f429 100644
--- 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;