'; + + print_table($table); + +/// Finish the page + + print_footer($course); + +?> Index: temp_moodle_dev/lamstwo/lib.php =================================================================== diff -u --- temp_moodle_dev/lamstwo/lib.php (revision 0) +++ temp_moodle_dev/lamstwo/lib.php (revision c38e7385ccdf90536303d2299f492accdd29d869) @@ -0,0 +1,309 @@ +libdir.'/datalib.php'); +require_once($CFG->libdir.'/moodlelib.php'); +require_once($CFG->libdir.'/soap/nusoap.php'); + + +function lamstwo_add_instance($lamstwo) { +/// Given an object containing all the necessary data, +/// (defined by the form in mod.html) this function +/// will create a new instance and return the id number +/// of the new instance. + global $USER; + $lamstwo->timemodified = time(); + $lamstwo->lesson_id = lamstwo_get_lesson($USER->username,$lamstwo->sequence_id,$lamstwo->course,$lamstwo->name,$lamstwo->introduction,$lamstwo->start_date,trim($USER->country),substr(trim($USER->lang),0,2)); + return insert_record("lamstwo", $lamstwo); +} + + +function lamstwo_update_instance($lamstwo) { +/// Given an object containing all the necessary data, +/// (defined by the form in mod.html) this function +/// will update an existing instance with new data. + //echo "enter lamstwo_update_instance
"; + $lamstwo->timemodified = time(); + $lamstwo->id = $lamstwo->instance; + /* + lamstwo_delete_lesson($USER->username,$lamstwo->lesson_id); + $start_date = ""; + if($lamstwo->start_date) $start_date=$lamstwo->start_date; + $country = ""; + if($USER->country) $country=trim($USER->country); + $lang = ""; + if($USER->lang) $lang = substr(trim($USER->lang),0,2); + $lamstwo->lesson_id = lamstwo_get_lesson($USER->username,$lamstwo->sequence_id,$lamstwo->course,$lamstwo->name,$lamstwo->introduction,$start_date,$country,$lang); + if(!$lamstwo->lesson_id){ + return false; + } + # May have to add extra stuff in here # + //echo $lamstwo->id."
"; + //echo $lamstwo->sequence_id."
"; + //echo $lamstwo->course."
"; + //echo $lamstwo->name."
"; + //echo $lamstwo->introduction."
"; + //echo $lamstwo->lesson_id."
"; + //echo "exit lamstwo_update_instance
"; +*/ + return update_record("lamstwo", $lamstwo); +} + + +function lamstwo_delete_instance($id) { +/// Given an ID of an instance of this module, +/// this function will permanently delete the instance +/// and any data that depends on it. + + if (! $lamstwo = get_record("lamstwo", "id", "$id")) { + return false; + } + + $result = true; + + # Delete any dependent records here # + lamstwo_delete_lesson($USER->username,$lamstwo->lesson_id); + if (! delete_records("lamstwo", "id", "$lamstwo->id")) { + $result = false; + } + + return $result; +} + +function lamstwo_user_outline($course, $user, $mod, $lamstwo) { +/// Return a small object with summary information about what a +/// user has done with a given particular instance of this module +/// Used for user activity reports. +/// $return->time = the time they did it +/// $return->info = a short text description + + return $return; +} + +function lamstwo_user_complete($course, $user, $mod, $lamstwo) { +/// Print a detailed representation of what a user has done with +/// a given particular instance of this module, for user activity reports. + + return true; +} + +function lamstwo_print_recent_activity($course, $isteacher, $timestart) { +/// Given a course and a time, this module should find recent activity +/// that has occurred in lamstwo activities and print it out. +/// Return true if there was output, or false is there was none. + + global $CFG; + + return false; // True if anything was printed, otherwise false +} + +function lamstwo_cron () { +/// Function to be run periodically according to the moodle cron +/// This function searches for things that need to be done, such +/// as sending out mail, toggling flags etc ... + + global $CFG; + + return true; +} + +function lamstwo_grades($lamstwoid) { +/// Must return an array of grades for a given instance of this module, +/// indexed by user. It also returns a maximum allowed grade. +/// +/// $return->grades = array of grades; +/// $return->maxgrade = maximum allowed grade; +/// +/// return $return; + + return NULL; +} + +function lamstwo_get_participants($lamstwoid) { +//Must return an array of user records (all data) who are participants +//for a given instance of lamstwo. Must include every user involved +//in the instance, independient of his role (student, teacher, admin...) +//See other modules as example. + + return false; +} + +function lamstwo_scale_used ($lamstwoid,$scaleid) { +//This function returns if a scale is being used by one lamstwo +//it it has support for grading and scales. Commented code should be +//modified if necessary. See forum, glossary or journal modules +//as reference. + + $return = false; + + //$rec = get_record("lamstwo","id","$lamstwoid","scale","-$scaleid"); + // + //if (!empty($rec) && !empty($scaleid)) { + // $return = true; + //} + + return $return; +} + +////////////////////////////////////////////////////////////////////////////////////// +/// Any other lamstwo functions go here. Each of them must have a name that +/// starts with lamstwo_ + +function lamstwo_get_soap_client($relativeurl) { + global $CFG; + if(!isset($CFG->lamstwo_serverurl)) + { + return NULL; + } + $wsdl = $CFG->lamstwo_serverurl.$relativeurl; + $s = new soap_client($wsdl,true,false,false,false,false,5,5); + return $s; +} + +/** + * Get sequences(learning designs) for the user in lamstwo + * + * @param string $username The username of the user. Set this to "" if you would just like to get sequences for the currently logged in user. + * @return string to define the tree structure + * @TODO complete the documentation of this function + */ +function lamstwo_get_sequences($username,$courseid,$country,$lang) { + global $CFG,$USER; + if(!isset($CFG->lamstwo_serverid)||!isset($CFG->lamstwo_serverkey)||!isset($CFG->lamstwo_serverurl)) + { + return get_string("notsetup", "lamstwo"); + } + $relativeurl="/services/LearningDesignRepositoryService?wsdl"; + $s = lamstwo_get_soap_client($relativeurl); + if(is_null($s)){ + return NULL; + } + $datetime = date("F d,Y g:i a"); + + if(!isset($username)){ + $username = $USER->username; + } + $rawstring = trim($datetime).trim($username).trim($CFG->lamstwo_serverid).trim($CFG->lamstwo_serverkey); + $hashvalue = sha1(strtolower($rawstring)); + $mode = 2; //monitor mode + $parameters = array($CFG->lamstwo_serverid,$datetime,$hashvalue,$username,$courseid,$mode,$country,$lang); + $result = $s->call('getLearningDesigns',$parameters);//Array of simpleLearningDesign objects + if($s->getError()){//if some exception happened + $result = $s->getError();//return the string describing the error + } + unset($s); + $pattern = '/\'(\d+)\'/'; + $replacement = '\'javascript:selectSequence($1)\''; + return preg_replace($pattern,$replacement,$result); +} + +/** + * Get lesson id from lamstwo + * + * @param string $username The username of the user. Set this to "" if you would just like the currently logged in user to create the lesson + * @param int $ldid The id of the learning design that the lesson is based on + * @param int $courseid The id of the course that the lesson is associated with. + * @param string $title The title of the lesson + * @param string $desc The description of the lesson + * @param string $country The Country's ISO code + * @param string $lang The Language's ISO code + * @return int lesson id + */ +function lamstwo_get_lesson($username,$ldid,$courseid,$title,$desc,$startdate,$country,$lang) { + //echo "enter lamstwo_get_lesson
"; + global $CFG,$USER; + if(!isset($CFG->lamstwo_serverid)||!isset($CFG->lamstwo_serverkey)) + { + //echo "serverid or serverkey is not set
"; + return NULL; + } + $relativeurl="/services/LessonManagerService?wsdl"; + $s = lamstwo_get_soap_client($relativeurl); + if(is_null($s)){ + //echo "soap client is null
"; + return NULL; + } + $datetime = date("F d,Y g:i a"); + if(!isset($username)){ + $username = $USER->username; + } + $plaintext = $datetime.$username.$CFG->lamstwo_serverid.$CFG->lamstwo_serverkey; + //echo $plaintext; + $hashvalue = sha1(strtolower($plaintext)); + //echo $hashvalue; + if($startdate){ + $parameters = array($CFG->lamstwo_serverid,$datetime,$hashvalue,$username,$ldid,$courseid,$title,$desc,$startdate,$country,$lang); + $result = $s->call('scheduleLesson',$parameters); + }else{ + $parameters = array($CFG->lamstwo_serverid,$datetime,$hashvalue,$username,$ldid,$courseid,$title,$desc,$country,$lang); + $result = $s->call('startLesson',$parameters); + } + if($s->getError()){ + $result = $s->getError(); + echo 'result:'.$result.'
exit lamstwo_get_lesson
'; + } + unset($s); + return $result; +} + +/** + * Delete learning session(lesson) from lamstwo + * + * @param string $username The username of the user. Set this to "" if you would just like the currently logged in user to create the lesson + * @param int $lsid The id of the learning session(lesson) + * @return true or false + */ +function lamstwo_delete_lesson($username,$lsid) { + //echo "enter lamstwo_get_lesson
"; + global $CFG,$USER; + if(!isset($CFG->lamstwo_serverid)||!isset($CFG->lamstwo_serverkey)) + { + return "The LAMSv2 serverId and serverKey have not been set up"; + } + $relativeurl="/services/LessonManagerService?wsdl"; + $s = lamstwo_get_soap_client($relativeurl); + if(is_null($s)){ + return "Failed to get soap client based on:".$relativeurl; + } + $datetime = date("F d,Y g:i a"); + if(!isset($username)){ + $username = $USER->username; + } + $plaintext = $datetime.$username.$CFG->lamstwo_serverid.$CFG->lamstwo_serverkey; + //echo $plaintext; + $hashvalue = sha1(strtolower($plaintext)); + //echo $hashvalue; + $parameters = array($CFG->lamstwo_serverid,$datetime,$hashvalue,$username,$lsid); + $result = $s->call('deleteLesson',$parameters); + if($s->getError()){ + $result = $s->getError(); + } + unset($s); + return $result; +} + +/** + * Verify if the server_url, server_id and server_key are set properly + */ +function lamstwo_verify($url, $id, $key){ + $relativeurl="/services/VerificationService?wsdl"; + $wsdl = $url.$relativeurl; + $s = new soap_client($wsdl,true,false,false,false,false,3,3); + if(is_null($s)){ + return NULL; + } + $datetime = date("F d,Y g:i a"); + $plaintext = $datetime.$id.$key; + //echo $plaintext; + $hashvalue = sha1(strtolower($plaintext)); + //echo $hashvalue; + $parameters = array($id,$datetime,$hashvalue); + $result = $s->call('verify',$parameters); + if($s->getError()){ + $result = $s->getError(); + } + unset($s); + return $result; +} + +?> Index: temp_moodle_dev/lamstwo/mod.html =================================================================== diff -u --- temp_moodle_dev/lamstwo/mod.html (revision 0) +++ temp_moodle_dev/lamstwo/mod.html (revision c38e7385ccdf90536303d2299f492accdd29d869) @@ -0,0 +1,478 @@ + + +dirroot.'/mod/lamstwo/constants.php'); +require_once($CFG->dirroot.'/mod/lamstwo/lib.php'); + +if (!isset($form->name)) { + $form->name = ''; +} +if (!isset($form->sequence_id)) { + $form->sequence_id = ''; +} +if (!isset($form->introduction)) { + $form->introduction = ''; +} +if (!isset($form->lesson_id)) { + $form->lesson_id = ''; +} + +if (!isset($form->create_sequence_url)) { + $datetime = date("F d,Y g:i a"); + $plaintext = trim($datetime).trim($USER->username).trim($LAMS2CONSTANTS->author_method).trim($CFG->lamstwo_serverid).trim($CFG->lamstwo_serverkey); + $hash = sha1(strtolower($plaintext)); + $form->create_sequence_url = $CFG->lamstwo_serverurl.$LAMS2CONSTANTS->login_request. + '?'.$LAMS2CONSTANTS->param_uid.'='.$USER->username. + '&'.$LAMS2CONSTANTS->param_method.'='.$LAMS2CONSTANTS->author_method. + '&'.$LAMS2CONSTANTS->param_timestamp.'='.urlencode($datetime). + '&'.$LAMS2CONSTANTS->param_serverid.'='.$CFG->lamstwo_serverid. + '&'.$LAMS2CONSTANTS->param_hash.'='.$hash. + '&'.$LAMS2CONSTANTS->param_courseid.'='.$form->course. + '&'.$LAMS2CONSTANTS->param_country.'='.trim($USER->country). + '&'.$LAMS2CONSTANTS->param_lang.'='.substr(trim($USER->lang),0,2); +} +?> + + + + + + + + + + + + Index: temp_moodle_dev/lamstwo/pdate.gif =================================================================== diff -u Binary files differ Index: temp_moodle_dev/lamstwo/tree.js =================================================================== diff -u --- temp_moodle_dev/lamstwo/tree.js (revision 0) +++ temp_moodle_dev/lamstwo/tree.js (revision c38e7385ccdf90536303d2299f492accdd29d869) @@ -0,0 +1,142 @@ +// Title: Tigra Tree +// Description: See the demo at url +// URL: http://www.softcomplex.com/products/tigra_menu_tree/ +// Version: 1.1 +// Date: 11-12-2002 (mm-dd-yyyy) +// Notes: This script is free. Visit official site for further details. + +function tree (a_items, a_template) { + + this.a_tpl = a_template; + this.a_config = a_items; + this.o_root = this; + this.a_index = []; + this.o_selected = null; + this.n_depth = -1; + + var o_icone = new Image(),o_iconl = new Image(); + o_icone.src = a_template['icon_e']; + o_iconl.src = a_template['icon_l']; + a_template['im_e'] = o_icone; + a_template['im_l'] = o_iconl; + for (var i = 0; i < 64; i++) + if (a_template['icon_' + i]) { + var o_icon = new Image(); + a_template['im_' + i] = o_icon; + o_icon.src = a_template['icon_' + i]; + } + + this.toggle = function (n_id) { var o_item = this.a_index[n_id]; o_item.open(o_item.b_opened) }; + this.select = function (n_id) { return this.a_index[n_id].select(); }; + this.mout = function (n_id) { this.a_index[n_id].upstatus(true) }; + this.mover = function (n_id) { this.a_index[n_id].upstatus() }; + + this.a_children = []; + for (var i = 0; i < a_items.length; i++) + new tree_item(this, i); + + this.n_id = trees.length; + trees[this.n_id] = this; + + for (var i = 0; i < this.a_children.length; i++) { + document.write(this.a_children[i].init()); + open_recursively(this.a_children[i]); + } +} + +function open_recursively(tree_item){ + tree_item.open(false); + if(tree_item.a_children){ + for(var i = 0; i < tree_item.a_children.length; i++){ + open_recursively(tree_item.a_children[i]); + } + } +} + +function tree_item (o_parent, n_order) { + + this.n_depth = o_parent.n_depth + 1; + this.a_config = o_parent.a_config[n_order + (this.n_depth ? 2 : 0)]; + if (!this.a_config) return; + + this.o_root = o_parent.o_root; + this.o_parent = o_parent; + this.n_order = n_order; + this.b_opened = !this.n_depth; + + this.n_id = this.o_root.a_index.length; + this.o_root.a_index[this.n_id] = this; + o_parent.a_children[n_order] = this; + + this.a_children = []; + for (var i = 0; i < this.a_config.length - 2; i++) + new tree_item(this, i); + + this.get_icon = item_get_icon; + this.open = item_open; + this.select = item_select; + this.init = item_init; + this.upstatus = item_upstatus; + this.is_last = function () { return this.n_order == this.o_parent.a_children.length - 1 }; +} + +function item_open (b_close) { + var o_idiv = get_element('i_div' + this.o_root.n_id + '_' + this.n_id); + if (!o_idiv) return; + + if (!o_idiv.innerHTML) { + var a_children = []; + for (var i = 0; i < this.a_children.length; i++) + a_children[i]= this.a_children[i].init(); + o_idiv.innerHTML = a_children.join(''); + } + o_idiv.style.display = (b_close ? 'none' : 'block'); + + this.b_opened = !b_close; + var o_jicon = document.images['j_img' + this.o_root.n_id + '_' + this.n_id], + o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id]; + if (o_jicon) o_jicon.src = this.get_icon(true); + if (o_iicon) o_iicon.src = this.get_icon(); + this.upstatus(); +} + +function item_select (b_deselect) { + if (!b_deselect) { + var o_olditem = this.o_root.o_selected; + this.o_root.o_selected = this; + if (o_olditem) o_olditem.select(true); + } + var o_iicon = document.images['i_img' + this.o_root.n_id + '_' + this.n_id]; + if (o_iicon) o_iicon.src = this.get_icon(); + get_element('i_txt' + this.o_root.n_id + '_' + this.n_id).style.fontWeight = b_deselect ? 'normal' : 'bold'; + + this.upstatus(); + return Boolean(this.a_config[1]); +} + +function item_upstatus (b_clear) { + window.setTimeout('window.status="' + (b_clear ? '' : this.a_config[0] + (this.a_config[1] ? ' ('+ this.a_config[1] + ')' : '')) + '"', 10); +} + +function item_init () { + var a_offset = [], + o_current_item = this.o_parent; + for (var i = this.n_depth; i > 1; i--) { + a_offset[i] = '
| ' + (this.n_depth ? a_offset.join('') + (this.a_children.length
+ ? ' |
| ';
+print_heading(format_string($lamstwo->name));
+
+//$strlamstwos = get_string("modulenameplural", "lamstwo");
+//$strlamstwo = get_string("modulename", "lamstwo");
+
+//print_header("$course->shortname: $lamstwo->name", "$course->fullname",
+// "$navigation id>$strlamstwos -> $lamstwo->name",
+// "", "", true, update_module_button($cm->id, $course->id, $strlamstwo),
+// navmenu($course, $cm));
+
+/// Print the main part of the page
+if(isteacher($course->id,$USER->id)||isteacheredit($course->id,$USER->id)){
+ $datetime = date("F d,Y g:i a");
+ $plaintext = trim($datetime).trim($USER->username).trim($LAMS2CONSTANTS->monitor_method).trim($CFG->lamstwo_serverid).trim($CFG->lamstwo_serverkey);
+ $hash = sha1(strtolower($plaintext));
+ $url = $CFG->lamstwo_serverurl.$LAMS2CONSTANTS->login_request.
+ '?'.$LAMS2CONSTANTS->param_uid.'='.$USER->username.
+ '&'.$LAMS2CONSTANTS->param_method.'='.$LAMS2CONSTANTS->monitor_method.
+ '&'.$LAMS2CONSTANTS->param_timestamp.'='.urlencode($datetime).
+ '&'.$LAMS2CONSTANTS->param_serverid.'='.$CFG->lamstwo_serverid.
+ '&'.$LAMS2CONSTANTS->param_hash.'='.$hash.
+ '&'.$LAMS2CONSTANTS->param_lsid.'='.$lamstwo->lesson_id.
+ '&'.$LAMS2CONSTANTS->param_courseid.'='.$lamstwo->course.
+ '&'.$LAMS2CONSTANTS->param_country.'='.trim($USER->country).
+ '&'.$LAMS2CONSTANTS->param_lang.'='.substr(trim($USER->lang),0,2);
+ print_simple_box_start('center');
+ echo ''.get_string("openmonitor", "lamstwo").'';
+ print_simple_box_end();
+
+ $plaintext = trim($datetime).trim($USER->username).trim($LAMS2CONSTANTS->learner_method).trim($CFG->lamstwo_serverid).trim($CFG->lamstwo_serverkey);
+ $hash = sha1(strtolower($plaintext));
+ $url = $CFG->lamstwo_serverurl.$LAMS2CONSTANTS->login_request.
+ '?'.$LAMS2CONSTANTS->param_uid.'='.$USER->username.
+ '&'.$LAMS2CONSTANTS->param_method.'='.$LAMS2CONSTANTS->learner_method.
+ '&'.$LAMS2CONSTANTS->param_timestamp.'='.urlencode($datetime).
+ '&'.$LAMS2CONSTANTS->param_serverid.'='.$CFG->lamstwo_serverid.
+ '&'.$LAMS2CONSTANTS->param_hash.'='.$hash.
+ '&'.$LAMS2CONSTANTS->param_lsid.'='.$lamstwo->lesson_id.
+ '&'.$LAMS2CONSTANTS->param_courseid.'='.$lamstwo->course.
+ '&'.$LAMS2CONSTANTS->param_country.'='.trim($USER->country).
+ '&'.$LAMS2CONSTANTS->param_lang.'='.substr(trim($USER->lang),0,2);
+ print_simple_box_start('center');
+ echo ''.get_string("openlearner", "lamstwo").'';
+ print_simple_box_end();
+}else if(isstudent($course->id,$USER->id)){
+ $datetime = date("F d,Y g:i a");
+ $plaintext = trim($datetime).trim($USER->username).trim($LAMS2CONSTANTS->learner_method).trim($CFG->lamstwo_serverid).trim($CFG->lamstwo_serverkey);
+ $hash = sha1(strtolower($plaintext));
+ $url = $CFG->lamstwo_serverurl.$LAMS2CONSTANTS->login_request.
+ '?'.$LAMS2CONSTANTS->param_uid.'='.$USER->username.
+ '&'.$LAMS2CONSTANTS->param_method.'='.$LAMS2CONSTANTS->learner_method.
+ '&'.$LAMS2CONSTANTS->param_timestamp.'='.urlencode($datetime).
+ '&'.$LAMS2CONSTANTS->param_serverid.'='.$CFG->lamstwo_serverid.
+ '&'.$LAMS2CONSTANTS->param_hash.'='.$hash.
+ '&'.$LAMS2CONSTANTS->param_lsid.'='.$lamstwo->lesson_id.
+ '&'.$LAMS2CONSTANTS->param_courseid.'='.$lamstwo->course.
+ '&'.$LAMS2CONSTANTS->param_country.'='.trim($USER->country).
+ '&'.$LAMS2CONSTANTS->param_lang.'='.substr(trim($USER->lang),0,2);
+ print_simple_box_start('center');
+ echo ''.get_string("openlearner", "lamstwo").'';
+ print_simple_box_end();
+}
+
+if ($lamstwo->introduction) {
+ print_simple_box(format_text($lamstwo->introduction), 'center', '70%', '', 5, 'generalbox', 'description');
+ echo ' '; +} + + +/// Finish the page +echo ' |