Пояснительная записка к дипломной работе На тему: «Разработка системы автоматизации функций формирования scorm совместимых метаданных для информационных ресурсов»

Скачать 1.16 Mb.

Название	Пояснительная записка к дипломной работе На тему: «Разработка системы автоматизации функций формирования scorm совместимых метаданных для информационных ресурсов»
страница	17/17
Дата публикации	26.01.2015
Размер	1.16 Mb.
Тип	Пояснительная записка

100-bal.ru > Информатика > Пояснительная записка

1 ... 9 10 11 12 13 14 15 16 17

Приложения

Приложение 1.

public static function Upload($dir, $local = 0, $from_temp = 1)

{

global $root;
if ($from_temp)

$dir = $root."temp/".$dir;

else

$dir = $root.$dir;
$manifest = new DOMDocument("1.0","utf-8");

if (@$manifest->load($dir."/META-INF/manifest.xml"))

{

$xpath = new DOMXPath($manifest);

$xpath->registerNamespace("lom","http://ltsc.ieee.org/xsd/LOM");
//guid

$guid = "";

$list = $xpath->query("//lom:lom/lom:general/lom:identifier[lom:catalog=\"X-RUS-FCIOR\"]/lom:entry");

$node = $list->item(0);

if ($node != null)

$guid = iconv('UTF-8','CP1251',$node->nodeValue);
$sql = "SELECT id, folder, published, version FROM tbmodule WHERE guid = '%s'";

try

{

$db = new DataBase();

$rec = $db->query($sql, array($guid));

if ($rec->num_rows() == 1)

{

if (self::Validate($dir))

{

$id = $rec->record['id'];

$folder = $root."db/".$rec->record['folder'];
$isstd = self::isStdFolder($dir);

$catopenid = self::$dfv['catopenid'];

$levelid = self::$dfv['interactlevelid'];

if ($isstd)

{

#@_DelDir($folder."/MODELERS");

@_DelDir($folder."/DATA/scene");

@_DelDir($folder."/DATA/components");

@_CopyDir($dir."/DATA/scene", $folder."/DATA/scene");

@_CopyDir($dir."/DATA/components", $folder."/DATA/components");

#@_CopyDir($dir."/MODELERS", $folder."/MODELERS");

//??!!!

//@copy($dir."/DATA/skin/textStylesDef.xml", $folder."/DATA/skin/textStylesDef.xml");

$levelid = self::calcInterLevel($folder, $catopenid);

}

else

{

@_DelDir($folder);

@_CopyDir($dir, $folder);

}

$datatypes = self::skanDataTypes($folder);
$version = "";

if ($rec->record['published'])

{

$v_arr = explode(".",$rec->record['version']);

$v_arr[count($v_arr)-1] = (int)$v_arr[count($v_arr)-1] + 1;

$version = ", version = '".implode(".",$v_arr)."'";

}

if ($isstd)

{

$db->exec_query("UPDATE tbmodule SET isstd = '1', datatypes = '{$datatypes}', interactlevelid='{$levelid}', catopenid='{$catopenid}' {$version}

WHERE id = '{$id}'");

}

else

{

$db->exec_query("UPDATE tbmodule SET isstd = '0', datatypes = '{$datatypes}' {$version} WHERE id = '{$id}'");

}
if ($local != 1) _SetMessage("Модуль успешно загружен", 'message');
CLLog::log('module upload OK: '.$id);
return $id;

}

else

{

if ($local != 1) _SetMessage("Ошибка! Модуль не прошёл верификацию");

return false;

}

}

else

{

//module not registered what's next?

CLLog::log('module upload not registered: '.$dir);

if ($local != 1) _SetMessage("Ошибка! Модуль не зарегистрирован в системе");

return false;

}

}

catch (Exception $e)

{

CLLog::error('module upload db error: '.$e->getMessage());

if ($local != 1) _SetMessage("Ошибка доступа к БД");

return false;

}

}

else

{

CLLog::error('module upload manifest load failed: '.$dir);

if ($local != 1) _SetMessage("Ошибка! Не найден файл с метаданными");

return false;

}

}

private function metaGenerate($root, $tmpl, $dst)

{

/*

$guid

$fname

$name

$description

$keywords_str

$version

$date

$authors_str

$metalastupdate

$datatypes_str

$size

$cat_open

$type

$interact_level

$com_edu_level

$contact_time

$edu_level_id

$edu_level

$class

$discipline_str

$edu_purpose_str

$lcharacter*/
$manifest = new DOMDocument("1.0","utf-8");

if (@$manifest->load($root.$tmpl))

{

$xpath = new DOMXPath($manifest);
$xpath->registerNamespace("lom","http://ltsc.ieee.org/xsd/LOM");
//guid

$temp = $this->fields['guid']->getValue();

$value = iconv('CP1251','UTF-8',$temp);

$list = $xpath->query("//lom:lom/lom:general/lom:identifier[lom:catalog=\"X-RUS-FCIOR\"]/lom:entry");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $value;

//catalogid

$this->mfolder = $this->makeFolderName();

$list = $xpath->query("//lom:lom/lom:general/lom:identifier[lom:catalog=\"x-oms-module\"]/lom:entry");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $this->mfolder;
//title

$list = $xpath->query("//lom:lom/lom:general/lom:title/lom:string[@language=\"ru\"]");

$node = $list->item(0);

if ($node != null)

{

$node->nodeValue = iconv('CP1251','UTF-8',$this->makeTitle());

}
//description

$description = $this->fields['description']->getValue();

if (!$this->fields['description']->isFP())

{

$title = $this->fields['name']->getValue();

$s = str_replace("\$title","{$title}",$description);

$description = $s;

}

$list = $xpath->query("//lom:lom/lom:general/lom:description/lom:string[@language=\"ru\"]");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = iconv('CP1251','UTF-8',$description);
//keywords

$list = $xpath->query("//lom:lom/lom:general");

$node = $list->item(0);

if ($node != null)

{

$keywords = explode("\r\n",$this->fields['keywords']->getValue());

foreach ($keywords as $keyword)

{

$key = $manifest->createElement("keyword");

$tmp = $manifest->createElement("string");

$tmp->nodeValue = iconv('CP1251','UTF-8',$keyword);

$atr = $manifest->createAttribute("language");

$atr->nodeValue = "ru";

$tmp->appendChild($atr);

$key->appendChild($tmp);

$node->appendChild($key);

}

}
//version

$list = $xpath->query("//lom:lom/lom:lifeCycle/lom:version/lom:string[@language=\"none\"]");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $this->fields['version']->getValue();
//pubdate

$date = $this->fields['pubdate']->getValue();

$list = $xpath->query("//lom:lom/lom:lifeCycle/lom:contribute[lom:role[lom:value=\"publisher\"]]/lom:date/lom:dateTime");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $date;
//author

$list = $xpath->query("//lom:lom/lom:lifeCycle/rl:lastUpdating");

$node = $list->item(0);

if ($node != null)

{

$authors = $this->fields['author']->getValue();

foreach ($authors as $author)

{

#$sql = "select vCard from tbauthors where id = ".$author;

$sql = "select vCard from tboandp where id = ".$author;

$rec = $this->db->query($sql);

if ($rec->num_rows()==1)

{

$xml = "LOMv1.0author";

$xml .= iconv('CP1251','UTF-8',$rec->record[0]);

$xml .= "";

$tmp = $manifest->createDocumentFragment();

$tmp->appendXML($xml);

$node->parentNode->insertBefore($tmp,$node);

}

}

$roles = $this->fields['roles']->getValue();

foreach ($roles as $r_id => $v_arr)

{

foreach ($v_arr as $v_id)

{

$sql = "select v.vCard, r.name, r.source from tboandp v, tblomroles r where v.id = '".$v_id."' AND r.id = '".$r_id."'";

$rec = $this->db->query($sql);

if ($rec->num_rows()==1)

{

$xml = "".$rec->record[2]."".$rec->record[1]."";

$xml .= iconv('CP1251','UTF-8',$rec->record[0]);

$xml .= "";

$tmp = $manifest->createDocumentFragment();

$tmp->appendXML($xml);

$node->parentNode->insertBefore($tmp,$node);

}

}

}

}
//update

$date = $this->fields['update']->getValue();

$list = $xpath->query("//lom:lom/lom:lifeCycle/rl:lastUpdating/lom:dateTime");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $date;
//metaupdate

$date = date('Y-m-d');

$list = $xpath->query("//lom:lom/lom:metaMetadata/lom:contribute[lom:role[lom:value=\"creator\"]]/lom:date/lom:dateTime");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $date;
//format

$list = $xpath->query("//lom:lom/lom:technical");

$pnode = $list->item(0);

$list = $xpath->query("//lom:lom/lom:technical/lom:size");

$node = $list->item(0);

if ($node != null)

{

$formats = $this->fields['datatypes']->getValue();
$sql = "select id, mime from tbdatatypes";

try

{

$rec = $this->db->query($sql);

}

catch (Exception $e)

{

}
$n = $rec->num_rows();

for ($i=0; $i < $n; $i++)

{

if (array_search($rec->record['id'],$formats) !== false)

{

$tmp = $manifest->createElement("format");

$tmp->nodeValue = $rec->record['mime'];

$pnode->insertBefore($tmp,$node);

}

$rec->next_record();

}

}

//fcior:opennesCategory

$list = $xpath->query("//lom:lom/lom:technical/fcior:opennesCategory/lom:value");

$node = $list->item(0);

if ($node != null)

{

$sql = "select category from tbcatopen where id = ".$this->fields['catopenid']->getValue();

$rec = $this->db->query($sql);

$node->nodeValue = $rec->record[0];

}
//type

$list = $xpath->query("//lom:lom/lom:educational/lom:learningResourceType/lom:value");

$node = $list->item(0);

if ($node != null)

{

$sql = "select ltype from tbtypes where id = ".$this->fields['typeid']->getValue();

$rec = $this->db->query($sql);

$node->nodeValue = $rec->record[0];

}
//interactivitylevel

$list = $xpath->query("//lom:lom/lom:educational/lom:interactivityLevel/lom:value");

$node = $list->item(0);

if ($node != null)

{

$sql = "select level from tbilevels where id = ".$this->fields['interactlevelid']->getValue();

$rec = $this->db->query($sql);

$node->nodeValue = $rec->record[0];

}
//education level

$list = $xpath->query("//lom:lom/lom:educational/lom:context/lom:value");

$node = $list->item(0);

$lid = 0;

$level = "";

$clevel = "";

if ($node != null)

{

$sql = "select lid,level,clevel from tbedulevels where id = ".$this->fields['edulevelid']->getValue();

try

{

$rec = $this->db->query($sql);

$clevel = $rec->record[2];

$lid = $rec->record[0];

$level = $rec->record[1];

}

catch (Exception $e)

{

}

$node->nodeValue = $clevel;

}
//contact_time

$list = $xpath->query("//lom:lom/lom:educational/lom:typicalLearningTime/lom:duration");

$node = $list->item(0);

if ($node != null)

{

$node->nodeValue = "PT".$this->fields['contacttime']->getValue()."M";

}
//edu_level_id

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"educational level\"]]/lom:taxonPath/lom:taxon/lom:id");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $lid;
//edu_level

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"educational level\"]]/lom:taxonPath/lom:taxon/lom:entry/lom:string[@language=\"ru\"]");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = iconv('CP1251','UTF-8',$level);
//discipline

$discipline =iconv('CP1251','UTF-8',$this->parent_rub->getDiscipline(true));

$fragment = $manifest->createDocumentFragment();

$fragment->appendXML($discipline);

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"discipline\"]]/lom:taxonPath");

