Overview
| Comment: | fixed indentation |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | 1.6535 |
| Files: | files | file ages | folders |
| SHA1: |
1153bc2fbaf02086ad2b989accba68e6 |
| User & Date: | pjhatwal on 2019-09-19 14:59:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-09-25
| ||
| 15:22 | Added plan doc for ulex transition check-in: ad4a618778 user: mrwellan tags: v1.65 | |
|
2019-09-20
| ||
| 04:03 | Merged in v1.65 check-in: 24ae688ff1 user: matt tags: trunk | |
|
2019-09-19
| ||
| 14:59 | fixed indentation check-in: 1153bc2fba user: pjhatwal tags: v1.65, 1.6535 | |
| 14:52 | update to pgdb sync to have publish time check-in: 8f2462ead6 user: pjhatwal tags: v1.65 | |
Changes
Modified mt-pg.sql from [86e4db87d9] to [b692b264d4].
whitespace changes only
Modified tasks.scm from [3cc42b97c9] to [b5c98d9ead].
| ︙ | ︙ | |||
773 774 775 776 777 778 779 |
(target (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id))) ;; e.g. v1.63/a3e1/ubuntu
(spec-id (pgdb:get-ttype dbh keytarg))
(publish-time (if (args:get-arg "-cp-eventtime-to-publishtime")
event-time
(current-seconds)))
(new-run-id (pgdb:get-run-id dbh spec-id target run-name area-id)))
| < | 773 774 775 776 777 778 779 780 781 782 783 784 785 786 |
(target (if (or (args:get-arg "-prepend-contour") (args:get-arg "-prefix-target"))
(conc (or (args:get-arg "-prefix-target") (conc contour "/" (common:get-area-name) "/")) (rmt:get-target run-id)) (rmt:get-target run-id))) ;; e.g. v1.63/a3e1/ubuntu
(spec-id (pgdb:get-ttype dbh keytarg))
(publish-time (if (args:get-arg "-cp-eventtime-to-publishtime")
event-time
(current-seconds)))
(new-run-id (pgdb:get-run-id dbh spec-id target run-name area-id)))
(if new-run-id
(begin ;; let ((run-record (pgdb:get-run-info dbh new-run-id))
(hash-table-set! runs-ht run-id new-run-id)
;; ensure key fields are up to date
;; if last_update == pgdb_last_update do not update smallest-last-update-time
(let* ((pgdb-last-update (pgdb:get-run-last-update dbh new-run-id))
(smallest-time (hash-table-ref/default smallest-last-update-time "smallest-time" #f)))
|
| ︙ | ︙ |