Subversion Repositories wimsdev

!! add exercise in a sheet

max_exos=!defof MAX_EXOS in wimshome/public_html/bases/sys/define.conf

max_sheets=!defof MAX_SHEETS in wimshome/public_html/bases/sys/define.conf

title_limit=50

desc_limit=255

!if $scoring=yes

  !default require=10

  !default weight=1

!else

  require=0

  weight=0

!endif

!if $cmd=new or $cmd=resume

  sheets=

  !for i=1 to $sheettot

    sh=!record $i of wimshome/log/classes/$wims_class/sheets/.sheets

    !distribute lines $sh into a_,t_,title

    !if $a_<1

      sheets=!append line $i,$title to $sheets

    !endif

  !next i

  sheetcnt=!linecnt $sheets

  !ifval $sheetcnt=0

    error=no_sheet

    !exit

  !endif

  test_transl=!module translation_language $dir

  !if $lang iswordof $test_transl

    tr_lang=yes

    title=!module title_$lang $dir

    desc=!module description_$lang $dir

  !endif

  !read getparm $iniparm exo

  desc=!lookup $get_exo in wimshome/public_html/modules/$dir/Descindex

  obs=!lookup $get_exo in wimshome/public_html/modules/$dir/Obsindex

  !default title=!module title $dir

  !default desc=!module description $dir

  cat=!module category $dir

  !if exercise notin $cat and oef notin $cat

    error=not_exo

    !exit

  !endif

  !exit

!endif

!if $cmd=reply

  !if ../adm/ isin ../$dir or $dir=home or \

   (../devel/ isin ../$dir and $wims_devel_modules notwordof open)

    error=insert_fail

    !exit

  !endif

  !if $picksheet=$empty

    error=no_pick

    !exit

  !endif

  picksheet=$[floor($picksheet)]

  !if $picksheet=NaN or $picksheet<1 or $picksheet>min($max_sheets,$sheettot)

    error=bad_sheet

    !exit

  !endif

  sh=!record $picksheet of wimshome/log/classes/$wims_class/sheets/.sheets

  a=!line 1 of $sh

  !if $a>0

    error=bad_sheet

    !exit

  !endif

  exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet

  !if $exocnt>=$max_exos

    error=too_many_exos

    !exit

  !endif

  idesc=!singlespace $new_desc

  idesc=!char 1 to $desc_limit of $idesc

  iobs=!singlespace $obs

  iobs=!char 1 to $desc_limit of $iobs

  ititle=!singlespace $title

  ititle=!char 1 to $title_limit of $ititle

  !if $scoring=yes

    require=$[$require]

    weight=$[$weight]

    !if NaN isin $require

      require=0

    !endif

    !if NaN isin $weight

      weight=0

    !endif

    !bound require between 0,$[10*$require_limit] default 0

    !bound weight between 0,10 default 0

  !endif

  !for i=1 to $exocnt

    e=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$picksheet

    !distribute lines $e into wdi,win

    !if $dir=$wdi and $iniparm=$win

      test=$picksheet

      error=already_exist

      !exit

    !endif

  !next i

####

  !if $get_random=0

    !for i=1 to $get_qnum

      update_order=!append item $(update_ex$i) to $update_order

    !next

    get_exo=$(get_exo[$update_order])

    iniparm2=!replace internal & by $\

$ in $iniparm

    iniparm2_cnt=!linecnt $iniparm2

    new_iniparm=

    equal==

    !for v in $get_exo

      new_iniparm=!append item exo=$v to $new_iniparm

    !next

    !for u=1 to $iniparm2_cnt

      l=!line $u of $iniparm2

      !if exo$equal notin $l

        new_iniparm=!append item $l to $new_iniparm

      !endif

    !next

    new_iniparm=!nospace $new_iniparm

    new_iniparm=!replace internal , by & in $new_iniparm=

    iniparm=$new_iniparm

  !endif

#####

  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$picksheet :$dir\

$iniparm\

$require\

$weight\

$ititle\

$idesc\

\

$iobs

  exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$picksheet

  wims_module_log=class $class: add No$exocnt to worksheet $picksheet

!endif