Subversion Repositories wimsdev

Rev

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

Rev 12316 Rev 13760
Line 119... Line 119...
119 
 
 119 
 
120 
  iniparm2_cnt=!linecnt $iniparm2
 120 
  iniparm2_cnt=!linecnt $iniparm2
121 
  new_iniparm=
 121 
  new_iniparm=
122 
  equal==
 122 
  equal==
123 
  !for v in $get_exo
 123 
  !for v in $get_exo
124 
    new_iniparm=!append item exo=$v to $new_iniparm
 124 
    new_iniparm=!append line exo=$v to $new_iniparm
125 
  !next
 125 
  !next
126 
  !for u=1 to $iniparm2_cnt
 126 
  !for u=1 to $iniparm2_cnt
127 
    l=!line $u of $iniparm2
 127 
    l=!line $u of $iniparm2
128 
    !if exotrymax isin $l
 128 
    !if exotrymax isin $l
129 
      new_iniparm=!append item exotrymax=$newexotrymax to $new_iniparm
 129 
      new_iniparm=!append line exotrymax=$newexotrymax to $new_iniparm
130 
    !else
 130 
    !else
131 
      !if exo$equal notin $l =
 131 
      !if exo$equal notin $l =
132 
        new_iniparm=!append item $l to $new_iniparm
 132 
        new_iniparm=!append line $l to $new_iniparm
133 
      !endif
 133 
      !endif
134 
    !endif
 134 
    !endif
135 
  !next
 135 
  !next
136 
  new_iniparm=!nospace $new_iniparm
 - 
 
137 
  !if $equal notin $(new_iniparm[-1])
 136 
  !if $equal notin $(new_iniparm[-1])
138 
    new_iniparm=$new_iniparm=
 137 
    new_iniparm=$new_iniparm=
139 
  !endif
 138 
  !endif
140 
  new_iniparm=!replace internal , by & in $new_iniparm
 139 
  new_iniparm=!replace internal $\
- 
 
 140 
$ by & in $new_iniparm
- 
 
 141 
  new_iniparm=!nospace $new_iniparm
141 
  iniparm=$new_iniparm
 142 
  iniparm=$new_iniparm
142 
#####
 143 
  #####
143 
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$picksheet :$dir\
 144 
  !appendfile wimshome/log/classes/$wims_class/sheets/.sheet$picksheet :$dir\
144 
$iniparm\
 145 
$iniparm\
145 
$require\
 146 
$require\
146 
$weight\
 147 
$weight\
147 
$ititle\
 148 
$ititle\