Subversion Repositories wimsdev

Rev

Rev 1430 | Rev 1692 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
!if $error!=$empty
1430 bpr 3
 !read docu/$lang/msg.phtml
23 reyssat 4
 <p><hr> <p>
5
!endif
6
 
7
!if $doccnt<1
8
 !if $wims_class!=$empty and $wims_user!=supervisor
9
  Désolé, votre classe n'a pas encore de document. Vérifiez avec votre
10
  enseignant.
11
 !else
12
  !if $authoring=$empty
13
   Désolé, nous n'avons pas encore de document ouvert au public.
14
  !else
15
   Désolé, il n'y a pas de document de cet auteur.
16
  !endif
17
 !endif
18
!else
19
 !if $ii>0
20
  !read scripts/table.phtml
21
 !else
22
  !if $wims_class!=$empty
23
   Voici les documents de votre classe.
24
  !else
25
   Voici les documents du site auxquels vous avez accès.
26
  !endif
27
  <ul>
28
  !for t=1 to $doccnt
29
   !set s_=!line $t of $slist
30
   !set t_=!line $t of $tlist
31
   !set a_=!line $t of $alist
32
   !set t_=!trim $t_
747 bpr 33
   !default t_=$n_notitle
23 reyssat 34
   <li>
35
   !href module=$module&cmd=reply&job=read&doc=$s_&block=main $t_
36
   !if $wims_ismanager=2
37
    &nbsp;
1685 bpr 38
    !href cmd=reply&job=erase&doc=$s_ $wims_name_erase
23 reyssat 39
&nbsp;
40
   !endif
751 bpr 41
   <small>$n_by $a_</small>
23 reyssat 42
  !next t
43
  </ul>
44
 !endif
45
!endif
46
 
47
!if $wims_class=$empty and $wims_ismanager<2
48
 !form reply
49
 Pour vos propres documents, donnez le nom d'auteur&nbsp;:
50
 <input size=20 name=authoring value="$authoring">
51
 <input type=submit value=OK>
52
 </form> <p>
53
!endif
54
 
55
!if $wims_ismanager<2 and ($wims_class=$empty or $wims_user=supervisor)
1685 bpr 56
  !set wims_menu_items=!append line createdoc,1, cmd=reply&job=creat\
1408 bpr 57
doctry,1,cmd=reply&job=auth2&doc=$draftd&block=main&coder=dddd\
1685 bpr 58
  to $wims_menu_items
23 reyssat 59
!endif
60
 
61
!tail
62