go to post Timothy Leavitt · Apr 10, 2017 Hi Sebastian, In the past, when I've tried to be creative and make <dataCombo> work more like a <select>, the better solution has been to just use a <select>, possibly customized a little bit to make it behave nicer with changing query parameter values. What's the reasoning for using a <dataCombo> rather than a <select> in your case? Here's some custom component code that might serve as a basis for a full solution. The trick is setting editable="true", overriding findSelectedItem to select the best match to the input text, and calling findSelectedItem after changes, using the built-in timer for the sake of simplicity. Compare to a normal dataCombo for reference. /// dataCombo subclass with limited support for responding to keyboard events Class DC.Demo.ZEN.Component.dataCombo Extends %ZEN.Component.dataCombo [ System = 3 ] { /// This is the XML namespace used for library components. Parameter NAMESPACE = "http://www.intersystems.com/zen/dc/demo"; /// Always editable, of course. Property editable As %ZEN.Datatype.boolean [ InitialExpression = 1 ]; /// Onclick, show the dropdown. Property onclick As %ZEN.Datatype.eventHandler [ InitialExpression = "zenThis.showDropdown();" ]; /// Find and select item within the dropdown that matches current control value. /// This is called when the dropdown appears to make sure that the current /// item is highlighted. ClientMethod findSelectedItem(force, update, select) [ Language = javascript ] { force = ('undefined'!=force)?force:false; update = ('undefined'!=update)?update:true; select = ('undefined'!=select)?select:false; var inputValue = this.findElement('input').value.toUpperCase(); this.keyMode = true; if (force||this.isDropdownVisible) { var count = this.getOptionCount(); var dVal = new Array(); for (var idx = 0; idx < count; idx++) { dVal[idx] = this.getOptionText(idx).toUpperCase(); if ((inputValue <= dVal[idx])&&((idx == 0)||(inputValue > dVal[idx-1]))) { this.selectItem(idx,update,select); break; } } } } /// Start (or restart) timer normally used by "timer" mode (overridden to apply to all modes) /// Users should not call this method. ClientMethod startTimer() [ Internal, Language = javascript ] { this.clearTimer(); this.actionTimerId = self.setTimeout("zenPage.getComponent("+this.index+").timerHandler()",this.delay); } /// Clear timer normally used by "timer" mode (overridden to apply to all modes) /// Users should not call this method. ClientMethod clearTimer() [ Internal, Language = javascript ] { if (this.actionTimerId) { self.clearTimeout(this.actionTimerId); this.actionTimerId = null; } } /// Timer event handler normally used by "timer" mode (overridden to apply to all modes) /// Users should not call this method. ClientMethod timerHandler() [ Internal, Language = javascript ] { if (this.isDropdownVisible) { // refresh drop down only if searchKeyLen is not defined! if ((this.searchKeyLen != '') && (this.searchKeyLen > 0)) { this.renderDropdown(); } else { this.findSelectedItem(); //Just find the selected item. } } else { this.showDropdown(); } } /// Change handler for input control. /// Users should not call this method. ClientMethod inputChangeHandler() [ Internal, Language = javascript ] { this.invokeSuper('inputChangeHandler'); //If input was cleared, and the actual control value was changed, then clear the value and notify. var input = this.findElement('input'); if (input.value == '') { if (this.getValue() != '') { this.setValue(''); this.onchangeHandler(); } } } /// Notification that this component is about to stop being modal. ClientMethod onEndModalHandler(zindex) [ Language = javascript ] { this.findSelectedItem(true,false,true); this.invokeSuper('onEndModalHandler',arguments); } } In case you're unfamiliar with custom components: you can include this one in a Zen page like this: <page xmlns="http://www.intersystems.com/zen" xmlns:demo="http://www.intersystems.com/zen/dc/demo"> <demo:dataCombo sql="select 'your query here'" /> </page> Or like this: <page xmlns="http://www.intersystems.com/zen" > <dataCombo xmlns="http://www.intersystems.com/zen/dc/demo" sql="select 'your query here'" /> </page>
go to post Timothy Leavitt · Apr 10, 2017 Of course, for pages that don't have such handy links, there's Ctrl + End and Ctrl + Home...
go to post Timothy Leavitt · Mar 28, 2017 Here's what you could use to get the first three pieces, all optional: Url="/([^/]*)/?([^/]*)/?([^/]*)" Note that if there's nothing matched for the nth capturing group, it'll pass an empty string as the nth argument. (So defaults in your method signature won't be helpful.)
go to post Timothy Leavitt · Mar 28, 2017 Eduard actually reported the same error occuring in a different case a while ago. I added some notes to the bug report earlier (138510).
go to post Timothy Leavitt · Mar 28, 2017 Right - the first one happens to work in this case, but the second one should work in any case where a comma isn't accepted (and should evaluate to the correct string).
go to post Timothy Leavitt · Mar 28, 2017 That isn't valid XML - I think it'd need to be: <Var Name="AddClassesErrors" Value="",5202,5373,"" /> The " makes it smarter about it being one string, and the extra commas should make it work with the test condition in %Installer.Install:Import: ((","_pIgnoreErrors_",")[(","_$P($system.Status.GetErrorCodes(tSC),",")_",")) This is messy! EDIT: Better option: <Var Name="AddClassesErrors" Value="#{"5202,5373"}" />
go to post Timothy Leavitt · Mar 28, 2017 This just looks like a bug - the generated code is: Do tInstaller.Import(tNSName,tInstaller.Evaluate("${AddonDir}/AddClasses.xml"),"ck","5202","5373","0") While you would expect: Do tInstaller.Import(tNSName,tInstaller.Evaluate("${AddonDir}/AddClasses.xml"),"ck","5202,5373","0") Here's a possible workaround (untested, but the generated code looks better): <Var Name="AddClassesErrors" Value="5202,5373" /> <If Condition='#{##class(%File).Exists("${AddonDir}/AddClasses.xml")}'> <Import File="${AddonDir}/AddClasses.xml" IgnoreErrors="${AddClassesErrors}" Flags="ck" /> </If> EDIT: actual workaround (see discussion below) is to use #{<COS_expression>} (see documentation). <Var Name="AddClassesErrors" Value="#{"5202,5373"}" /> <If Condition='#{##class(%File).Exists("${AddonDir}/AddClasses.xml")}'> <Import File="${AddonDir}/AddClasses.xml" IgnoreErrors="${AddClassesErrors}" Flags="ck" /> </If>
go to post Timothy Leavitt · Mar 24, 2017 Also, if I plug: do ##class(App.Use2).Test() into the original code sample, I see App.Use:Test+1 in the Location property of the exception. How are you ending up with App.Use2:Test+1?
go to post Timothy Leavitt · Mar 24, 2017 Yes - this is in the compiled class metadata. $$$comMemberKeyGet("App.Use2",$$$cCLASSmethod,"Test",$$$cMETHorigin) Or see the Origin property in %Dictionary.CompiledMethod (same for other class members as well).
go to post Timothy Leavitt · Mar 15, 2017 %Library.Routine:Delete with flag = 2 (see class reference) seems to do the trick: Set status = ##class(%Library.Routine).Delete("<name of routine including extension>",2)
go to post Timothy Leavitt · Mar 7, 2017 Here's a solution that works for me: s string="http://www.google.com" set matcher=##class(%Regex.Matcher).%New("(\b(https?|ftp)://[-A-Za-z0-9+&@#/%?=~_|!:,.;]*[-A-Za-z0-9+&@#/%=~_|])",string) w matcher.ReplaceAll("<a href='$1' target='_blank'>$1</a>") Key changes: Remove the enclosing / /gim - this is part of the regex syntax in JS.Add two a-z ranges for case insensitivityRemove JS escaping of slashes (not necessary)
go to post Timothy Leavitt · Mar 2, 2017 I did, but I added it as a comment rather than an answer, so I can't mark it as the accepted answer. Regardless, I followed up this morning, and have been advised that the Management Portal's behavior is a bug and may be "fixed" in the future. The preferred solution would be additional configuration, either at the webserver level or adding more web applications.
go to post Timothy Leavitt · Jan 11, 2017 Actually, this seems to just work (as part of a %CSP.REST subclass, used in a properly configured web application - the Management Portal UI disables the "CSP Files Physical Path" field if you enter a dispatch class, but will save it if you add the physical path first): XData UrlMap [ XMLNamespace = "http://www.intersystems.com/urlmap" ] { <Routes> <!-- ... various Routes/Forwards like in a typical REST API ... --> <!-- Other routes: pass through to file system --> <Route Url="/(.*)" Method="GET" Call="ServeStaticFile" /> </Routes> } ClassMethod ServeStaticFile(pPath As %String) As %Status { #dim %request As %CSP.Request Do %request.Set("FILE",%request.Application_pPath) Quit ##class(%CSP.StreamServer).Page() } If there's nothing more to it than that...
go to post Timothy Leavitt · Dec 15, 2016 Looking at that documentation, one difference between LIST and GROUP_CONCAT is that GROUP_CONCAT lets you specify the separator, while LIST always uses a comma. If you wanted to use a different separator, and your data will never contain commas, then it's as easy as (for example): select home_city as "City", count(*) as "Count", REPLACE(LIST(Name),',',' ') as "Names" from sample.person group by home_city If "your data will never contain commas" is a bad assumption (as it is in the case of Name in Sample.Person), the solution is to use %DLIST and $ListToString. select home_city as "City", count(*) as "Count", $ListToString(%DLIST(Name),' ') as "Names" from sample.person group by home_city %DLIST builds a $ListBuild list, and $ListToString joins the list elements with the specified separator. %DLIST is useful in other cases too - for example, if your data might contain commas and you want to iterate over the aggregated data after running dynamic SQL.
go to post Timothy Leavitt · Dec 9, 2016 One way to do this is comparing $listbuilds of the variable in question. Note also that you can coerce any value to a number with the "+" operator. So, for example: USER>set var = 1 USER>w $lb(var)=$lb(+var) 1 <-- var is a number. USER>set var = "1" USER>w $lb(var)=$lb(+var) 0 <-- var is a not a number. There's not really a simple built-in function to do exactly what you want though (at least that I know of).
go to post Timothy Leavitt · Dec 7, 2016 It's defined in %cspInclude.inc as: #define URLENCODE(%string) $zconvert($zconvert(%string,"O",$replace($$$GETIO,"JSML","UTF8")),"O","URL") See documentation on $ZCONVERT as well. This mentions: “UTF8” which converts (output mode) 16-bit Unicode characters to a series of 8-bit characters. Thus, the characters $CHAR(0) through $CHAR(127) are the same in RAW and UTF8 mode; characters $CHAR(128) and above are converted. “URL” which adds (output mode) or removes (input mode) URL parameter escape characters to a string. Characters higher than $CHAR(255) are represented in Unicode hexadecimal notation: $CHAR(256) = %u0100. So, in short, $$$URLENCODE converts the input from (possibly) 16-bit to 8-bit characters, then adds URL parameter escape characters where they're needed. (For example, escaping slashes.)
go to post Timothy Leavitt · Nov 30, 2016 Another option to consider, if you have the flexibility to do so, would be putting an [IDKey] index on the code property of the code tables, having the code properties in ICDAutoCodeDefn refer to the code table classes rather than being of type %String, and then using implicit joins. I suspect (but haven't verified) that this would perform better than calculated/transient properties, and it's much easier to follow/maintain than normal JOINs. Here's a full example. Looking at a general code table class: Class DC.Demo.CodeTables.CodeTable Extends %Persistent [ Abstract, NoExtent ] { Index Code On Code [ IdKey ]; Property Code As %String; Property Description As %String; } In this example, a specific code table would then extend that class, but don't need to add anything: Class DC.Demo.CodeTables.Team Extends DC.Demo.CodeTables.CodeTable { } Class DC.Demo.CodeTables.Position Extends DC.Demo.CodeTables.CodeTable { } Then, in the class that refers to these code tables: Class DC.Demo.CodeTables.Players Extends %Persistent { Property Name As %String(MAXLEN = 100); Property Position As DC.Demo.CodeTables.Position; Property Team As DC.Demo.CodeTables.Team; ForeignKey Position(Position) References DC.Demo.CodeTables.Position(); ForeignKey Team(Team) References DC.Demo.CodeTables.Team(); } (It's worth considering using foreign keys in cases like this.) To demonstrate how this ends up working from an SQL perspective: Class DC.Demo.CodeTables.Driver { ClassMethod Run() { Do ##class(DC.Demo.CodeTables.Players).%KillExtent() Do ..ShowQueryResults("insert or update into DC_Demo_CodeTables.Position (Code,Description) values ('TE','Tight End')") Do ..ShowQueryResults("insert or update into DC_Demo_CodeTables.Team (Code,Description) values ('NE','New England Patriots')") Do ..ShowQueryResults("insert into DC_Demo_CodeTables.Players (Name,Position,Team) values ('Rob Gronkowski','TE','NE')") Do ..ShowQueryResults("select Name,Position->Description ""Position"",Team->Description ""Team"" from DC_Demo_CodeTables.Players") } ClassMethod ShowQueryResults(pQuery As %String, pParams...) { Write !,"Running query: ",pQuery,! Do ##class(%SQL.Statement).%ExecDirect(,pQuery,pParams...).%Display() } } The output from the Run() method is: USER>Do ##class(DC.Demo.CodeTables.Driver).Run() Running query: insert or update into DC_Demo_CodeTables.Position (Code,Description) values ('TE','Tight End') 1 Row Affected Running query: insert or update into DC_Demo_CodeTables.Team (Code,Description) values ('NE','New England Patriots') 1 Row Affected Running query: insert into DC_Demo_CodeTables.Players (Name,Position,Team) values ('Rob Gronkowski','TE','NE') 1 Row Affected Running query: select Name,Position->Description "Position",Team->Description "Team" from DC_Demo_CodeTables.Players Name Position Team Rob Gronkowski Tight End New England Patriots 1 Rows(s) Affected