@@ 4,7 4,7 @@
# http://woffs.de/WCM
# <wcm@woffs.de>
#
-# Version 20130322
+# Version 20130404
#
# Copyright © 2010-2012 WofFS
#
@@ 64,6 64,7 @@ sub walktree ($$$) {
my $hidden=($&=~/^0/); # 00_ 01_ etc. means hidden
(my $href="$dir/$title")=~s,^$src/,,; # strip subdir name
$href=~s/(^|\/)[^_]*_(?=.*\/)/$1/g; # strip until first _ in all path components
+ $href=~s/\.[a-z]+(?=\/)//g; # strip extension in all path components
$href=~s/[ ?'"&;]/_/g; # replace special chars in links
my $selected=''; # highlight selected link
(my $bhref=$href)=~s,.*/,,;