course)) { error("Course is misconfigured"); } // allows for adaption for multiple modules if(! $modname = get_field('modules', 'name', 'id', $cm->module)) { error("Could not find module name"); } if (! $mod = get_record($modname, "id", $cm->instance)) { error("Course module is incorrect"); } require_login($course->id, false, $cm); $context = get_context_instance(CONTEXT_MODULE, $cm->id); require_capability('mod/lesson:edit', $context); $strimportppt = get_string("importppt", "lesson"); $strlessons = get_string("modulenameplural", "lesson"); $navigation = build_navigation($strimportppt, $cm); print_header_simple("$strimportppt", " $strimportppt", $navigation); if ($form = data_submitted()) { /// Filename if (empty($_FILES['newfile'])) { // file was just uploaded notify(get_string("uploadproblem") ); } if ((!is_uploaded_file($_FILES['newfile']['tmp_name']) or $_FILES['newfile']['size'] == 0)) { notify(get_string("uploadnofilefound") ); } else { // Valid file is found if ($rawpages = readdata($_FILES, $course->id, $modname)) { // first try to reall all of the data in $pageobjects = extract_data($rawpages, $course->id, $mod->name, $modname); // parse all the html files into objects clean_temp(); // all done with files so dump em $mod_create_objects = $modname.'_create_objects'; $mod_save_objects = $modname.'_save_objects'; $objects = $mod_create_objects($pageobjects, $mod->id); // function to preps the data to be sent to DB if(! $mod_save_objects($objects, $mod->id, $pageid)) { // sends it to DB error("could not save"); } } else { error('could not get data'); } echo "
"; print_continue("$CFG->wwwroot/mod/$modname/view.php?id=$cm->id"); print_footer($course); exit; } } /// Print upload form print_heading_with_help($strimportppt, "importppt", "lesson"); print_simple_box_start("center"); echo "
"; echo "id\" />\n"; echo "\n"; echo ""; echo ""; echo "
"; print_string("upload"); echo ":"; echo ""; echo "
 "; echo ""; echo "
