<!-- adm/sheet/class.phtml START -->
!readdef wimshome
/log/classes
/$wims_class/.def
!read adm/css.phtml
!header1
!if $sheet_docpage!=$empty
!changeto docpage.phtml
!endif
!read adm/class/classname.phtml $wims_classname\
$wims_institutionname
!if $seq=$empty and $wims_sequence=$empty
!read adm/title.phtml 1\
$classname\
$sheet_title \
$name_title
!else
!read adm/title.phtml 1\
$classname\
$sheet_title
!endif
!! -------- manage multiple view for supervisor and msg for user in case of individualisation techvar
!if $sheet_indivtechvar!=$empty and $sheet_indivtechvar!=0
<div class="wims_msg info">
!if $wims_user=supervisor
!! --- msg for supervisor
$name_indivsupervisor
!form reply
<div class="field box">
<label for="choosevalue">$name_choosevalue:</label>
<select id="choosevalue" name="choosevalue" onchange="submit()">
<option value="EMPTY" selected="selected">$name_novalue</option>
!else
<option value="EMPTY">$name_novalue</option>
!endif
!for val in $techvarlistval
!if $choosevalue=$val
<option value="$val" selected="selected">$val</option>
!else
<option value="$val">$val</option>
!endif
</select>
</div>
!formend
!else
!! --- msg for user
!if $uservartechvalue!=$empty
$name_msgusergroup
!else
$name_msgusergroupempty
!endif
!endif
</div>
!endif
!! --------- end of manage of indiv
<div class="wims_sheet_desc">$sheet_desc</div>
!let class_showlivret
=!defof class_showlivret in wimshome
/log/classes
/$wims_class/.def
!let tmp
=!record
$sh of wimshome
/log/classes
/$wims_class/livret
/sheetindex
.rc
!if $class_showlivret=yes and $tmp!=$empty
<div class="wims_sheet_desc">
$name_skillbullet $tmp
</div>
!endif
!!expiration
date in a variable
!set expir_user
=!record
0 of wimshome
/log/classes
/$wims_class/.$sh
!set cle=!word 1 of $expir_user
!! process for technical variable definition (replace expir_user by value decide by the technical variable)
!if \ isin $cle
!set idtechvar=!line 1 of $expir_user
!set idtechvar=!char 2 to -1 of $idtechvar
!readproc adm/class/userdef ,$wims_class,$wims_user
!set val=!defof user_techvar_$(idtechvar) in $userdef
!set expir_user
=!defof techvar_
$val in wimshome
/log/classes
/$wims_class/.$sh !default expir_user=none
!endif
!! end process technical variable
!if $expir_user=none
<div class="wims_msg warning" id="name_student5">
<span class="wims_warning">$wims_name_warning</span>.
$name_student5
</div>
!goto none
!endif
!if $expir_user!=$empty
!set cle=!word 1 of $expir_user
!!! a corriger
!set expir_user=!words2items $expir_user
!for l_ in $expir_user
!set l_=!replace internal < by ?, in $l_
!if ? isitemof $l_
!set sheet_expiration_user=$(l_[2])
!endif
!for l_ in $expir_user
!set l_=!replace internal > by ?, in $l_
!if ? isitemof $l_
!set sheet_beginning_user=$(l_[2])
!endif
!endif
!if $sheet_beginning_user!=$empty and $sheet_active=1
!set expday=!char 7,8 of $sheet_beginning_user
!set expmon=!char 5,6 of $sheet_beginning_user
!set expyear=!char 1 to 4 of $sheet_beginning_user
!set exphour=!char 10 to -1 of $sheet_beginning_user
!if $exphour!=
!set exphour=$ ($exphour)
!endif
!set expmon=!item $expmon of $months
!set fromdate=$name_from $expday $expmon $expyear$exphour
!endif
!default sheet_expiration_user=$sheet_expiration
!if $sheet_expiration_user!=$empty and $sheet_active=1
!set expday=!char 7,8 of $sheet_expiration_user
!set expmon=!char 5,6 of $sheet_expiration_user
!set expyear=!char 1 to 4 of $sheet_expiration_user
!set exphour=!char 10 to -1 of $sheet_expiration_user
!if $exphour!=
!set exphour=$ ($exphour)
!endif
!set expmon=!item $expmon of $months
<p id="name_student1">$name_student1$exphour</p>
!endif
:none
!if $sheet_active=2
<div class="wims_msg warning" id="name_student2">
<span class="wims_warning">$wims_name_warning</span>.
$name_student2</div>
!endif
!if $n=0
!if $sheet_active=$empty
$name_sheetempty
!else
<span class="name_student4">$name_student4</span>
!endif
!else
!set wims_menu_items=!append line printable,1,cmd=reply&job=print\
itemsep,0,\
to $wims_menu_items
!if $exolog!=$empty
!set wims_menu_items=!append line exolog,1, module=adm/class/exolog&job=llist&logsheet=$sh \
itemsep,0,\
to $wims_menu_items
!endif
!set scorestat=!getscorestatus sheet=$sh
!if $scorestat=yes
!if $authscoresuspend!=no
!if $wims_scorereg!=suspend
$name_scoreopen
!set wims_ref_class=wims_button
!href cmd=resume&job=suspend $wims_name_scoreclose2
!set wims_menu_items=!append line scoreclose2,1,cmd=resume&job=suspend to $wims_menu_items
!else
!set scorestat=no
$wims_name_scoresuspend
!set wims_ref_class=wims_button
!href cmd=resume&job=reopen $wims_name_scorereopen
!set wims_menu_items=!append line scorereopen,1,cmd=resume&job=reopen to $wims_menu_items
!endif
!else
$name_scoreclosesup
!endif
!else
<div class="wims_msg warning">
$name_scoreclose
</div>
!endif
!set sevlist
=!record
0 of wimshome
/log/classes
/$wims_class/sheets
/.severity
!set sev=!line $sh + 1 of $sevlist
!set ss=!word 3 of $sev
!set tmp
=!defof DF_SEVERITY in wimshome
/public_html
/bases
/sys
/define.conf
!set tmp=!word 3 of $tmp
!bound ss between integer 0 and 2 default $tmp
<div class="wims_sheet">
<div class="wims_title_seq">$wims_name_Exercices</div>
<ol class="wims_sheet_list">
!reset wims_exotitle wims_exoicon wims_exodesc exodescshow
!set sh_
=!record
$sh of wimshome
/log/classes
/$wims_class/sheets
/.sheets
!set exodescshow=!line 8 of $sh_
!bound exodescshow between 0,1 default 0
!for i=1 to $n
!set ex
=!record
$i of wimshome
/log/classes
/$wims_class/sheets
/.sheet
$sh !distribute lines $ex into di,pa,bidon,bidon,ti,de,bidon,bidon,bidon,icon,indiv
!if $uservartechvalue=$empty or $uservartechvalue isitemof $indiv
!set require=!word $i of $requires
!set wims_listexo=!append item $i to $wims_listexo
!set got=!word $i of $scores
!set mean=!word $i of $means
!set best=!word $i of $bests
!set level=!word $i of $levels
!set alltry=!word $i of $alltries
!set dep=!row $i of $deps
!set wims_exoicon=$wims_exoicon$icon,
!set wims_exotitle=!append line $ti to $wims_exotitle
!if $exodescshow=1
!let de=!replace internal , by , in $de
!let wims_exodesc=$wims_exodesc$de,
!endif
!read getparm $pa, seedrepeat exotrymax
<li class="wims_exo_item" id="ex$i">
!if $dep=$empty or $scorestat!=yes
!if $icon!=$empty
!set wims_ref_class=text_icon icon_$icon
!endif
!href module=$di&cmd=new&worksheet=$sh&$pa $ti
!set last=!char -1 of $de
!if $last notin >.!?
!set de=$(de).
!endif
<div class="wims_work_desc">$de</div>
<div class="wims_user_info">
!if $require>0
<span class="wims_sheet_score small">
$(wims_name_thsheet[7]): $[$mean]/10
!if $ss=0
$
(wims_name_thsheet
[5]): $
[round(100*$got/$require)]% !endif
!if $ss=1
$
(wims_name_thsheet
[10]): $
[round(100*$best/$require)]% !endif
!if $ss=2
$(wims_name_thsheet[13]): $[$level]/10
!endif
$(wims_name_thsheet[3]):$require
!if $get_exotrymax>0
$(wims_name_thsheet[14]):
$
[min($get_exotrymax,$alltry)]/$get_exotrymax !endif
</span>
!endif
</div>
!else
$ti, $de
!if $require>0
<span class="small">($name_score2)</span>
!endif
!endif
!if $dep!=$empty
<div class="wims_msg warning">
!if , isin $dep
$name_deps $dep
!else
$name_dep $dep
!endif
$name_dep2
</div>
!endif
!set seedscore=!getseedscores user=$wims_user sheet=$sh work=$i
!!user, sheet, exo, seedrepeat (by default 0)
!read adm/class/seedscore.phtml $seedscore,$get_seedrepeat
</li>
!endif
!let wims_exotitle=!replace , by , in $wims_exotitle
!let wims_exotitle=!lines2items $wims_exotitle
!setdef wims_exotitle=$wims_exotitle\
wims_sheettitle=$sheet_title\
wims_exoicon=$wims_exoicon\
wims_exodesc=$wims_exodesc\
in wimshome
/sessions
/$wims_session/var.stat </ol>
</div>
!!!<div class="wimscenter">
!!! !read adm/class/colors 0,legend
!!! $output_legend
!!!</div>
!endif
!if $wims_user=supervisor
!set wims_menu_items=!append line sheetmanagement,1,module=adm/class/sheet&sheet=$sh\
itemsep,0,\
to $wims_menu_items
!endif
!set wims_menu_items=!append line myscore,1,module=adm/class/userscore#sheet$sh\
to $wims_menu_items
<!-- adm
/sheet
/class.phtml
END -->
!tail
!setdef wims_listexo
=$wims_listexo in wimshome
/sessions
/$wims_session/var.stat