Overview
| Comment: | Fixed storage of links in datastore |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
ff4b7bc45e21586b1e217fac43ce5495 |
| User & Date: | matt on 2014-08-24 20:53:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-08-24
| ||
| 23:43 | Got newdashboard to build, updated Makefile. Next is synchash - how to replace? check-in: eacc08c870 user: matt tags: v1.60 | |
| 20:53 | Fixed storage of links in datastore check-in: ff4b7bc45e user: matt tags: v1.60 | |
| 18:19 | Enough of datashare implemented to demo check-in: c35d3e8493 user: matt tags: v1.60 | |
Changes
Modified datashare.scm from [afd73c3669] to [600b946e0a].
| ︙ | ︙ | |||
371 372 373 374 375 376 377 | ;; 'copy ;; 'link)) (db (datashare:open-db configdat)) (iteration (datashare:register-data db area-name version publish-type submitter quality spath comment)) (dest-store (datastore:get-best-storage configdat))) (if iteration (if (eq? 'copy publish-type) | | > > > > | 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 | ;; 'copy ;; 'link)) (db (datashare:open-db configdat)) (iteration (datashare:register-data db area-name version publish-type submitter quality spath comment)) (dest-store (datastore:get-best-storage configdat))) (if iteration (if (eq? 'copy publish-type) (datashare:import-data configdat spath dest-store area-name version iteration) (let ((id (datastore:get-id db area-name version iteration))) (datastore:set-stored-path db id spath) (datastore:set-copied db id "yes") (datastore:set-copied db id "n/a"))) (print "ERROR: Failed to get an iteration number")) (sqlite3:finalize! db)))) (copy (iup:button "Copy and Publish" #:expand "HORIZONTAL" #:action (lambda (obj) (publish 'copy)))) (link (iup:button "Link and Publish" |
| ︙ | ︙ |