"; echo "
"; print_simple_box_end(); print_footer($course); // START OF FUNCTIONS function readdata($file, $courseid, $modname) { // this function expects a zip file to be uploaded. Then it parses // outline.htm to determine the slide path. Then parses each // slide to get data for the content global $CFG; // create an upload directory in temp make_upload_directory('temp/'.$modname); $base = $CFG->dataroot."/temp/$modname/"; $zipfile = $_FILES["newfile"]["name"]; $tempzipfile = $_FILES["newfile"]["tmp_name"]; // create our directory $path_parts = pathinfo($zipfile); $dirname = substr($zipfile, 0, strpos($zipfile, '.'.$path_parts['extension'])); // take off the extension if (!file_exists($base.$dirname)) { mkdir($base.$dirname, $CFG->directorypermissions); } // move our uploaded file to temp/lesson move_uploaded_file($tempzipfile, $base.$zipfile); // unzip it! unzip_file($base.$zipfile, $base, false); $base = $base.$dirname; // update the base // this is the file where we get the names of the files for the slides (in the correct order too) $outline = $base.'/outline.htm'; $pages = array(); if (file_exists($outline) and is_readable($outline)) { $outlinecontents = file_get_contents($outline); $filenames = array(); preg_match_all("/javascript:GoToSld\('(.*)'\)/", $outlinecontents, $filenames); // this gets all of our files names // file $pages with the contents of all of the slides foreach ($filenames[1] as $file) { $path = $base.'/'.$file; if (is_readable($path)) { $pages[$path] = file_get_contents($path); } else { return false; } } } else { // cannot find the outline, so grab all files that start with slide $dh = opendir($base); while (false !== ($file = readdir($dh))) { // read throug the directory if ('slide' == substr($file, 0, 5)) { // check for name (may want to check extension later) $path = $base.'/'.$file; if (is_readable($path)) { $pages[$path] = file_get_contents($path); } else { return false; } } } ksort($pages); // order them by file name } if (empty($pages)) { return false; } return $pages; } function extract_data($pages, $courseid, $lessonname, $modname) { // this function attempts to extract the content out of the slides // the slides are ugly broken xml. and the xml is broken... yeah... global $CFG; global $matches; $extratedpages = array(); // directory for images make_mod_upload_directory($courseid); // make sure moddata is made make_upload_directory($courseid.'/moddata/'.$modname, false); // we store our images in a subfolder in here $imagedir = $CFG->dataroot.'/'.$courseid.'/moddata/'.$modname; require_once($CFG->libdir .'/filelib.php'); $imagelink = get_file_url($courseid.'/moddata/'.$modname); // try to make a unique subfolder to store the images $lessonname = str_replace(' ', '_', $lessonname); // get rid of spaces $i = 0; while(true) { if (!file_exists($imagedir.'/'.$lessonname.$i)) { // ok doesnt exist so make the directory and update our paths mkdir($imagedir.'/'.$lessonname.$i, $CFG->directorypermissions); $imagedir = $imagedir.'/'.$lessonname.$i; $imagelink = $imagelink.'/'.$lessonname.$i; break; } $i++; } foreach ($pages as $file => $content) { // to make life easier on our preg_match_alls, we strip out all tags except // for div and img (where our content is). We want div because sometimes we // can identify the content in the div based on the div's class $tags = '
'; // should also allow $string = strip_tags($content,$tags); //echo s($string); $matches = array(); // this will look for a non nested tag that is closed // want to allow (maybe more) tags but when we do that // the preg_match messes up. preg_match_all("/(<([\w]+)[^>]*>)([^<\\2>]*)(<\/\\2>)/", $string, $matches); //(<([\w]+)[^>]*>)([^<\\2>]*)(<\/\\2>) original pattern //(<(div+)[^>]*>)[^() work in progress $path_parts = pathinfo($file); $file = substr($path_parts['basename'], 0, strpos($path_parts['basename'], '.')); // get rid of the extension $imgs = array(); // this preg matches all images preg_match_all("/]*(src\=\"(".$file."\_image[^>^\"]*)\"[^>]*)>/i", $string, $imgs); // start building our page $page = new stdClass; $page->title = ''; $page->contents = array(); $page->images = array(); $page->source = $path_parts['basename']; // need for book only // this foreach keeps the style intact. Found it doesn't help much. But if you want back uncomment // this foreach and uncomment the line with the comment imgstyle in it. Also need to comment out // the $page->images[]... line in the next foreach /*foreach ($imgs[1] as $img) { $page->images[] = ''; }*/ foreach ($imgs[2] as $img) { copy($path_parts['dirname'].'/'.$img, $imagedir.'/'.$img); $page->images[] = ""; // comment out this line if you are using the above foreach loop } for($i = 0; $i < count($matches[1]); $i++) { // go through all of our div matches $class = isolate_class($matches[1][$i]); // first step in isolating the class // check for any static classes switch ($class) { case 'T': // class T is used for Titles $page->title = $matches[3][$i]; break; case 'B': // I would guess that all bullet lists would start with B then go to B1, B2, etc case 'B1': // B1-B4 are just insurance, should just hit B and all be taken care of case 'B2': case 'B3': case 'B4': $page->contents[] = build_list('
    ', $i, 0); // this is a recursive function that will grab all the bullets and rebuild the list in html break; default: if ($matches[3][$i] != ' ') { // odd crap generated... sigh if (substr($matches[3][$i], 0, 1) == ':') { // check for leading : ... hate MS ... $page->contents[] = substr($matches[3][$i], 1); // get rid of : } else { $page->contents[] = $matches[3][$i]; } } break; } } /*if (count($page->contents) == 0) { // didnt find anything, grab everything // potential to pull in a lot of crap for($i = 0; $i < count($matches[1]); $i++) { //if($class = isolate_class($matches[1][$i])) { //if ($class == 'O') { if ($matches[3][$i] != ' ') { // odd crap generated... sigh if (substr($matches[3][$i], 0, 1) == ':') { // check for leading : ... hate MS ... $page->contents[] = substr($matches[3][$i], 1); // get rid of : } else { $page->contents[] = $matches[3][$i]; } } //} //} } }*/ // add the page to the array; $extratedpages[] = $page; } // end $pages foreach loop return $extratedpages; } /** A recursive function to build a html list */ function build_list($list, &$i, $depth) { global $matches; // not sure why I global this... while($i < count($matches[1])) { $class = isolate_class($matches[1][$i]); if (strstr($class, 'B')) { // make sure we are still working with bullet classes if ($class == 'B') { $this_depth = 0; // calling class B depth 0 } else { // set the depth number. So B1 is depth 1 and B2 is depth 2 and so on $this_depth = substr($class, 1); if (!is_numeric($this_depth)) { error("Depth not parsed!"); } } if ($this_depth < $depth) { // we are moving back a level in the nesting break; } if ($this_depth > $depth) { // we are moving in a lvl in nesting $list .= '
      '; $list = build_list($list, $i, $this_depth); // once we return back, should go to the start of the while continue; } // no depth changes, so add the match to our list if ($cleanstring = ppt_clean_text($matches[3][$i])) { $list .= '
    • '.ppt_clean_text($matches[3][$i]).'
    • '; } $i++; } else { // not a B class, so get out of here... break; } } // end the list and return it $list .= '
    '; return $list; } /** Given an html tag, this function will */ function isolate_class($string) { if($class = strstr($string, 'class=')) { // first step in isolating the class $class = substr($class, strpos($class, '=')+1); // this gets rid of
    return substr($class, 0, strpos($class, '>')); } } else { // no class defined in the tag return ''; } } /** This function strips off the random chars that ppt puts infront of bullet lists */ function ppt_clean_text($string) { $chop = 1; // default: just a single char infront of the content // look for any other crazy things that may be infront of the content if (strstr($string, '<') and strpos($string, '<') == 0) { // look for the < in the sting and make sure it is in the front $chop = 4; // increase the $chop } // may need to add more later.... $string = substr($string, $chop); if ($string != ' ') { return $string; } else { return false; } } /** Clean up the temp directory */ function clean_temp() { global $CFG; // this function is broken, use it to clean up later // should only clean up what we made as well because someone else could be importing ppt as well //delDirContents($CFG->dataroot.'/temp/lesson'); } /** Creates objects an object with the page and answers that are to be inserted into the database */ function lesson_create_objects($pageobjects, $lessonid) { $branchtables = array(); $branchtable = new stdClass; // all pages have this info $page->lessonid = $lessonid; $page->prevpageid = 0; $page->nextpageid = 0; $page->qtype = LESSON_BRANCHTABLE; $page->qoption = 0; $page->layout = 1; $page->display = 1; $page->timecreated = time(); $page->timemodified = 0; // all answers are the same $answer->lessonid = $lessonid; $answer->jumpto = LESSON_NEXTPAGE; $answer->grade = 0; $answer->score = 0; $answer->flags = 0; $answer->timecreated = time(); $answer->timemodified = 0; $answer->answer = "Next"; $answer->response = ""; $answers[] = clone($answer); $answer->jumpto = LESSON_PREVIOUSPAGE; $answer->answer = "Previous"; $answers[] = clone($answer); $branchtable->answers = $answers; $i = 1; foreach ($pageobjects as $pageobject) { $temp = prep_page($pageobject, $i); // makes our title and contents $page->title = $temp->title; $page->contents = $temp->contents; $branchtable->page = clone($page); // add the page $branchtables[] = clone($branchtable); // add it all to our array $i++; } return $branchtables; } /** Creates objects an chapter object that is to be inserted into the database */ function book_create_objects($pageobjects, $bookid) { $chapters = array(); $chapter = new stdClass; // same for all chapters $chapter->bookid = $bookid; $chapter->pagenum = count_records('book_chapters', 'bookid', $bookid)+1; $chapter->timecreated = time(); $chapter->timemodified = time(); $chapter->subchapter = 0; $i = 1; foreach ($pageobjects as $pageobject) { $page = prep_page($pageobject, $i); // get title and contents $chapter->importsrc = addslashes($pageobject->source); // add the source $chapter->title = $page->title; $chapter->content = $page->contents; $chapters[] = $chapter; // increment our page number and our counter $chapter->pagenum = $chapter->pagenum + 1; $i++; } return $chapters; } /** Builds the title and content strings from an object */ function prep_page($pageobject, $count) { if ($pageobject->title == '') { $page->title = "Page $count"; // no title set so make a generic one } else { $page->title = addslashes($pageobject->title); } $page->contents = ''; // nab all the images first foreach ($pageobject->images as $image) { $image = str_replace("\n", '', $image); $image = str_replace("\r", '', $image); $image = str_replace("'", '"', $image); // imgstyle $page->contents .= addslashes($image); } // go through the contents array and put

    tags around each element and strip out \n which I have found to be uneccessary foreach ($pageobject->contents as $content) { $content = str_replace("\n", '', $content); $content = str_replace("\r", '', $content); $content = str_replace(' ', '', $content); // puts in returns? $content = '

    '.$content.'

    '; $page->contents .= addslashes($content); } return $page; } /** Saves the branchtable objects to the DB */ function lesson_save_objects($branchtables, $lessonid, $after) { // first set up the prevpageid and nextpageid if ($after == 0) { // adding it to the top of the lesson $prevpageid = 0; // get the id of the first page. If not found, then no pages in the lesson if (!$nextpageid = get_field('lesson_pages', 'id', 'prevpageid', 0, 'lessonid', $lessonid)) { $nextpageid = 0; } } else { // going after an actual page $prevpageid = $after; $nextpageid = get_field('lesson_pages', 'nextpageid', 'id', $after); } foreach ($branchtables as $branchtable) { // set the doubly linked list $branchtable->page->nextpageid = $nextpageid; $branchtable->page->prevpageid = $prevpageid; // insert the page if(!$id = insert_record('lesson_pages', $branchtable->page)) { error("insert page"); } // update the link of the page previous to the one we just updated if ($prevpageid != 0) { // if not the first page if (!set_field("lesson_pages", "nextpageid", $id, "id", $prevpageid)) { error("Insert page: unable to update next link $prevpageid"); } } // insert the answers foreach ($branchtable->answers as $answer) { $answer->pageid = $id; if(!insert_record('lesson_answers', $answer)) { error("insert answer $id"); } } $prevpageid = $id; } // all done with inserts. Now check to update our last page (this is when we import between two lesson pages) if ($nextpageid != 0) { // if the next page is not the end of lesson if (!set_field("lesson_pages", "prevpageid", $id, "id", $nextpageid)) { error("Insert page: unable to update next link $prevpageid"); } } return true; } /** Save the chapter objects to the database */ function book_save_objects($chapters, $bookid, $pageid='0') { // nothing fancy, just save them all in order foreach ($chapters as $chapter) { if (!$chapter->id = insert_record('book_chapters', $chapter)) { error('Could not update your book'); } } return true; } ?>