Rev 1092 | 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 =© 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: |
||
1044 | 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 |