Changeset 546 for branches/guitools-2.0/shared/smbtree.vrs

Timestamp:

Feb 6, 2011, 10:54:31 AM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: EVFSGUI: 2.1.x, attempt to fix Ticket #159, fix no plugin version in About box

File:

• branches/guitools-2.0/shared/smbtree.vrs (modified) (2 diffs)

branches/guitools-2.0/shared/smbtree.vrs

@@ -311 +311 @@
             if workgroup <> "" then do
                 wgh = _GetMachinehandle(workgroup)
-                if wgh = "" then do /* This machine is in a new workgroup - add it as well */
+                if wgh = "" then do /* This machine appears to be in a new workgroup - add it as well */
                     wgh = VRMethod( "CN_smbtree", "AddRecord",,, workgroup,"#62:PMWP.DLL")
                     ok = VRMethod( "CN_smbtree", "SetFieldData", wgh, WorkGroupFH, workgroup)
@@ -318 +318 @@
                     ok = VRMethod( "CN_smbtree", 'SetRecordAttr', wgh, "UserData", "WORKGROUP|")
                 end
-                if wgh <> "" then ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Parent', wgh)
+                /* we only do this for machines with empty parent (=workgroup) handle */
+                /* this might not be good enough yet - verifictaion required          */
+                if wgh <> "" & VRMethod('CN_smbtree', 'GetRecordAttr', smbtree.!machine, 'Parent') = "" then do
+                    ok = VRMethod('CN_smbtree', 'SetRecordAttr', smbtree.!machine, 'Parent', wgh)
+                end
             end