Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
nebogeo
symbai
Commits
15180811
Commit
15180811
authored
Apr 11, 2014
by
Dave Griffiths
Browse files
social screen nearl all working...
parent
d700c454
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
6 deletions
+8
-6
android/assets/dbsync.scm
android/assets/dbsync.scm
+3
-1
android/assets/starwisp.scm
android/assets/starwisp.scm
+5
-5
No files found.
android/assets/dbsync.scm
View file @
15180811
...
@@ -151,7 +151,9 @@
...
@@ -151,7 +151,9 @@
(
update-entity
db
table
(
entity-id-from-unique
db
table
unique-id
)
values
)
(
update-entity
db
table
(
entity-id-from-unique
db
table
unique-id
)
values
)
(
msg
"updated "
unique-id
)
(
msg
"updated "
unique-id
)
(
msg
values
)
(
msg
values
)
(
entity-reset!
))
;; removed due to save button no longer exiting activity - need to keep!
;;(entity-reset!)
)
(
else
(
else
(
msg
"no values or no id to update as entity:"
unique-id
"values:"
values
))))))
(
msg
"no values or no id to update as entity:"
unique-id
"values:"
values
))))))
...
...
android/assets/starwisp.scm
View file @
15180811
...
@@ -628,15 +628,15 @@
...
@@ -628,15 +628,15 @@
(
define
(
update-social-connection
db
table
id
key
type
request-code
)
(
define
(
update-social-connection
db
table
id
key
type
request-code
)
(
let
((
id-text
(
string-append
(
symbol->string
id
))))
(
let
((
id-text
(
string-append
(
symbol->string
id
))))
(
list
(
list
;;
(update-person-selector db table id key)
(
update-person-selector
db
table
id
key
)
(
mupdate-spinner-other
(
mupdate-spinner-other
(
string->symbol
(
string-append
id-text
"-relationship"
))
(
string->symbol
(
string-append
id-text
"-relationship"
))
(
string-append
key
"-relationship"
)
(
string-append
key
"-relationship"
)
social-relationship-list
)
social-relationship-list
)
;
(mupdate-spinner-other
(
mupdate-spinner-other
;
(string->symbol (string-append id-text "-residence"))
(
string->symbol
(
string-append
id-text
"-residence"
))
;
(string-append key "-residence")
(
string-append
key
"-residence"
)
;
social-residence-list)
social-residence-list
)
; (mupdate-spinner
; (mupdate-spinner
; (string->symbol (dbg (string-append id-text "-strength")))
; (string->symbol (dbg (string-append id-text "-strength")))
; (string-append key "-strength")
; (string-append key "-strength")
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment