Moodle
MoodleのSCORM 2004サポートしない問題については先の記事にまとめた通りである。この他にも、私達が開発しているeラーニング教材はMoodleで「完了」ステータスのAPI呼び出しができないという問題があり困っていた。仕方がないので以下の手順でSCORM 1.2化することにした。
地味な作業である、いつかはやらなければならないものだった。
Moodleに研究室の予定を書き込んでいるが、終日の予定は時刻をデフォルトの「00:00」のままで変更しない。特に終了時刻はわざわざ入力しない。これで「終日」になることを期待するが…。
これをGoogle Calendarにエクスポートすると、前日の終日予定に見えてしまう。これを回避するためには、00:00以外のそれより遅い時刻に設定すればよい。
前々から行いたかった、LMSに蓄積されているログを対象データとした研究について。
行いたいことはテキストマイニング(これはこれで「重要文抽出」「キーワード抽出」「トピック抽出」「テキストの一貫性評価」「複数文書要約」「テキストクラスタリング」などの面白いトピックがある)ではない。LMSで提供しているSCORMコンテンツの改善を目的とし、データベースなど構造化されたものから、ユーザに着目した分析となるであろう。データマイニングと言えるかもしれない。たとえば、BovoらはEDM2013、ICEEE2013でユーザそれぞれについてのログイン回数、最終ログイン、学習時間、レッスン読了数、ダウンロード数、小テスト、課題の評定と各種平均を正規化したデータをWekaでクラスタリングしている。
Wekaについては、恩師である渡邊裕司先生もお使いであると仰っていた、それなりに実績のあるツールのようだ(本やOERもある)。森幹彦先生には、orangeというビジュアライズされたワークフローを作成できるPythonベースのツールを紹介していただいた(活用している方のブログ記事)。また、これらのツールを比較した解説もある(これとかこっちとかスライドも)。
ただし、ツールは夢のようなものではなく、それが何を行っているのか理解できない者が使うべきではない。当たり前だが、ツールを使うことが目的になってはならない。最終目的はコンテンツの改善である。ただ、ログなんぞから、ユーザの「学習」状況など分かるはずがない。しかしながら、全てをきちんと受講している「可能性」のある閲覧状態というのはあるはずである(受講していてもタレ流しかもしれないから)。
SCO単位の受講率と総合テストの成績の相関は容易に分かる。これに加えて上記2が分かれば、オンラインかつモチベーションがない、強制的にやらされる「○○○○についての学習」というシチュエーションで、ユーザの「飽き」と「作業ゲー状態」を検出することができるかもしれない。また、たとえば次のようにユーザを分類し、アダプティブなコンテンツとすることも考えられる。
決してバズワードの研究分野のつもりはありませんから！
と言っていいものか分からないが、行ったことをまとめておく。大したことはやっていない。SCORM受講ログの取得に十時間以上かかってしまったし、コースログの取得はPHPのmemory_limitとのたたかいであった。やはりPHPはパフォーマンスの問題がある。Try & Error の開発がしやすいこととのトレードオフなのだろうが…。
– $row[] = html_writer::link(new moodle_url("/user/view.php?id={$log->userid}&course={$log->course}"), $log->userid);
+ $row[] = html_writer::link(new moodle_url("/user/view.php?id={$log->userid}&course={$log->course}"), fullname($log, has_capability(‘moodle/site:viewfullnames’, context_course::instance($course->id))));
$displayaction="$log->module $log->action";
if ($brokenurl) {
@@ -531,7 +531,7 @@
$link = new moodle_url("/iplookup/index.php?ip=$log->ip&user=$log->userid");
echo $OUTPUT->action_link($link, $log->ip, new popup_action(‘click’, $link, ‘iplookup’, array(‘height’ => 400, ‘width’ => 700)));
echo "</td>\n";
– $fullname = $log->userid;
+ $fullname = fullname($log, has_capability(‘moodle/site:viewfullnames’, context_course::instance($course->id)));
echo "<td class=\"r$row c3\" >\n";
echo " <a href=\"$CFG->wwwroot/user/view.php?id={$log->userid}\">$fullname</a>\n";
echo "</td>\n";
@@ -619,7 +619,7 @@
$coursecontext = context_course::instance($course->id);
$firstField = format_string($courses[$log->course], true, array(‘context’ => $coursecontext));
– $fullname = $log->userid;
+ $fullname = fullname($log, has_capability(‘moodle/site:viewfullnames’, $coursecontext));
$actionurl = $CFG->wwwroot. make_log_url($log->module,$log->url);
$row = array($firstField, userdate($log->time, $strftimedatetime), $log->ip, $fullname, $log->module.’ ‘.$log->action.’ (‘.$actionurl.’)’, $log->info);
$csvexporter->add_data($row);
@@ -730,7 +730,7 @@
$myxls->write($row, 0, format_string($courses[$log->course], true, array(‘context’ => $coursecontext)), ”);
$myxls->write_date($row, 1, $log->time, $formatDate); // write_date() does conversion/timezone support. MDL-14934
$myxls->write($row, 2, $log->ip, ”);
– $fullname = $log->userid;
+ $fullname = fullname($log, has_capability(‘moodle/site:viewfullnames’, $coursecontext));
$myxls->write($row, 3, $fullname, ”);
$actionurl = $CFG->wwwroot. make_log_url($log->module,$log->url);
$myxls->write($row, 4, $log->module.’ ‘.$log->action.’ (‘.$actionurl.’)’, ”);
@@ -844,7 +844,7 @@
$myxls->write_string($row, 0, format_string($courses[$log->course], true, array(‘context’ => $coursecontext)));
$myxls->write_date($row, 1, $log->time);
$myxls->write_string($row, 2, $log->ip);
– $fullname = $log->userid;
+ $fullname = fullname($log, has_capability(‘moodle/site:viewfullnames’, $coursecontext));
$myxls->write_string($row, 3, $fullname);
$actionurl = $CFG->wwwroot. make_log_url($log->module,$log->url);
$myxls->write_string($row, 4, $log->module.’ ‘.$log->action.’ (‘.$actionurl.’)’);
— mod/quiz/report/attemptsreport.php 2015-10-16 19:03:12.000000000 +0900
+++ mod/quiz/report/attemptsreport.php.20151016 2015-10-16 19:04:44.000000000 +0900
@@ -153,10 +153,10 @@
$headers[] = ”;
}
if (!$table->is_downloading()) {
– $columns[] = ‘userid’;
+ $columns[] = ‘username’;
$headers[] = get_string(‘name’);
} else {
– $columns[] = ‘userid’;
+ $columns[] = ‘username’;
$headers[] = get_string(‘name’);
}
— mod/scorm/report/interactions/report.php.20151020 2015-10-20 11:21:52.000000000 +0900
+++ mod/scorm/report/interactions/report.php.20151016 2015-10-16 12:33:37.000000000 +0900
@@ -418,9 +418,9 @@
$row[] = $OUTPUT->user_picture($user, array(‘courseid’=>$course->id));
}
if (!$download) {
– $row[] = ‘<a href="’.$CFG->wwwroot.’/user/view.php?id=’.$scouser->userid.’&course=’.$course->id.’">’.$scouser->userid.'</a>’;
+ $row[] = ‘<a href="’.$CFG->wwwroot.’/user/view.php?id=’.$scouser->userid.’&course=’.$course->id.’">’.$scouser->username.'</a>’;
} else {
– $row[] = $scouser->userid;
+ $row[] = $scouser->username;
}
if (empty($timetracks->start)) {
$row[] = ‘-‘;
— mod/scorm/report/basic/report.php.20151020 2015-10-20 11:04:48.000000000 +0900
+++ mod/scorm/report/basic/report.php.20151016 2015-10-16 11:02:03.000000000 +0900
@@ -121,7 +121,7 @@
$columns[]= ‘picture’;
$headers[]= ”;
}
– $columns[] = ‘userid’;
+ $columns[] = ‘username’;
$headers[] = get_string(‘name’);
$columns[]= ‘attempt’;
@@ -383,9 +383,9 @@
$row[] = $OUTPUT->user_picture($user, array(‘courseid’=>$course->id));
}
if (!$download) {
– $row[] = ‘<a href="’.$CFG->wwwroot.’/user/view.php?id=’.$scouser->userid.’&course=’.$course->id.’">’.$scouser->userid.'</a>’;
+ $row[] = ‘<a href="’.$CFG->wwwroot.’/user/view.php?id=’.$scouser->userid.’&course=’.$course->id.’">’.$scouser->username.'</a>’;
} else {
– $row[] = $scouser->userid;
+ $row[] = $scouser->username;
}
if (empty($timetracks->start)) {
$row[] = ‘-‘;
— mod/scorm/report/objectives/report.php.20151020 2015-10-20 11:23:52.000000000 +0900
+++ mod/scorm/report/objectives/report.php.20151016 2015-10-16 12:34:18.000000000 +0900
@@ -422,9 +422,9 @@
}
if (!$download) {
$row[] = ‘<a href="’.$CFG->wwwroot.’/user/view.php?id=’.$scouser->userid.
– ‘&course=’.$course->id.’">’.$scouser->userid.'</a>’;
+ ‘&course=’.$course->id.’">’.$scouser->username.'</a>’;
} else {
– $row[] = $scouser->userid;
+ $row[] = $scouser->username;
}
if (empty($timetracks->start)) {
$row[] = ‘-‘;
[/code]
— course/lib.php 2015-10-20 11:46:28.000000000 +0900
+++ course/lib.php.20151020 2015-10-20 11:26:45.000000000 +0900
@@ -558,7 +558,6 @@
$header = array();
$header[] = get_string(‘course’);
$header[] = get_string(‘time’);
– $header[] = get_string(‘time’);
$header[] = get_string(‘ip_address’);
$header[] = get_string(‘fullnameuser’);
$header[] = get_string(‘action’);
@@ -622,7 +621,7 @@
$firstField = format_string($courses[$log->course], true, array(‘context’ => $coursecontext));
$fullname = $log->userid;
$actionurl = $CFG->wwwroot. make_log_url($log->module,$log->url);
– $row = array($firstField, userdate($log->time, $strftimedatetime), $log->time, $log->ip, $fullname, $log->module.’ ‘.$log->action.’ (‘.$actionurl.’)’, $log->info);
+ $row = array($firstField, userdate($log->time, $strftimedatetime), $log->ip, $fullname, $log->module.’ ‘.$log->action.’ (‘.$actionurl.’)’, $log->info);
$csvexporter->add_data($row);
}
$csvexporter->download_file();
— mod/quiz/report/attemptsreport_table.php 2015-10-20 11:20:12.000000000 +0900
+++ mod/quiz/report/attemptsreport_table.php.20151020 2015-10-20 11:01:19.000000000 +0900
@@ -163,7 +163,7 @@
*/
public function col_timestart($attempt) {
if ($attempt->attempt) {
– return $attempt->timestart;
+ return userdate($attempt->timestart, $this->strtimeformat);
} else {
return ‘-‘;
}
@@ -176,7 +176,7 @@
*/
public function col_timefinish($attempt) {
if ($attempt->attempt && $attempt->timefinish) {
– return $attempt->timefinish;
+ return userdate($attempt->timefinish, $this->strtimeformat);
} else {
return ‘-‘;
}
@@ -189,7 +189,7 @@
*/
public function col_duration($attempt) {
if ($attempt->timefinish) {
– return $attempt->timefinish – $attempt->timestart;
+ return format_time($attempt->timefinish – $attempt->timestart);
} else {
return ‘-‘;
}
— mod/scorm/report/interactions/report.php 2015-10-20 11:23:34.000000000 +0900
+++ mod/scorm/report/interactions/report.php.20151020 2015-10-20 11:21:52.000000000 +0900
@@ -435,14 +435,14 @@
$row[] = $scouser->attempt;
}
if ($download ==’ODS’ || $download ==’Excel’ ) {
– $row[] = $timetracks->start;
+ $row[] = userdate($timetracks->start, get_string("strftimedatetime", "langconfig"));
} else {
– $row[] = $timetracks->start;
+ $row[] = userdate($timetracks->start);
}
if ($download ==’ODS’ || $download ==’Excel’ ) {
– $row[] = $timetracks->finish;
+ $row[] = userdate($timetracks->finish, get_string(‘strftimedatetime’, ‘langconfig’));
} else {
– $row[] = $timetracks->finish;
+ $row[] = userdate($timetracks->finish);
}
$row[] = scorm_grade_user_attempt($scorm, $scouser->userid, $scouser->attempt);
}
— mod/scorm/report/basic/report.php 2015-10-20 11:12:59.000000000 +0900
+++ mod/scorm/report/basic/report.php.20151020 2015-10-20 11:04:48.000000000 +0900
@@ -399,14 +399,14 @@
$row[] = $scouser->attempt;
}
if ($download ==’ODS’ || $download ==’Excel’ ) {
– $row[] = $timetracks->start;
+ $row[] = userdate($timetracks->start, get_string("strftimedatetime", "langconfig"));
} else {
– $row[] = $timetracks->start;
+ $row[] = userdate($timetracks->start);
}
if ($download ==’ODS’ || $download ==’Excel’ ) {
– $row[] = $timetracks->finish;
+ $row[] = userdate($timetracks->finish, get_string(‘strftimedatetime’, ‘langconfig’));
} else {
– $row[] = $timetracks->finish;
+ $row[] = userdate($timetracks->finish);
}
$row[] = scorm_grade_user_attempt($scorm, $scouser->userid, $scouser->attempt);
}
— mod/scorm/report/objectives/report.php 2015-10-20 11:24:46.000000000 +0900
+++ mod/scorm/report/objectives/report.php.20151020 2015-10-20 11:23:52.000000000 +0900
@@ -439,14 +439,14 @@
$row[] = $scouser->attempt;
}
if ($download ==’ODS’ || $download ==’Excel’ ) {
– $row[] = $timetracks->start;
+ $row[] = userdate($timetracks->start, get_string("strftimedatetime", "langconfig"));
} else {
– $row[] = $timetracks->start;
+ $row[] = userdate($timetracks->start);
}
if ($download ==’ODS’ || $download ==’Excel’ ) {
– $row[] = $timetracks->finish;
+ $row[] = userdate($timetracks->finish, get_string(‘strftimedatetime’, ‘langconfig’));
} else {
– $row[] = $timetracks->finish;
+ $row[] = userdate($timetracks->finish);
}
$row[] = scorm_grade_user_attempt($scorm, $scouser->userid, $scouser->attempt);
}
[/code]
案外簡単にできたのでメモ。
[code]
sudo wget http://dev.mysql.com/get/mysql-community-release-el6-5.noarch.rpm
sudo rpm -ivh mysql-community-release-el6-5.noarch.rpm
sudo yum update
[/code]
参考:
CactiはRRDToolをバックエンドに持ち、MRTG(古い！)より柔軟な可視化ができる優れたツールである。これで学認連携Moodle講習サイトの負荷を可視化している。昨年は400日で良いかと思っていたが、やはり比較するには2年以上の記録を残しておく必要があることに気付き、以下のように変更した。
なお、この設定についてはサバカン様の技術情報をそのまま使わせていただいています。本記事は備忘のリンク元として記述しました。
追記 2015/09/11 上記記事はリンク切れになっているようです。同様の記述はこちらにもありました。
Sakaiとは著名なオープンソースLMSである。本学はSakaiを採用した学習支援サービスを提供しているが、正直なところ、この運用には様々な問題があり、振り回されているとしか言いようがない。
まず、採用経緯が全く不明である。仕様書もなし、スケジュールもなし、採用理由もなし。Sakaiの導入ありきで進めたため、全てが後付けになってしまっている。このような進め方で人の心が動くはずがない(重要)。
次に、構築に様々なボトルネックが存在し、現在に至るまで今だに正式運用となるはずのシステムが動作していない(ホスト名がclspilot.iimcとなっていることから分かる)。
加えて、Sakaiそのものの機能不足とバグがある。バグについてはソフトウェアにつきものであるから余り追求しても仕方がない。次の深刻な機能不足がある。何と数式表示ができないし(Sakai 2.9.3 ではMathMLがサポートされたのでそれなりの表示はできる)、ロールの変更ができないのである。詳しくはMoodle.orgのフォーラムを参照されたい。また、某大学で問題になったプライバシー関連のマスク機能やShibboleth認証プラグインが存在せず、それぞれに開発が必要となる。つまりお金が必要になるのである。
このような機能不足について、先日 @nagai_www 先生とお話しする機会がありかなりクリアになった。端的に言えば、Sakaiはコミュニティで開発を分担したLMSであり(だから「Sakaiプロジェクト」と言う)、(まだなのか永久か私の知るところではないが)全体の思想というものが無い。その無さが良さでもある。つまり完成品として見てはいけないのである。Sakaiにかかわってもうすぐ2年になるのに、このことに気付くことができなかったのは痛恨の極みである。
Moodleが良いと言うつもりはない。しかしSakaiはないだろう。Moodleの方がユーザー数とコミュティの大きさに裏打ちされた良さがあるというのが私の結論である。客観的に一つ言えることは、MoodleだけでなくSakaiを知ることができたのは良かったと思う。それにしてもSakaiの人達はなぜ他を見ようとしないのか本当に不思議でならない。自分にバウンダリをかけて良いことがあったらぜひ教えてもらいたいものである。
Moodle 2.6 にアップグレードする際に PHP 5.5 をインストールした時のメモ。
ほぼここの通りだが、ライブラリ関係の依存性については yum whatprovides で解決した。
Moodle 2.6 では待望の「追加氏名」機能が実装された。え？アップグレードに必要な時間ですか？バックアップと PHP5.5 のインストール含めて 30 分くらいですね。
