Megatest

Diff
Login

Differences From Artifact [43fb4b6c81]:

To Artifact [fef313a73a]:


5895
5896
5897
5898
5899
5900
5901
5902
5903
5904

5905
5906
5907
5908
5909

(define (db:get-servers-info dbstruct apath)
  (db:with-db
   dbstruct
   #f #f
   (lambda (db)
     (sqlite3:fold-row
      (lambda (res count)
	(max res count))
      0

      db
      "SELECT * FROM servers WHERE apath=?;"
      apath))))

)







|
|
<
>





5895
5896
5897
5898
5899
5900
5901
5902
5903

5904
5905
5906
5907
5908
5909

(define (db:get-servers-info dbstruct apath)
  (db:with-db
   dbstruct
   #f #f
   (lambda (db)
     (sqlite3:fold-row
      (lambda (res . row)
	(cons row res))

      '()
      db
      "SELECT * FROM servers WHERE apath=?;"
      apath))))

)