my $storage_dir = "$temp_dir/storage";
mkdir($storage_dir) || die $!;
-
-my $db = SL::DB::Object->new->db;
-$db->dbh->do("UPDATE defaults SET doc_files = 't'");
-$db->dbh->do("UPDATE defaults SET doc_files_rootpath = ?", undef, $storage_dir);
+{
+local $::lx_office_conf{paths}->{document_path} = $storage_dir;
+$::instance_conf->data;
+local $::instance_conf->{data}{doc_files} = 1;
my $scannerfile = "${temp_dir}/f2";
} or do {
$result=$@;
};
-ok($result eq "No object type at SL/Controller/File.pm line 327.\n","correct error 'No object type'");
+$result = substr($result,0,14);
+#print $result."\n";
+ok($result eq "No object type","correct error 'No object type'");
$::form->{object_type} ='sales_order';
$::form->{file_type} ='';
} or do {
$result=$@;
};
-ok($result eq "No file type at SL/Controller/File.pm line 328.\n","correct error 'No file type'");
+$result = substr($result,0,12);
+#print $result."\n";
+ok($result eq "No file type","correct error 'No file type'");
clear_up();
done_testing;
};
}
+}
+
sub reset_state {
my %params = @_;