sbox WikiLab/BeginnerGuidance/FunctionAdd - 簡単な機能追加と表示変更の試み。

簡単な機能追加と表示変更の試み。

■日付の挿入。

sub do_write 内

   if ($form{mymsg}) {
+      my $datestr = &get_now;
+      $form{mymsg} =~ s|{{ now }}|$datestr|g;
       # Walrus mod [write softly] start
       if ($lock_enable) {

{{ now }} と書くと、保存時に現在日時に変換されます。{{ now }} の部分は任意の文字列に置き換えて構いません。

■本日の日付で検索。

[TOP↑] [管理]

その日の日付文字列で全文検索します。
{{key :today}} で、[Today:2021/01/16(Sat)] このような日付検索へのリンク文字列が出来ます。参考：キーワード検索
当然ですが、データの編集時に日付を入れておかないと意味がありません。上の「日付の挿入」で、日付の記入が簡単にできるようになります。

sub get_now をコピーして、get_date 関数を作ります。

sub get_date {
    my (@week) = qw(Sun Mon Tue Wed Thu Fri Sat);
    my ($sec, $min, $hour, $day, $mon, $year, $weekday) = gmtime(time + $modifier_time_offset);
    $year += 1900;
    $mon++;
    $mon = "0$mon" if $mon < 10;
    $day = "0$day" if $day < 10;
    $weekday = $week[$weekday];
    return "$year-$mon-$day ($weekday)";
}

sub inline 内

sub inline {
    my ($line) = @_;
+   my $tdaystr = &get_date;
    my $chunk = shift;

    $line =~ s|'''(.+?)'''|<i>$1</i>|g;     # Italic
    $line =~ s|''(.+?)''|<b>$1</b>|g;       # Bold
+   $line =~ s|{{key:today}}|<a href="$url_cgi?mycmd=search&amp;mymsg=@{[&encode($tdaystr)]}" title="$resource{keyword}">[Today:$tdaystr]</a>|g;

注意：Wal4 で、検索結果にキーワードの含まれる該当個所がテキスト表示されるようになりました。「勝手ルール」を追加すると、検索結果とページ先頭の目次部分が未整形で表示され、ちょっとみっともないです。この辺りの修正方法はこちらの WikiRules をご覧下さい。

一行コメント欄に「タイムスタンプを更新しない」チェックボックスを追加。_

[TOP↑] [管理]

sub do_comment

    if ($form{mymsg}) {
        $form{mymsg} = $content;
#        $form{mytouch} = 'on';    # rica del
        &do_write;
    } else {
        $form{mycmd} = 'read';
        $form{mytouch} = 'on';     # rica add
        &do_read;
    }

sub embedded_to_html

<form action="$url_cgi" method="post">
    <input type="hidden" name="mycmd" value="comment">
    <input type="hidden" name="mypage" value="$escapedmypage">
    <input type="hidden" name="myLastModified" value="$lastmodified">
    <!-- <input type="hidden" name="mytouch" value="on"> rica del-->
    $resource{yourname}
    <input type="text" name="myname" value="" size="10">
    <input type="checkbox" name="mytouch" value="on" checked="checked">$resource{touch} <br> <!-- rica add-->
    <input type="text" name="mymsg" value="" size="40">
    <input type="submit" value="$resource{commentbutton}">
</form>

2003/06/11(Wed)

コメント。

[TOP↑] [管理]

何かありましたらご利用ください。
但し、申し訳ありませんが、ご質問などに満足に回答できる能力はページ制作者にはありません…。