Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
1664 bpr 1 
!exit
1076 bpr 2 
!!$wims_html_header
3 
!!<body $wims_htmlbody>
4 
!header1
20 reyssat 5 
<p><center><h3>
6 
!href module=$module&cmd=intro WIMS
7 
 $module_title<br>
8 
<font size=-1>--- Versione stampabile ---</font></h3></center> <p>
1076 bpr 9 
!!<div class=wimsbody>
20 reyssat 10 
 
11 
!if $error!=$empty
12 
 !changeto oef/msg.phtml
13 
!endif
14 
 
15 
!for i=1 to $n
16 
 <p>
17 
 <b>Esercizio</b> $i. (<u><em>$(title_$i)</em></u>)
18 
 !if $(question_$i)=$empty
19 
  (Non-stampabile)
20 
 !else
21 
  !if __EXECUTED_ isin $(question_$i) and _EXERCISE__ isin $(question_$i)
22 
   !set thisexo=$(name_$i)
23 
   !readproc oef/imagedir.proc
24 
   !for k=1 to $(varcnt_$i)+5
25 
    !set val$k=!line $k of $(var_$i)
26 
   !next k
27 
   !read $(class_header)def/$(name_$i).def question
28 
  !else
29 
   $(question_$i)
30 
  !endif
1076 bpr 31 
  !!</a></tt></font></center>
32 
 !! </h1></h2></h3></h4></b></i></em>
20 reyssat 33 
  $(chce_$i)
34 
 !endif
35 
!next i
36 
 
37 
!if $wims_user!=$empty and $wims_user!=supervisor
38 
 !goto noans
39 
!endif
40 
 
1361 czzmrn 41 
!if $test_print=1
42 
<p><hr>
1076 bpr 43 
<div class="wims_solution">
1361 czzmrn 44 
<center><h3>Soluzione</h3></center>
20 reyssat 45 
!for i=1 to $n
46 
 !set t=!linecnt $(ans_$i)
47 
 !if $t>0
48 
  <p><b>Risposta all'esercizio $i.</b><ul>
49 
  !for k=1 to $t
1361 czzmrn 50 
  !set l__=!line $k of $(ans_$i)
51 
  !if $l__ !=
52 
   <li value=$k>
20 reyssat 53 
   !line $k of $(ans_$i)
1361 czzmrn 54 
   </li>
55 
  !reset l__
56 
  !endif
20 reyssat 57 
  !next k
58 
  </ul>
59 
 !endif
60 
!next i
1076 bpr 61 
</div>
1361 czzmrn 62 
!endif
20 reyssat 63 
 
64 
:noans
1361 czzmrn 65 
</div>
1198 bpr 66 
!!<div class="wims_noprint"><hr>
67 
!!!href cmd=reply&print=yes Un'altra
68 
!!&nbsp;&nbsp;
69 
!!!href module=$module&cmd=intro Torna alla versione interattiva
70 
!!</div>
1336 bpr 71 
!set wims_menu_items=!append line renew,1,cmd=reply&print=yes\
1198 bpr 72 
back2,1,module=$module&cmd=intro\
1336 bpr 73 
to $wims_menu_items
1198 bpr 74 
!tail
1361 czzmrn 75 
!tail