From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 29 May 2009 18:16:32 +0000 (+0000)
Subject:  r1892@llin:  dpavlin | 2009-05-29 20:16:29 +0200
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=dea13201d4dddf3968d8c2ae319b6b7e234c02f0;p=webpac2

 r1892@llin:  dpavlin | 2009-05-29 20:16:29 +0200
 create output path if it doesn't exist


git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1203 07558da8-63fa-0310-ba24-9fe276d99e06
---

diff --git a/lib/WebPAC/Output/Excel.pm b/lib/WebPAC/Output/Excel.pm
index ce316e0..f5369b5 100644
--- a/lib/WebPAC/Output/Excel.pm
+++ b/lib/WebPAC/Output/Excel.pm
@@ -14,6 +14,7 @@ worksheet
 line
 ));
 
+use WebPAC::Path;
 use Spreadsheet::WriteExcel;
 use File::Slurp;
 use Encode qw/decode/;
@@ -68,6 +69,8 @@ sub init {
 		return 0;
 	}
 
+	mk_base_path( $self->path );
+
 	$self->workbook( Spreadsheet::WriteExcel->new( $self->path ) ) ||
 		$log->logdie("can't open ", $self->path,": $!");