[WM] duplicate code

[Robert Echlin]

Hi,
I am working on using webmake to reproduce my current corporate site:
http://www.officeprofessor.ca
so I can expand it easily.

I was creating the pages manually, including the left side main 
navigation area, with non-linked text when the link in the bar is to the 
current page.

I have used perl code in the sitemapnode and sitemapleaf to accomplish 
this (below).
My  questions for the group are:
- Is there a way to do this with existing Webmake funtionality without 
perl code?
- How do I store my duplicated perl code, so it is not duplicated?
 - Is this worth the effort of figuring out how to create a new module?
 - Or can someone add this functionality to an existing module?

I expect to use this technique in my wife's newest web site (not up yet 
- it'll be a math site) which will initially have (I think) two levels 
of areas in the site map - top level and .the contents of various areas. 
I also expect to use Webmake on her current main site: 
www.hogwartsalumni.com.

Thanks.
Robert

Sample code placed in the public domain.

<template name=sitemapnode>
     <p>
 <{perl
 my $page = expand('${WebMake.OutName}') ;
 my $name = expand('${name}') ;
 $name =~ s/\.txt$// ;
 if ($page eq $name) {
   $_ = '<span class="button" >' ;
   $_ .= expand('${title}') . '</span> <br />' ;
 }
 else {
   $_ = '<a class="button" href="' . expand('$(url)') . '">' ;
   $_ .= expand('${title}') . '</a> <br />' ;
 }
 $_;
 }>
      ${list} </p>
</template>

<template name=sitemapleaf>
 <{perl
 my $page = expand('${WebMake.OutName}') ;
 my $name = expand('${name}') ;
 $name =~ s/\.txt$// ;
 if ($page eq $name) {
   $_ = '<span class="button" >' ;
   $_ .= expand('${title}') . '</span> <br />' ;
 }
 else {
   $_ = '<a class="button" href="' . expand('$(url)') . '">' ;
   $_ .= expand('${title}') . '</a> <br />' ;
 }
 $_;
 }>
</template>




-- 
Robert Echlin, B.Eng.
President, Office Professor Inc.
613-266-8311       Robert [at] OfficeProfessor.CA
www.OfficeProfessor.CA