Rev 23 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | !!! fichier de récupération de code source !!! |
| 2 | |||
| 3 | !mexec catsrc.sh |
||
| 4 | |||
| 5 | !defread wimshome/sessions/$wims_session/tempsrc |
||
| 6 | |||
| 7 | !if $toef_var4 notitemof 1,2,3 |
||
| 8 | exalert=$(alerts[6;]) |
||
| 9 | !exit |
||
| 10 | !endif |
||
| 11 | |||
| 12 | !for i=1 to $toef_varcnt |
||
| 13 | toef_var$(i)=!translate ¶ to $\ |
||
| 14 | $ in $(toef_var$(i)) |
||
| 15 | toef_var$(i)=!replace internal ? by ? in $(toef_var$(i)) |
||
| 16 | !next i |
||
| 17 | |||
| 18 | ### type1 |
||
| 19 | !if $toef_var4=1 |
||
| 20 | titre=$toef_var1 |
||
| 21 | auteur=$toef_var2 |
||
| 22 | imel=$toef_var3 |
||
| 23 | exo=$toef_var4 |
||
| 24 | obsrecord=$toef_var5 |
||
| 25 | propsrecord=$toef_var6 |
||
| 26 | propsrepList=$toef_var7 |
||
| 27 | ckchnb=$toef_var8 |
||
| 28 | fixchnb=$toef_var9 |
||
| 29 | borng=$toef_var10 |
||
| 30 | bornd=$toef_var11 |
||
| 31 | chnb=$toef_var12 |
||
| 32 | enonceR=$toef_var13 |
||
| 33 | chbox_u_radio=$toef_var14 |
||
| 34 | indicList_obj=$toef_var15 |
||
| 35 | !endif |
||
| 36 | |||
| 37 | ### type2 |
||
| 38 | !if $toef_var4=2 |
||
| 39 | titre=$toef_var1 |
||
| 40 | auteur=$toef_var2 |
||
| 41 | imel=$toef_var3 |
||
| 42 | exo=$toef_var4 |
||
| 43 | obsrecord=$toef_var5 |
||
| 44 | foncsrecord=$toef_var6 |
||
| 45 | foncsrepList=$toef_var7 |
||
| 46 | foncstypList=$toef_var8 |
||
| 47 | enonceR=$toef_var9 |
||
| 48 | indicList_fonc=$toef_var10 |
||
| 49 | !endif |
||
| 50 | |||
| 51 | ### type3 |
||
| 52 | !if $toef_var4=3 |
||
| 53 | titre=$toef_var1 |
||
| 54 | auteur=$toef_var2 |
||
| 55 | imel=$toef_var3 |
||
| 56 | exo=$toef_var4 |
||
| 57 | obsrecord=$toef_var5 |
||
| 58 | propsrecord=$toef_var6 |
||
| 59 | propsrepList=$toef_var7 |
||
| 60 | ckchnb=$toef_var8 |
||
| 61 | fixchnb=$toef_var9 |
||
| 62 | borng=$toef_var10 |
||
| 63 | bornd=$toef_var11 |
||
| 64 | chnb=$toef_var12 |
||
| 65 | foncsrecord=$toef_var13 |
||
| 66 | foncsrepList=$toef_var14 |
||
| 67 | foncstypList=$toef_var15 |
||
| 68 | enonceR=$toef_var16 |
||
| 69 | indicList_obj=$toef_var17 |
||
| 70 | indicList_fonc=$toef_var18 |
||
| 71 | chbox_u_radio=$toef_var19 |
||
| 72 | !endif |
||
| 73 | |||
| 74 | ### reinitialisation |
||
| 75 | chexo=1 |
||
| 76 | prefixdir=Dirtyp$(exo) |
||
| 77 | !read $prefixdir/init |
||
| 78 | !exit |