Subversion Repositories wimsdev

Rev

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

Rev 14297 Rev 14537
Line 1... Line 1...
1
!! display page for student
1
!! process page for student for type=1 or type=2
2
 
2
 
3
!if $activetest!=1 and $activetest!=2
3
!if $activetest!=1 and $activetest!=2
4
  error=badallows
4
  error=badallows
5
  emptypage=yes
5
  emptypage=yes
6
  !exit
6
  !exit
-
 
7
!endif
-
 
8
 
-
 
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
7
!endif
16
!endif
8
 
17
 
9
!if $type>=2 and $activetest=1
18
!if $type>=2 and $activetest=1
10
    !readproc adm/class/quotafree.proc proc
19
    !readproc adm/class/quotafree.proc proc
11
    !readproc proc/findfile.proc $freework,$wims_user
20
    !readproc proc/findfile.proc $freework,$wims_user
Line 17... Line 26...
17
      delold=rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/work/$(data_0[2])
26
      delold=rm -f $wims_home/log/classes/$wims_class/freeworksdata/$freework/work/$(data_0[2])
18
      test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
27
      test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
19
      !if $test=yes
28
      !if $test=yes
20
        delold=$delold;\
29
        delold=$delold;\
21
               rm -f $wims_home/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
30
               rm -f $wims_home/sessions/$wims_session/getfile/freeworksdata/work$freework-$(data_0[2])
22
      !endif
-
 
23
    !endif
-
 
24
    d1=!text select char 0123456789 in $(deadline)$(timedeadline)
-
 
25
    d2=!text select char 0123456789 in $wims_now
-
 
26
    d2=!char 1 to 12 of $d2
-
 
27
    d3=!text select char 0123456789 in $(soldate)$(timesoldate)
-
 
28
    !reset toolate,codownload
-
 
29
    !if $d2>$d1
-
 
30
      toolate=yes
-
 
31
    !endif
-
 
32
    !! -------- test condition to download user corrected work file (date + all work corrected).
-
 
33
    !if $d2>=$d3
-
 
34
      n1=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/work
-
 
35
      n1=!linecnt $n1
-
 
36
      n2=!filelist $wims_home/log/classes/$wims_class/freeworksdata/$freework/co
-
 
37
      n2=!linecnt $n2
-
 
38
      !if $n2=$n1
-
 
39
        codownload=yes
-
 
40
      !endif
31
      !endif
41
    !endif
32
    !endif
42
    !if $toolate!=yes and $wims_deposit!=$empty and / notin $wims_deposit and .. notin $wims_deposit
33
    !if $toolate!=yes and $wims_deposit!=$empty and / notin $wims_deposit and .. notin $wims_deposit
43
      du=!sh du -ks $wims_home/$wims_sesdir/user-deposit
34
      du=!sh du -ks $wims_home/$wims_sesdir/user-deposit
44
      du=!word 1 of $du
35
      du=!word 1 of $du
Line 72... Line 63...
72
      !readproc proc/findfile.proc $freework,$wims_user
63
      !readproc proc/findfile.proc $freework,$wims_user
73
    !endif
64
    !endif
74
    !! ------ make download link for work and co if don't exists
65
    !! ------ make download link for work and co if don't exists
75
    !if $data_0!=$empty
66
    !if $data_0!=$empty
76
      !reset m
67
      !reset m
77
      !if $codownload=yes and $(data_0[5])!=$empty
68
      !if $codownload=1 and $(data_0[5])!=$empty
78
        test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/workco$freework-$(data_0[5])
69
        test=!fileexists wimshome/sessions/$wims_session/getfile/freeworksdata/workco$freework-$(data_0[5])
79
        !if $test!=yes
70
        !if $test!=yes
80
          m=ln -s $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5]) workco$freework-$(data_0[5]);
71
          m=ln -s $wims_home/log/classes/$wims_class/freeworksdata/$freework/co/$(data_0[5]) workco$freework-$(data_0[5]);
81
        !endif
72
        !endif
82
      !endif
73
      !endif