Subversion Repositories wimsdev

Rev

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

Rev 11979 Rev 12499
Line 2... Line 2...
2 
# basic variable preparation.
 2 
# basic variable preparation.
3 
!if robot isin $session
 3 
!if robot isin $session
4 
 !exit
 4 
  !exit
5 
!endif
 5 
!endif
6 
!set classification_open=!defof classification_open in wimshome/log/wims.conf
 6 
!set classification_open=!defof classification_open in wimshome/log/wims.conf
7 
!if $classification_open=yes
 7 
!if $classification_open=yes
8 
  !setdef wims_classification_open=yes in wimshome/sessions/$wims_session/var.stat
 8 
  !setdef wims_classification_open=yes in wimshome/sessions/$wims_session/var.stat
9 
!endif
 9 
!endif
10 
!if $wims_user=supervisor or $wims_supconnectshowed=yes
 10 
!if $wims_user=supervisor or $wims_supconnectshowed=yes
11 
 !readproc adm/whoconnect
 11 
  !readproc adm/whoconnect
12 
!endif
 12 
!endif
13 
 
 13 
 
14 
!if $directworksheet!=$empty
 14 
!if $directworksheet!=$empty
15 
 !changeto launchseries.proc
 15 
  !changeto launchseries.proc
16 
!endif
 16 
!endif
17 
 
 17 
 
18 
wims_prefix=class user tmp cdt search m
 18 
wims_prefix=class user tmp cdt search m
19 
wims_writable=exolist titlelist exototal package lastsearch \
 19 
wims_writable=exolist titlelist exototal package lastsearch \
20 
    titb keyw datm prev next upbl dat1 dat2 front_exist
 20 
    titb keyw datm prev next upbl dat1 dat2 front_exist
Line 26... Line 26...
26 
module_language=$lang
 26 
module_language=$lang
27 
subclasscnt=0
 27 
subclasscnt=0
28 
 
 28 
 
29 
test=!record 0 of wimshome/public_html/modules/adm/browse/index
 29 
test=!record 0 of wimshome/public_html/modules/adm/browse/index
30 
!if $test!=$empty
 30 
!if $test!=$empty
31 
 has_browse=yes
 31 
  has_browse=yes
32 
 browse_parm=job=$browse_job&parm=$browse_parm
 32 
  browse_parm=job=$browse_job&parm=$browse_parm
33 
!endif
 33 
!endif
34 
 
 34 
 
35 
!if $wims_user!=$empty and $wims_class!=$empty
 35 
!if $wims_user!=$empty and $wims_class!=$empty
36 
 !readdef ./wimshome/log/classes/$wims_class/.def
 36 
  !readdef ./wimshome/log/classes/$wims_class/.def
37 
 !default class_typename=class
 37 
  !default class_typename=class
38 
 !set class_authidp=!defof class_authidp in wimshome/log/classes/$wims_superclass/.def
 38 
  !set class_authidp=!defof class_authidp in wimshome/log/classes/$wims_superclass/.def
39 
 !set auth_method_list=cas,ldap,php
 39 
  !set auth_method_list=cas,ldap,php
40 
 !set auth_method=$(class_authidp[1;])
 40 
  !set auth_method=$(class_authidp[1;])
41 
 !if $(class_authidp[1;]) isitemof $auth_method_list
 41 
  !if $(class_authidp[1;]) isitemof $auth_method_list
42 
   !set ext_login=$wims_external_auth
 42 
    !set ext_login=$wims_external_auth
43 
 !endif
 43 
  !endif
44 
 !if $wims_user!=supervisor
 44 
  !if $wims_user!=supervisor
45 
   !default ext_login=$wims_user
 45 
    !default ext_login=$wims_user
46 
 !else
 46 
  !else
47 
   !default ext_login=$wims_realuser
 47 
    !default ext_login=$wims_realuser
48 
   !default ext_login=$wims_user
 48 
    !default ext_login=$wims_user
49 
   !default ext_login=supervisor
 49 
    !default ext_login=supervisor
50 
 !endif
 50 
  !endif
51 
!endif
 51 
!endif
52 
 
 52 
 
53 
!read names.$lang
 53 
!read names.$lang
54 
!if $wims_user=$empty or $wims_user=supervisor or _tool isin $wims_session
 54 
!if $wims_user=$empty or $wims_user=supervisor or _tool isin $wims_session
55 
 !read search.proc
 55 
  !read search.proc
56 
 s_lang=$search_lang
 56 
  s_lang=$search_lang
57 
 s_category=$search_category
 57 
  s_category=$search_category
58 
 s_keywords=$search_keywords
 58 
  s_keywords=$search_keywords
