142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
destlink TEXT);"
"CREATE TABLE disks
(id INTEGER PRIMARY KEY,
storegrp TEXT,
path TEXT);")))
(define (datashare:register-data db area version-name store-type submitter quality source-path comment)
(let ((iter-qry (sqlite3:prepare db "SELECT max(iteration) FROM pkgs WHERE area=? AND version_name=?;"))
(next-iteration 0))
(dbi:with-transaction
db
(lambda ()
(dbi:for-each-row
(lambda (iteration)
(if (and (number? iteration)
|
|
|
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
destlink TEXT);"
"CREATE TABLE disks
(id INTEGER PRIMARY KEY,
storegrp TEXT,
path TEXT);")))
(define (datashare:register-data db area version-name store-type submitter quality source-path comment)
(let ((iter-qry (dbi:prepare db "SELECT max(iteration) FROM pkgs WHERE area=? AND version_name=?;"))
(next-iteration 0))
(dbi:with-transaction
db
(lambda ()
(dbi:for-each-row
(lambda (iteration)
(if (and (number? iteration)
|