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
2464 czzmrn 1 
!exit
2 
 
23 reyssat 3 
!!INDEX
4 
!let module_author	=XIAO Gang
5 
!let module_address	=xiao@unice.fr
6 
!let module_translator=Marina Cazzola
7 
!let module_translator_address=marina.cazzola@unimib.it
8 
!let module_title	=TERMINE
9 
!let module_description	=modifica la data di termine del corso
10 
!let module_version	=1.10
11 
!let module_wims_version=1.50
12 
!let module_language	=it
13 
!let module_copyright	=&copy; 1999 (<a href=COPYING>GNU GPL</a>)
14 
!let module_category	=adm
15 
!let module_level	=E1 E2 E3 E4 E5 E6 H1 H2 H3 H4 H5 H6 U1 U2 U3 U4 G R
16 
 
17 
!! e.g. algebra, analysis, geometry, etc.
18 
!let module_domain	=
19 
 
20 
!! For search engines; anything you like.
21 
!let module_keywords	=
22 
 
23 
 
24 
!!INDEXEND
25 
 
1092 bpr 26 
!!<html><head>
27 
!!$wims_html_header
28 
!!</head>
29 
!!<body $wims_htmlbody>
30 
!header1
23 reyssat 31 
 
32 
!if $wims_user!=supervisor
33 
 <p>Non sei autorizzato a modificare questa pagina!
34 
 !tail
35 
 !exit
36 
!endif
37 
 
38 
<hr width=1>
39 
<center><h3>$wims_classname, $wims_institutionname</h3>
40 
<p><h1>data di termine del corso</h1></center> <p>
41 
!set months=gennaio,febbraio,marzo,aprile,maggio,giugno,luglio,agosto,settembre,ottobre,novembre,dicembre
42 
!set today=!char 1 to 8 of $wims_now
43 
!set thisyear=!char 1 to 4 of $today
44 
!set thismonth=!char 5,6 of $today
45 
!set thisday=!char 7,8 of $today
46 
!if $parm1=$empty
47 
 :old
48 
 !defread wimshome/log/classes/$wims_class/.def
49 
 !set d_=!char 7,8 of $class_expiration
50 
 !set m_=!char 5,6 of $class_expiration
51 
 !set y_=!char 1 to 4 of $class_expiration
52 
!else
53 
 !set y_=!char -4 to -1 of 0000$[$parm1]
54 
 !set m_=!char -2,-1 of 00$[$parm2]
55 
 !set d_=!char -2,-1 of 00$[$parm3]
56 
 !ifval NaN isin $y_$m_$d_ or \
57 
	$y_$m_$d_>$thisyear$thismonth$thisday+10000 or\
58 
	$y_$m_$d_<$thisyear$thismonth$thisday or\
59 
	$m_<1 or $m_>12 or $d_<1 or $d_>31
60 
  !goto old
61 
 !endif
62 
 !defread wimshome/log/classes/$wims_class/.def
63 
 !writefile wimshome/log/classes/$wims_class/.def !set class_password=$class_password\
64 
!set class_supervisor=$class_supervisor\
65 
!set class_description=$class_description\
66 
!set class_institution=$class_institution\
67 
!set class_email=$class_email\
68 
!set class_lang=$class_lang\
69 
!set class_creation=$class_creation\
70 
!set class_expiration=$y_$m_$d_\
71 
!set class_limit=$class_limit\
72 
!set class_level=$class_level\
73 
!set class_defined=yes
74 
 !defread wimshome/log/classes/$wims_class/.def
75 
 !goto old
76 
!endif
77 
 
78 
Vecchia data di termine del corso
79 
$d_
80 
!item $m_ of $months
81 
 $y_.
82 
 
83 
!form reply
84 
Nuova data di termine del corso:
5734 bpr 85 
giorno <input size="2" maxlength="2" name="parm3" value="$d_"/>, mese
23 reyssat 86 
!set parm2=$[$m_]
87 
!formselect parm2 from 1 to 12 prompt $months
88 
, anno
89 
!set parm1=$y_
90 
!formselect parm1 list $thisyear,$[$thisyear+1]
91 
. <p><center>
5734 bpr 92 
<input type="submit" value="$wims_name_tosave"/>
23 reyssat 93 
</center></form>
94 
<p>(Se si inserisce la data odierna il corso terminer&agrave; con effetto
95 
dalla mattina del giorno seguente.)
96 
<p><b>Attenzione.</b> Non &egrave; possibile estendere la durata del corso
97 
a pi&ugrave; di un anno da ora.
98 
 
99 
!tail
100