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;
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__
=head2 C<create_created %PARAMS>
-=head2 C<delete_all>
-
=head1 AUTHOR
Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>