14 lines
342 B
Plaintext
14 lines
342 B
Plaintext
|
# Script for testing the new UI framework
|
||
|
|
package require java
|
||
|
|
|
||
|
|
set request [bsf lookupBean "request"]
|
||
|
|
|
||
|
|
if {[$request hasParameter "p"]} {
|
||
|
|
$logger debug "Got the parameter value!"
|
||
|
|
set tmp [$request getParameter "p"]
|
||
|
|
set part1 "Requested parameter: $tmp<P>"
|
||
|
|
} else {
|
||
|
|
set part1 ""
|
||
|
|
} ;# end if
|
||
|
|
|
||
|
|
$vlib output "$part1 <B>In the house!</B>"
|