X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FSessionFile.pm;h=839264074c67429e3dfb63842888216f940bc5e4;hb=ff159a4d47b9a2d10744dcfc23da2c63605c8a32;hp=08f905bc8d81ca3863cadbf272b808f5bb7e7234;hpb=08d78ff5c14d302d3e86d368d752195625c3120d;p=kivitendo-erp.git

diff --git a/SL/SessionFile.pm b/SL/SessionFile.pm
index 08f905bc8..839264074 100644
--- a/SL/SessionFile.pm
+++ b/SL/SessionFile.pm
@@ -21,8 +21,12 @@ sub new {
 
   my $self   = $class->SUPER::new;
 
+  if ($params{session_id}) {
+    $self->session_id($params{session_id})
+  }
+
   my $path   = $self->prepare_path;
-  $file_name =~ s:.*/::g;
+  $file_name =~ s{.*/}{}g;
   $file_name =  "${path}/${file_name}";
 
   $self->file_name($file_name);
@@ -149,7 +153,7 @@ Returns the full relative file name associated with this instance. If
 it has been created for "customer.csv" then the value returned might
 be C<users/session_files/e8789b98721347/customer.csv>.
 
-=item C<open, %params]>
+=item C<open [%params]>
 
 Opens the file_name given at creation with the given parameters.