--- a/sysmodelgen/src/old/svg/DrawSvg.pm Thu Jun 10 15:00:37 2010 +0100
+++ b/sysmodelgen/src/old/svg/DrawSvg.pm Thu Jun 10 16:30:35 2010 +0100
@@ -806,8 +806,8 @@
# Step 1:
# Create a Model.xml based on the ModelTemplate.xml
- open (INPUT, $modelTemplateXml) or &Logger::LogError("Xalan error ($error) occured in Step 1 of SVG building...", KOldSystemModelGenerator, 1);
- open (OUTPUT, ">$modelXml") or &Logger::LogError("Xalan error ($error) occured in Step 1 of SVG building...", KOldSystemModelGenerator, 1);
+ open (INPUT, $modelTemplateXml) or &Logger::LogError("Xalan error ($?) occured in Step 1 of SVG building (<$modelTemplateXml)...", KOldSystemModelGenerator, 1);
+ open (OUTPUT, ">$modelXml") or &Logger::LogError("Xalan error ($?) occured in Step 1 of SVG building (>$modelXml)...", KOldSystemModelGenerator, 1);
my $release = $self->{iRelease};
@@ -957,8 +957,8 @@
{
my $self = shift;
my $xsltDir = $FindBin::Bin."/svg"; # calcluated w.r.t old directory
+ $xsltDir = $FindBin::Bin."/src/old/svg" if ! -d $xsltDir; # calculated w.r.t the root directory
$xsltDir = $FindBin::Bin if ! -d $xsltDir; # calculated w.r.t the /svg directory
- $xsltDir = $FindBin::Bin."/src/old/svg" if ! -d $xsltDir; # calculated w.r.t the root directory
return $xsltDir;
}