We just recently upgraded from v5 to v6 due to us needing the memo_check() function provided in v6. It fixed our problem, but now we are having some upgrade problems. We have the following script set to run when any user besides Administrator logs on. Worked fine in v5, but in v6 we get function not found errors. What do I need to change in the following code so that it is compatible with v6? I tried the obvious (changing a5 to a6 in the code, but that didn't work). I really appreciate any help you can provide.
Code:
if user_name()<>"Administrator" then :ControlPanel.hide() DIM path(10) as c dim global gfax_order as N gfax_order=1 path(1) = a5.get_path() + chr(92) path(2) = a5.get_private_path() + chr(92) pcount = 2 if a5.Get_Master_Path()<>"" then pcount=pcount+1 path(pcount) = a5.Get_Master_Path()+chr(92) end if ui_msg_box("Sorry.","1.",16) IF a5.get_private_path() <> a5.get_exe_path() pcount=pcount+1 path(pcount) = a5.get_exe_path() + chr(92) END IF FOR x = 1 to pcount type_of_files = 0 + FILE_FIND_ARCHIVE + FILE_FIND_READONLY + FILE_FIND_HIDDEN dfiles = filefind.first(path(x) + "$$*.*", type_of_files ) ui_msg_box("Sorry.","2.",16) WHILE (.not. (dfiles.eof())) fname = dfiles.name() if (file.exists(fname)) then file.remove(fname) end if dfiles.next() END WHILE NEXT x ui_msg_box("Sorry.","3.",16) dfiles1 = filefind.first(chr(92)+"temp*.pdf",0) WHILE (.not. (dfiles1.eof())) fname = dfiles1.name() if (file.exists(fname)) then file.remove(fname) end if dfiles1.next() END WHILE if a5_is_runtime() .and. a5.Get_Master_Path() <> "" then dim network_optimize as p a5_load_settings("NetworkOptimize",network_optimize) version1=network_optimize.version_number t=table.open("v_number",FILE_RO_SHARED) version2=t.V_num t.close() if version1 < version2 then ui_msg_box("Sorry.","Because someone else was refreshing, the system will close - retry immediately until successful.",16) a5.close() end end if end if end if
Comment