X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDev%2FFile.pm;h=9fa1b962f11df0f26546a783100959b5af50ce04;hb=693c0013aef02b24680059c3d935511d75a2df70;hp=62228ea9e1c35e0b25e8527fb1748303d6aa6fe6;hpb=cf3a8cf79ac2f6228b298ef260f3471490c3132b;p=kivitendo-erp.git diff --git a/SL/Dev/File.pm b/SL/Dev/File.pm index 62228ea9e..9fa1b962f 100644 --- a/SL/Dev/File.pm +++ b/SL/Dev/File.pm @@ -7,11 +7,6 @@ our %EXPORT_TAGS = (ALL => \@EXPORT_OK); use SL::DB::File; -my %common_params = ( - object_id => 1, - object_type => 'sales_order', -); - sub create_scanned { my (%params) = @_; $params{source} = 'scanner1'; @@ -44,23 +39,18 @@ sub _create_file { 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; } -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__