move.php.svn-base

来自「PHP 知识管理系统（基于树结构的知识管理系统）, 英文原版的PHP源码。」· SVN-BASE 代码 · 共 48 行

<?php

require_once("../../config/dmsDefaults.php");
require_once(KT_LIB_DIR . '/import/fsimportstorage.inc.php');
require_once(KT_LIB_DIR . '/import/bulkimport.inc.php');
require_once(KT_LIB_DIR . '/foldermanagement/folderutil.inc.php');
require_once(KT_LIB_DIR . '/foldermanagement/Folder.inc');
require_once(KT_LIB_DIR . '/users/User.inc');

$fs =& new KTFSImportStorage(KT_DIR . "/tests/folder/move-dataset");

$oRootFolder =& Folder::get(1);
$oUser =& User::get(1);

DBUtil::startTransaction();

$oTestFolder = KTFolderUtil::add($oRootFolder, "test-move-folder", $oUser);
if (PEAR::isError($oTestFolder)) {
    var_dump($oTestFolder); exit(0);
}

$oSrcFolder = KTFolderUtil::add($oTestFolder, "test-src-folder", $oUser);
if (PEAR::isError($oSrcFolder)) {
    var_dump($oSrcFolder); exit(0);
}

$bm =& new KTBulkImportManager($oSrcFolder, $fs, $oUser);

$res = $bm->import();
if (PEAR::isError($res)) {
    print "FAILURE\n";
    var_dump($res);
    exit(0);
}

$oDstFolder = KTFolderUtil::add($oTestFolder, "test-dst-folder", $oUser);
if (PEAR::isError($oDstFolder)) {
    var_dump($oDstFolder); exit(0);
}

$res = KTFolderUtil::move($oSrcFolder, $oDstFolder, $oUser);
if (PEAR::isError($res)) {
    var_dump($res); exit(0);
}
DBUtil::commit();

?>