Add tests to cover the removal of extensions in the "directory"

parts of the path.  Refactor out the while loop with match and
nested s/// into a single regexp.

lib/WebGUI/Asset.pm

@@ -583,9 +583,10 @@ sub fixUrl {
 	}
 
 	# remove multiple extensions from the url if there are some
-	while ($url =~ m{^(.*)\.\w+(/.*)$}) {
- 		$url =~ s{^(.*)\.\w+(/.*)$}{$1$2}ig;
-	}
+    $url =~ s{
+                (\.\w+)* # Strip off any number of extensions
+                (?=/)    # Followed by a slash
+            }{}xg;       # And delete all of them in the string
 
 	# add automatic extension if we're supposed to
 	if ($self->session->setting->get("urlExtension") ne "" #don't add an extension if one isn't set