Index: vhDEV.mac.rou
===================================================================
diff -u -r1472 -r1474
--- vhDEV.mac.rou	(.../vhDEV.mac.rou)	(revision 1472)
+++ vhDEV.mac.rou	(.../vhDEV.mac.rou)	(revision 1474)
@@ -39,13 +39,13 @@
  Quit:$P(list(start_D_folder),D,2)="F" start_D_folder
  Quit $$BROWSER(start_D_folder,$G(WildCard),$G(title),$G(optie))
   
-DIRUSER() New Key,Dir1,Dir2
+DIRUSER() New IPNr,Dir1,Dir2
+  //  Vorige versie van DIRUSER()  werkte met variable Key i.p.v. IPNr   --> (svn rev. 1474):  Set Key=$G(QU(1))   Set:Key="" Key=$O(^vhUSER("ID",$$IO^cQ5,"")) 
  Set Dir1=$P($T(TDIR),";",2)
- Set Key=$G(QU(1))
- Set:Key="" Key=$O(^vhUSER("ID",$$IO^cQ5,""))
- Quit:Key="" ""
+ Set IPNr=$$LoggedInUser^vhUSER()
+ Quit:IPNr="" ""
  ;Quit "c:\" ; Tijdelijk probleem met wegschijven naar FileServer
- Set Dir2=$P($G(^vhUSER("D",Key)),D,6)
+ Set Dir2=$P($G(^vhUSER("D",IPNr)),D,6)
  Quit:Dir2="" "" ; Geen subdirectory gespecifieerd voor de gebruiker
  Quit Dir1_$S($E(Dir1,$L(Dir1))="\"!($E(Dir2)="\")!($E(Dir2)=""):"",1:"\")_Dir2_"\"