X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDev%2FFile.pm;h=9fa1b962f11df0f26546a783100959b5af50ce04;hb=58e28ca02c1fe93ff9db9024318d3529715bd8fb;hp=ff1ea116dc3d0f116f295676eb7c2b1df9e2df2d;hpb=2bb452ee62e74c2a42113171eeb53de8d09bbbf5;p=kivitendo-erp.git

diff --git a/SL/Dev/File.pm b/SL/Dev/File.pm
index ff1ea116d..9fa1b962f 100644
--- a/SL/Dev/File.pm
+++ b/SL/Dev/File.pm
@@ -2,7 +2,8 @@ package SL::Dev::File;
 
 use strict;
 use base qw(Exporter);
-our @EXPORT = qw(create_scanned create_uploaded create_created get_all_count get_all get_all_versions delete_all);
+our @EXPORT_OK = qw(create_scanned create_uploaded create_created);
+our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
 
 use SL::DB::File;
 
@@ -38,46 +39,18 @@ sub _create_file {
   my (%params) = @_;
 
   my $fileobj = SL::File->save(
-    object_id          => 1,
-    object_type        => 'sales_order',
-    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;
 }
 
-sub get_all_count {
-  my ($class,%params) = @_;
-  $params{object_id}   = 1;
-  $params{object_type} = 'sales_order';
-  return SL::File->get_all_count(%params);
-}
-
-sub get_all {
-  my ($class,%params) = @_;
-  $params{object_id}   = 1;
-  $params{object_type} = 'sales_order';
-  SL::File->get_all(%params);
-}
-
-sub get_all_versions {
-  my ($class,%params) = @_;
-  $params{object_id}   = 1;
-  $params{object_type} = 'sales_order';
-  SL::File->get_all_versions(%params);
-}
-
-sub delete_all {
-  my ($class,%params) = @_;
-  $params{object_id}   = 1;
-  $params{object_type} = 'sales_order';
-  SL::File->delete_all(%params);
-}
 1;
 
 __END__
@@ -94,8 +67,6 @@ SL::Dev::File - create file objects for testing, with minimal defaults
 
 =head2 C<create_created %PARAMS>
 
-=head2 C<delete_all>
-
 =head1 AUTHOR
 
 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>