Subversion Repositories wimsdev

Rev

Rev 1523 | Go to most recent revision | Details | Compare with Previous | 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	=EXPIRACIÓN
5 
!let module_description	=cambia la fecha de expiración de una clase.
6 
!let module_version	=1.10
7 
!let module_wims_version=1.50
8 
!let module_language	=es
9 
!let module_copyright	=&copy; 1998 (<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 
!let module_translator	=Juan Rafael Fernández García
20 
!let module_translator_address=juanrafael.fernandez@hispalinux.es
21 
 
22 
 
23 
!!INDEXEND
24 
 
1092 bpr 25 
!!<html><head>
26 
!!$wims_html_header
27 
!!</head>
28 
!!<body $wims_htmlbody>
29 
!header1
23 reyssat 30 
 
31 
!if $wims_user!=supervisor
32 
 <p>No está autorizado a acceder a esta página.
33 
 !tail
34 
 !exit
35 
!endif
36 
 
37 
<hr width=1>
38 
<center><h3>$wims_classname, $wims_institutionname</h3>
39 
<p><h1>Fecha de expiración de la clase</h1></center> <p>
40 
!set months=enero,febrero,marzo,abril,mayo,junio,julio,agosto,septiembre,octubre,noviembre,diciembre
41 
!set today=!char 1 to 8 of $wims_now
42 
!set thisyear=!char 1 to 4 of $today
43 
!set thismonth=!char 5,6 of $today
44 
!set thisday=!char 7,8 of $today
45 
!if $parm1=$empty
46 
 :old
47 
 !defread wimshome/log/classes/$wims_class/.def
48 
 !set d_=!char 7,8 of $class_expiration
49 
 !set m_=!char 5,6 of $class_expiration
50 
 !set y_=!char 1 to 4 of $class_expiration
51 
!else
52 
 !set y_=!char -4 to -1 of 0000$[$parm1]
53 
 !set m_=!char -2,-1 of 00$[$parm2]
54 
 !set d_=!char -2,-1 of 00$[$parm3]
55 
 !ifval NaN isin $y_$m_$d_ or \
56 
	$y_$m_$d_>$thisyear$thismonth$thisday+10000 or\
57 
	$y_$m_$d_<$thisyear$thismonth$thisday or\
58 
	$m_<1 or $m_>12 or $d_<1 or $d_>31
59 
  !goto old
60 
 !endif
61 
 !defread wimshome/log/classes/$wims_class/.def
62 
 !writefile wimshome/log/classes/$wims_class/.def !set class_password=$class_password\
63 
!set class_supervisor=$class_supervisor\
64 
!set class_description=$class_description\
65 
!set class_institution=$class_institution\
66 
!set class_email=$class_email\
67 
!set class_lang=$class_lang\
68 
!set class_creation=$class_creation\
69 
!set class_expiration=$y_$m_$d_\
70 
!set class_limit=$class_limit\
71 
!set class_level=$class_level\
72 
!set class_defined=yes
73 
 !defread wimshome/log/classes/$wims_class/.def
74 
 !goto old
75 
!endif
76 
 
77 
Fecha de expiración actual:
78 
$d,
79 
!item $m_ de $months
80 
, $y_.
81 
 
82 
!form reply
83 
Nueva fecha de expiración:
3049 bpr 84 
día <input size=2 maxlength=2 name="parm3" value="$d_">, mes
23 reyssat 85 
!set parm2=$[$m_]
86 
!formselect parm2 from 1 to 12 prompt $months
87 
, año
88 
!set parm1=$y_
89 
!formselect parm1 list $thisyear,$[$thisyear+1]
90 
. <p><center>
1523 bpr 91 
<input type=submit value="$wims_name_tosave">
23 reyssat 92 
</center></form>
93 
<p> Hacer que la clase expire hoy significa la clausura de la clase (que será efectiva
94 
mañana por la mañana).
95 
<p><b>Atención.</b> La validez de la clase no puede ser superior a un año a partir de hoy.
96 
 
97 
!tail
98