新機能要望フォーラム

　なるほど．Using Moodleではそういう用途があの星の評価にはあったのですね．
　でもせっかくの評価のシステムですから，使わない手は無いですね．時間ができたら考えて見ましょう．（査読の締切りが迫っているので，８月に入ってから？）

　fj.jokes のようなフォーラムをコースに一つ作ると学生がMoodleを活発に使ってくれるかな？などと不真面目なことも考えています．

＃「ばかウケ間違いなし」なジョーク集が簡単に作れる...ｅラーフィング？

　どうもMoodleを典型的なｅラーニングシステムとして使おう，という意気込みが私には欠けている．だから長続きしているのかな？

　修正箇所はmod/forum/search.phpとmod/forum/lib.phpの二つのソース．まずは，mod/forum/search.phpです．

(a) パラメータの取得

    if ($timetorestrict) {
        $dateto = make_timestamp($toyear, $tomonth, $today, $tohour, $tominute);
    } else {
        $dateto = optional_param('dateto', 0, PARAM_INT);      // Ending date
    }
// (Shirai118): ここから追加
    if (($ratingmin = optional_param('ratingmin', 0, PARAM_INT)) <= 0) $ratingmin = '';  // 評価の最小値
// (Shirai118): ここまで追加

(b) サーチ文字列の追加

    if (empty($search)) {   // Check the other parameters instead
        if (!empty($words)) {
            $search .= ' '.$words;
        }

（中略）

        if (!empty($dateto)) {
            $search .= ' dateto:'.$dateto;
        }
// (Shirai118): ここから追加
        if (!empty($ratingmin)) {
            if (empty($search)) {
                $dateto = time()+3600;
                $search .= ' dateto:'.$dateto;       
            }
            $search .= ' ratingmin:'.$ratingmin;
        }
// (Shirai118): ここまで追加
        $individualparams = true;
    } else {
        $individualparams = false;
    }

(c) 検索（リダイレクト）

    $strforums = get_string("modulenameplural", "forum");
    $strsearch = get_string("search", "forum");
    $strsearchresults = get_string("searchresults", "forum");
    $strpage = get_string("page");

// (Shirai118): フォーラム投稿のサーチ機能を強化するいくつかの機能拡張 (2009/02/12)
// (Shirai118): ここから追加
    if (!empty($uniqueid)) {
        if (($mydiscussion = forum_get_discussion_post_id($uniqueid)) && count($mydiscussion) == 1) {
            $mydiscussionid = array_shift($mydiscussion);
            $mydiscussionid = $mydiscussionid->discussion;
            $redirecturl = $CFG->wwwroot.'/mod/forum/discuss.php?d='.$mydiscussionid.'#'.$uniqueid;
            redirect($redirecturl);
        }
    }
