diff Lib/IMPL/DOM/Schema.pm @ 382:99ac2e19c0cc

Implemented a strings map for a DOM schema
author sergey
date Thu, 23 Jan 2014 02:35:28 +0400
parents ced5937ff21a
children 2f16f13b000c
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema.pm	Wed Jan 22 16:56:10 2014 +0400
+++ b/Lib/IMPL/DOM/Schema.pm	Thu Jan 23 02:35:28 2014 +0400
@@ -80,9 +80,17 @@
 sub _getStringMap {
 	my ($this) = @_;
 	
-	
+	return $this->{$stringMap}
+		if return $this->{$stringMap};
+
+	my $map = StringMap->new();
+	if ($this->baseDir and $this->schemaName) {
+		
+		$map->paths( File::Spec->catdir($this->baseDir,'locale') );
+		$map->name(schemaName);
+	}
 	
-	File::Spec->catdir($this->baseDir,'locale');
+	return $this->{$stringMap} = $map;
 }
 
 sub Process {