sysmodelgen/src/old/svg/DrawSvg.pm
branchHighFidelityModel
changeset 283 7b6dfbac0dd3
parent 152 5acf50bbb618
equal deleted inserted replaced
282:b788617a584a 283:7b6dfbac0dd3
   804 		}
   804 		}
   805 
   805 
   806 
   806 
   807 	# Step 1:
   807 	# Step 1:
   808 	# Create a Model.xml based on the ModelTemplate.xml
   808 	# Create a Model.xml based on the ModelTemplate.xml
   809 	open (INPUT, $modelTemplateXml) or &Logger::LogError("Xalan error ($error) occured in Step 1 of SVG building...", KOldSystemModelGenerator, 1);
   809 	open (INPUT, $modelTemplateXml) or &Logger::LogError("Xalan error ($?) occured in Step 1 of SVG building (<$modelTemplateXml)...", KOldSystemModelGenerator, 1);
   810 	open (OUTPUT, ">$modelXml") or &Logger::LogError("Xalan error ($error) occured in Step 1 of SVG building...", KOldSystemModelGenerator, 1);
   810 	open (OUTPUT, ">$modelXml") or &Logger::LogError("Xalan error ($?) occured in Step 1 of SVG building (>$modelXml)...", KOldSystemModelGenerator, 1);
   811 	my $release = $self->{iRelease};
   811 	my $release = $self->{iRelease};
   812 	
   812 	
   813 	
   813 	
   814 	# Since $self->{iSysDefFile} may be a comma-separated list of sysdefs, create a <sysdef> tag for each one of the files:
   814 	# Since $self->{iSysDefFile} may be a comma-separated list of sysdefs, create a <sysdef> tag for each one of the files:
   815 	my $sysdefTagsForModelTemplate = "";	
   815 	my $sysdefTagsForModelTemplate = "";	
   955 
   955 
   956 sub GetXsltDir()
   956 sub GetXsltDir()
   957 	{
   957 	{
   958 	my $self = shift;
   958 	my $self = shift;
   959 	my $xsltDir = $FindBin::Bin."/svg";  # calcluated w.r.t old directory
   959 	my $xsltDir = $FindBin::Bin."/svg";  # calcluated w.r.t old directory
       
   960 	$xsltDir = $FindBin::Bin."/src/old/svg" if ! -d $xsltDir; # calculated w.r.t the root directory
   960 	$xsltDir = $FindBin::Bin  if ! -d $xsltDir; # calculated w.r.t the /svg directory
   961 	$xsltDir = $FindBin::Bin  if ! -d $xsltDir; # calculated w.r.t the /svg directory
   961 	$xsltDir = $FindBin::Bin."/src/old/svg" if ! -d $xsltDir; # calculated w.r.t the root directory
       
   962 	return $xsltDir;
   962 	return $xsltDir;
   963 	}
   963 	}
   964 
   964 
   965 
   965 
   966 sub FileAsUrl() 
   966 sub FileAsUrl()