use parent qw(SL::BackgroundJob::Base);
-use YAML ();
use SL::JSON;
+use SL::YAML;
use SL::DB::CsvImportProfile;
-use SL::SessionFile::Random;
sub create_job {
my ($self_or_class, %params) = @_;
my $package = ref($self_or_class) || $self_or_class;
$package =~ s/SL::BackgroundJob:://;
- my $profile = delete $params{profile} || SL::DB::CsvImportProfile->new;
- my $new_profile = $profile->clone_and_reset_deep;
- $new_profile->save;
-
my %data = (
%params,
- profile_id => $new_profile->id,
session_id => $::auth->get_session_id,
);
type => 'once',
active => 1,
package_name => $package,
- data => YAML::Dump(\%data),
+ data => SL::YAML::Dump(\%data),
);
return $job;
my ($self) = @_;
if (!$self->{profile}) {
- my $data = YAML::Load($self->{db_obj}->data);
+ my $data = SL::YAML::Load($self->{db_obj}->data);
$self->{profile} = SL::DB::Manager::CsvImportProfile->find_by(id => $data->{profile_id});
}