attachment:larpwiki-bracket-link-with-anchor.diff von UseMod

   1 *** wiki.pl	2004-05-25 18:45:00.000000000 +0200
   2 --- larpwiki-bracket-link-with-anchor.pl	2004-05-25 18:44:34.000000000 +0200
   3 ***************
   4 *** 26,31 ****
   5 --- 26,33 ----
   6   #    59 Temple Place, Suite 330
   7   #    Boston, MA 02111-1307 USA
   8   
   9 + # applied patch: BracketLinksWithAnchor
  10 + 
  11   package UseModWiki;
  12   use strict;
  13   local $| = 1;  # Do not buffer output (localized for mod_perl)
  14 ***************
  15 *** 1637,1642 ****
  16 --- 1639,1646 ----
  17         # Also, consider that one could write [[Bad Page|Good Page]]?
  18         s/\[\[$FreeLinkPattern\|([^\]]+)\]\]/&StorePageOrEditLink($1, $2)/geo;
  19         s/\[\[$FreeLinkPattern\]\]/&StorePageOrEditLink($1, "")/geo;
  20 +       s/\[\[$AnchoredLinkPattern\|([^\]]+)\]\]/&StoreAnchoredLink($1,
  21 +                                                      $2, $3)/geos if $NamedAnchors;
  22       }
  23       if ($BracketText) {  # Links like [URL text of link]
  24         s/\[$UrlPattern\s+([^\]]+?)\]/&StoreBracketUrl($1, $2, $useImage)/geos;
  25 ***************
  26 *** 1977,1982 ****
  27 --- 1981,1993 ----
  28     return &StoreRaw(&GetPageLinkText("$name#$anchor", "[$text]"));
  29   }
  30   
  31 + sub StoreAnchoredLink {
  32 +   my ($name, $anchor, $text) = @_;
  33 + 
  34 +   return &StoreRaw(&GetPageLinkText("$name#$anchor", "$text"));
  35 + }
  36 + 
  37 + 
  38   sub StorePageOrEditLink {
  39     my ($page, $name) = @_;
  40