Page History

Show Contents List
You are here:

...

Wiki MarkupThe Web Application object allows access to the full URL and URL Parameters as name and value pairs. It also allows for monitoring of changes to the URL.

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

...

  
        #Sys_appln.TraceHandler <= #Com_owner 

...

   

        Leave  

    Endfor  

    Endroutine