Subversion Repositories wimsdev

Rev

Rev 3049 | 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	=&copy; 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
5734 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>
5734 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