$node = $list->item(0);

if ($node != null)

$node->appendChild($fragment);
//class

if ($clevel == 'school')

{

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"class\"]]/lom:taxonPath/lom:taxon/lom:entry/lom:string[@language=\"ru\"]");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $this->fields['class']->getValue();

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"class\"]]/lom:taxonPath/lom:taxon/lom:id");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $this->fields['class']->getValue();

}

else

{

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"class\"]]");

$node = $list->item(0);

if ($node != null)

$node->parentNode->removeChild($node);

}
//edu_purpose_str

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"educational purpose\"]]/lom:taxonPath/lom:taxon/lom:entry/lom:string[@language=\"ru\"]");

$node = $list->item(0);

$eid = "";

if ($node != null)

{

try

{

$sql = "select purpose,code from tbedupurpose where id = ".$this->fields['edupurposeid']->getValue();

$rec = $this->db->query($sql);

$node->nodeValue = iconv('CP1251','UTF-8',$rec->record[0]);

$eid = $rec->record[1];

}

catch (Exception $e)

{

}

}

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"educational purpose\"]]/lom:taxonPath/lom:taxon/lom:id");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $eid;
//lcharacter

if (($this->fields['edulevelid']->getValue() >= 2) && ($this->fields['edulevelid']->getValue() <= 5))

