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