Subversion Repositories wimsdev

Rev

Rev 12981 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12981 Rev 14336
Line 5... Line 5...
5 
  !exit
 5 
  !exit
6 
!endif
 6 
!endif
7 
tr_list=
 7 
tr_list=
8 
tr_typename=!defof class_typename in wimshome/log/classes/$wims_class/.def
 8 
tr_typename=!defof class_typename in wimshome/log/classes/$wims_class/.def
9 
tr_l1=!defof user_participate in \
 9 
tr_l1=!defof user_participate in \
10 
	wimshome/log/classes/$wims_superclass/.users/$transfer_user
 10 
  wimshome/log/classes/$wims_superclass/.users/$transfer_user
11 
!if $wims_supertype=4
 11 
!if $wims_supertype=4
12 
  !if $tr_typename=course
 12 
  !if $tr_typename=course
13 
    tr_program=!defof sharing_exam in wimshome/log/classes/$wims_class/neighbors
 13 
    tr_program=!defof sharing_exam in wimshome/log/classes/$wims_class/neighbors
14 
    tr_class=!defof user_class in wimshome/log/classes/$wims_class/.users/$transfer_user
 14 
    tr_class=!defof user_class in wimshome/log/classes/$wims_class/.users/$transfer_user
15 
    !if $tr_class=$empty
 15 
    !if $tr_class=$empty
Line 29... Line 29...
29 
      tr_l2=!makelist $wims_superclass/x for x in $tr_l2
 29 
      tr_l2=!makelist $wims_superclass/x for x in $tr_l2
30 
      tr_l2=!listcomplement $wims_class in $tr_l2
 30 
      tr_l2=!listcomplement $wims_class in $tr_l2
31 
      tr_list=
 31 
      tr_list=
32 
      !for c_ in $tr_l2
 32 
      !for c_ in $tr_l2
33 
        tr_test1=!defof user_class in \
 33 
        tr_test1=!defof user_class in \
34 
	        wimshome/log/classes/$c_/.users/$transfer_user
 34 
          wimshome/log/classes/$c_/.users/$transfer_user
35 
        tr_test2=!defof sharing_exam in wimshome/log/classes/$c_/neighbors
 35 
        tr_test2=!defof sharing_exam in wimshome/log/classes/$c_/neighbors
36 
        !if $wims_superclass/$tr_test1=$tr_class or \
 36 
        !if $wims_superclass/$tr_test1=$tr_class or \
37 
	          $tr_test2=$tr_program
 37 
            $tr_test2=$tr_program
38 
          tr_list=!append item $c_ to $tr_list
 38 
          tr_list=!append item $c_ to $tr_list
39 
        !endif
 39 
        !endif
40 
      !next c_
 40 
      !next c_
41 
    !endif
 41 
    !endif
42 
  !else
 42 
  !else
Line 107... Line 107...
107 
  tr_l1=!makelist x/score for x in $tr_list
 107 
  tr_l1=!makelist x/score for x in $tr_list
108 
  tr_l2=!makelist x/noscore for x in $tr_list
 108 
  tr_l2=!makelist x/noscore for x in $tr_list
109 
  tr_l1=!items2words $tr_l1
 109 
  tr_l1=!items2words $tr_l1
110 
  tr_l2=!items2words $tr_l2
 110 
  tr_l2=!items2words $tr_l2
111 
  tr_score=!sh cd $wims_home/log/classes\
 111 
  tr_score=!sh cd $wims_home/log/classes\
112 
  	find $tr_l1 -name $transfer_user -o -name $transfer_user.exam | sed 's!/score/.*$$!!'
 112 
    find $tr_l1 -name $transfer_user -o -name $transfer_user.exam | sed 's!/score/.*$$!!'
113 
  tr_noscore=!sh cd $wims_home/log/classes\
 113 
  tr_noscore=!sh cd $wims_home/log/classes\
114 
  	find $tr_l2 -name $transfer_user | sed 's!/noscore/.*$$!!'
 114 
    find $tr_l2 -name $transfer_user | sed 's!/noscore/.*$$!!'
115 
  tr_score=!words2items $tr_score
 115 
  tr_score=!words2items $tr_score
116 
  tr_noscore=!words2items $tr_noscore
 116 
  tr_noscore=!words2items $tr_noscore
117 
  tr_list=!listunion $tr_score and $tr_noscore
 117 
  tr_list=!listunion $tr_score and $tr_noscore
118 
  tr_list=!nonempty items $tr_list
 118 
  tr_list=!nonempty items $tr_list
119 
!endif
 119 
!endif
120 
 
 120 
 
121 
transfer_test=!itemcnt $tr_list
 121 
transfer_test=!itemcnt $tr_list
122 
!if $transfer_test<1 or $transfer_cmd=test or\
 122 
!if $transfer_test<1 or $transfer_cmd=test or\
123 
	  $transfer_other notitemof $tr_list
 123 
  $transfer_other notitemof $tr_list
124 
  !exit
 124 
  !exit
125 
!endif
 125 
!endif
126 
 
 126 
 
127 
!if $wims_supertype=4
 127 
!if $wims_supertype=4
128 
  !default tr_program=!defof sharing_exam in wimshome/log/classes/$transfer_other/neighbors
 128 
  !default tr_program=!defof sharing_exam in wimshome/log/classes/$transfer_other/neighbors