Rev 2368 | Rev 10152 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2368 | bpr | 1 | !read adm/class/classlang names.phtml |
| 23 | reyssat | 2 | |
| 3 | wims_prefix=class user tmp n sharing sharable |
||
| 5125 | bpr | 4 | !read adm/class/initclass $wims_class, auth |
| 23 | reyssat | 5 | !readdef wimshome/log/classes/$wims_class/.def |
| 6 | class_defined= |
||
| 7 | !default wims_superclass=$wims_class |
||
| 8 | classdir1=wimshome/log/classes/$wims_superclass |
||
| 9 | classdir2=$wims_home/log/classes/$wims_superclass |
||
| 10 | supertype=!defof class_type in $classdir1/.def |
||
| 11 | !if $supertype!=4 or $wims_user!=supervisor or \ |
||
| 12 | ../$wims_superclass/ notin ../$wims_class/ |
||
| 13 | error=bad_access |
||
| 14 | !exit |
||
| 15 | !endif |
||
| 16 | |||
| 17 | !read adm/class/config.auth |
||
| 18 | !if $error!=$empty or $jobt=auth |
||
| 19 | error=unsecure |
||
| 20 | !exit |
||
| 21 | !endif |
||
| 22 | |||
| 23 | !bound passhow within yes,no default no |
||
| 24 | !if $passhow=yes |
||
| 25 | pass2=$pass |
||
| 26 | passs2=$passs |
||
| 27 | !endif |
||
| 28 | job1=first,addlevel,dellevel,user,\ |
||
| 29 | teacher,addteacher,modteacher,delteacher |
||
| 30 | # student,addstudent,modstudent,delstudent |
||
| 31 | default1=first |
||
| 32 | job2=level,addclass,delclass,addprog,delprog |
||
| 33 | default2=level |
||
| 34 | job3=class,prog,course,addcourse,delcourse,addtest,deltest,\ |
||
| 35 | icourse,addicourse,progshare |
||
| 36 | !if $wims_class=$wims_superclass |
||
| 37 | lv=1 |
||
| 38 | jobs=$job1,$job2 |
||
| 39 | !else |
||
| 40 | csub=!replace internal ../$wims_superclass/ by in ../$wims_class |
||
| 41 | lc=!translate internal / to , in $wims_class |
||
| 42 | lv=!itemcnt $lc |
||
| 43 | !if $lv>3 or $lv<2 |
||
| 44 | error=bad_access |
||
| 45 | !exit |
||
| 46 | !endif |
||
| 47 | !if $lv=2 |
||
| 48 | level=$csub |
||
| 49 | jobs=$job2 |
||
| 50 | parent=gateway |
||
| 51 | !else |
||
| 52 | test=$(lc[-1]) |
||
| 53 | !if $test>199 |
||
| 54 | default3=prog |
||
| 55 | prog=$csub |
||
| 56 | parent=level |
||
| 57 | level=$(lc[2]) |
||
| 58 | !else |
||
| 59 | default3=class |
||
| 60 | class=$csub |
||
| 61 | parent=level |
||
| 62 | level=$(lc[2]) |
||
| 63 | !endif |
||
| 64 | jobs= |
||
| 65 | !endif |
||
| 66 | !endif |
||
| 67 | |||
| 68 | jobs=!nonempty items $jobs,$job3,backstruct |
||
| 69 | !bound job within $jobs default $(default$lv) |
||
| 70 | !read tabletheme |
||
| 71 | !read adm/class/limits |
||
| 72 | !read adm/class/authchars |
||
| 73 | |||
| 74 | !read jobs/$job.proc |
||
| 75 | |||
| 76 | !if $default3!=$empty |
||
| 77 | parent=$default3 |
||
| 78 | !endif |
||
| 79 | |||
| 80 | !if $job!=first |
||
| 81 | !default parent=gateway |
||
| 82 | !endif |
||
| 83 | !if $parent!=$empty |
||
| 84 | addline=!defof class_institution in $classdir1/.def |
||
| 85 | !if $parent iswordof level class prog |
||
| 86 | addline2=!defof class_description in $classdir1/$level/.def |
||
| 87 | addline=$addline\ |
||
| 88 | $addline2 |
||
| 89 | !endif |
||
| 90 | !if $parent iswordof class |
||
| 91 | addline2=!defof class_description in $classdir1/$class/.def |
||
| 92 | addline=$addline\ |
||
| 93 | $addline2 |
||
| 94 | parm3=job=class&class=$class |
||
| 95 | !endif |
||
| 96 | !if $parent iswordof prog |
||
| 97 | addline2=!defof class_description in $classdir1/$prog/.def |
||
| 98 | addline=$addline\ |
||
| 99 | $addline2 |
||
| 100 | parm3=job=prog&prog=$prog |
||
| 101 | !endif |
||
| 102 | !endif |
||
| 103 | |||
| 104 | addparms=job=first,\ |
||
| 105 | job=level&level=$level,\ |
||
| 106 | $parm3 |
||
| 107 |