Changeset 875 for trunk/guitools/shared/smbtree.vrs

Timestamp:

Mar 4, 2015, 10:28:25 AM (10 years ago)

Author:

Herwig Bauernfeind

Message:

GUITools: SSCC (Ticket #248), SMBMon (TDB Check page), EVFSGUI, shared library updates

File:

• trunk/guitools/shared/smbtree.vrs (modified) (2 diffs)

trunk/guitools/shared/smbtree.vrs

@@ -379 +379 @@
                 /* we only do this for machines with empty parent (=workgroup) handle */
                 /* IF there is only one workgroup */
-                if wgh <> "" & VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent') = "" then do
+                if wgh <> "" & VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent') = "" & VRIsValidObject(smbtree.!machine) then do
                     ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Parent', wgh)
+                end
+                else do
+                    say "Ticket #244 failure: case 1"
+                    say "wgh    = "wgh
+                    say "Parent = "VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent')
                 end
             end
@@ -405 +410 @@
 
                     wgh = _GetMachinehandle(workgroup)
-                    if wgh <> "" & VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent') = "" then do
+                    if wgh <> "" & VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent') = "" & VRIsValidObject(smbtree.!machine) then do
                         ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Parent', wgh)
+                    end
+                    else do
+                        say "Ticket #244 failure: case 2"
+                        say "wgh    = "wgh
+                        say "Parent = "VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent')
                     end
                 end