{

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"learning character\"]]/lom:taxonPath/lom:taxon/lom:entry/lom:string[@language=\"ru\"]");

$node = $list->item(0);

if ($node != null)

{

try

{

$sql = "select lcharacter from tblcharacter where id = ".$this->fields['learningcharid']->getValue();

$rec = $this->db->query($sql);

$node->nodeValue = iconv('CP1251','UTF-8',$rec->record[0]);

}

catch (Exception $e)

{

}

}

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"learning character\"]]/lom:taxonPath/lom:taxon/lom:id");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $this->fields['learningcharid']->getValue();

}

else

{

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"learning character\"]]");

$node = $list->item(0);

if ($node != null)

$node->parentNode->removeChild($node);

}
//restrictions

$ograns = $this->fields['ogranid']->getValue();

if ($ograns !== '0')

{

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"accessibility restrictions\"]]/lom:taxonPath");

$node = $list->item(0);

if ($node != null)

{

try

{

foreach ($ograns as $ogran)

{

$sql = "select name from tbogran where id = ".$ogran;

$rec = $this->db->query($sql);

if ($rec->num_rows()==1)

{

$xml = "".$ogran."";

$xml .= iconv('CP1251','UTF-8',$rec->record[0]);

$xml .= "";

$tmp = $manifest->createDocumentFragment();

$tmp->appendXML($xml);

$node->appendChild($tmp);

}

}

}

catch (Exception $e)

{

}

}

}

