Subversion Repositories wimsdev

max_todo=5
max_defaffi=10
!if $wims_class=$empty
 !exit
!endif
!if ($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)
!! cdt can be modified by supervisor only in single class / class in a groupement / course in a portal
  cdt_supervise=yes
  !readdef wimshome/log/classes/$wims_class/cdt/.def
  !if $cdt_hide=yes
    hiddenlist=$wims_class
  !endif
  !if $cdt_defined!=yes
    !sh mkdir -p $wims_home/log/classes/$wims_class/cdt/def;\
   mkdir -p $wims_home/log/classes/$wims_class/cdt/src;\
   mkdir -p $wims_home/log/classes/$wims_class/cdt/files;
  !filewrite wimshome/log/classes/$wims_class/cdt/.def !set cdt_title=$wims_name_cdt\
!set cdt_description=$empty\
!set cdt_defined=yes\
!set cdt_nbdate=0\
!set cdt_ltmonth=$empty
    !set cdt_title=$wims_name_cdt
    !set cdt_description=$empty
    !set cdt_defined=yes
    !set cdt_nbdate=0
    !set cdt_ltmonth=$empty
  !endif
  !if / isin $wims_class
    part1=!replace internal / by , in $wims_class
    part2=!item -1 of $part1
    part1=!item 1 to -2 of $part1
    part1=!replace internal , by / in $part1
    part1=!nospace $part1
    !sh cd $wims_home/$wims_sesdir;\
     mkdir -p getfile;\
     cd getfile;\
     rm -rf cdt;\
     mkdir -p cdt/$part1;\
     cd cdt/$part1;\
     ln -s $wims_home/log/classes/$wims_class/cdt/files $part2;
  !else
  !sh cd $wims_home/$wims_sesdir\
   mkdir -p getfile\
   cd getfile\
   rm -rf cdt\
   mkdir -p cdt\
   cd cdt\
   ln -s $wims_home/log/classes/$wims_class/cdt/files $wims_class
  !endif
!else
!! in a class of a portal, user and supervisor can see cdt of all course of the class
  cdt_supervise=no
  courses=!record 0 of wimshome/log/classes/$wims_class/courses
  courses=!column 1 of $courses
  nbmonth=0
  nbdate=0
  !for prog in $courses
    prog=!text select 0123456789/ in $prog
    !readdef wimshome/log/classes/$wims_superclass/$prog/cdt/.def
    !if $cdt_defined!=yes
      !sh mkdir -p $wims_home/log/classes/$wims_superclass/$prog/cdt/def;\
     mkdir -p $wims_home/log/classes/$wims_superclass/$prog/cdt/src;\
     mkdir -p $wims_home/log/classes/$wims_superclass/$prog/cdt/files;
      !filewrite wimshome/log/classes/$wims_superclass/$prog/cdt/.def !set cdt_title=$wims_name_cdt\
!set cdt_description=$empty\
!set cdt_defined=yes\
!set cdt_nbdate=0\
!set cdt_ltmonth=$empty
      !set cdt_title=$wims_name_cdt
      !set cdt_description=$empty
      !set cdt_defined=yes
      !set cdt_nbdate=0
      !set cdt_ltmonth=$empty
    !endif
    nbdate=$[$cdt_nbdate+$nbdate]
    nbmonth=!listunion $nbmonth and $cdt_ltmonth
  !next prog
  cdt_nbdate=$nbdate
  cdt_nbmonth=$nbmonth
  !reset ltcourses hiddenlist
  !for cl in $courses
    test=!defof cdt_hide in wimshome/log/classes/$wims_superclass/$cl/cdt/.def
    !if $test!=yes
      tmp=!replace internal / by , in $cl
      tmp=!item -1 of $tmp
      ltcourses=!append word $tmp to $ltcourses
    !else
      hiddenlist=!append item $cl to $hiddenlist
    !endif
  !next cl
  !sh cd $wims_home/$wims_sesdir;\
   mkdir -p getfile\
   cd getfile\
   rm -rf cdt\
   mkdir -p cdt/$wims_class/\
   cd cdt/$wims_class\
   for m in $ltcourses; do\
    ln -s $wims_home/log/classes/$wims_class/$$m/cdt/files $$m;\
   done;
   !set cdt_title=$wims_name_cdt
   !set cdt_description=$empty
!endif
cdt_nbmonth=!itemcnt $cdt_ltmonth

!! -------------------------------- enregistrement de visite du cdt
test=!record 0 of wimshome/s2/$wims_session/cdt
!if $test=$empty
  !appendfile wimshome/log/classes/$wims_class/cdt/connect.log $wims_now $httpd_REMOTE_ADDR connect $wims_user
  !writefile wimshome/s2/$wims_session/cdt $wims_session
!endif

!if $cdt_showyear=1
  dateoption=withyear
!else
  dateoption=$empty
!endif