Subversion Repositories wimsdev

!if $nbsheet>=$max_sheets

 error=toomuchsheet

 !exit

!endif

docu=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex

autosheet=!line 7 of $docu

!if $autosheet!=$empty

 !exit

!endif

dir=!line 1 of $docu

donnees=!sh grep -a primitives.phtml $wims_home/public_html/modules/$dir/doc/1/*.def

nbexo=!linecnt $donnees

donsh=$empty

!for k=1 to $nbexo

 exodon=!line $k of $donnees

 test=!item 2 of $exodon

 !if exercise iswordof $test

  liniparm=!item -2 of $exodon

  title=!item -1 of $exodon

  !read getparm $liniparm module,worksheet,cmd

  test=!getdef category in wimshome/public_html/modules/$get_module/INDEX

  !if exercise isin $test or oef isin $test

   !for name in cmd,worksheet,module

    liniparm=!replace internal $name=$(get_$name) by $empty in $liniparm

   !next name

   liniparm=!singlespace $liniparm

   liniparm=!replace internal & by , in $liniparm

   liniparm=!nonempty item $liniparm

   liniparm=!replace internal , by & in $liniparm

   tmp=:$get_module\

$liniparm\

10\

1\

$title\

\

   donsh=!append line $tmp to $donsh

  !endif

 !endif

!next k

!if $donsh=$empty

 error=noexo

 wims_menu_items=!append line back2,1,cmd=reply&job=prop to $wims_menu_items

 !exit

!endif

autosheet=$[$nbsheet+1]

!writefile wimshome/log/classes/$wims_class/sheets/.sheet$autosheet $donsh

title=!line 4 of $docu

date=!defof class_expiration in wimshome/log/classes/$wims_class/.def

!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :0\

$date\

$title

message=$name_confirmmksheet

docu=!nonempty line $docu

n=!linecnt $docu

!if $n<=6

 docu=!append line $autosheet to $docu

!else

 docu=!replace line number 7 by $autosheet in $docu

!endif

docu=!replace line number 6 by $autosheet in $docu

!read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\

$sdoc\

\

$docu

!distribute lines $docu into dir,param,title,desc,status,wksheet,autosheet

nbsheet=$[$nbsheet+1]

job=prop