check for current_filename and die if need (needs more work)

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

diff --git a/lib/WebPAC/Normalize.pm b/lib/WebPAC/Normalize.pm
index 36ed063..2fca3fb 100644 (file)
--- a/lib/WebPAC/Normalize.pm
+++ b/lib/WebPAC/Normalize.pm
@@ -257,6 +257,8 @@ sub data_structure {
 
        }
 
+       $log->logdie("there is no current_filename defined! Do you have filename tag in conf/normalize/?.xml") unless ($self->{'current_filename'});
+
        $self->{'db'}->save_ds(
                ds => \@ds,
                current_filename => $self->{'current_filename'},