Page History
...
The
...
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