Subversion Repositories wimsdev

Rev

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

Rev 12912 Rev 12975
Line 126... Line 126...
126 
      subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
 126 
      subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
127 
      subclasses=!column 1 of $subclasses
 127 
      subclasses=!column 1 of $subclasses
128 
      subclasses=!makelist $wims_class/x for x in $subclasses
 128 
      subclasses=!makelist $wims_class/x for x in $subclasses
129 
      subclasscnt=!itemcnt $subclasses
 129 
      subclasscnt=!itemcnt $subclasses
130 
      !if $wims_user=supervisor
 130 
      !if $wims_user=supervisor
131 
         subclasscnt=0
 131 
        subclasscnt=0
132 
      !endif
 132 
      !endif
133 
      subclass1=$wims_participate
 133 
      subclass1=$wims_participate
134 
    !endif
 134 
    !endif
135 
  !if $class_type=3
 135 
    !if $class_type=3
136 
    subclasses=!record 0 of wimshome/log/classes/$wims_class/courses
 136 
      subclasses=!record 0 of wimshome/log/classes/$wims_class/courses
137 
    split=!translate internal / to , in $wims_class
 137 
      split=!translate internal / to , in $wims_class
138 
    subclasset=!record 0 of wimshome/log/classes/$(split[1])/$(split[2])/icourses
 138 
      subclasset=!record 0 of wimshome/log/classes/$(split[1])/$(split[2])/icourses
139 
    subclasses=!append line $subclasset to $subclasses
 139 
      subclasses=!append line $subclasset to $subclasses
140 
    subclasset=!record 0 of wimshome/log/classes/$(split[1])/icourses
 140 
      subclasset=!record 0 of wimshome/log/classes/$(split[1])/icourses
141 
    subclasses=!append line $subclasset to $subclasses
 141 
      subclasses=!append line $subclasset to $subclasses
142 
    subclasses=!column 1 of $subclasses
 142 
      subclasses=!column 1 of $subclasses
143 
    subclasses=!listuniq $subclasses
 143 
      subclasses=!listuniq $subclasses
144 
    subclasses=!makelist $wims_superclass/x for x in $subclasses
 144 
      subclasses=!makelist $wims_superclass/x for x in $subclasses
145 
    subclasscnt=!itemcnt $subclasses
 145 
      subclasscnt=!itemcnt $subclasses
146 
    !if $wims_user=supervisor
 146 
      !if $wims_user=supervisor
147 
      subclasscnt=0
 147 
        subclasscnt=0
148 
    !endif
 148 
      !endif
149 
    subclass1=$class_ocourses
 149 
      subclass1=$class_ocourses
150 
    subclass1=!makelist $wims_superclass/x for x in $subclass1
 150 
      subclass1=!makelist $wims_superclass/x for x in $subclass1
151 
    upart=!listcomplement $wims_class in $wims_participate
 151 
      upart=!listcomplement $wims_class in $wims_participate
152 
    upart2=!defof user_courses in wimshome/log/classes/$wims_class/.users/$wims_user
 152 
      upart2=!defof user_courses in wimshome/log/classes/$wims_class/.users/$wims_user
153 
    !if $upart2!=$empty
 153 
      !if $upart2!=$empty
154 
      upart2=!makelist $wims_superclass/x for x in $upart2
 154 
        upart2=!makelist $wims_superclass/x for x in $upart2
155 
      upart=!append item $upart2 to $upart
 155 
        upart=!append item $upart2 to $upart
156 
    !endif
 156 
      !endif
157 
    subclass1=!listunion $subclass1 and $upart
 157 
      subclass1=!listunion $subclass1 and $upart
158 
    !endif
 158 
    !endif
159 
    !if $class_type=2
 159 
    !if $class_type=2
160 
      subclasses=!sh cut -d, -f1 $wims_home/log/classes/$wims_class/.subclasses
 160 
      subclasses=!sh cut -d, -f1 $wims_home/log/classes/$wims_class/.subclasses
161 
      subclasses=!replace internal : by $ in $subclasses
 161 
      subclasses=!replace internal : by $ in $subclasses
162 
      subclasses=!words2items $subclasses
 162 
      subclasses=!words2items $subclasses
Line 165... Line 165...
165 
      subclass1=$wims_participate
 165 
      subclass1=$wims_participate
166 
    !endif
 166 
    !endif
167 
    subclass1=!sort items $subclass1
 167 
    subclass1=!sort items $subclass1
168 
    subclass2=!listcomplement $subclass1 in $subclasses
 168 
    subclass2=!listcomplement $subclass1 in $subclasses
169 
    !if $class_type iswordof 4 2
 169 
    !if $class_type iswordof 4 2
170 
     subclass3=$wims_supervise
 170 
      subclass3=$wims_supervise
171 
    !endif
 171 
    !endif
172 
    subclasscnt1=!itemcnt $subclass1
 172 
    subclasscnt1=!itemcnt $subclass1
173 
    subclasscnt2=!itemcnt $subclass2
 173 
    subclasscnt2=!itemcnt $subclass2
174 
    subclasscnt3=!itemcnt $subclass3
 174 
    subclasscnt3=!itemcnt $subclass3
175 
  !endif
 175 
  !endif