Page History

...

A Visual LANSA web URL is formatted like this:

http://

...

[domain

...

]:

...

[port

...

]/

...

[configuration\]/

...

[partition\]/

...

[webpage

...

].html?

...

[parm1

...

]=

...

[value

...

]&

...

[parm2=value

...

] 

The URL for the current page is published as the URL property of SYS_WEB.

    #Result := #sys_web.URL

This could return something like:

http://localhost:2014/tipvcs/ide/xvlwebtst.html?lang=eng&developer=yes&debug=yes,lansa14:51234 

To process any parameters associated with the URL requires processing name/value pairs. The query string, that is any portion of the URL following the "?" (which by the way is optional), is parsed and made available as a collection of items, each with Name and Value properties. Each Name and Value is separated by a "&". If the query string is corrupt in any way, only those parameters before the corruption will be available.

    Evtroutine Handling(#sys_web.urlchanged)

...

  

    For Each(#Parameter) In(#sys_web.UrlParameters)  

...

  

        Continue If(#Parameter.Name.UpperCase <> Trace)

...

  
        Continue If(#Parameter.Value.uppercase <> True)  

...

* Set this to be the trace handler for the application  

  

        * Set this to be the trace handler for the application  
        #Sys_appln.TraceHandler <= #Com_owner  

...

Leave  

Endfor  

  

        Leave  

    Endfor  

    Endroutine