Subversion Repositories wimsdev

Rev

Rev 11978 | Rev 12340 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

max_todo=5
max_defaffi=10

!if ($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)
 cdt_supervise=yes
 !readdef wimshome/log/classes/$wims_class/cdt/.def
 !if $cdt_hide=yes
    hiddenlist=$wims_class
 !endif
 !if $cdt_defined!=yes and $wims_class!=$empty
  !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
 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;
!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