Subversion Repositories wimsdev

Rev

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

  1.  
  2. !set wims_form_method=post
  3. !read adm/title.phtml 1\
  4. $classname\
  5. $wims_name_csv
  6.  
  7. !if $wims_user=supervisor and ($wims_typename iswordof course or \
  8.     ($wims_typename iswordof class and $wims_supertype iswordof 0 2))
  9.   <p class="wimscenter">
  10.   !set wims_ref_class=wims_button
  11.   !href cmd=reply $name_direct_score
  12.   </p>
  13. !endif
  14.  
  15. !if $error!=$empty
  16.   <div class="wims_msg alert">
  17.   !read lang/msg.phtml.$moduclass_lang
  18.   </div>
  19.   !if $error iswordof not_secure not_superclass
  20.     !exit
  21.   !endif
  22.   <hr />
  23. !endif
  24.  
  25. !if $outfile!=$empty
  26.   <div class="wims_msg success">
  27.   $name_file <span class="tt wims_fname">
  28.   !getfile $outfile $outfile
  29.   </span> $name_download
  30.   </div>
  31. !endif
  32.  
  33. !if $processed=yes
  34.   !if $remark$change$added$missing$erased!=$empty or $manual=yes
  35.     <div class="wims_msg success">
  36.     $name_deposit
  37.     <ul>
  38.     !if $change!=$empty
  39.       <li>$name_infochanged: <span class="tt wims_login">
  40.       !replace internal , by ,$ $ in $change
  41.       </span></li>
  42.     !endif
  43.     !if $added!=$empty
  44.       <li>$name_added: <span class="tt wims_login">
  45.       !replace internal , by ,$ $ in $added
  46.       </span></li>
  47.     !endif
  48.     !if $bad_login!=$empty
  49.       <li>$name_badlogin: <span class="tt wims_login">
  50.        !replace internal , by ,$ $ in $bad_login
  51.       </span></li>
  52.     !endif
  53.     !if full iswordof $remark
  54.       <li>$name_warning1</li>
  55.     !endif
  56.     !if noprop iswordof $remark
  57.       <li>$name_warning2</li>
  58.     !endif
  59.     !if noauto iswordof $remark
  60.       <li>$name_warning3</li>
  61.     !endif
  62.     !if $erased!=$empty
  63.       <li>$name_warning4:
  64.       <span class="tt wims_login">
  65.       !replace internal , by ,$ $ in $erased
  66.       </span></li>
  67.     !endif
  68.     !if $missing!=$empty
  69.       <li>
  70.       !if full notwordof $remark
  71.         $name_nologin1:
  72.       !else
  73.         $name_nologin2:
  74.       !endif
  75.       <span class="tt wims_login">$missing</span>.
  76.       !if $pass_missing=yes
  77.         $name_passwarning
  78.       !endif
  79.       </li>
  80.     !endif
  81.     !if $manual=yes
  82.       <li>$name_manual1
  83.       !href module=adm/class/grades $name_check
  84.       .</li>
  85.     !endif
  86.     </ul>
  87.     </div>
  88.   !else
  89.     <div class="wims_msg success">
  90.     $name_data1
  91.     </div>
  92.   !endif
  93. !endif
  94.  
  95. !form reply
  96. <input type="hidden" name="job" value="csv" />
  97. <input type="hidden" name="csvtype" value="download" />
  98. $name_data2
  99. <ul>
  100. <li>$name_format
  101. !formselect csvformat list $csvformatlist
  102.  &nbsp;
  103. !set wims_ref_class=wims_button_help
  104. !href module=$module&cmd=help&special_parm=csvformats $wims_name_help
  105. </li>
  106.  
  107. !! keywords of column
  108.  
  109. <li>
  110. $name_column
  111. &nbsp;
  112. !set wims_ref_class=wims_button_help
  113. !href module=$module&cmd=help&special_parm=csvfields $wims_name_help
  114.  
  115. !readproc csv/keyword.proc
  116. <div class="field">
  117. <ul>
  118.   <li>
  119. !for bas in basic, basic2
  120.   !if $($bas)!=$empty
  121.     !let tmp=!replace password by in $($bas)
  122.     !let tmp=!replace vars by in $($bas)
  123.     !let tmp=!words2items $tmp
  124.     !for k in $tmp
  125.       <input type="checkbox" name="csvdownload" id="csvdownload_$k" value="$k" /><label for="csvdownload_$k">$k</label>
  126.     !next k
  127.   !endif
  128. !next bas
  129. </li>
  130. !let list_type=sh,shexo,ex,exexo,examduration,ma
  131. !let list_name=$wims_name_Sheets,$name_indicateur,$wims_name_Examens,$wims_name_Examens ($wims_name_Exercices),\
  132. $wims_name_Examens ($name_Duration),$name_manualscore
  133. !!! list for field "all"
  134. !let list_keyword=sheets,sheetexo,exams,examexo,examduration,manuals
  135. !if $($(list_type[1]))$($(list_type[2]))$($(list_type[3]))$($(list_type[4]))$($(list_type[5]))!=$empty
  136.   <li><input type="checkbox" name="csvdownload" id="csvdownload_allscore" value="allscore" /><label for="csvdownload_allscore">$name_allscore</label></li>
  137. !endif
  138. !for t from 1 to 6
  139.   !if $($(list_type[$t]))!=$empty
  140.     !let tmp=!words2items $($(list_type[$t]))
  141.     <li>
  142.     <b>$(list_name[$t])</b>:
  143.     !if $t notwordof 2 4 5
  144.       <input type="checkbox" name="csvdownload" id="csvdownload_$(list_keyword[$t])" value="$(list_keyword[$t])" /><label for="csvdownload_$(list_keyword[$t])">$name_all</label>
  145.     !endif
  146.     !for k in $tmp
  147.       <input type="checkbox" name="csvdownload" id="csvdownload_$k" value="$k" /><label for="csvdownload_$k">$k</label>
  148.     !next k
  149.     </li>
  150.   !endif
  151. !next t
  152. !if $av!=$empty
  153.   !let tmp=!words2items $av
  154.   <li><b>$name_Average</b>:
  155.   !for k in $tmp
  156.     <input type="checkbox" name="csvdownload" id="csvdownload_$k" value="$k" /><label for="csvdownload_$k">$k</label>
  157.   !next k
  158.   </li>
  159. !endif
  160. <li>
  161.  <input type="checkbox" name="csvdownload" id="csvdownload_techvar" value="techvar" />
  162.  <label for="csvdownload_techvar">$name_techvar</label>
  163. </li><li>
  164.  <input type="checkbox" name="csvdownload" id="csvdownload_regvar" value="regvar" />
  165.   <label for="csvdownload_regvar">$name_regvar</label>
  166.  </li>
  167.  </ul>
  168. </li>
  169. </ul>
  170. <input type="submit" value="$wims_name_download" />
  171. !formend
  172.  
  173. !! open the upload to the level supervisor alternative use user_supervise
  174. !if $classtype notin 13 or $typename iswordof class course  or\
  175.     ($typename iswordof level and $wims_user=supervisor)
  176.   <hr />
  177.   !if $list_sheettechvar!=$empty
  178.     <div class="wims_msg warning">
  179.       $name_usedindiv
  180.     </div>
  181.   !endif
  182.   !set wims_form_method=file
  183.   !form reply
  184.   <input type="hidden" name="job" value="csv" />
  185.   <input type="hidden" name="csvtype" value="upload" />
  186.   $name_data3
  187.   &nbsp;
  188.   !set wims_ref_class=wims_button_help
  189.   !href module=$module&cmd=help&special_parm=upload $wims_name_help
  190.   <ul>
  191.   <li>$name_data <input type="file" size="30" name="wims_deposit" /> <br />
  192.   $name_format2: <span class="tt">.csv</span>, <span class="tt">.tsv</span>, <span class="tt">.txt</span>
  193.   &nbsp;
  194.   !set wims_ref_class=wims_button_help
  195.   !href module=$module&cmd=help&special_parm=csvformats2 $wims_name_help
  196.   </li>
  197.   </ul>
  198.   <input type="submit" value="$wims_name_send" />
  199.   !formend
  200. !endif
  201.  
  202. !set wims_menu_items=!append line itemsep,0,$wims_name_manage\
  203. usermanage,1,module=adm/class/usermanage\
  204. techvar,1,module=adm/class/techvar\
  205. to $wims_menu_items
  206.  
  207. !if $wims_user=supervisor and ($wims_typename iswordof course or \
  208.     ($wims_typename iswordof class and $wims_supertype iswordof 0 2))
  209.   !set wims_menu_items=!append line itemsep,0,$wims_name_Evaluation\
  210.   Score1,1,cmd=resume\
  211.   livret,1,module=adm/class/livret\
  212. to $wims_menu_items
  213. !endif
  214.