Rev 2577 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2577 | schaersvoo | 1 | !exit |
23 | reyssat | 2 | !!INDEX |
3 | !let module_author =XIAO Gang |
||
4 | !let module_address =xiao@unice.fr |
||
5 | !let module_title =KLASSE EINDDATUM |
||
2438 | schaersvoo | 6 | !let module_description =Verander de einddatum van Uw klas |
23 | reyssat | 7 | !let module_version =1.10 |
8 | !let module_wims_version=1.50 |
||
9 | !let module_language =nl |
||
10 | !let module_copyright =© 1999 (<a href=COPYING>GNU GPL</a>) |
||
11 | !let module_category =adm |
||
12 | !let module_level =E1 E2 E3 E4 E5 E6 H1 H2 H3 H4 H5 H6 U1 U2 U3 U4 G R |
||
13 | |||
14 | !! e.g. algebra, analysis, geometry, etc. |
||
15 | !let module_domain = |
||
16 | |||
17 | !! For search engines; anything you like. |
||
18 | !let module_keywords = |
||
19 | |||
20 | |||
21 | !!INDEXEND |
||
22 | |||
1092 | bpr | 23 | !!<html><head> |
24 | !!$wims_html_header |
||
25 | !!</head> |
||
26 | !!<body $wims_htmlbody> |
||
27 | !header1 |
||
23 | reyssat | 28 | |
29 | !if $wims_user!=supervisor |
||
2438 | schaersvoo | 30 | <p>Nee, deze pagina is alleen beschikbaar voor de docent/supervisor. |
23 | reyssat | 31 | !tail |
32 | !exit |
||
33 | !endif |
||
34 | |||
35 | <hr width=1> |
||
36 | <center><h3>$wims_classname, $wims_institutionname</h3> |
||
2438 | schaersvoo | 37 | <p><h1>Einddatum van de klas</h1></center> <p> |
2577 | schaersvoo | 38 | !set months=Januari,Februari,Maart,April,Mei,Juni,Juli,Augustus,September,Oktober,November,December |
23 | reyssat | 39 | !set today=!char 1 to 8 of $wims_now |
40 | !set thisyear=!char 1 to 4 of $today |
||
41 | !set thismonth=!char 5,6 of $today |
||
42 | !set thisday=!char 7,8 of $today |
||
43 | !if $parm1=$empty |
||
44 | :old |
||
45 | !defread wimshome/log/classes/$wims_class/.def |
||
46 | !set d_=!char 7,8 of $class_expiration |
||
47 | !set m_=!char 5,6 of $class_expiration |
||
48 | !set y_=!char 1 to 4 of $class_expiration |
||
49 | !else |
||
50 | !set y_=!char -4 to -1 of 0000$[$parm1] |
||
51 | !set m_=!char -2,-1 of 00$[$parm2] |
||
52 | !set d_=!char -2,-1 of 00$[$parm3] |
||
53 | !ifval NaN isin $y_$m_$d_ or \ |
||
54 | $y_$m_$d_>$thisyear$thismonth$thisday+10000 or\ |
||
55 | $y_$m_$d_<$thisyear$thismonth$thisday or\ |
||
56 | $m_<1 or $m_>12 or $d_<1 or $d_>31 |
||
57 | !goto old |
||
58 | !endif |
||
59 | !defread wimshome/log/classes/$wims_class/.def |
||
60 | !writefile wimshome/log/classes/$wims_class/.def !set class_password=$class_password\ |
||
61 | !set class_supervisor=$class_supervisor\ |
||
62 | !set class_description=$class_description\ |
||
63 | !set class_institution=$class_institution\ |
||
64 | !set class_email=$class_email\ |
||
65 | !set class_lang=$class_lang\ |
||
66 | !set class_creation=$class_creation\ |
||
67 | !set class_expiration=$y_$m_$d_\ |
||
68 | !set class_limit=$class_limit\ |
||
69 | !set class_level=$class_level\ |
||
70 | !set class_defined=yes |
||
71 | !defread wimshome/log/classes/$wims_class/.def |
||
72 | !goto old |
||
73 | !endif |
||
74 | |||
75 | Huidige einddatum van de klas: |
||
76 | !item $m_ of $months |
||
77 | $d_, $y_. |
||
78 | |||
79 | !form reply |
||
80 | Nieuwe einddatum van de klas: |
||
81 | !set parm2=$[$m_] |
||
82 | !formselect parm2 from 1 to 12 prompt $months |
||
3049 | bpr | 83 | <input size=2 maxlength=2 name="parm3" value="$d_">, |
23 | reyssat | 84 | !set parm1=$y_ |
85 | !formselect parm1 list $thisyear,$[$thisyear+1] |
||
86 | . <p><center> |
||
1523 | bpr | 87 | <input type=submit value="$wims_name_tosave"> |
23 | reyssat | 88 | </center></form> |
2438 | schaersvoo | 89 | <p>Een einddatum gesteld op vandaag sluit de klas. (effectief van af morgen). |
23 | reyssat | 90 | <p><b>Attentie.</b> |
2438 | schaersvoo | 91 | Een klas kan nooit ouder zijn dan 1 jaar |
23 | reyssat | 92 | (van af morgen). |
93 | !tail |
||
94 |