Subversion Repositories wimsdev

!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_asis=!getopt asis in $r

model_asis=!items2words $model_asis

model_iEdit=!getopt iEdit in $r

model_iEdit=!items2words $model_iEdit

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 keywords description

      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