*** wiki.pl	2004-05-29 16:08:41.000000000 +0200
--- larpwiki-comments-on.pl	2004-05-29 16:09:35.000000000 +0200
***************
*** 26,31 ****
--- 26,33 ----
  #    59 Temple Place, Suite 330
  #    Boston, MA 02111-1307 USA
  
+ # applied patch: larpwiki-comments-on
+ 
  package UseModWiki;
  use strict;
  local $| = 1;  # Do not buffer output (localized for mod_perl)
***************
*** 53,59 ****
    @IsbnNames @IsbnPre @IsbnPost $EmailFile $FavIcon $RssDays $UserHeader
    $UserBody $StartUID $ParseParas $AuthorFooter $UseUpload $AllUpload
    $UploadDir $UploadUrl $LimitFileUrl $MaintTrimRc $SearchButton 
!   $EditNameLink $UseMetaWiki @ImageSites $BracketImg );
  # Note: $NotifyDefault is kept because it was a config variable in 0.90
  # Other global variables:
  use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
--- 55,61 ----
    @IsbnNames @IsbnPre @IsbnPost $EmailFile $FavIcon $RssDays $UserHeader
    $UserBody $StartUID $ParseParas $AuthorFooter $UseUpload $AllUpload
    $UploadDir $UploadUrl $LimitFileUrl $MaintTrimRc $SearchButton 
!   $EditNameLink $UseMetaWiki @ImageSites $BracketImg $CommentsPrefix );
  # Note: $NotifyDefault is kept because it was a config variable in 0.90
  # Other global variables:
  use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
***************
*** 1472,1484 ****
  sub GetGotoBar {
    my ($id) = @_;
    my ($main, $bartext);
! 
    $bartext  = &GetPageLink($HomePage);
    if ($id =~ m|/|) {
      $main = $id;
      $main =~ s|/.*||;  # Only the main page name (remove subpage)
      $bartext .= " | " . &GetPageLink($main);
    }
    $bartext .= " | " . &GetPageLink($RCName);
    $bartext .= " | " . &GetPrefsLink();
    if ($UseUpload && &UserCanUpload()) {
--- 1474,1493 ----
  sub GetGotoBar {
    my ($id) = @_;
    my ($main, $bartext);
!   $CommentsPrefix = "Kommentare_zu_"; # FIXME
    $bartext  = &GetPageLink($HomePage);
    if ($id =~ m|/|) {
      $main = $id;
      $main =~ s|/.*||;  # Only the main page name (remove subpage)
      $bartext .= " | " . &GetPageLink($main);
    }
+   if ($id =~ m/Kommentare_Zu_/){ # FIXME
+     $main = $id;
+     $main =~ s/Kommentare_Zu_//; # Remove comment prefix # FIXME
+     $bartext .= " | " . &GetPageLink($main);
+   } elsif ($id ne '') {
+     $bartext .= " | " . &GetPageOrEditLink("${CommentsPrefix}${id}", ""); # TEST
+   }
    $bartext .= " | " . &GetPageLink($RCName);
    $bartext .= " | " . &GetPrefsLink();
    if ($UseUpload && &UserCanUpload()) {