Subversion Repositories wimsdev

Rev

Rev 12236 | Rev 12316 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12236 Rev 12238
Line 30... Line 30...
30 
  !if $lang iswordof $test_transl
 30 
  !if $lang iswordof $test_transl
31 
    tr_lang=yes
 31 
    tr_lang=yes
32 
    title=!module title_$lang $dir
 32 
    title=!module title_$lang $dir
33 
    desc=!module description_$lang $dir
 33 
    desc=!module description_$lang $dir
34 
  !endif
 34 
  !endif
35 
  !read getparm $iniparm exo
 35 
  !read getparm $iniparm exo exotrymax
- 
 
 36 
 
36 
  desc=!lookup $get_exo in wimshome/public_html/modules/$dir/Descindex
 37 
  desc=!lookup $get_exo in wimshome/public_html/modules/$dir/Descindex
37 
  obs=!lookup $get_exo in wimshome/public_html/modules/$dir/Obsindex
 38 
  obs=!lookup $get_exo in wimshome/public_html/modules/$dir/Obsindex
38 
  !default title=!module title $dir
 39 
  !default title=!module title $dir
39 
  !default desc=!module description $dir
 40 
  !default desc=!module description $dir
40 
  cat=!module category $dir
 41 
  cat=!module category $dir
Line 97... Line 98...
97 
      error=already_exist
 98 
      error=already_exist
98 
      !exit
 99 
      !exit
99 
    !endif
 100 
    !endif
100 
  !next i
 101 
  !next i
101 
####
 102 
####
- 
 
 103 
  iniparm2=!replace internal & by $\
- 
 
 104 
$ in $iniparm
- 
 
 105 
  !if exotrymax notin $iniparm2 and $newexotrymax>0
- 
 
 106 
    iniparm2=exotrymax=$newexotrymax\
- 
 
 107 
$iniparm2
- 
 
 108 
  !endif
- 
 
 109 
  iniparm2_cnt=!linecnt $iniparm2
- 
 
 110 
  iniparm2=!replace internal & by $\
- 
 
 111 
$ in $iniparm2
102 
  !if $get_random=0
 112 
  !if $get_random=0
103 
    !for i=1 to $get_qnum
 113 
    !for i=1 to $get_qnum
104 
      update_order=!append item $(update_ex$i) to $update_order
 114 
      update_order=!append item $(update_ex$i) to $update_order
105 
    !next
 115 
    !next
- 
 
 116 
    get_exo=$(get_exo[$update_order])
- 
 
 117 
  !endif
106 
 
 118 
 
107 
    get_exo=$(get_exo[$update_order])
 - 
 
108 
    iniparm2=!replace internal & by $\
 - 
 
109 
$ in $iniparm
 - 
 
110 
    iniparm2_cnt=!linecnt $iniparm2
 119 
  iniparm2_cnt=!linecnt $iniparm2
111 
    new_iniparm=
 120 
  new_iniparm=
112 
    equal==
 121 
  equal==
113 
    !for v in $get_exo
 122 
  !for v in $get_exo
114 
      new_iniparm=!append item exo=$v to $new_iniparm
 123 
    new_iniparm=!append item exo=$v to $new_iniparm
115 
    !next
 124 
  !next
116 
    !for u=1 to $iniparm2_cnt
 125 
  !for u=1 to $iniparm2_cnt
117 
      l=!line $u of $iniparm2
 126 
    l=!line $u of $iniparm2
- 
 
 127 
    !if exotrymax isin $l
- 
 
 128 
      new_iniparm=!append item exotrymax=$newexotrymax to $new_iniparm
- 
 
 129 
    !else
118 
      !if exo$equal notin $l
 130 
      !if exo$equal notin $l =
119 
        new_iniparm=!append item $l to $new_iniparm
 131 
        new_iniparm=!append item $l to $new_iniparm
120 
      !endif
 132 
      !endif
- 
 
 133 
    !endif
121 
    !next
 134 
  !next
122 
    new_iniparm=!nospace $new_iniparm
 135 
  new_iniparm=!nospace $new_iniparm
123 
    new_iniparm=!replace internal , by & in $new_iniparm=
 136 
  !if $equal notin $(new_iniparm[-1])
124 
    iniparm=$new_iniparm
 137 
    new_iniparm=$new_iniparm=
125 
  !endif
 138 
  !endif
- 
 
 139 
  new_iniparm=!replace internal , by & in $new_iniparm
- 
 
 140 
  iniparm=$new_iniparm
126 
#####
 141 
#####
127 
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$picksheet :$dir\
 142 
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$picksheet :$dir\
128 
$iniparm\
 143 
$iniparm\
129 
$require\
 144 
$require\
130 
$weight\
 145 
$weight\