else

{

$list = $xpath->query("//lom:lom/lom:classification[lom:purpose[lom:value=\"accessibility restrictions\"]]");

$node = $list->item(0);

if ($node != null)

$node->parentNode->removeChild($node);

}
$folder = $dst;
$mname = $folder."/META-INF/manifest.xml";

$manifest->save($mname);
//size

$size = _ScanDir($folder,'size');
$slen = strlen($size);

$nsize = $size + $slen;

$nslen = strlen($nsize);

$size = $nsize + ($nslen - $slen) + 6;
$list = $xpath->query("//lom:lom/lom:technical/lom:size");

$node = $list->item(0);

if ($node != null)

$node->nodeValue = $size;
$manifest->save($mname);

}

else

{

CLLog::error('module manifest file load error' + $this->fields['id']->getValue());

}

}
private static function skanDataTypes($folder)

{

$def_mime = array("application/xml","image/jpeg","image/png","text/xml","text/javascript");
$types = array();

$allowed_ext = array();

try

{

$db = new DataBase();

$rec = $db->query("SELECT extension, mime, id FROM tbdatatypes");

for ($i = 0; $i<$rec->num_rows(); $i++)

{

$types[$rec->record[2]] = array();

$types[$rec->record[2]][0]=$rec->record[0];

$types[$rec->record[2]][1]=$rec->record[1];

$allowed_ext[] = $rec->record[0];

$rec->next_record();

}

}

catch (Exception $e)

{

return null;

}
$ret = @_ScanDir($folder,'mime',$allowed_ext);
foreach ($ret as $value)

{

foreach ($types as $mime)

{

if ($mime[0] == $value)

{

array_push($def_mime,$mime[1]);

break;

}

}

}
$def_mime = array_unique($def_mime);
$s = "";

foreach ($def_mime as $value)

{

foreach ($types as $_id => $mime)

{

if ($mime[1] == $value)

{

if ($s != "")

$s .= ";".$_id;

else

$s = $_id;

break;

}

}

}
return $s;

}
private static function checkFileName(&$node, $fld)