// (Shirai118): ここまで追加
    if (!$search || $showform) {

(d) リンクの追加

    echo '<div class="reportlink">';
    echo '<a href="search.php?id='.$course->id.
                             '&amp;user='.urlencode($user).
                             '&amp;userid='.$userid.
                             '&amp;forumid='.$forumid.
                             '&amp;subject='.urlencode($subject).
                             '&amp;phrase='.urlencode($phrase).
                             '&amp;words='.urlencode($words).
                             '&amp;fullwords='.urlencode($fullwords).
                             '&amp;notwords='.urlencode($notwords).
                             '&amp;dateto='.$dateto.
                             '&amp;datefrom='.$datefrom.
                             '&amp;showform=1'.
// (Shirai118): フォーラム投稿のサーチ機能を強化するいくつかの機能拡張 (2009/02/12)
// (Shirai118): ここから追加
                             '&amp;ratingmin='.$ratingmin.
// (Shirai118): ここまで追加
                             '">'.get_string('advancedsearch','forum').'...</a>';
    echo '</div>';

(e1) function forum_print_big_search_form()の頭

function forum_print_big_search_form($course) {
    global $CFG, $words, $subject, $phrase, $user, $userid, $fullwords, $notwords, $datefrom, $dateto;
// (Shirai118): フォーラム投稿のサーチ機能を強化するいくつかの機能拡張 (2009/02/12)
// (Shirai118): ここから追加
    global $uniqueid, $ratingmin;
// (Shirai118): ここまで追加

    print_simple_box(get_string('searchforumintro', 'forum'), 'center', '', '', 'searchbox', 'intro');

(e2) function forum_print_big_search_form()のフォームの追加

    echo '<tr>';
    echo '<td class="c0"><label for="user">'.get_string('searchuser', 'forum').'</label></td>';
    echo '<td class="c1"><input type="text" size="35" name="user" id="user" value="'.s($user, true).'" alt="" /></td>';
    echo '</tr>';
// (Shirai118): フォーラム投稿のサーチ機能を強化するいくつかの機能拡張 (2009/02/12)
// (Shirai118): ここから追加
    if (enable_forum_exsearch()) {
        echo '<tr>';
        echo '<td class="c0"><label for="ratingmin">'.get_string('searchratingmin', 'fs_moodle').'</label></td>';
        echo '<td class="c1"><input type="text" size="35" name="ratingmin" id="ratingmin" value="'.s($ratingmin, true).'" alt="" /></td>';
        echo '</tr>';
        echo '<tr><td><hr /></td><td><hr /></td></tr>';
        echo '<tr>';
        echo '<td class="c0"><label for="uniqueid">'.'少なくとも評価の一つがこの値以上'.'</label></td>';
        echo '<td class="c1"><input type="text" size="35" name="uniqueid" id="uniqueid" value="'.s($uniqueid, true).'" alt="" /></td>';
        echo '</tr>';
    }
// (Shirai118): ここまで追加

    echo '<tr>';
    echo '<td class="submit" colspan="2" align="center">';

　これがmod/forum/lib.phpの修正箇所です．

(a1) function forum_search_posts()

    $messagesearch = '';
    $searchstring = '';

    // Need to concat these back together for parser to work.
    foreach($searchterms as $searchterm){
// (Shirai118): ここから追加
        if (strcasecmp($searchterm, 'ratingmin') > 0) {
            $ratingmin = substr($searchterm, 10);
            continue;
        }
// (Shirai118): ここまで追加
        if ($searchstring != '') {
            $searchstring .= ' ';
        }
        $searchstring .= $searchterm;
    }

(a2) function forum_search_posts()

// (Shirai118): ここからコメントアウト
//  $fromsql = "{$CFG->prefix}forum_posts p,
//                {$CFG->prefix}forum_discussions d,
//                {$CFG->prefix}user u";
// (Shirai118): ここから追加
    if (empty($ratingmin)) {
        $fromsql = "{$CFG->prefix}forum_posts p,
                      {$CFG->prefix}forum_discussions d,
                      {$CFG->prefix}user u";
    } else {
        $fromsql = "{$CFG->prefix}forum_posts p,
                      {$CFG->prefix}forum_ratings r,
                      {$CFG->prefix}forum_discussions d,
                      {$CFG->prefix}user u";
        $extrasql .= "AND (p.id = r.post
               AND     r.rating >= $ratingmin)";
    }
// (Shirai118): ここまで追加

    $selectsql = " $messagesearch
               AND p.discussion = d.id
               AND p.userid = u.id
               AND $selectdiscussion
                   $extrasql";

＃以前の書き込みで，mdl_forum_post, mdl_forum_discussionとあるのは，それぞれmdl_forum_posts, mdl_forum_discussionsの間違いでした．

　mdl_forum_postsとmdl_forum_ratingsが別々のテーブルなのは仕方が無いのですが，mdl_forum_postsにはtotalscoreという項目しかありません．しかも私のMoodleサイトのデータベースで調べた限りでは全て０ですし，ソースの方でも$post->totalscoreなり，totalscoreを扱っている箇所はinstallとbackupとrestoreにしか見当たりません．将来的に評価を元にして点数を入れる予定なのでしょうか？

　もしmdl_forum_postsに評価の平均値と最大値／最小値が記録されていると評価を用いたフォーラムの検索がもう少し便利になるのですけれども．評価を誰かがある投稿に対して行う度に，mdl_forum_ratingsを検索して平均値，最大値，最小値を再計算して値を更新するのは難しく無いと思うのですけれどもねぇ．（さすがにデータベースの構造に手を加える自信はありませんので，本家での対応に期待したい）

　もう少しこの機能を使ってみて便利そうだなと思ったらTrackerに提案してみます．もしかしたらMoodle2.0では有効活用されている可能性もありますので，その調査の後になるでしょうか．（３月中にMoodle2.0の調査を行ないます）