Beim CSV-Import die Session-Id der "auftraggebenden" Sitzung verwenden.

Damit kann der CSV-Import via Task-Server auch von Benutzern verwendet
werden, die den Task-Server nicht in ihrer Sitzung gestartet haben.

Es bleibt das Problem, dass der Import nicht ausgeführt werden kann,
wenn sie sich abmelden.

Behebt #2198.

diff --git a/SL/BackgroundJob/CsvImport.pm b/SL/BackgroundJob/CsvImport.pm
index 7df8b9b476e050ff1bba714cf971f3bde6d7a1fd..b5e6f2908f2b75ebf6a6d38a8a10af212f2c02f6 100644 (file)
--- a/SL/BackgroundJob/CsvImport.pm
+++ b/SL/BackgroundJob/CsvImport.pm
@@ -82,8 +82,9 @@ sub do_import {
   );
   $c->add_progress_tracker($self);
 
   );
   $c->add_progress_tracker($self);
 

+  my $session_id = $job->data_as_hash->{session_id};

 
 

-  $c->test_and_import(test => $test, session_id => $job->data_as_hash->{session_id});
+  $c->test_and_import(test => $test, session_id => $session_id);

 
   if ($c->errors) {
     $job->set_data(
 
   if ($c->errors) {
     $job->set_data(


@@ -91,7 +92,7 @@ sub do_import {
     )->save;
   } else {
 
     )->save;
   } else {
 

-    my $report_id = $c->save_report;
+    my $report_id = $c->save_report(session_id => $session_id);

     $job->set_data(report_id => $report_id)->save;
 
     $c->track_progress(finished => 1);
     $job->set_data(report_id => $report_id)->save;
 
     $c->track_progress(finished => 1);

diff --git a/SL/Controller/CsvImport.pm b/SL/Controller/CsvImport.pm
index 50b5e4d050b63212e5253d60bac3c36cb376299e..58715d30814cb5d18f3611b90577c6ceaf60725f 100644 (file)
--- a/SL/Controller/CsvImport.pm
+++ b/SL/Controller/CsvImport.pm
@@ -414,17 +414,17 @@ sub char_map {
 }
 
 sub save_report {
 }
 
 sub save_report {

-  my ($self, $report_id) = @_;
+  my ($self, %params) = @_;

 
   if ($self->worker->is_multiplexed) {
 
   if ($self->worker->is_multiplexed) {

-    return $self->save_report_multi($report_id);
+    return $self->save_report_multi(%params);

   } else {
   } else {

-    return $self->save_report_single($report_id);
+    return $self->save_report_single(%params);

   }
 }
 
 sub save_report_single {
   }
 }
 
 sub save_report_single {

-  my ($self, $report_id) = @_;
+  my ($self, %params) = @_;

 
   $self->track_progress(phase => 'building report', progress => 0);
 
 
   $self->track_progress(phase => 'building report', progress => 0);
 


@@ -432,7 +432,7 @@ sub save_report_single {
   $clone_profile->save; # weird bug. if this isn't saved before adding it to the report, it will default back to the last profile.
 
   my $report = SL::DB::CsvImportReport->new(
   $clone_profile->save; # weird bug. if this isn't saved before adding it to the report, it will default back to the last profile.
 
   my $report = SL::DB::CsvImportReport->new(

-    session_id => $::auth->create_or_refresh_session,
+    session_id => $params{session_id},

     profile    => $clone_profile,
     type       => $self->type,
     file       => '',
     profile    => $clone_profile,
     type       => $self->type,
     file       => '',


@@ -494,7 +494,7 @@ sub save_report_single {
 }
 
 sub save_report_multi {
 }
 
 sub save_report_multi {

-  my ($self, $report_id) = @_;
+  my ($self, %params) = @_;

 
   $self->track_progress(phase => 'building report', progress => 0);
 
 
   $self->track_progress(phase => 'building report', progress => 0);
 


@@ -502,7 +502,7 @@ sub save_report_multi {
   $clone_profile->save; # weird bug. if this isn't saved before adding it to the report, it will default back to the last profile.
 
   my $report = SL::DB::CsvImportReport->new(
   $clone_profile->save; # weird bug. if this isn't saved before adding it to the report, it will default back to the last profile.
 
   my $report = SL::DB::CsvImportReport->new(

-    session_id => $::auth->create_or_refresh_session,
+    session_id => $params{session_id},

     profile    => $clone_profile,
     type       => $self->type,
     file       => '',
     profile    => $clone_profile,
     type       => $self->type,
     file       => '',

diff --git a/SL/SessionFile.pm b/SL/SessionFile.pm
index 08f905bc8d81ca3863cadbf272b808f5bb7e7234..bf6c313dcffc3e4a4086c588f974bf5cd762c5c9 100644 (file)
--- a/SL/SessionFile.pm
+++ b/SL/SessionFile.pm
@@ -21,6 +21,10 @@ sub new {
 
   my $self   = $class->SUPER::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 =  "${path}/${file_name}";
   my $path   = $self->prepare_path;
   $file_name =~ s:.*/::g;
   $file_name =  "${path}/${file_name}";