Author: M0...@gm...
Date: Wed Dec 3 07:43:33 2008
New Revision: 348
Modified:
branches/iVL/FrmImportAccts.class
Log:
Fixed bug with existing face icon
Modified: branches/iVL/FrmImportAccts.class
==============================================================================
--- branches/iVL/FrmImportAccts.class (original)
+++ branches/iVL/FrmImportAccts.class Wed Dec 3 07:43:33 2008
@@ -147,6 +147,7 @@
IF ERROR THEN Message.Error(Error.Where & gb.NewLine & Error.Text)
' Add the face icon
IF Len(ME.tbPicPath.Text) > 0 THEN
+ IF Exist(clsglobal.sTargetMnt &/ "home" &/ sname
&/ ".face.icon") THEN KILL clsglobal.sTargetMnt &/ "home" &/ sname
&/ ".face.icon"
SHELL "cd " & sPicdir & " && ln -s " &
Replace(ME.tbPicPath.Text, ClsGlobal.sTargetMnt, "") & Space(1) & sname
& ".face.icon" WAIT 'link for KDM
' Tweak for the GDM face icon to work
TRY COPY Trim(tbPicPath.Text) TO clsglobal.sTargetMnt &/ "home"
&/ sname &/ ".face"
|
