1 files changed, 3 insertions(+), 3 deletions(-)

M index.pl

@@ 4,7 4,7 @@
 # http://woffs.de/WCM
 # <wcm@woffs.de>
 #
-# Version 20110502
+# Version 20110503
 # 
 # © WofFS 2010
 # License: CC-BY-SA 3.0


@@ 18,7 18,6 @@ eval "use Text::Markdown";
 
 my $src='src';                 # source dir tree
 my $template='template.html';  # HTML template
-my $pagetitle='';              # title prefix for HTML
 my $menulevel=0;               # how many menulevels to show
 
 ### that's it! below is for advanced users ###


@@ 33,6 32,7 @@ my $redir='';                  # redirect?
 my $fallback;                  # if matching page found elsewhere
 my $bcurrent;                  # basename of selected page
 my $abs;                       # absolute path
+my $pagetitle;                 # title for HTML
 
 sub walktree ($$$);            # prototype needed because of recursion
 


@@ 65,7 65,7 @@ sub walktree ($$$) {
         or "$current/index" eq $href                 # directory index
         or ($current eq '' and $href eq 'index')) {  # root directory index
       $selected=' class="selected"';
-      $pagetitle.=" - $title" unless $title eq 'index';
+      $pagetitle=" - $title" unless $title eq 'index';
       if (-f "$dir/$file") {
         #
         # *.pl, *.sh, *.bash, *.cgi, *.php, *.mphp: system()