Subversion Repositories wimsdev

 !default oef_author=!trim $wims_firstname $wims_lastname

  !default oef_author=!trim $wims_firstname $wims_lastname

 !default oef_email=$wims_email

  !default oef_email=$wims_email

 !if $wims_developer!=$empty

  !if $wims_developer!=$empty

  !read adm/getdeveloper

    !read adm/getdeveloper

  !default oef_author=$dv_name

    !default oef_author=$dv_name

  !default oef_email=$dv_email

    !default oef_email=$dv_email

 !endif

  !endif

 !if $newone=1

  !if $newone=1

  existing=

    existing=

  newone=

    newone=

 !endif

  !endif

 !if (..devel/ notin ..$catmodule or $wims_developer=$empty) and \

  !if (..devel/ notin ..$catmodule or $wims_developer=$empty) and \

	$existing!=$empty and $wims_user!=supervisor \

 	    $existing!=$empty and $wims_user!=supervisor \

	and ..*/$wims_user. notin ..*/$existing

 	    and ..*/$wims_user. notin ..*/$existing

  existing=

    existing=

 !endif

  !endif

 !if $existing!=$empty and $level=$empty

  !if $existing!=$empty and $level=$empty

  !if $catmodule!=$empty

    !if $catmodule!=$empty

   !if ..devel/ isin ..$catmodule and ($wims_developer= or \

      !if ..devel/ isin ..$catmodule and ($wims_developer= or \

	..devel/$wims_developer notin ..$catmodule)

	      ..devel/$wims_developer notin ..$catmodule)

    !goto nonexist

        !goto nonexist

   !endif

      !endif

   !if .. isin $catmodule or ..adm/ isin ..$catmodule or \

    !if .. isin $catmodule or ..adm/ isin ..$catmodule or \

	..classes/ isin ..$catmodule

	      ..classes/ isin ..$catmodule

    !goto nonexist

      !goto nonexist

   !endif

    !endif

  !endif

  !endif

   mode=raw

    mode=raw

   level=1

    level=1

   :nonexist

    :nonexist

   error=not_exist

    error=not_exist

   del=$existing

    del=$existing

   existing=

    existing=

   !exit

    !exit

 existing=

  existing=

 !if $realtest=yes

  !if $realtest=yes

!!variable for ariane

    !!variable for ariane

   !set ariane_title=$$wims_name_createxo

    !set ariane_title=$$wims_name_createxo

   !set wims_ariane=!append line backcreatexo,1,module=adm/createxo&cmd=resume&realtest=no\

    !set wims_ariane=!append line backcreatexo,1,module=adm/createxo&cmd=resume&realtest=no\

   !changeto oef/var.proc

    !changeto oef/var.proc

   !set wims_ariane=!append line resume,1,module=$module&cmd=resume\

    !set wims_ariane=!append line resume,1,module=$module&cmd=resume\

   !if $modtoolhelp!=yes

    !if $modtoolhelp!=yes

!!trouble with mhelp=%2Cmhelp (coming from ,mhelp)

      !!trouble with mhelp=%2Cmhelp (coming from ,mhelp)

     !if $special_parm!=$empty and ($special_parm notwordof mhelp help and mhelp notin $special_parm)

      !if $special_parm!=$empty and ($special_parm notwordof mhelp help and mhelp notin $special_parm)

      !set wims_ariane=!append line back2 $$wims_name_help,1,cmd=help\

        !set wims_ariane=!append line back2 $$wims_name_help,1,cmd=help\

     !endif

      !endif

   !endif

    !endif

 !endif

  !endif

 !if $modtoolhelp=yes

  !if $modtoolhelp=yes

 !endif

  !endif

 !exit

  !exit

!endif

!endif

 !if $wims_class==$empty

  !if $wims_class==$empty

  error=not_class

    error=not_class

 model=!text select abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 in $model

  model=!text select abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 in $model

 !sh cp -f $wims_home/public_html/scripts/model/$lang/src/$model.oef $wims_home/sessions/$wims_session/user-deposit\

  !sh cp -f $wims_home/public_html/scripts/model/$lang/src/$model.oef $wims_home/sessions/$wims_session/user-deposit\

   cp -f $wims_home/sessions/$wims_session/user-deposit $wims_home/sessions/$wims_session/submit.oef

    cp -f $wims_home/sessions/$wims_session/user-deposit $wims_home/sessions/$wims_session/submit.oef

 !if $level=3 and $realtest=yes

  !if $level=3 and $realtest=yes

  !mexec makedef.sh

    !mexec makedef.sh

 !endif

  !endif

 !reset status

  !reset status

 model=

  model=

 !read model/cut.proc

  !read model/cut.proc

 !if $cnt<6 or $sps=$empty or $parms=$empty or $desc=$empty or\

  !if $cnt<6 or $sps=$empty or $parms=$empty or $desc=$empty or\

	$model_type=$empty or statementrec=$empty

 	    $model_type=$empty or statementrec=$empty

  mode=

    mode=

  !goto nomodel

    !goto nomodel

 !endif

  !endif

 !set wims_ariane=!append line modellist,1,cmd=reply&level=1&mode=model\

  !set wims_ariane=!append line modellist,1,cmd=reply&level=1&mode=model\

