--- branches/ffzg/WebPac.pm	2006/05/24 13:33:36	735
+++ branches/ffzg/WebPac.pm	2006/05/24 13:35:42	736
@@ -63,6 +63,10 @@
 
 	return $tpl if (! $base_path);
 
+	#warn "base_path: $base_path, p: $p, path: $path, tpl: $tpl\n";
+
+	$p =~ s#/[^/]*$##;
+
 	# strip everything to and including base path, leaving only
 	# additional (virtual) path
 	if ($base_path eq "/") {