Subversion Repositories wimsdev

Rev

Rev 14537 | Rev 14788 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
14537 guerimand 1
!! process page for student for type=1 or type=2
14297 guerimand 2
 
3
!if $activetest!=1 and $activetest!=2
4
  error=badallows
5
  emptypage=yes
6
  !exit
7
!endif
8
 
14537 guerimand 9
d1=!text select char 0123456789 in $(deadline)$(timedeadline)
10
d2=!text select char 0123456789 in $wims_now
11
d2=!char 1 to 12 of $d2
12
d3=!text select char 0123456789 in $(soldate)$(timesoldate)
13
!reset toolate
14
!if $d2>$d1
15
  toolate=yes
16
!endif
17
 
14297 guerimand 18
!if $type>=2 and $activetest=1
14572 bpr 19
  !readproc adm/class/quotafree.proc proc
20
  !readproc proc/findfile.proc $freework,$wims_user
21
  oldsize=0
22
  !if $data_0!=$empty
23
    du=!sh du -ks $wims_home/log/classes/$wims_class/freeworksdata/$freework/work/$(data_0[2])
24
    du=!word 1 of $du
25
    oldsize=$[($du)/1024]
26
    delold=rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/work/$(data_0[2])
27
    test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
28
    !if $test=yes
29
      delold=$delold;\
30
             rm -f $wims_home/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
14297 guerimand 31
    !endif
14572 bpr 32
  !endif
33
  !if $toolate!=yes and $wims_deposit!=$empty and / notin $wims_deposit and .. notin $wims_deposit
34
    du=!sh du -ks $wims_home/$wims_sesdir/user-deposit
35
    du=!word 1 of $du
36
    newsize=$[($du)/1024]
37
    !ifval $newsize>0.25*$sizelimitfile
38
      error=badstudentfilesize
39
      !exit
40
    !endif
41
    !read proc/checkfilename.proc $freework
42
    !if $error!=$empty
43
      !exit
44
    !else
45
      exten=!replace internal . by , in $newfilename
46
      n=!itemcnt $exten
47
      !if $n>=2
48
        exten=!item -1 of $exten
49
        exten=.$exten
14297 guerimand 50
      !else
14572 bpr 51
        exten=$empty
14297 guerimand 52
      !endif
53
    !endif
14572 bpr 54
    success=goodaddfile
55
    !if $quota_free-$newsize-$oldsize<0
56
      error=quota_filestudent
57
      !reset success
58
    !else
59
      !!mise en place du nouveau fichier (et destruction de l'ancien s'il existe et du lien de telechargement)
60
      !sh mv $wims_home/$wims_sesdir/user-deposit $wims_home/log/classes/$wims_class/freeworksdata/$freework/work/$wims_user$exten;\
61
          $delold
62
    !endif
63
    !readproc proc/findfile.proc $freework,$wims_user
64
  !endif
65
  !! ------ make download link for work and co if don't exists
66
  !if $data_0!=$empty
67
    !reset m
68
    !if $codownload=1 and $(data_0[5])!=$empty
69
      test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/workco$freework-$(data_0[5])
14297 guerimand 70
      !if $test!=yes
14572 bpr 71
        m=ln -s $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5]) workco$freework-$(data_0[5]);
14297 guerimand 72
      !endif
73
    !endif
14572 bpr 74
    test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
75
    !if $test!=yes
76
      t=ln -s $wims_home/log/classes/$wims_class/freeworksdata/$freework/work/$(data_0[2]) work$freework-$(data_0[2]);
77
      m=!append line $t to $m
78
    !endif
79
    !if $m!=$empty
80
      !sh cd $wims_home/sessions/$wims_session/getfile/freeworksdata/;\
81
          $m
82
    !endif
83
  !endif
84
  !! ---- end make...
14297 guerimand 85
!endif