to $wims_ariane

to $wims_ariane

!endif

!endif

 !read model/cut.proc

  !read model/cut.proc

 !if $cnt>=6 and $sps!=$empty and $parms!=$empty and $desc!=$empty and\

  !if $cnt>=6 and $sps!=$empty and $parms!=$empty and $desc!=$empty and\

	$model_type!=$empty and statementrec>1

	    $model_type!=$empty and statementrec>1

  mode=model

    mode=model

  rawinp=

    rawinp=

 !endif

  !endif

  oef_test=yes

    oef_test=yes

 !changeto oef/var.proc

  !changeto oef/var.proc

  question=

    question=

  hint=

    hint=

  solution=

    solution=

  status=

    status=

  varcnt=0

    varcnt=0

  replycnt=0

    replycnt=0

  choicecnt=0

    choicecnt=0

  score=

    score=

  !if $mode=model

    !if $mode=model

   !for i=1 to 100

      !for i=1 to 100

    reply$i=

        reply$i=

   !next i

      !next i

  !endif model

    !endif model

 !endif realtest

  !endif realtest

 !reset status realtest retest

  !reset status realtest retest

 mode=raw

  mode=raw

 level=1

  level=1

 rawinp=

  rawinp=

!endif

!endif

 modeltest=!recordcnt wimshome/sessions/$wims_session/submit.oef

  modeltest=!recordcnt wimshome/sessions/$wims_session/submit.oef

 !if $modeltest>6

  !if $modeltest>6

  modeltest=!record 0 of wimshome/sessions/$wims_session/submit.oef

    modeltest=!record 0 of wimshome/sessions/$wims_session/submit.oef

  modeltest=!getopt type in $modeltest

    modeltest=!getopt type in $modeltest

  !if $modeltest!=$empty

    !if $modeltest!=$empty

   modeltest=yes

      modeltest=yes

   !sh cd $wims_home/sessions/$wims_session\

      !sh cd $wims_home/sessions/$wims_session\

    [ -s user-deposit ] || cp -f submit.oef user-deposit

        [ -s user-deposit ] || cp -f submit.oef user-deposit

!endif

!endif

 level=1

  level=1

 oef_range$i=!trim $(oef_range$i)

  oef_range$i=!trim $(oef_range$i)

 !if $(oef_range$i)!=$empty

  !if $(oef_range$i)!=$empty

  oef_range$i=$[$(oef_range$i)]

    oef_range$i=$[$(oef_range$i)]

  !if NaN isin $(oef_range$i)] or Inf isin $(oef_range$i)

    !if NaN isin $(oef_range$i)] or Inf isin $(oef_range$i)

   oef_range$i=

      oef_range$i=

 oef_rangel=-5

  oef_rangel=-5

 oef_ranger=5

  oef_ranger=5

 range=$oef_rangel

  range=$oef_rangel

 oef_rangel=$oef_ranger

  oef_rangel=$oef_ranger

 oef_ranger=$range

  oef_ranger=$range

 oef_title=!trim $oef_title

  oef_title=!trim $oef_title

 !if $oef_title=$empty and $level>1

  !if $oef_title=$empty and $level>1

  error=no_title

   error=no_title

  !exit

   !exit

 !endif

  !endif

# !if $oef_answercnt+$oef_choicecnt<=0

  # !if $oef_answercnt+$oef_choicecnt<=0

#  error=no_answer

  #  error=no_answer

#  !exit

  #  !exit

