Commit 06aadcfcae2e181410dbb4b1702ba581be11ad4e

Authored by Neil Blakey-Milner
1 parent 1fc0e72b

Log more information about this edge-case-that-won't-die.


git-svn-id: https://kt-dms.svn.sourceforge.net/svnroot/kt-dms/trunk@5400 c91229c3-7414-0410-bfa2-8a42b809f60b
lib/permissions/permissionutil.inc.php
@@ -83,6 +83,7 @@ class KTPermissionUtil { @@ -83,6 +83,7 @@ class KTPermissionUtil {
83 $sDescriptor = KTPermissionUtil::generateDescriptor($aAllowed); 83 $sDescriptor = KTPermissionUtil::generateDescriptor($aAllowed);
84 $oDescriptor =& KTPermissionDescriptor::getByDescriptor(md5($sDescriptor)); 84 $oDescriptor =& KTPermissionDescriptor::getByDescriptor(md5($sDescriptor));
85 if (PEAR::isError($oDescriptor)) { 85 if (PEAR::isError($oDescriptor)) {
  86 + $oOriginalDescriptor = $oDescriptor;
86 87
87 $oDescriptor =& KTPermissionDescriptor::createFromArray(array( 88 $oDescriptor =& KTPermissionDescriptor::createFromArray(array(
88 "descriptortext" => $sDescriptor, 89 "descriptortext" => $sDescriptor,
@@ -91,8 +92,15 @@ class KTPermissionUtil { @@ -91,8 +92,15 @@ class KTPermissionUtil {
91 print '<pre>'; 92 print '<pre>';
92 print_r($aAllowed); 93 print_r($aAllowed);
93 print "-----------\n"; 94 print "-----------\n";
  95 + print "getOrCreateDescriptor get error (should be 'not found'):";
  96 + print "-----------\n";
  97 + print_r($oOriginalDescriptor);
  98 + print "-----------\n";
  99 + print "getOrCreateDescriptor create error (should not happen):";
  100 + print "-----------\n";
94 print_r($oDescriptor); 101 print_r($oDescriptor);
95 print '</pre>'; 102 print '</pre>';
  103 + exit(0);
96 } 104 }
97 $oDescriptor->saveAllowed($aAllowed); 105 $oDescriptor->saveAllowed($aAllowed);
98 106