Rev 5724 | Rev 13617 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!if $cmd=help
ses=!replace internal _mhelp by in $wims_session
!else
ses=$wims_session
!endif
input=$wims_read_parm
!default input=wimshome/sessions/$ses/submit.oef
!default embraced_randitem=help
!reset sps parms desc explain statement statementrec helpst
cnt=!recordcnt $input
!if $cnt<6
!exit
!endif
lbrace={
r=!record 0 of $input
model_def=$r
model_type=!getopt type in $r
model_textarea=!getopt textarea in $r
model_textarea=!items2words $model_textarea
model_author=!getopt author in $r
model_email=!getopt email in $r
model_css=!getopt css in $r
model_random=!getopt random in $r
model_random=!items2words $model_random
model_computed=!getopt computed in $r
model_computed=!items2words $model_computed
model_helped=$model_random $model_computed
model_menutester=item(
r=!record 1 of $input
r=!trim $r
desc=!line 1 of $r
help1=!line 2 to -1 of $r
!if $wims_developer!=
!read adm/getdeveloper
!endif
!for i=2 to $cnt
r=!record $i of $input
r=!trim $r
n=!linecnt $r
c=!char 1 of $r
!if \ = $c
v=!translate internal \{} to $ $ in $r
v=!word 1 of $v
!if $v iswordof title author email css credits
name$i=$v
model_$v=!embraced extract $r
!if $oef_author!=$empty
!default model_author=$oef_author
!default model_email=$oef_email
!endif
val$i=$(model_$v)
sps=!append item $i to $sps
!endif
!goto loopend
!endif
!if $c=%
!goto loopend
!endif
!if $c=:
!for j=1 to $n
l=!line $j of $r
l=!trim $l
c=!char 1 of $l
!if \ = $c
statement=!line $j to -1 of $r
statement=!embraced extract $statement
statementrec=$i
!break
!else
helpst=!append line $l to $helpst
!endif
!next j
!goto loopend
!endif
title$i=!line 1 of $r
!reset help$i name$i type$i menu$i
!for j=2 to $n
l=!line $j of $r
l=!trim $l
c=!char 1 of $l
!if \ = $c
def=!line $j to -1 of $r
t=!positionof char $lbrace in $def
t=!item 1 of $t
type=!char 2 to $t-1 of $def
type$i=!word 1 of $type
def=!char $t to -1 of $def
def=!trim $def
def=!declosing $def
c=!char 1 of $def
!if $c=$lbrace
!goto loopend
!endif
t=!positionof char = in $def
t=!item 1 of $t
!if $t=$empty
!goto loopend
!endif
name=!char 1 to $t-1 of $def
name$i=!word 1 of $name
val$i=!char $t+1 to -1 of $def
!if $(type$i)=text
val$i=!trim $(val$i)
menutest=!char 1 to 5 of $(val$i)
!if $menutest=$model_menutester
menu$i=!char 6 to -2 of $(val$i)
val$i=!item 1 of $(menu$i)
menu$i=!item 2 to -1 of $(menu$i)
!endif
!endif
!break
!else
help$i=!append line $l to $(help$i)
!endif
!next j
!if $(name$i)!=$empty
parms=!append item $i to $parms
!endif
:loopend
!next i