Ticket #100: index_map.diff

Utils.pm

@@ -128 +128 @@
                   my $link_title = $_[2] || "View all pages in $_[0] $_[1]";
                   return qq(<a href="$script_name?action=index;index_type=) . uri_escape(lc($_[0])) . qq(;index_value=) . uri_escape($_[1]) . qq(">$link_title</a>);
                 },
+        qr/\@INDEX_MAP\s+\[\[(Category|Locale)\s+([^\]|]+)\|?([^\]]+)?\]\]/ =>
+            sub {
+                  # We may be being called by Wiki::Toolkit::Plugin::Diff,
+                  # which doesn't know it has to pass us $wiki - and
+                  # we don't use it anyway.
+                  if ( UNIVERSAL::isa( $_[0], "Wiki::Toolkit" ) ) {
+                      shift; # just throw it away
+                  }
+                  my $link_title = $_[2] || "View map of stuff in $_[0] $_[1]";
+                  return qq(<a href="$script_name?action=index;format=map;index_type=) . uri_escape(lc($_[0])) . qq(;index_value=) . uri_escape($_[1]) . qq(">$link_title</a>);
+                },
         qr/\@INDEX_LIST\s+\[\[(Category|Locale)\s+([^\]]+)]]/ =>
              sub {
                    my ($wiki, $type, $value) = @_;