iSharkFly-Open
/
VistA-fmts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug fix for bnf project

This commit is contained in:
george 2014-03-19 18:47:16 +00:00
parent eaad994d84
commit 9e4ce5c2db
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/C0XGET2.m
View File

@ -73,7 +73,7 @@ qparse(qrtn,zquery) ; parses the query
; ;
n q1,q2,q3,qq n q1,q2,q3,qq
;s qq=$tr(zquery," ","^") ;s qq=$tr(zquery," ","^")
s qq=query ; really want to remove whitespace here s qq=zquery ; really want to remove whitespace here
s q1=$p(qq," ",1) s q1=$p(qq," ",1)
i q1["?" s q1="" i q1["?" s q1=""
s q2=$p(qq," ",2) s q2=$p(qq," ",2)