{

$src = iconv('UTF-8','CP1251',$node->nodeValue); #src в формате \DATA\...

$src = str_replace("\\","/",$src);

$path_info = pathinfo($src);

$old_name = $fld.$src;

if (_Translit($path_info['basename'],$fname))

{

$new_name_to_xml = $path_info['dirname']."/".$fname;

$new_name_to_xml = str_replace("/","\\",$new_name_to_xml);

$new_name = $fld.$path_info['dirname']."/".$fname;

if (@rename($old_name,$new_name))

{

$node->nodeValue = $new_name_to_xml;

return true;

}

}

return false;

}
private static function stepsAnylyze($m_folder, $step_list)

{

$ret = array(1,1); //0 - interactlevel, 1 - catopenid
$db = new DataBase();

$db->exec_query("SET NAMES 'UTF8'");
try

{

$level_rec = $db->query("SELECT xpath, value FROM tbxpath WHERE type = '1'");

$copen_rec = $db->query("SELECT xpath, value FROM tbxpath WHERE type = '2'");

$src_rec = $db->query("SELECT xpath FROM tbxpath WHERE type = '3'");

}

catch (Exception $e)

{

return $ret;

}
$scene_folder = $m_folder."/DATA/scene/";

$comp_folder = $m_folder."/DATA/components/pict/";

$levels = array("II.1");

$catopenid = 1;

$files = array();
for ($i = 0; $i < $step_list->length; $i++)

{

$src = $step_list->item($i)->attributes->getNamedItem("src")->value;

$src = $scene_folder.$src;
if (($src != $scene_folder) && (file_exists($src)))

{

$need_save = false;

$step = @DOMDocument::load($src);

if ($step !== false)

{

$sxpath = new DOMXPath($step);
//interact level

$level_rec->_reset();

for ($j = 0; $j < $level_rec->num_rows(); $j++)

{

$list = @$sxpath->query($level_rec->record[0]);

if ($list->length !== 0)

{

$levels[] = $level_rec->record[1];

}

$level_rec->next_record();

}

//list of files

$src_rec->_reset();

for ($j = 0; $j < $src_rec->num_rows(); $j++)

{

$list = $sxpath->query($src_rec->record[0]);

for ($k = 0; $k < $list->length; $k++)

{

if ($list->item($k)->nodeValue != "")

{

$need_save = $need_save | self::checkFileName($list->item($k), $m_folder);

$files[] = mb_strtolower(str_replace("\\","/",$m_folder.$list->item($k)->nodeValue));

}

}

$src_rec->next_record();

}

//catopenid

if ($catopenid != 2)

{

$copen_rec->_reset();

for ($j = 0; $j < $copen_rec->num_rows(); $j++)

{

$list = @$sxpath->query($copen_rec->record[0]);

if ($list->length !== 0)

{

$catopenid = (int)$copen_rec->record[1];

if ($catopenid == 2) break;

}

$copen_rec->next_record();

}

}

if ($need_save)

{

$step->save($src);

}

}

}

}

//remove unhandled files

$all_files = @_ScanDir($comp_folder,'files');

$files_to_delete = array_diff($all_files,$files);

foreach ($files_to_delete as $file)

{

//TODO think about

//@unlink($file);

//_WriteLog("scaner: file to delete {$file}");

}

//calc interactivity level

$levels = array_unique($levels);

$l2 = 0;

$l3 = 0;

foreach ($levels as $level)

{

if (strpos($level,"III.") !== false)

$l3++;

else if (strpos($level,"II.") !== false)

$l2++;

}

if ($l3 >= 2)

$ret[0] = 3;

else if (($l2 >= 3) || (($l2 == 2) && ($l3 == 1)))

$ret[0] = 2;

else

$ret[0] = 1;
$ret[1] = $catopenid;
return $ret;

}

