fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-12-08 21:53 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/debug/debugger.prg
  * contrib/hbodbc/tests/odbccall.prg
  * contrib/hbblat/tests/blattest.prg
  * contrib/hbgd/gd.prg
  * contrib/hbtip/tests/tipmail.prg
  * examples/rddado/adordd.prg
  * examples/httpsrv/cgifunc.prg
    * Eliminated using WITH OBJECT.
    % Some optimizations, little fixes.

  * tests/omacro.prg
    * Formatting.
This commit is contained in:
Viktor Szakats
2010-12-08 20:54:55 +00:00
parent 0823337f39
commit 00c09ce91f
9 changed files with 211 additions and 209 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/examples/httpsrv/cgifunc.prg
View File

@@ -753,10 +753,8 @@ FUNCTION uhttpd_SplitFileName( cFile )
cSep := hb_ps()
WITH OBJECT hFile
:FULLPATH := IIF( !Empty( :PATH ), IIF( !( Right( :PATH, Len( cSep ) ) == cSep ), :PATH + cSep, :PATH ), "" )
:UNC := :FULLPATH + :FULLNAME
END
hFile:FULLPATH := IIF( !Empty( hFile:PATH ), IIF( !( Right( hFile:PATH, Len( cSep ) ) == cSep ), hFile:PATH + cSep, hFile:PATH ), "" )
hFile:UNC := hFile:FULLPATH + hFile:FULLNAME
RETURN hFile