jurisdictionname(X,Y) :- evaluate(getjur(),X) & evaluate(getjurprettyname(),Y) jurisdictionlink(X,Y,Z) :- evaluate(getjur(),X) & evaluate(getplanningdescriptiontext(),Y) & evaluate(planningdeptlink(),Z) select(locationtext,X) & ~empty(X) ==> locationsearch(X) select(locationtext,X) & locationsearch(Y) ==> ~locationsearch(Y) select(locationtext,X) & location(ADDR,APN,JURISDICTION) ==> ~location(ADDR,APN,JURISDICTION) empty(X) :- matches(X,"^(\s*)$") value(locationtext,X) :- locationsearch(X) click(searchonmap) ==> searchonmap click(searchonmap) & locationsearch(Y) ==> ~locationsearch(Y) click(backtosearch) ==> ~searchonmap click(backtosearch) & location(X,Y,Z) ==> ~location(X,Y,Z) selectlocation(ADDR,APN,JURISDICTION) ==> location(ADDR,APN,JURISDICTION) selectlocation(ADDR,APN,JURISDICTION) & locationsearch(Y) ==> ~locationsearch(Y) locationfound :- location(X,Y,Z) locationvalue(X) :- location("",Y,Z) & evaluate( stringappend( Y, ", ", Z ), X ) locationvalue(X) :- location(X,Y,Z) & distinct(X,"") %If there is an address, use everything before the ","| If just APN, then use APN + Jur innerhtml(title,X) :- evaluate( stringappend( "Saved", " | Symbium Build" ), X )