From: <cod...@go...> - 2008-12-03 15:44:35
|
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" |