honeymoose
/
mumps-demo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cleanup

This commit is contained in:
programarivm 2019-09-28 23:20:15 +01:00
parent d0c5cb56b7
commit a2946ede0a
2 changed files with 26 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
04-databases/basic-sql-blog/Main.m
View File

@ -35,21 +35,13 @@
s ok=$$set^Comment(1,1,"This is awesome! Thank you.")
s ok=$$set^Comment(2,2,"Thank you so much for sharing this.")
; fetch categories
; fetch a category
do fetch^Category(1,.data)
w "Category fetched:",!
w "description: ",data("description"),!
do fetch^Category(2,.data)
w !,"Category fetched:",!
w "description: ",data("description"),!
do fetch^Category(3,.data)
w !,"Category fetched:",!
w "description: ",data("description"),!
; fetch posts by post
; fetch a post
do fetch^Post(1,.data)
w !,"Post fetched:",!
@ -57,36 +49,36 @@
w "title: ",data("title"),!
w "description: ",data("description"),!
do fetch^Post(2,.data)
w !,"Post fetched:",!
w "slug: ",data("slug"),!
w "title: ",data("title"),!
w "description: ",data("description"),!
; fetch posts by category
do fetchByCategory^Post(3,.data)
w !,"Posts fetched by category:",!
s lev1=""
s lev2=""
s lev3=""
f s lev1=$o(data(lev1)) q:lev1="" d
. f s lev2=$o(data(lev1,lev2)) q:lev2="" d
. . f s lev3=$o(data(lev1,lev2,lev3)) q:lev3="" d
. . . w data(lev1,lev2,lev3),!
; fetch posts by user
do fetchByUser^Post(1,.data)
w !,"Posts fetched by user:",!
s lev1=""
f s lev1=$o(data(lev1)) q:lev1="" d w data(lev1),!
s lev2=""
s lev3=""
f s lev1=$o(data(lev1)) q:lev1="" d
. f s lev2=$o(data(lev1,lev2)) q:lev2="" d
. . f s lev3=$o(data(lev1,lev2,lev3)) q:lev3="" d
. . . w data(lev1,lev2,lev3),!
; fetch posts by category
do fetchByCategory^Post(3,.data)
w !,"Posts fetched by category:",!
s lev1=""
f s lev1=$o(data(lev1)) q:lev1="" d w data(lev1),!
; fetch comments
; fetch a comment
do fetch^Comment(1,.data)
w !,"Comment fetched:",!
w "description: ",data("description"),!
do fetch^Comment(2,.data)
w !,"Comment fetched:",!
w "description: ",data("description"),!
; drop database
s ok=$$drop^Database()

14
04-databases/basic-sql-blog/routines/Post.m
View File

@ -23,28 +23,24 @@ fetchByCategory(id,data)
s lev1=""
s lev2=""
s lev3=""
s count=1
f s lev1=$o(^posts(lev1)) q:lev1="" d
. f s lev2=$o(^posts(lev1,lev2)) q:lev2="" d
. . f s lev3=$o(^posts(lev1,lev2,lev3)) q:lev3="" d
. . . i lev2=id d
. . . . s data(count)=$get(^posts(lev1,lev2,lev3))
. . . . s count=count+1
. . . . s data(lev1,lev2,lev3)=$get(^posts(lev1,lev2,lev3))
q
fetchByUser(idUser,data)
fetchByUser(id,data)
k data
i idUser="" q 0
i id="" q 0
s lev1=""
s lev2=""
s lev3=""
s count=1
f s lev1=$o(^posts(lev1)) q:lev1="" d
. f s lev2=$o(^posts(lev1,lev2)) q:lev2="" d
. . f s lev3=$o(^posts(lev1,lev2,lev3)) q:lev3="" d
. . . i lev3=idUser d
. . . . s data(count)=$get(^posts(lev1,lev2,lev3))
. . . . s count=count+1
. . . i lev3=id d
. . . . s data(lev1,lev2,lev3)=$get(^posts(lev1,lev2,lev3))
q
set(id,idCategory,idUser,data)