59 
 !if $s_keywords!=$empty and $s_category!=V and $readback!=yes
 59 
  !if $s_keywords!=$empty and $s_category!=V and $readback!=yes
60 
  c=$gotcnt
 60 
    c=$gotcnt
61 
  !if $gottype!=search
 61 
    !if $gottype!=search
62 
   c=0
 62 
      c=0
63 
  !endif
 63 
    !endif
64 
  !read wimshome/$s2dir/home_lastsearch
 64 
    !read wimshome/$s2dir/home_lastsearch
65 
  !if $s_lang,$s_category,$s_keywords!=$lastsearch
 65 
    !if $s_lang,$s_category,$s_keywords!=$lastsearch
66 
   wims_module_log=$(s_lang)_$s_category=$c: $s_keywords
 66 
      wims_module_log=$(s_lang)_$s_category=$c: $s_keywords
67 
   !writefile wimshome/$s2dir/home_lastsearch lastsearch=$s_lang,$s_category,$s_keywords
 67 
      !writefile wimshome/$s2dir/home_lastsearch lastsearch=$s_lang,$s_category,$s_keywords
68 
  !endif
 68 
    !endif
69 
 !endif
 69 
  !endif
70 
!endif
 70 
!endif
71 
 
 71 
 
72 
!if $wims_user=supervisor
 72 
!if $wims_user=supervisor
73 
 docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
 73 
  docpubliccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.docindex
74 
 doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
 74 
  doccnt=!recordcnt wimshome/log/classes/$wims_class/doc/.index
75 
 sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 75 
  sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
76 
 min_sheet_erasable=0
 76 
  min_sheet_erasable=0
77 
 !for k=1 to $sheetcnt
 77 
  !for k=1 to $sheetcnt
78 
  t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
 78 
    t=!record $k of wimshome/log/classes/$wims_class/sheets/.sheets
79 
  t=!line 1 of $t
 79 
    t=!line 1 of $t
80 
  !if $t>0
 80 
    !if $t>0
81 
   min_sheet_erasable=$k
 81 
      min_sheet_erasable=$k
- 
 
 82 
    !endif
- 
 
 83 
  !next k
- 
 
 84 
  examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
- 
 
 85 
  min_exam_erasable=0
- 
 
 86 
  !for k=1 to $examcnt
- 
 
 87 
    t=!record $k of wimshome/log/classes/$wims_class/exams/.exams
- 
 
 88 
    t=!line 1 of $t
- 
 
 89 
    !if $t>0
- 
 
 90 
      min_exam_erasable=$k
- 
 
 91 
    !endif
- 
 
 92 
  !next k
- 
 
 93 
  votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
- 
 
 94 
  !read wimshome/log/classes/$wims_class/Exindex
- 
 
 95 
  !read ./adm/du $wims_home/log/classes/$wims_class
- 
 
 96 
  !if $class_type=4 and $wims_superclass_quota!=$empty
- 
 
 97 
    quota_free=$[$wims_superclass_quota-$du]
- 
 
 98 
  !else
- 
 
 99 
    quota_free=$[$wims_class_quota-$du]
82 
  !endif
 100 
  !endif
83 
 !next k
 - 
 
84 
 examcnt=!recordcnt wimshome/log/classes/$wims_class/exams/.exams
 - 
 
85 
 min_exam_erasable=0
 - 
 
86 
 !for k=1 to $examcnt
 - 
 
87 
  t=!record $k of wimshome/log/classes/$wims_class/exams/.exams
 - 
 
88 
  t=!line 1 of $t
 - 
 
89 
  !if $t>0
 - 
 
90 
   min_exam_erasable=$k
 - 
 
91 
  !endif
 - 
 
92 
 !next k
 - 
 
93 
 votecnt=!recordcnt wimshome/log/classes/$wims_class/vote/.votes
 - 
 
94 
 !read wimshome/log/classes/$wims_class/Exindex
 - 
 
95 
 !read ./adm/du $wims_home/log/classes/$wims_class
 - 
 
96 
 !if $class_type=4 and $wims_superclass_quota!=$empty
 - 
 
97 
  quota_free=$[$wims_superclass_quota-$du]
 - 
 
98 
 !else
 - 
 
99 
  quota_free=$[$wims_class_quota-$du]
 - 
 
100 
 !endif
 - 
 
101 
!endif
 101 
!endif
102 
 
 102 
 
103 
!if $wims_user!=$empty
 103 
!if $wims_user!=$empty
104 
 !if $wims_class_refcolor!=$empty
 104 
  !if $wims_class_refcolor!=$empty
105 
  wims_ref_bgcolor=$wims_class_refcolor
 105 
    wims_ref_bgcolor=$wims_class_refcolor
