Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
 
2
!form reply
5734 bpr 3
  <input type="submit" value="$wims_name_Show"/>
23 reyssat 4
  !reset job
1837 bpr 5
  !formselect job list work,todo prompt $name_done,$name_todo
6
  $name_between
23 reyssat 7
  !distribute item $[$jyear],0,$[$jmonth] into jyear,jday,jmonth
8
  !let v=!values v for v=1 to 31
1837 bpr 9
  !read adm/date.phtml
10
  !let creyear=!char 1 to 4 of $class_creation
11
  !let expyear=!char 1 to 4 of $class_expiration
5401 bpr 12
  !read adm/lang/datemenu.phtml.$moduclass_lang 1,jday,jmonth,jyear
1837 bpr 13
  $name_and
23 reyssat 14
  !if $jyear2=$empty or $jyear2=0
15
   !let jyear2=!char 1 to 4 of $wims_now
16
   !let jmonth2=!char 5 to 6 of $wims_now
17
   !let jday2=!char 7 to 8 of $wims_now
18
  !endif
19
  !distribute item 0,0,0 into jyear2,jday2,jmonth2
1837 bpr 20
  !let v1=!values v for v=$creyear to $expyear
5401 bpr 21
  !read adm/lang/datemenu.phtml.$moduclass_lang 4,jday2,jmonth2,jyear2
1837 bpr 22
  <br><small> $name_warning1</small>
23 reyssat 23
 </form>
24
<p>
1278 bpr 25
 
26
!if $wims_user=supervisor and $cdt_supervise=yes
1336 bpr 27
 !set wims_menu_items= !append line adddate,1,cmd=new&job=adddate\
1278 bpr 28
 addfile,1,cmd=reply&job=file\
29
 addtodo,1,cmd=new&job=addtodo\
30
 config,1,cmd=reply&job=config\
1336 bpr 31
 to $wims_menu_items
23 reyssat 32
!endif
33
 
34
!if ($job isitemof home,todo or work isin $job and $jour_begin!=$empty) and $cdt_nbdate<$max_defaffi
1991 bpr 35
  !set wims_menu_items=!append line back2,1,cmd=new&job=home to $wims_menu_items
1196 bpr 36
!endif