|
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);
|
|
|
|
use SL::DB::File;
|
|
|
|
sub create_scanned {
|
|
my (%params) = @_;
|
|
$params{source} = 'scanner1';
|
|
$params{file_type} = 'document';
|
|
$params{file_path} = '/var/tmp/'.$params{file_name} if !$params{file_path};
|
|
open(OUT,"> ".$params{file_path});
|
|
print OUT $params{file_contents};
|
|
close(OUT);
|
|
delete $params{file_contents};
|
|
my $file = _create_file(%params);
|
|
unlink($params{file_path});
|
|
return $file;
|
|
}
|
|
|
|
sub create_uploaded {
|
|
my (%params) = @_;
|
|
$params{source} = 'uploaded';
|
|
$params{file_type} = 'attachment';
|
|
return _create_file(%params);
|
|
}
|
|
|
|
sub create_created {
|
|
my (%params) = @_;
|
|
$params{source} = 'created';
|
|
$params{file_type} = 'document';
|
|
return _create_file(%params);
|
|
}
|
|
|
|
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}
|
|
);
|
|
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__
|
|
|
|
=head1 NAME
|
|
|
|
SL::Dev::File - create file objects for testing, with minimal defaults
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=head2 C<create_scanned %PARAMS>
|
|
|
|
=head2 C<create_uploaded %PARAMS>
|
|
|
|
=head2 C<create_created %PARAMS>
|
|
|
|
=head2 C<delete_all>
|
|
|
|
=head1 AUTHOR
|
|
|
|
Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt>
|
|
|
|
=cut
|