Subversion Repositories wimsdev

Rev

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

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