# !endif

  # !endif

 !if $mode=$empty

  !if $mode=$empty

  header=\language{$lang}\

    header=\language{$lang}\

  !for i in author,email,computeanswer,format,precision

    !for i in author,email,computeanswer,format,precision

   oef_$i=!trim $(oef_$i)

      oef_$i=!trim $(oef_$i)

   !if $(oef_$i)!=$empty

      !if $(oef_$i)!=$empty

    header=!append line \$i{$(oef_$i)} to $header

        header=!append line \$i{$(oef_$i)} to $header

   !endif

      !endif

  !next i

    !next i

  oef_statement=!trim $oef_statement

    oef_statement=!trim $oef_statement

  !if $oef_statement=$empty

    !if $oef_statement=$empty

   error=no_statement

      error=no_statement

   !exit

      !exit

  !endif

    !endif

  answers=

    answers=

  !for i=1 to $oef_answercnt

    !for i=1 to $oef_answercnt

   ansprompt$i=!trim $(ansprompt$i)

      ansprompt$i=!trim $(ansprompt$i)

   prompt=!char 1 to $promptlim of $(ansprompt$i)

      prompt=!char 1 to $promptlim of $(ansprompt$i)

   ansgood$i=!trim $(ansgood$i)

      ansgood$i=!trim $(ansgood$i)

   !if $prompt!=$empty and $(ansgood$i)!=$empty

      !if $prompt!=$empty and $(ansgood$i)!=$empty

    !default anstype$i=default

        !default anstype$i=default

    answers=!append line \answer{$prompt}{$(ansgood$i)}{type=$(anstype$i)} to $answers

        answers=!append line \answer{$prompt}{$(ansgood$i)}{type=$(anstype$i)} to $answers

   !endif

      !endif

  !next i

    !next i

  replycnt=!linecnt $answers

    replycnt=!linecnt $answers

  choices=

    choices=

  !for i=1 to $oef_choicecnt

    !for i=1 to $oef_choicecnt

   choiprompt$i=!trim $(choiprompt$i)

      choiprompt$i=!trim $(choiprompt$i)

   prompt=!char 1 to $promptlim of $(choiprompt$i)

      prompt=!char 1 to $promptlim of $(choiprompt$i)

   choigood$i=!trim $(choigood$i)

      choigood$i=!trim $(choigood$i)

   choibad$i=!trim $(choibad$i)

      choibad$i=!trim $(choibad$i)

   !if $prompt!=$empty and $(choigood$i)!=$empty and $(choibad$i)!=$empty

      !if $prompt!=$empty and $(choigood$i)!=$empty and $(choibad$i)!=$empty

    choices=!append line \choice{$prompt}{$(choigood$i)}{$(choibad$i)} to $choices

        choices=!append line \choice{$prompt}{$(choigood$i)}{$(choibad$i)} to $choices

   !endif

      !endif

  !next i

    !next i

  choicecnt=!linecnt $choices

    choicecnt=!linecnt $choices

  conditions=

    conditions=

  !for i=1 to $oef_condcnt

    !for i=1 to $oef_condcnt

   cn=!trim $(Condname$i)

      cn=!trim $(Condname$i)

   ct=!trim $(Condtest$i)

      ct=!trim $(Condtest$i)

   !if $cn!=$empty and $ct!=$empty

      !if $cn!=$empty and $ct!=$empty

    conditions=!append line \condition{$cn}{$ct} to $conditions

        conditions=!append line \condition{$cn}{$ct} to $conditions

   !endif

      !endif

  !next i

    !next i

#  !ifval $replycnt+$choicecnt=0

    #  !ifval $replycnt+$choicecnt=0

#   error=no_reply2

    #   error=no_reply2

#   !exit

    #   !exit

#  !endif

    #  !endif

  oef_hint=!trim $oef_hint

    oef_hint=!trim $oef_hint

  !if $oef_hint!=$empty

    !if $oef_hint!=$empty

   hints=\hint{$oef_hint}

      hints=\hint{$oef_hint}

  oef_solution=!trim $oef_solution

  title=!trim $title

  !if $oef_solution!=$empty

  !if $title=$empty

   solutions=\solution{$oef_solution}

    error=empty_title

  source=!mexec makedef.sh

  titlen=!charcnt $title

 !else

    !endif

  !if $mode=model

  !next i

   !read model/cutback.proc

    oef_fname=$wims_user.$oef_fname

!endif

!endif

 regout=!mexec regclass.sh

  regout=!mexec regclass.sh

 reg1=!word 1 of $regout

  reg1=!word 1 of $regout

 !if $reg1=success

  !if $reg1=success

  fnamebase=!word 2 of $regout

    fnamebase=!word 2 of $regout

  existing=$fnamebase

    existing=$fnamebase

  success=1

    success=1

   error=

      error=

   already=yes

      already=yes

