Module: implizite Anforderung auf Set::Crontab entfernt

[mfinanz.git] / SL / Dev / File.pm

diff --git a/SL/Dev/File.pm b/SL/Dev/File.pm
index 62228ea9e1c35e0b25e8527fb1748303d6aa6fe6..9fa1b962f11df0f26546a783100959b5af50ce04 100644 (file)
--- a/SL/Dev/File.pm
+++ b/SL/Dev/File.pm
@@ -7,11 +7,6 @@ our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
 
 use SL::DB::File;
 
 
 use SL::DB::File;
 

-my %common_params = (
-  object_id   => 1,
-  object_type => 'sales_order',
-);
-

 sub create_scanned {
   my (%params) = @_;
   $params{source}    = 'scanner1';
 sub create_scanned {
   my (%params) = @_;
   $params{source}    = 'scanner1';


@@ -44,23 +39,18 @@ sub _create_file {
   my (%params) = @_;
 
   my $fileobj = SL::File->save(
   my (%params) = @_;
 
   my $fileobj = SL::File->save(

-    %common_params,
-    mime_type          => 'text/plain',
-    description        => 'Test File',
-    file_type          => $params{file_type},
-    source             => $params{source},
-    file_name          => $params{file_name},
-    file_contents      => $params{file_contents},
-    file_path          => $params{file_path}
+    mime_type     => 'text/plain',
+    description   => 'Test File',
+    %params,
+    # file_type     => $params{file_type},
+    # source        => $params{source},
+    # file_name     => $params{file_name},
+    # file_contents => $params{file_contents},
+    # file_path     => $params{file_path}

   );
   return $fileobj;
 }
 
   );
   return $fileobj;
 }
 

-sub get_all          { SL::File->get_all         (%common_params, @_) }
-sub get_all_count    { SL::File->get_all_count   (%common_params, @_) }
-sub get_all_versions { SL::File->get_all_versions(%common_params, @_) }
-sub delete_all       { SL::File->delete_all      (%common_params, @_) }
-

 1;
 
 __END__
 1;
 
 __END__