Приложение 2.

1 ... 9 10 11 12 13 14 15 16 17

Похожие:

	Программа по формированию навыков безопасного поведения на дорогах... На тему: «Разработка системы автоматизации функций формирования scorm совместимых метаданных для информационных ресурсов»		Отчет о научно-исследовательской работе разработка концепции Объединенных... «Разработка предложений по созданию единой системы выявления, использования и внедрения объединенных государственных и муниципальных...
	Пояснительная записка к курсовой работе по дисциплине «Разработка... Курсовая работа содержит: страниц – 20, источников – 8, рисунков – 7, таблиц – 2		Пояснительная записка к курсовой работе по дисциплине «Разработка... Курсовой проект содержит: страниц –22, источников – 5, рисунков – 6, таблиц – 2
	Пояснительная записка к курсовой работе по дисциплине «Разработка... Курсовой проект содержит: страниц –20, источников – 5, рисунков – 6, таблиц – 2		Дипломная работа содержит 6 разделов, в которых рассмотрены: анализ... Пояснительная записка дипломной работы состоит из 101 листа, содержит 12 рисунков и 5 таблиц
	Пояснительная записка на курсовой проект по дисциплине «Разработка... Целью данной работы является разработка программы для автоматизации проектирования систем молниезащиты на базе сапр компас 3D, с...		Пояснительная записка На тему: «Проектирование информационных ресурсов... На тему: «Проектирование информационных ресурсов для европейского центра по качеству (на примере www eqc org ru )»
	Пояснительная записка к курсовому проекту по дисциплине «Разработка... Курсовой проект содержит: страниц –19, источников – 5, рисунков – 6, таблиц – 2		Пояснительная записка к дипломной работе на тему: «Система автоматизированного... Авторское выполнение научных работ на заказ. Контроль плагиата, скидки, гарантии, прямое общение с
	Пояснительная записка к дипломной работе на тему: «Система многомасштабного... Авторское выполнение научных работ на заказ. Контроль плагиата, скидки, гарантии, прямое общение с		Пояснительная записка к курсовому проекту по дисциплине «Разработка... Курсовой проект содержит: страниц – 22, источников – 8, рисунков – 9, таблиц – 1
	Пояснительная записка к дипломной работе на тему : «Развитие операций... Государственный институт последипломного образования руководителей и специалистов металлургического комплекса Украины(гипомет)		Пояснительная записка к курсовой работе на тему: “Цифровой диктофон” ...
	Методология разработки учебных ресурсов согласно спецификации scorm Первый этап предполагает анализ методологической документации и разбор учебных ресурсов, представленных рабочей группой Advanced...		Пояснительная записка к дипломной работе На тему: «Имитационные модели... Лвс филиалов предприятия в единую корпоративную сеть. Проведён анализ качества обслуживания возможных технологий удалённого подключения...

Школьные материалы

Приложения

Приложение 1.

Приложение 2.

Похожие: