move.php
1.22 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<?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();
?>