!endif

!endif

 !if $catmodule1 !=

  !if $catmodule1 !=

  catmodule=devel/$wims_developer/$catmodule1

    catmodule=devel/$wims_developer/$catmodule1

  !reset catmodule1

    !reset catmodule1

 !endif

  !endif

 existing_new=!replace internal .oef by in $file_name_src

  existing_new=!replace internal .oef by in $file_name_src

 !set existing_new=!text select ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_1234567890 in $existing_new

  !set existing_new=!text select ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz_1234567890 in $existing_new

 !if $existing_new != $empty

  !if $existing_new != $empty

  existing=$existing_new

   existing=$existing_new

 !endif

  !endif

!endif

!endif

 wims_exec_error=

  wims_exec_error=

 !sh cp $wims_home/sessions/$wims_session/submit.oef modules/$catmodule/src/$existing.oef\

  !sh cp $wims_home/sessions/$wims_session/submit.oef modules/$catmodule/src/$existing.oef\

 test_image=!sh ls $wims_home/sessions/$wims_session/getfile/oefimg 2>/dev/null

  test_image=!sh ls $wims_home/sessions/$wims_session/getfile/oefimg 2>/dev/null

 !if $test_image!=$empty

  !if $test_image!=$empty

   !reset test_common

    !reset test_common

   test_common=!defof common_images in wimshome/public_html/modules/$catmodule/var.proc

    test_common=!defof common_images in wimshome/public_html/modules/$catmodule/var.proc

   !if $test_common!=$empty

    !if $test_common!=$empty

    !if $test_common notwordof no yes

      !if $test_common notwordof no yes

      wims_exec_error=!append word imagedir=$test_common to $wims_exec_error

        wims_exec_error=!append word imagedir=$test_common to $wims_exec_error

    !else

      !else

     !if $test_common iswordof no or $test_common=$empty

        !if $test_common iswordof no or $test_common=$empty

       im_dir=images/$existing

          im_dir=images/$existing

     !else

        !else

       im_dir=images

          im_dir=images

     !endif

        !endif

     !sh mkdir -p modules/$catmodule/$im_dir ;\

        !sh mkdir -p modules/$catmodule/$im_dir ;\

       cp $wims_home/sessions/$wims_session/getfile/oefimg/* modules/$catmodule/$im_dir

        cp $wims_home/sessions/$wims_session/getfile/oefimg/* modules/$catmodule/$im_dir

    !endif

    !endif

 wims_module_log=Regpub $mode $oef_title

  wims_module_log=Regpub $mode $oef_title

 !if $wims_deposit!=$empty and .. notin $wims_deposit and / notin $wims_deposit

  !if $wims_deposit!=$empty and .. notin $wims_deposit and / notin $wims_deposit

  !read adm/du $wims_home/log/classes/$wims_class

    !read adm/du $wims_home/log/classes/$wims_class

  !if $du>=$wims_class_quota-1

    !if $du>=$wims_class_quota-1

   quota=yes

     quota=yes

  !else

    !else

   !sh cd $wims_home/$wims_sesdir\

     !sh cd $wims_home/$wims_sesdir\

	mkdir -p getfile/oefimg\

	    mkdir -p getfile/oefimg\

	mv user-deposit getfile/oefimg/$wims_deposit\

	    mv user-deposit getfile/oefimg/$wims_deposit\

	cp oefdeposit user-deposit 2>/dev/null

	    cp oefdeposit user-deposit 2>/dev/null

  !endif

    !endif

  imgfname=$wims_deposit

    imgfname=$wims_deposit

  wims_deposit=

    wims_deposit=

  !sh cd $wims_home/$wims_sesdir\

    !sh cd $wims_home/$wims_sesdir\

	if [ -f user-deposit ]; then cp user-deposit oefdeposit; fi

	    if [ -f user-deposit ]; then cp user-deposit oefdeposit; fi

  !if $delfile!=$empty and .. notin $delfile

    !if $delfile!=$empty and .. notin $delfile

   !sh rm -f $wims_home/$wims_sesdir/getfile/oefimg/$delfile

      !sh rm -f $wims_home/$wims_sesdir/getfile/oefimg/$delfile

 imglist=!filelist $wims_home/$wims_sesdir/getfile/oefimg

  imglist=!filelist $wims_home/$wims_sesdir/getfile/oefimg

 imglist=!words2items $imglist

  imglist=!words2items $imglist