106 
 !endif
 106 
  !endif
107 
 !read ./var.msgcnt
 107 
  !read ./var.msgcnt
108 
 !default class_type=0
 108 
  !default class_type=0
109 
 !if $class_type=2
 - 
 
110 
   !exchange wims_institutionname, wims_classname
 - 
 
111 
 !endif
 - 
 
112 
 !if $class_type=1
 - 
 
113 
  parentcheck=!defof user_class in wimshome/log/classes/$wims_class/.users/$wims_user
 - 
 
114 
  !if $parentcheck!=$empty
 - 
 
115 
   class_parent=$wims_superclass/$parentcheck
 - 
 
116 
  !endif
 - 
 
117 
 !endif
 - 
 
118 
 !default wims_realuser=$wims_user
 - 
 
119 
 !read adm/class/userdef logclasses,$wims_class,$wims_realuser
 - 
 
120 
 supervisable=!defof user_supervisable in $userdef
 - 
 
121 
 !if $class_type>=2
 - 
 
122 
  !if $class_type=4
 - 
 
123 
   subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
 - 
 
124 
   subclasses=!column 1 of $subclasses
 - 
 
125 
   subclasses=!makelist $wims_class/x for x in $subclasses
 - 
 
126 
   subclasscnt=!itemcnt $subclasses
 - 
 
127 
   !if $wims_user=supervisor
 - 
 
128 
    subclasscnt=0
 - 
 
129 
   !endif
 - 
 
130 
   subclass1=$wims_participate
 - 
 
131 
  !endif
 - 
 
132 
  !if $class_type=3
 - 
 
133 
   subclasses=!record 0 of wimshome/log/classes/$wims_class/courses
 - 
 
134 
   split=!translate internal / to , in $wims_class
 - 
 
135 
   subclasset=!record 0 of wimshome/log/classes/$(split[1])/$(split[2])/icourses
 - 
 
136 
   subclasses=!append line $subclasset to $subclasses
 - 
 
137 
   subclasset=!record 0 of wimshome/log/classes/$(split[1])/icourses
 - 
 
138 
   subclasses=!append line $subclasset to $subclasses
 - 
 
139 
   subclasses=!column 1 of $subclasses
 - 
 
140 
   subclasses=!listuniq $subclasses
 - 
 
141 
   subclasses=!makelist $wims_superclass/x for x in $subclasses
 - 
 
142 
   subclasscnt=!itemcnt $subclasses
 - 
 
143 
   !if $wims_user=supervisor
 - 
 
144 
    subclasscnt=0
 - 
 
145 
   !endif
 - 
 
146 
   subclass1=$class_ocourses
 - 
 
147 
   subclass1=!makelist $wims_superclass/x for x in $subclass1
 - 
 
148 
   upart=!listcomplement $wims_class in $wims_participate
 - 
 
149 
   upart2=!defof user_courses in wimshome/log/classes/$wims_class/.users/$wims_user
 - 
 
150 
   !if $upart2!=$empty
 - 
 
151 
    upart2=!makelist $wims_superclass/x for x in $upart2
 - 
 
152 
    upart=!append item $upart2 to $upart
 - 
 
153 
   !endif
 - 
 
154 
   subclass1=!listunion $subclass1 and $upart
 - 
 
155 
  !endif
 - 
 
156 
  !if $class_type=2
 109 
  !if $class_type=2
157 
   subclasses=!sh cut -d, -f1 $wims_home/log/classes/$wims_class/.subclasses
 - 
 
158 
   subclasses=!replace internal : by $ in $subclasses
 - 
 
159 
   subclasses=!words2items $subclasses
 - 
 
160 
   subcnt=!recordcnt wimshome/log/classes/$wims_class/.subclasses
 110 
    !exchange wims_institutionname, wims_classname
161 
   subclasscnt=!itemcnt $subclasses
 - 
 
162 
   subclass1=$wims_participate
 - 
 
163 
  !endif
 111 
  !endif
- 
 
 112 
  !if $class_type=1
- 
 
 113 
    parentcheck=!defof user_class in wimshome/log/classes/$wims_class/.users/$wims_user
- 
 
 114 
    !if $parentcheck!=$empty
- 
 
 115 
      class_parent=$wims_superclass/$parentcheck
- 
 
 116 
    !endif
- 
 
 117 
  !endif
- 
 
 118 
  !default wims_realuser=$wims_user
- 
 
 119 
  !read adm/class/userdef logclasses,$wims_class,$wims_realuser
- 
 
 120 
  supervisable=!defof user_supervisable in $userdef
- 
 
 121 
  !if $class_type>=2
- 
 
 122 
    !if $class_type=4
- 
 
 123 
      subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
