--- a/uh_parser/releaseables.pm	Tue Jun 29 14:20:36 2010 +0100
+++ b/uh_parser/releaseables.pm	Tue Jun 29 15:02:47 2010 +0100
@@ -16,6 +16,8 @@
 
 package releaseables;
 
+use File::Path;
+
 use strict;
 
 our $reset_status = {};
@@ -221,19 +223,16 @@
 	{
 		for my $config (keys %{$whatlog_info->{$bldinf}})
 		{
-			my $normalized = lc($bldinf);
-			$normalized =~ s,^[A-Za-z]:,,;
-			$normalized =~ s,[\\],/,g;
+			my $normalized = $bldinf;
+			RaptorCommon::normalize_bldinf_path(\$normalized);
+			
+			my $package = RaptorCommon::get_package_subpath($normalized);
 			
-			$normalized =~ m,^/sf/([^/]+)/([^/]+)/,;
-			my $layer = $1;
-			my $package = $2;
+			mkpath("$::releaseablesdir/$package");
 			
-			mkdir("$::releaseablesdir/$layer");
-			mkdir("$::releaseablesdir/$layer/$package");
-			
-			my $filename = "$::releaseablesdir/$layer/$package/info.tsv";
-			my $filenamemissing = "$::raptorbitsdir/$layer\_$package\_missing.txt" if ($::missing);
+			my $filename = "$::releaseablesdir/$package/info.tsv";
+			$package =~ s,/,_,g;
+			my $filenamemissing = "$::raptorbitsdir/$package\_missing.txt" if ($::missing);
 			
 			print "Writing info file $filename\n" if (!-f$filename);
 			open(FILE, ">>$filename");