Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!nocache
2
!if $error!=$empty
3
 !read docu/fr/msg.phtml
4
 <p>
5
 !exit
6
!endif
7
 
8
<center><h1>$tit</h1></center>
9
 
10
!if $titb=$empty
11
 <p>
12
 Le bloc <tt>$block</tt> de ce document n'est pas encore créé.
13
 <p>
14
 !exit
15
!endif
16
 
17
!if $datetest<0
18
 <p>
19
 Cette page n'est pas encore ouverte à la lecture. Revenez plus tard !
20
 <p>
21
 !exit
22
!endif
23
 
24
!if $datetest>0
25
 <p>
26
 Cette page est périmée. Vous ne pouvez plus la lire. Désolé !
27
 <p>
28
 !exit
29
!endif
30
 
31
:newblock
1043 bpr 32
<a name=$block></a>
20 reyssat 33
<h3>$titb</h3>
34
 
35
!read $docdir/$doc/$block.def content
36
 
37
!if $waitblock$(waitblock_$block)!=$empty
38
 !set waitblock=$(waitblock_$block),$waitblock
39
 !set waitblock=!nonempty items $waitblock
40
 !set block=!item 1 of $waitblock
41
 !set gotblock=!append item $block to $gotblock
42
 !set waitblock=!item 2 to -1 of $waitblock
43
 !read $docdir/$doc/$block.def
44
 <p>
45
 !goto newblock
46
!endif
47
 
48
</div><div class=wimstail>
49
<p><hr>
1043 bpr 50
<table width="100%" border=0 cellspacing=0 cellpadding=1>
20 reyssat 51
<tr><td align=left nowrap><small>
52
Par
53
!if $email=$empty
54
 $author
55
!else
56
 !mailurl $email $author
57
!endif
58
!! &copy;
1043 bpr 59
</small>
20 reyssat 60
<td align=right><small>
61
!href cmd=reply&job=read&doc=$doc&block=$startblock Version interactive
62
!if $wims_user=supervisor and $sheetdata!=$empty
63
 <tr><td align=left nowrap>
1043 bpr 64
 <small>Dernière modif. $datm</small>
20 reyssat 65
 <td align=right><small>
66
 !href cmd=reply&job=exosource&block=$startblock Source d'exercice de la page
67
 </small>
68
!else
69
 <tr><td align=left colspan=2 nowrap>
1043 bpr 70
 <small>Dernière modif. $datm</small>
20 reyssat 71
!endif
72
</table>
73