Rev 14820 | Rev 16309 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
14537 | guerimand | 1 | !! process control page for view student work and type=3 |
2 | |||
3 | !if $loadwork!=1 or $userv notitemof $ulist |
||
4 | error=badallows |
||
5 | emptypage=yes |
||
6 | !exit |
||
7 | !endif |
||
8 | |||
9 | !! ---- read structure of the freework |
||
14820 | guerimand | 10 | !distribute item 0,0,$empty into nbrezoneteacher,nbrezonestudent,ltdownloadzone |
14537 | guerimand | 11 | nb=!recordcnt wimshome/log/classes/$wims_class/freeworks/.freework$freework |
12 | !for k=1 to $nb |
||
13 | dt=!record $k of wimshome/log/classes/$wims_class/freeworks/.freework$freework |
||
14 | l=!line 1 of $dt |
||
15 | !distribute word $l into t,u |
||
16 | !bound u within teacher,student default teacher |
||
14788 | guerimand | 17 | !bound t within solution,$listfilename_ztype default $(listfilename_ztype[1]) |
18 | !if $t!=solution |
||
14537 | guerimand | 19 | !increase nbrezone$u |
20 | ztype$(u)$(nbrezone$u)=$t |
||
21 | script_data=!line 2 to -1 of $dt |
||
22 | !readproc applet/$t pararead $u $(nbrezone$u) |
||
14788 | guerimand | 23 | !! -- read display parameters for each zone |
14796 | guerimand | 24 | !! !if $u=teacher |
25 | !! !read applet/$t displayread $u $(nbrezone$u) 0 $userv |
||
26 | !! !else |
||
14788 | guerimand | 27 | !read applet/$t displayread $u $(nbrezone$u) 0 $userv |
14796 | guerimand | 28 | !! !endif |
14537 | guerimand | 29 | !endif |
30 | !next k |
||
14867 | obado | 31 | !!if $putiworkco=1 |
32 | !! iedit_activated=1 |
||
33 | !!endif |
||
14537 | guerimand | 34 | |
14758 | guerimand | 35 | |
14537 | guerimand | 36 | !set appletnum=0 |
37 | |||
38 | !! ------- preparing date format |
||
39 | d1=!text select char 0123456789 in $(deadline)$(timedeadline) |
||
40 | d2=!text select char 0123456789 in $(soldate)$(timesoldate) |
||
41 | now=!text select char 0123456789 in $wims_now |
||
42 | now=!char 1 to 12 of $now |
||
43 | !readproc adm/date.phtml $(deadline) |
||
44 | tmp=!replace internal : by H in $timedeadline |
||
45 | !let date1=$l_date_out $wims_name_at $tmp |
||
46 | !readproc adm/date.phtml $(soldate) |
||
47 | tmp=!replace internal : by H in $timesoldate |
||
48 | !let date2=$l_date_out $wims_name_at $tmp |
||
49 | !readproc adm/class/userdef ,$wims_class,$userv |
||
50 | tmp=!defof user_firstname,user_lastname in $userdef |
||
51 | !distribute item $tmp into lastname,firstname |
||
52 | remark=!record 0 of wimshome/log/classes/$wims_class/freeworksdata/$freework/co/$userv |
||
53 | remark=!replace internal : by : in $remark |
||
54 | !set wims_menu_items=!append line back2,1,module=$module&cmd=new&job=configfw&freework=$freework to $wims_menu_items |