Subversion Repositories wimsdev

Rev

Rev 16323 | Rev 16568 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16323 Rev 16324
Line 10... Line 10...
10 
  error=exolog-nouser
 10 
  error=exolog-nouser
11 
  job=configfw
 11 
  job=configfw
12 
  !changeto $job.proc
 12 
  !changeto $job.proc
13 
  !exit
 13 
  !exit
14 
!endif
 14 
!endif
- 
 
 15 
 
- 
 
 16 
!! ------- preparing date format
- 
 
 17 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
- 
 
 18 
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
- 
 
 19 
now=!text select char 0123456789 in $wims_now
- 
 
 20 
now=!char 1 to 12 of $now
- 
 
 21 
!reset toolate
- 
 
 22 
!if $now>$d1
- 
 
 23 
  toolate=yes
- 
 
 24 
!endif
- 
 
 25 
!readproc adm/date.phtml $(deadline)
- 
 
 26 
tmp=!replace internal : by H in $timedeadline
- 
 
 27 
!let date1=$l_date_out $wims_name_at $tmp
- 
 
 28 
!readproc adm/date.phtml $(soldate)
- 
 
 29 
tmp=!replace internal : by H in $timesoldate
- 
 
 30 
!let date2=$l_date_out $wims_name_at $tmp
- 
 
 31 
 
- 
 
 32 
 
15 
!! ---- read structure of the freework
 33 
!! ---- read structure of the freework
16 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
 34 
!distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone
17 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
 35 
nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework
18 
!for k=1 to $nb
 36 
!for k=1 to $nb
19 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
 37 
  dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework
Line 25... Line 43...
25 
    !increase nbrezone$u
 43 
    !increase nbrezone$u
26 
    ztype$(u)$(nbrezone$u)=$t
 44 
    ztype$(u)$(nbrezone$u)=$t
27 
    script_data=!line 2 to -1 of $dt
 45 
    script_data=!line 2 to -1 of $dt
28 
    !readproc applet/$t pararead $u $(nbrezone$u)
 46 
    !readproc applet/$t pararead $u $(nbrezone$u)
29 
    !! -- read display parameters for each zone
 47 
    !! -- read display parameters for each zone
30 
!!    !if $u=teacher
 - 
 
31 
!!      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
 - 
 
32 
!!    !else
 - 
 
33 
      !read applet/$t displayread $u $(nbrezone$u) 0 $userv
 48 
    !readproc applet/$t displayread $u $(nbrezone$u) 0 $userv
34 
!!    !endif
 - 
 
35 
  !endif
 49 
  !endif
36 
!next k
 50 
!next k
- 
 
 51 
ltdownloadzone=!listintersection $ltdownloadzone and $zonelistlabelstudent
- 
 
 52 
 
37 
!!if $putiworkco=1
 53 
!!if $putiworkco=1
38 
!!  iedit_activated=1
 54 
!!  iedit_activated=1
39 
!!endif
 55 
!!endif
40 
 
 56 
 
41 
!if $nbrezonestudent=0
 57 
!if $nbrezonestudent=0
Line 43... Line 59...
43 
  job=configfw
 59 
  job=configfw
44 
  !changeto $job.proc
 60 
  !changeto $job.proc
45 
!endif
 61 
!endif
46 
 
 62 
 
47 
!set appletnum=0
 63 
!set appletnum=0
48 
 
 64 
 
49 
!! ------- preparing date format
 - 
 
50 
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
 - 
 
51 
d2=!text select char 0123456789 in $(soldate)$(timesoldate)
 - 
 
52 
now=!text select char 0123456789 in $wims_now
 - 
 
53 
now=!char 1 to 12 of $now
 - 
 
54 
!reset toolate
 - 
 
55 
!if $now>$d1
 - 
 
56 
  toolate=yes
 - 
 
57 
!endif
 - 
 
58 
!readproc adm/date.phtml $(deadline)
 - 
 
59 
tmp=!replace internal : by H in $timedeadline
 - 
 
60 
!let date1=$l_date_out $wims_name_at $tmp
 - 
 
61 
!readproc adm/date.phtml $(soldate)
 - 
 
62 
tmp=!replace internal : by H in $timesoldate
 - 
 
63 
!let date2=$l_date_out $wims_name_at $tmp
 - 
 
64 
!readproc adm/class/userdef ,$wims_class,$userv
 65 
!readproc adm/class/userdef ,$wims_class,$userv
65 
tmp=!defof user_firstname,user_lastname in $userdef
 66 
tmp=!defof user_firstname,user_lastname in $userdef
66 
!distribute item $tmp into lastname,firstname
 67 
!distribute item $tmp into lastname,firstname
67 
remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv
 68 
remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv
68 
remark=!replace internal : by : in $remark
 69 
remark=!replace internal : by : in $remark
69 
!set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items
 70 
!set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items
- 
 
 71 
 
- 
 
 72 
!! ------ delete file
- 
 
 73 
!if $job2=eraseusersol
- 
 
 74 
 namefile=!text select 1234567890azertyuiopqsdfghjklmwxcvbnAZERTYUIOPMLKJHGFDSQWXCVBN. in $namefile
- 
 
 75 
 !sh rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(userv)-file/$namefile 2>\dev\null;
- 
 
 76 
!endif
- 
 
 77 
!readproc proc/findfile3.proc $freework,$userv