- 
 
 124 
      subclasses=!column 1 of $subclasses
- 
 
 125 
      subclasses=!makelist $wims_class/x for x in $subclasses
- 
 
 126 
      subclasscnt=!itemcnt $subclasses
- 
 
 127 
      !if $wims_user=supervisor
- 
 
 128 
         subclasscnt=0
- 
 
 129 
      !endif
- 
 
 130 
      subclass1=$wims_participate
- 
 
 131 
    !endif
- 
 
 132 
  !if $class_type=3
- 
 
 133 
    subclasses=!record 0 of wimshome/log/classes/$wims_class/courses
- 
 
 134 
    split=!translate internal / to , in $wims_class
- 
 
 135 
    subclasset=!record 0 of wimshome/log/classes/$(split[1])/$(split[2])/icourses
- 
 
 136 
    subclasses=!append line $subclasset to $subclasses
- 
 
 137 
    subclasset=!record 0 of wimshome/log/classes/$(split[1])/icourses
- 
 
 138 
    subclasses=!append line $subclasset to $subclasses
- 
 
 139 
    subclasses=!column 1 of $subclasses
- 
 
 140 
    subclasses=!listuniq $subclasses
- 
 
 141 
    subclasses=!makelist $wims_superclass/x for x in $subclasses
- 
 
 142 
    subclasscnt=!itemcnt $subclasses
- 
 
 143 
    !if $wims_user=supervisor
- 
 
 144 
      subclasscnt=0
- 
 
 145 
    !endif
- 
 
 146 
    subclass1=$class_ocourses
- 
 
 147 
    subclass1=!makelist $wims_superclass/x for x in $subclass1
- 
 
 148 
    upart=!listcomplement $wims_class in $wims_participate
- 
 
 149 
    upart2=!defof user_courses in wimshome/log/classes/$wims_class/.users/$wims_user
- 
 
 150 
    !if $upart2!=$empty
- 
 
 151 
      upart2=!makelist $wims_superclass/x for x in $upart2
- 
 
 152 
      upart=!append item $upart2 to $upart
- 
 
 153 
    !endif
- 
 
 154 
    subclass1=!listunion $subclass1 and $upart
- 
 
 155 
    !endif
- 
 
 156 
    !if $class_type=2
- 
 
 157 
      subclasses=!sh cut -d, -f1 $wims_home/log/classes/$wims_class/.subclasses
- 
 
 158 
      subclasses=!replace internal : by $ in $subclasses
- 
 
 159 
      subclasses=!words2items $subclasses
- 
 
 160 
      subcnt=!recordcnt wimshome/log/classes/$wims_class/.subclasses
- 
 
 161 
      subclasscnt=!itemcnt $subclasses
- 
 
 162 
      subclass1=$wims_participate
- 
 
 163 
    !endif
164 
  subclass1=!sort items $subclass1
 164 
    subclass1=!sort items $subclass1
165 
  subclass2=!listcomplement $subclass1 in $subclasses
 165 
    subclass2=!listcomplement $subclass1 in $subclasses
166 
  !if $class_type iswordof 4 2
 166 
    !if $class_type iswordof 4 2
167 
   subclass3=$wims_supervise
 167 
     subclass3=$wims_supervise
- 
 
 168 
    !endif
- 
 
 169 
    subclasscnt1=!itemcnt $subclass1
- 
 
 170 
    subclasscnt2=!itemcnt $subclass2
- 
 
 171 
    subclasscnt3=!itemcnt $subclass3
168 
  !endif
 172 
  !endif
169 
  subclasscnt1=!itemcnt $subclass1
 - 
 
170 
  subclasscnt2=!itemcnt $subclass2
 - 
 
171 
  subclasscnt3=!itemcnt $subclass3
 - 
 
172 
 !endif
 - 
 
173 
!endif
 173 
!endif
174 
!readproc ./var.cdt
 174 
!readproc ./var.cdt
175 
!read ./otherclass.proc
 175 
!read ./otherclass.proc
176 
!if $wims_sheet=$empty
 176 
!if $wims_sheet=$empty
177 
!!! should be on the complete home page
 177 
  !!! should be on the complete home page
178 
  !!distribute items no,no into wims_ariane_self,wims_ariane_home
 178 
  !!distribute items no,no into wims_ariane_self,wims_ariane_home
179 
  !set wims_ariane_self=no
 179 
  !set wims_ariane_self=no
180 
!endif
 180 
!endif
181 
 
 181 
 
182 
!if $(class_actcolor)!=$empty
 182 
!if $(class_actcolor)!=$empty
183 
   !read adm/class/seqcolors
 183 
  !read adm/class/seqcolors
184 
!endif
 184 
!endif