Subversion Repositories wimsdev

Rev

Rev 1092 | Blame | Last modification | View Log | RSS feed 

!!INDEX
!let module_author      =XIAO Gang
!let module_address     =xiao@unice.fr
!let module_title       =SHEETS
!let module_description =¬°¾Ç¥Í·Ç³Æ§@·~²M³æ
!let module_version     =2.00
!let module_wims_version=2.00
!let module_language    =tw
!let module_copyright   =&copy; 1998 (<a href=COPYING>GNU GPL</a>)
!let module_category    =adm
!let module_level       =E1 E2 E3 E4 E5 E6 H1 H2 H3 H4 H5 H6 U1 U2 U3 U4 G R

!! e.g. algebra, analysis, geometry, etc.
!let module_domain      =

!! For search engines; anything you like.
!let module_keywords    =


!!INDEXEND

!!<html><head>
!!$wims_html_header
!!</head>
!!<body $wims_htmlbody>
!header1

!set sheet=!record $parm1 of wimshome/log/classes/$wims_class/sheets/.sheets
!distribute lines $sheet into sheet_active,sheet_expiration,sheet_title,sheet_desc
!if $wims_user != supervisor and $sheet_active<1
 !distribute items $ into sheet_active,sheet_expiration,sheet_title,sheet_desc
!endif
!set requires=!getscorerequire sheet=$parm1
!set scores=!getscore sheet=$parm1
!set means=!getscoremean sheet=$parm1

<hr width=1>
<center><h3>$wims_institutionname ªº $wims_classname ½Òµ{ </h3>
<hr> <p><h1>§@·~²M³æ #$parm1<br>$sheet_title</h1></center> <p>
$sheet_desc<p>

!if $sheet_expiration!=$empty and $sheet_active=1
 !set expday=!char 7,8 of $sheet_expiration
 !set expmon=!char 5,6 of $sheet_expiration
 !set expyear=!char 1 to 4 of $sheet_expiration
 !set months=Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sept,Oct,Nov,Dec
 !set expmon=!item $expmon of $months
 ¥»§@·~²M³æ¦Ü $expday $expmon $expyear ¨ì´Á¡C
 <p>
!endif

!if $sheet_active=2
 <b><font color=red>ª`·N¡I</font></b>
 ³o­Ó²M³æ¤w¹L´Á¡I±z¤´µM¥i¥H¦b²M³æ¤¤¹B§@¡A¦ý±z©ÒÀò±oªº¤À¼Æ±N¤£¦A¦C¤J­pºâ¡C
 <p>
!endif

!if $sheet_active=$empty
 !set n=0
!else
 !set n=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$parm1
!endif

!if $n=0
 ³o­Ó²M³æ¬OªÅªº¡I¦b²M³æ¤¤±z¨S¦³§@¥ô¦ó«ü©w¡A¥i¯à¬OºÞ²zªÌ¦b³B²z®Éªº¿ù»~¡C
!else
 ±q¤U¦C²M³æ¤¤«ü©w§@·~¡G<p><ul>
 !for i=1 to $n
  !set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$parm1
  !distribute lines $ex into di,pa,require,we,ti,de
  !set got=!word $i of $scores
  !set mean=!word $i of $means
  <li><p>$i. 
  !href module=$di&cmd=new&worksheet=$parm1&$pa $ti
, $de
  !if $require>0
   <small>¤wÀò±oÁ`ÂI¬° $[$require] ¤¤ªº $[$got] ÂI¡A¥­§¡¤À¼Æ¬°
   $[$mean]/10¡C</small>
  !endif
 !next i
 </ul>
!endif

!if $wims_user=supervisor
<p>

!href module=adm/class/sheet&sheet=$parm1 ²M³æºÞ²zºô­¶
 (µ¹ºÞ²zªÌ¨Ï¥Î)
!endif
<p>
!homeref
!tail