d025b7e569384486fe8412e00306e1f628b18b7d
[atutor.git] / mods / scorm_packages / scorm-1.2 / write.php
1 <?php
2 /*
3  * mods/scorm_packages/scorm-1.2/write.php
4  *
5  * This file is part of ATutor, see http://www.atutor.ca
6  * 
7  * Copyright (C) 2005  Matthai Kurian 
8  * 
9  * This program is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU General Public License
11  * as published by the Free Software Foundation; either version 2
12  * of the License, or (at your option) any later version.
13  * 
14  * This program is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17  * GNU General Public License for more details.
18  * 
19  * You should have received a copy of the GNU General Public License
20  * along with this program; if not, write to the Free Software
21  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
22  */
23
24 define('AT_INCLUDE_PATH', '../../../include/');
25 require(AT_INCLUDE_PATH.'vitals.inc.php');
26
27
28 header('Content-Type: text/plain; charset=utf-8');
29 $L = $_POST['iL'];
30 $R = $_POST['iR'];
31 $ic = sizeOf ($L);
32 for ($i=0; $i<$ic; $i++) {
33         $sql = "INSERT INTO ".TABLE_PREFIX."cmi
34                 VALUES (NULL,
35                          $_POST[sco_id],
36                          $_SESSION[member_id],
37                         '$L[$i]', '$R[$i]'
38                 )";
39         $result = mysql_query($sql, $db);
40 }
41
42 $L = $_POST['uL'];
43 $R = $_POST['uR'];
44 $uc = sizeOf ($L);
45
46 for ($i=0; $i<$uc; $i++) {
47         $sql = "UPDATE  ".TABLE_PREFIX."cmi
48                 SET     rvalue    = '$R[$i]'
49                 WHERE   item_id   = $_POST[sco_id]
50                 AND     member_id =  $_SESSION[member_id]
51                 AND     lvalue    = '$L[$i]'
52         ";
53         $result = mysql_query($sql, $db);
54
55 }
56 echo 'ATutor: '.$ic.' inserted '.$uc.' updated.'."\n";
57
58 ?>
59