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

2012-01-31 20:04 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* src/rdd/usrrdd/rdds/arrayrdd.prg
  * contrib/gtwvg/wvgax.prg
  * contrib/hbwin/tests/testgdi.prg
  * contrib/hbgd/tests/test_out.prg
  * contrib/hbtip/tests/loadhtml.prg
  * contrib/hbide/ideactions.prg
  * tests/parseini.prg
  * examples/httpsrv/cgifunc.prg
  * examples/httpsrv/modules/tableservletdb.prg
  * examples/httpsrv/session.prg
    * HB_HASH() -> { => }
This commit is contained in:
Viktor Szakats
2012-01-31 19:05:34 +00:00
parent 3850eb6a28
commit 5b1e2b4466
11 changed files with 30 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/examples/httpsrv/modules/tableservletdb.prg
View File

@@ -71,7 +71,7 @@ FUNCTION HRBMAIN()
hGets := _REQUEST
DEFAULT hGets TO hb_Hash()
DEFAULT hGets TO { => }
IF HB_HHasKey( hGets, "page" )
@@ -186,7 +186,7 @@ METHOD Read() CLASS TableManager
//n := 0
DO WHILE table->( !Eof() ) //.AND. ++n < 50
hMap := hb_Hash()
hMap := { => }
hMap[ "recno" ] := StrZero( table->( RecNo() ), 4 )
hMap[ "name" ] := RTrim( table->first ) + " " + RTrim( table->last )
hMap[ "address" ] := RTrim( table->street )