Dateispeicher "webdav" fehler bei vorhergehe ...

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

diff --git a/SL/Dev/File.pm b/SL/Dev/File.pm
index ff1ea116dc3d0f116f295676eb7c2b1df9e2df2d..9fa1b962f11df0f26546a783100959b5af50ce04 100644 (file)
--- a/SL/Dev/File.pm
+++ b/SL/Dev/File.pm
@@ -2,7 +2,8 @@ package SL::Dev::File;
 
 use strict;
 use base qw(Exporter);
 
 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;
 
 
 use SL::DB::File;
 


@@ -38,46 +39,18 @@ sub _create_file {
   my (%params) = @_;
 
   my $fileobj = SL::File->save(
   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;
 }
 
   );
   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__
 1;
 
 __END__


@@ -94,8 +67,6 @@ SL::Dev::File - create file objects for testing, with minimal defaults
 
 =head2 C<create_created %PARAMS>
 
 
 =head2 C<create_created %PARAMS>
 

-=head2 C<delete_all>
-

 =head1 AUTHOR
 
 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
 =head1 AUTHOR
 
 Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>