attachment:larpwiki-comments-on.diff von UseMod

   1 *** wiki.pl	2004-05-29 16:08:41.000000000 +0200
   2 --- larpwiki-comments-on.pl	2004-05-29 16:09:35.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: larpwiki-comments-on
  10 + 
  11   package UseModWiki;
  12   use strict;
  13   local $| = 1;  # Do not buffer output (localized for mod_perl)
  14 ***************
  15 *** 53,59 ****
  16     @IsbnNames @IsbnPre @IsbnPost $EmailFile $FavIcon $RssDays $UserHeader
  17     $UserBody $StartUID $ParseParas $AuthorFooter $UseUpload $AllUpload
  18     $UploadDir $UploadUrl $LimitFileUrl $MaintTrimRc $SearchButton 
  19 !   $EditNameLink $UseMetaWiki @ImageSites $BracketImg );
  20   # Note: $NotifyDefault is kept because it was a config variable in 0.90
  21   # Other global variables:
  22   use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
  23 --- 55,61 ----
  24     @IsbnNames @IsbnPre @IsbnPost $EmailFile $FavIcon $RssDays $UserHeader
  25     $UserBody $StartUID $ParseParas $AuthorFooter $UseUpload $AllUpload
  26     $UploadDir $UploadUrl $LimitFileUrl $MaintTrimRc $SearchButton 
  27 !   $EditNameLink $UseMetaWiki @ImageSites $BracketImg $CommentsPrefix );
  28   # Note: $NotifyDefault is kept because it was a config variable in 0.90
  29   # Other global variables:
  30   use vars qw(%Page %Section %Text %InterSite %SaveUrl %SaveNumUrl
  31 ***************
  32 *** 1472,1484 ****
  33   sub GetGotoBar {
  34     my ($id) = @_;
  35     my ($main, $bartext);
  36 ! 
  37     $bartext  = &GetPageLink($HomePage);
  38     if ($id =~ m|/|) {
  39       $main = $id;
  40       $main =~ s|/.*||;  # Only the main page name (remove subpage)
  41       $bartext .= " | " . &GetPageLink($main);
  42     }
  43     $bartext .= " | " . &GetPageLink($RCName);
  44     $bartext .= " | " . &GetPrefsLink();
  45     if ($UseUpload && &UserCanUpload()) {
  46 --- 1474,1493 ----
  47   sub GetGotoBar {
  48     my ($id) = @_;
  49     my ($main, $bartext);
  50 !   $CommentsPrefix = "Kommentare_zu_"; # FIXME
  51     $bartext  = &GetPageLink($HomePage);
  52     if ($id =~ m|/|) {
  53       $main = $id;
  54       $main =~ s|/.*||;  # Only the main page name (remove subpage)
  55       $bartext .= " | " . &GetPageLink($main);
  56     }
  57 +   if ($id =~ m/Kommentare_Zu_/){ # FIXME
  58 +     $main = $id;
  59 +     $main =~ s/Kommentare_Zu_//; # Remove comment prefix # FIXME
  60 +     $bartext .= " | " . &GetPageLink($main);
  61 +   } elsif ($id ne '') {
  62 +     $bartext .= " | " . &GetPageOrEditLink("${CommentsPrefix}${id}", ""); # TEST
  63 +   }
  64     $bartext .= " | " . &GetPageLink($RCName);
  65     $bartext .= " | " . &GetPrefsLink();
  66     if ($UseUpload && &UserCanUpload()) {