管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || アンテナ || PUT || more≫ ≫omit
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage ||[edit]
category: WikiLab/BeginnerGuidance

WikiLab/BeginnerGuidance/Include - 別のページを内包して表示させる試み。

LastModified : Sat Dec 6 12:44:35 2003
[管理]

別のページを内包して表示させる試み。

ページの include。

[TOP↑] [管理]
my $embed_include = '\[\[#include:(\S+)\]\]$';    # SHIMADA add [included]
        # SHIMADA add [included] start
        } elsif (/^(!{1,$header_level})(.*)/) {
            push(@result, splice(@saved), sprintf('<h%d> %s</h%d>', length($1) + 1, &inline($2), length($1) + 1));
        # SHIMADA add [included] end
    # Walrus add [import recent changes] end
    # SHIMADA add [included]start
    } elsif ($embedded =~ /$embed_include/) {
        return &make_include($1);
    # SHIMADA add [included] end
sub include {
  my $target = shift;
  return unless $target;
  return if $target eq $form{mypage};

  my $content = $database{$target};
  $content =~ s/^(\*+)/'!' x length($1)/mge;
  $content =~ s/$embedded_name//go;
  qq('''from [[$target]]'''\n\n) . escape($content);
}
sub make_include {
  my $target = shift;
  my $html = text_to_html(include($target));
  my $div_start = qq(<div class="included">);
  my $div_end = qq(</div>);

  return $div_start . $html . $div_end;
}
shortcut: FrontPage || WikiLab | StoreRoom/最新 | 日々の泡 | むず痒いパソコン日記/最新 || HelpPage || [edit]
select css: default | sakura | mono | greenheck | snow | NN4.x用(多分) || LinuZau!! | VikiWiki!? || others |

管理 | 差分 || 新規作成 || カテゴリ一覧 | ページ一覧 | 更新履歴 | 差分履歴 || PUT