| /trunk/wims/public_html/modules/adm/class/classes/index |
|---|
| 6,7 → 6,7 |
| version=4.00 |
| # minimal version of wims server under which the module may run |
| wims_version=3.65 |
| language=$lang |
| language= |
| maintainer=WIMSDEV |
| maintainer_address=wimsdev@groupes.renater.fr |
| 41,7 → 41,6 |
| translator_es=Juan Rafael, Fernández García |
| translator_address_es=juanrafael.fernandez@hispalinux.es |
| title_it=Corsi interattivi |
| description_it=portale di corsi interattivi virtuali. |
| translator_it=Marina, Cazzola |
| /trunk/wims/public_html/modules/adm/class/classes/lang/names.phtml.fr |
|---|
| 51,7 → 51,7 |
| !set name_warning_external=N'utilisez le formulaire ci-dessous que si le lien ci-dessus\ |
| ne fonctionne pas. |
| !distribute line Vous n'avez pas de compte dans d'autres classes.\ |
| Recherchez votre classe\ |
| Recherchez votre classe \ |
| Aucune autre classe disponible.\ |
| Aucune classe ne correspond à votre recherche.\ |
| Vous pouvez aller directement dans \ |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.ca |
|---|
| 1,10 → 1,10 |
| <p> |
| !set lang_exists=yes |
| <p> |
| Les classes virtuals us permeten organitzar el treball dels vostres |
| alumnes que utilitzen els recurssos d'aquest lloc WIMS i |
| realitzar un seguiment del seu progrés. També podeu afegir els vostres |
| realitzar un seguiment del seu progrés. També podeu afegir els vostres |
| exercicis i documents. |
| </p> |
| <p> |
| </p><p> |
| Si encara no tens la teva pròpia classe: pots |
| !href module=adm/class/regclass clicar ací |
| per crear-ne una, pots consultar les |
| 11,4 → 11,4 |
| !href target=wims_help module=help/main&chapter=3 pàgines d'ajuda |
| , o donar una ullada a les |
| !href module=$module&type=example classes obertes |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.cn |
|---|
| 1,6 → 1,8 |
| !set lang_exists=yes |
| <p> |
| ÐéÄâ°à¿Éʹ½Ìʦ½«±¾ WIMS ·þÎñÕ¾µÄ×ÊÔ´ (ÒÔ¼°Ëû×Ô¼ºÔÚ´Ë´´½¨µÄÁ·Ï°) ×éÖ¯ÆðÀ´Ìṩ |
| ¸øËûµÄѧÉúÃÇ, ²¢ÇÒ¿ÉʹÆäËæʱ¼ì²éѧÉúµÄ½ø¶È. |
| <p> |
| </p><p> |
| Èç¹ûÄ㻹ûÓÐ×Ô¼ºµÄÐéÄâ°à: Äã¿ÉÒÔ |
| ÔÚ²éÔÄÁË |
| !href target=wims_help module=help/main&chapter=3 ˵Ã÷ |
| 8,4 → 10,4 |
| !href module=adm/class/regclass Ôڴ˵¥»÷ |
| ÒÔ½¨Á¢ÄãµÄ°à, »ò·ÃÎÊÒ»¸ö |
| !href module=$module&type=example ʵÀý°à |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.de |
|---|
| 1,3 → 1,5 |
| !set lang_exists=yes |
| <p> |
| Anhand virtueller Klassen können Sie die Arbeit Ihrer Schüler/Studenten |
| übersichtlich ordnen und deren Fortschritte mitverfolgen. |
| Dazu können Sie ganz einfach auf die Ressourcen |
| 4,12 → 6,12 |
| der WIMS-Website zurückgreifen. Gleichzeitig haben Sie auch |
| die Möglichkeit, Ihre eigenen, d. h. die Ihnen selbst erstellten Übungen |
| und Dokumente hinzuzufügen. |
| <p> |
| </p><p> |
| Sie verfügen noch über keine eigene Klasse. In diesem Fall |
| haben Sie folgende Möglichkeiten: |
| !href module=adm/class/regclass Erstellen Sie eine Klasse |
| (zuvor sollten Sie sich jedoch die |
| !href target=wims_help module=help/main&chapter=3 Hilfeseiten |
| ansehen). Werfen Sie einen Blick auf die |
| ansehen). Werfen Sie einen Blick auf die |
| !href module=$module&type=example Beispielklassen |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.en |
|---|
| 1,11 → 1,14 |
| !set lang_exists=yes |
| <p> |
| Virtual classes allow teachers to provide students with teaching materials available freely on the WIMS site |
| or created by them in an organised way. Via virtual classes, teachers can monitor their students' work and |
| progress. |
| <p> |
| If you do not yet have your own class, you may |
| !href module=adm/class/regclass click here |
| to create one after consulting the |
| !href target=wims_help module=help/main&chapter=3 $wims_name_help |
| section or have a look at the |
| !href module=$module&type=example example classes |
| . </p> |
| </p><p> |
| If you do not yet have your own class, you may |
| !href module=adm/class/regclass create one |
| after consulting the |
| !href target=wims_help module=help/main&chapter=3 $wims_name_help |
| section or have a look at the |
| !href module=$module&type=example example classes |
| . |
| </p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.es |
|---|
| 1,8 → 1,9 |
| Las clases virtuales le permiten organizar el trabajo de sus |
| !set lang_exists=yes |
| <p>Las clases virtuales le permiten organizar el trabajo de sus |
| alumnos/estudiantes utilizando los recursos de este sitio WIMS y |
| seguir sus progresos. Puede también añadir ejercicios y documentos que |
| seguir sus progresos. Puede también añadir ejercicios y documentos que |
| cree usted. |
| <p> |
| </p><p> |
| Si aún no ha creado su propia clase, puede |
| !href module=adm/class/regclass crear una |
| tras haber consultado las |
| 9,4 → 10,4 |
| !href target=wims_help module=help/main&chapter=3 páginas de ayuda |
| , o echar un vistazo a las |
| !href module=$module&type=example clases de ejemplo |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.fr |
|---|
| 1,10 → 1,10 |
| <p> |
| !set lang_exists=yes |
| <p> |
| Les classes virtuelles vous permettent d'organiser le travail de vos |
| élèves/étudiants en utilisant des ressources de ce site WIMS et |
| de suivre leurs progrès. Vous pouvez aussi y ajouter vos propres |
| créations d'exercices et de documents. |
| </p> |
| <p> |
| </p><p> |
| Si vous n'avez pas encore votre propre classe, vous pouvez |
| !href module=adm/class/regclass en créer une |
| après avoir consulté les |
| 11,4 → 11,4 |
| !href target=wims_help module=help/main&chapter=3 pages d'aide |
| ou jeter un coup d'oeil sur les |
| !href module=$module&type=example classes ouvertes |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.it |
|---|
| 1,14 → 1,14 |
| <p> |
| I corsi interattivi virtuali vi permettono di organizzare le |
| risorse WIMS per metterle a disposizione dei vostri studenti e seguirne i |
| progressi. In tali corsi potete anche inserire esercizi |
| !set lang_exists=yes |
| <p> |
| I corsi interattivi virtuali vi permettono di organizzare le |
| risorse WIMS per metterle a disposizione dei vostri studenti e seguirne i |
| progressi. In tali corsi potete anche inserire esercizi |
| o documenti di vostra creazione. |
| </p> |
| <p> |
| </p><p> |
| Se non lo avete ancora fatto, potete |
| !href module=adm/class/regclass creare il vostro corso interattivo, |
| dopo aver consultato le |
| dopo aver consultato le |
| !href target=wims_help module=help/main&chapter=3 $wims_name_help |
| , o potete prendere visione degli |
| !href module=$module&type=example esempi disponibili |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.nl |
|---|
| 1,12 → 1,13 |
| !set lang_exists=yes |
| <p> |
| Virtuele klassen geven docenten de mogelijkheid om |
| <em>cijfers en vorderingen</em> van hun studenten te volgen, |
| <em>les en oefenmateriaal</em> op deze WIMS server voor studenten te organiseren. |
| <p> |
| Hier kunt U een |
| <em>les en oefenmateriaal</em> op deze WIMS server voor studenten te organiseren. |
| </p><p> |
| Hier kunt U een |
| !href module=adm/class/regclass nieuwe virtuele klas |
| oprichten, bijvoorkeur na het lezen van |
| !href target=wims_help module=help/main&chapter=3 help pagina's |
| !href target=wims_help module=help/main&chapter=3 help pagina's |
| of U kunt een bezoek brengen aan één van de |
| !href module=$module&type=example demonstratie klassen |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/lang/supervisor.phtml.si |
|---|
| 1,10 → 1,12 |
| Stre¾nik WIMS omogoèa uèiteljem, da si v spletni uèilnici pripravijo in uredijo |
| !set lang_exists=yes |
| <p> |
| Stre¾nik WIMS omogoèa uèiteljem, da si v spletni uèilnici pripravijo in uredijo |
| elektronska uèna gradiva, tako tista, ki jih ponuja stre¾nik, kot tista, ki so jih ustvarili sami. Kot skrbniki uèilnice lahko nato usmerjajo svoje uèence k uporabi gradiva in nadzirajo njihovo delo. |
| <p> |
| </p><p> |
| Èe ¹e nimate svoje lastne uèilnice, jo lahko ustvarite |
| !href module=adm/class/regclass tukaj |
| . Pred tem natanèno preuèite |
| . Pred tem natanèno preuèite |
| !href target=wims_help module=help/main&chapter=3 strani s pomoèjo |
| in si oglejte |
| !href module=$module&type=example pripravljene primere spletnih uèilnic |
| . </p> |
| .</p> |
| /trunk/wims/public_html/modules/adm/class/classes/participant.phtml |
|---|
| 9,7 → 9,7 |
| $name_language |
| !href module=home&list=0 $wims_name_search |
| !else |
| $name_nofound |
| <p class="wims_msg info">$name_nofound</p> |
| !endif |
| !goto end |
| !endif |
| /trunk/wims/public_html/modules/adm/class/classes/search.phtml |
|---|
| 1,28 → 1,29 |
| !readproc adm/search_engine/names.$lang |
| !if $overflow=yes |
| <label for="keyword"> |
| !if $keyword = $empty |
| $name_research1 |
| !else |
| $name_research2 |
| !endif |
| </label> |
| <div class="wimscenter wimssearch"> |
| !form reply |
| <input size="20" name="keyword" value="$keyword" id="keyword"/> |
| <input type="submit" value="$wims_name_search" /> |
| <p> |
| !if $keyword = $empty |
| $name_research1 |
| !else |
| $name_research2 |
| !endif |
| </p> |
| !endif |
| !formend |
| </div> |
| !else |
| !if ($sccnt + $clcnt > 20 and $wims_user = $empty) or $keyword!=$empty |
| !if $overflow=yes or ($sccnt + $clcnt > 20 and $wims_user = $empty) or $keyword!=$empty |
| <div class="search_box blockcenter halfwidth"> |
| !form reply |
| <label for="keyword"> |
| $name_searchclass: |
| </label> |
| <input size="20" name="keyword" value="$keyword" id="keyword" /> |
| <input type="submit" value="$wims_name_search" /> |
| <label for="keyword">$name_searchclass:</label> |
| <div class="input-group"> |
| <input size="20" name="keyword" value="$keyword" id="keyword" type="search" |
| class="input-group-field" placeholder="$name_keywords_enter"/> |
| <div class="input-group-button"> |
| <button class="wims_button icon_button" type="submit"> |
| <span class="Searching">$wims_name_search</span> |
| </button> |
| </div> |
| </div> |
| !formend |
| !endif |
| </div> |
| !endif |
| /trunk/wims/public_html/modules/adm/class/classes/supervisor.phtml |
|---|
| 2,9 → 2,7 |
| !read search.phtml |
| !if $clcnt+$sccnt<1 and $keyword!=$empty |
| <p class="notfound"> |
| $name_nofound |
| </p> |
| <p class="wims_msg info">$name_nofound</p> |
| !endif |
| !if $wims_user!=$empty |
| !read direct.phtml |
| 12,7 → 10,7 |
| !exit |
| !endif |
| !else |
| !read lang/supervisor.phtml.$modu_lang |
| !read adm/language lang/supervisor.phtml |
| !endif |
| !if $overflow=yes |
| 31,15 → 29,15 |
| <caption>$name_portalandgroup</caption> |
| <thead> |
| <tr> |
| <th></th> |
| <th>$wims_name_teacher</th> |
| <th colspan="2">$wims_name_nameteacher/$wims_name_Supervisor</th> |
| <th></th> |
| <th>$wims_name_teacher</th> |
| <th colspan="2">$wims_name_nameteacher/$wims_name_Supervisor</th> |
| </tr> |
| $table_hdtr |
| <th scope="col">$wims_name_name</th> |
| <th scope="col" data-sort-method="none">$wims_name_action</th> |
| <th scope="col">$wims_name_name</th> |
| <th scope="col" data-sort-method="none">$wims_name_action</th> |
| <th scope="col">$wims_name_name</th> |
| <th scope="col" data-sort-method="none">$wims_name_action</th> |
| <th scope="col">$wims_name_name</th> |
| <th scope="col" data-sort-method="none">$wims_name_action</th> |
| </tr> |
| </thead> |
| <tbody> |
| 50,25 → 48,24 |
| !default supv=!defof class_supervisor in wimshome/log/classes/$code/.def |
| $table_tr |
| <td> |
| $in<br />$cl |
| </td> |
| !reset class_auth |
| !defread wimshome/log/classes/$code/.def |
| !read adm/class/initclass $code,auth |
| !if $class_auth isitemof $auth_method_list and $(class_$(class_auth)_auth)!=$empty |
| !read supervisor2.phtml |
| !else |
| <td>$in<br />$cl</td> |
| !reset class_auth |
| !defread wimshome/log/classes/$code/.def |
| !read adm/class/initclass $code,auth |
| !if $class_auth isitemof $auth_method_list and $(class_$(class_auth)_auth)!=$empty |
| !read supervisor2.phtml |
| !else |
| <td> |
| !set wims_ref_class=wims_button |
| !href module=$module&type=authparticipant&class=$code $wims_name_Enter |
| </td> |
| !endif |
| <td>$supv</td> |
| <td> |
| !set wims_ref_class=wims_button |
| !href module=$module&type=authparticipant&class=$code $wims_name_Enter |
| !set wims_ref_class=wims_button |
| !href module=$module&type=authsupervisor&class=$code $wims_name_Enter |
| </td> |
| !endif |
| <td>$supv</td> |
| <td> |
| !set wims_ref_class=wims_button |
| !href module=$module&type=authsupervisor&class=$code $wims_name_Enter |
| </td></tr> |
| </tr> |
| !next i |
| </tbody> |
| $table_end |
| 82,9 → 79,9 |
| <caption>$name_independantclass</caption> |
| <thead> |
| $table_hdtr |
| <th scope="col">$wims_name_name</th> |
| <th scope="col">$wims_name_nameteacher / $wims_name_Supervisor</th> |
| <th scope="col">$wims_name_action</th> |
| <th scope="col">$wims_name_name</th> |
| <th scope="col">$wims_name_nameteacher / $wims_name_Supervisor</th> |
| <th scope="col">$wims_name_action</th> |
| </tr> |
| !else |
| !if $splevel>1 |
| 94,25 → 91,25 |
| !endif |
| !default Name_level=$(CL_Name[2]) |
| <caption>$Name_level / $inst |
| !if $class_type>2 |
| $ |
| !set wims_ref_class=wims_button_help |
| !href cmd=help&special_parm=$module_language/structure $wims_name_help |
| !endif |
| !if $splevel>1 |
| !href cmd=reply&type=$type&superclass2=$sparent&s_prog=0 $name_up |
| !endif |
| !if $class_type>2 |
| $ |
| !set wims_ref_class=wims_button_help |
| !href cmd=help&special_parm=$module_language/structure $wims_name_help |
| !endif |
| !if $splevel>1 |
| !href cmd=reply&type=$type&superclass2=$sparent&s_prog=0 $name_up |
| !endif |
| </caption> |
| <thead> |
| $table_hdtr |
| <th scope="col">$Name_level</th> |
| <th scope="col">$wims_name_nameteacher</th> |
| !if $superclass_orig!=$empty and $stype=4 |
| <th scope="col">+</th> |
| !if $ty!=1 and $splevel =1 |
| !if $superclass_orig!=$empty and $stype=4 |
| <th scope="col">+</th> |
| !if $ty!=1 and $splevel =1 |
| <th scope="col">+</th> |
| !endif |
| !endif |
| !endif |
| </tr> |
| !endif |
| </thead> |
| 171,9 → 168,9 |
| !set table_class=sortable |
| $table_header |
| <caption>$Name_program ($inst) |
| !if $splevel>1 |
| !href cmd=reply&type=$type&superclass2=$sparent&s_prog=0 $name_up |
| !endif |
| !if $splevel>1 |
| !href cmd=reply&type=$type&superclass2=$sparent&s_prog=0 $name_up |
| !endif |
| </caption> |
| <thead> |
| $table_hdtr |
| 190,7 → 187,7 |
| !default supv=!defof class_supervisor in wimshome/log/classes/$code/.def |
| $table_tr |
| <td> |
| !href module=$module&type=authsupervisor&class=$code $cl |
| !href module=$module&type=authsupervisor&class=$code $cl |
| </td> |
| <td>$supv</td> |
| !if $superclass_orig!=$empty and $stype=4 |
| /trunk/wims/public_html/modules/adm/class/classes/var.auth |
|---|
| 1,22 → 1,22 |
| !if $auth_password=*wims_site_manager |
| !if $wims_ismanager<2 |
| auth_password= |
| !else |
| !goto auth_ok |
| !endif |
| !if $wims_ismanager<2 |
| auth_password= |
| !else |
| !goto auth_ok |
| !endif |
| !endif |
| !if $save_logincgu!=$empty |
| !if $agreecgu=yes |
| !read adm/class/userdef wimshome/log/classes,$class,$save_logincgu |
| !setdef !set user_agreecgu=yes in $userdef |
| !readdef $userdef |
| !reset error |
| !if $auth_test=OK |
| !goto auth_ok2 |
| !if $agreecgu=yes |
| !read adm/class/userdef wimshome/log/classes,$class,$save_logincgu |
| !setdef !set user_agreecgu=yes in $userdef |
| !readdef $userdef |
| !reset error |
| !if $auth_test=OK |
| !goto auth_ok2 |
| !endif |
| !endif |
| !endif |
| !!!reset $save_logincgu |
| !!!reset $save_logincgu |
| !endif |
| !read adm/class/authchars |
| 31,14 → 31,14 |
| !!default sclass=$class |
| !if ($auth_user notsametext supervisor or $class_type>0) and $auth_method isitemof $auth_method_list |
| authdef=wimshome/log/classes/$superclass/.def |
| authdef=wimshome/log/classes/$superclass/.def |
| # don't use auth_user and auth_password, some characters are unvailable |
| # parameters are empty for auth-cas |
| !readproc adm/class/auth-$auth_method $auth_user_connection,$auth_password_connection |
| # don't use auth_user and auth_password, some characters are unvailable |
| # parameters are empty for auth-cas |
| !readproc adm/class/auth-$auth_method $auth_user_connection,$auth_password_connection |
| !endif |
| ##### end of EXTERNAL connection - part 1 ##### |
| # now we can run the script |
| !if $auth_method isitemof $auth_method_list and $auth_user!=supervisor |
| auth_user=!lookup $auth_user_orig in wimshome/log/classes/$superclass/.userlist_external |
| 57,50 → 57,51 |
| !read adm/class/userdef classes,$class,$auth_user |
| pass=!defof user_password in $userdef |
| FIXME ### Have to check that sclass is no yet useful |
| ##FIXME ### Have to check that sclass is no yet useful |
| sclass=!defof class_superclass in wimshome/log/classes/$class/.def |
| !if $superclass!=$empty and $superclass!=$class |
| upartic=!defof user_participate in $userdef |
| usuperv=!defof user_supervise in $userdef |
| pclass=!defof class_parent in wimshome/log/classes/$class/.def |
| !if / isin $pclass and ../$pclass/ isin ../$class |
| ss=!defof class_ocourses in wimshome/log/classes/$pclass/.def |
| !if $ss!=$empty |
| ss=!makelist $wims_superclass/xx for xx in $ss |
| upartic=!append item $ss to $upartic |
| upartic=!defof user_participate in $userdef |
| usuperv=!defof user_supervise in $userdef |
| pclass=!defof class_parent in wimshome/log/classes/$class/.def |
| !if / isin $pclass and ../$pclass/ isin ../$class |
| ss=!defof class_ocourses in wimshome/log/classes/$pclass/.def |
| !if $ss!=$empty |
| ss=!makelist $wims_superclass/xx for xx in $ss |
| upartic=!append item $ss to $upartic |
| !endif |
| !endif |
| !endif |
| coursecheck=!defof user_class in wimshome/log/classes/$class/.users/$auth_user |
| !if $coursecheck!=$empty |
| upartic=!append item $class to $upartic |
| !endif |
| !!check mandatory course |
| dcourse=!record 0 of wimshome/log/classes/$pclass/courses |
| dcourse=!column 1 of $dcourse |
| !if $dcourse!=$empty |
| dcourse=!makelist $wims_superclass/xx for xx in $dcourse |
| upartic=!append item $dcourse to $upartic |
| !endif |
| upartic=!listuniq $upartic |
| !if $auth_user=supervisor and $wims_user=supervisor |
| ctype=!defof class_typename in wimshome/log/classes/$class/.def |
| prog=!defof sharing_exam in wimshome/log/classes/$class/neighbors |
| !if $ctype iswordof course icourse and $prog=$wims_class |
| pass=$current_pass |
| coursecheck=!defof user_class in wimshome/log/classes/$class/.users/$auth_user |
| !if $coursecheck!=$empty |
| upartic=!append item $class to $upartic |
| !endif |
| !endif |
| !!upartic : no more authentification should check for optional courses ? |
| !if $class notitemof $upartic and $auth_user!=supervisor and $wims_user!=supervisor |
| pass= |
| !endif |
| # These lines should be opened later to close this possibility. |
| # !if $auth_user=supervisor and $wims_user=$empty |
| # pass= |
| # !endif |
| !!check mandatory course |
| dcourse=!record 0 of wimshome/log/classes/$pclass/courses |
| dcourse=!column 1 of $dcourse |
| !if $dcourse!=$empty |
| dcourse=!makelist $wims_superclass/xx for xx in $dcourse |
| upartic=!append item $dcourse to $upartic |
| !endif |
| upartic=!listuniq $upartic |
| !if $auth_user=supervisor and $wims_user=supervisor |
| ctype=!defof class_typename in wimshome/log/classes/$class/.def |
| prog=!defof sharing_exam in wimshome/log/classes/$class/neighbors |
| !if $ctype iswordof course icourse and $prog=$wims_class |
| pass=$current_pass |
| !endif |
| !endif |
| !!upartic : no more authentification should check for optional courses ? |
| !if $class notitemof $upartic and $auth_user!=supervisor and $wims_user!=supervisor |
| pass= |
| !endif |
| # These lines should be opened later to close this possibility. |
| # !if $auth_user=supervisor and $wims_user=$empty |
| # pass= |
| # !endif |
| !endif |
| !if $auth_user=supervisor |
| !goto wimsauth |
| !goto wimsauth |
| !endif |
| ##### final test of external connection ##### |
| 109,12 → 110,12 |
| exist_check=!defof user_exists in $userdef |
| !if OK iswordof $auth_test and $auth_method isitemof $auth_method_list |
| !if $exist_check issametext yes |
| !goto auth_ok |
| !else |
| !setdef user_auth=$auth_user_orig in wimshome/$wims_sesdir/var.stat |
| !goto end |
| !endif |
| !if $exist_check issametext yes |
| !goto auth_ok |
| !else |
| !setdef user_auth=$auth_user_orig in wimshome/$wims_sesdir/var.stat |
| !goto end |
| !endif |
| !endif |
| ##### end of final test of external connection ##### |
| :wimsauth |
| 124,18 → 125,18 |
| !if $auth_user_connection=$empty |
| !exit |
| !endif |
| passwd=???? |
| !appendfile $logfile $logline |
| auth_user=$auth_user_connection |
| error=bad_password |
| !exit |
| passwd=???? |
| !appendfile $logfile $logline |
| auth_user=$auth_user_connection |
| error=bad_password |
| !exit |
| !endif |
| !if $wims_superclass!=$empty and $wims_user!=supervisor and $auth_user!=$wims_user |
| supervisable=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$wims_user |
| !if $supervisable!=yes |
| current_pass= |
| !endif |
| supervisable=!defof user_supervisable in wimshome/log/classes/$wims_superclass/.users/$wims_user |
| !if $supervisable!=yes |
| current_pass= |
| !endif |
| !endif |
| cps=!passcrypt $current_pass |
| 143,13 → 144,13 |
| ($current_pass!=$empty and $cps iswordof $pass) or \ |
| ($auth_user=$wims_user and $class isitemof $wims_participate) or \ |
| ($auth_user=supervisor and $wims_user=supervisor and \ |
| (../$wims_class/ isin ../$class/ or $superclass=$wims_class)) or \ |
| (../$wims_class/ isin ../$class/ or $superclass=$wims_class)) or \ |
| ($auth_user=supervisor and $class isitemof $wims_supervise) |
| !goto auth_ok |
| !goto auth_ok |
| !endif |
| !if $auth_password=$empty |
| !exit |
| !exit |
| !endif |
| !read adm/class/authdelay |
| 157,38 → 158,38 |
| !if $auth_user_orig=$empty and $auth_password=$empty |
| !exit |
| !endif |
| passwd=?????? |
| !appendfile $logfile $logline |
| auth_user=$auth_user_orig |
| error=bad_password |
| !exit |
| passwd=?????? |
| !appendfile $logfile $logline |
| auth_user=$auth_user_orig |
| error=bad_password |
| !exit |
| !endif |
| :auth_ok |
| !if $auth_user=supervisor and $wims_user!=$empty and $wims_user!=supervisor and \ |
| $class notitemof $wims_supervise |
| userdef_save=$userdef |
| !read adm/class/userdef classes,$wims_class,$wims_user |
| !exchange userdef_save,userdef |
| spv=!defof user_supervisable in $userdef_save |
| !if $spv=yes |
| wims_supervise=!append item $class to $wims_supervise |
| !setdef !set user_supervise=$wims_supervise in $userdef_save |
| !endif |
| userdef_save=$userdef |
| !read adm/class/userdef classes,$wims_class,$wims_user |
| !exchange userdef_save,userdef |
| spv=!defof user_supervisable in $userdef_save |
| !if $spv=yes |
| wims_supervise=!append item $class to $wims_supervise |
| !setdef !set user_supervise=$wims_supervise in $userdef_save |
| !endif |
| !endif |
| n=!positionof word $auth_password in $pass |
| n=!item 1 of $n |
| !if $n!=$empty |
| passwd=OK$n $ |
| passwd=OK$n $ |
| !else |
| passwd=$wims_class |
| passwd=$wims_class |
| !endif |
| # one-time password |
| !if $n!=$empty and $n>1 |
| pass=!replace word $auth_password by $ in $pass |
| pass=!singlespace $pass |
| pass=!trim $pass |
| !setdef !set user_password=$pass in $userdef |
| pass=!replace word $auth_password by $ in $pass |
| pass=!singlespace $pass |
| pass=!trim $pass |
| !setdef !set user_password=$pass in $userdef |
| !endif |
| :auth_ok2 |
| 196,72 → 197,71 |
| ctype=!defof class_type in wimshome/log/classes/$class/.def |
| !if $ctype=4 and $auth_user!=supervisor and $user_supervisable!=yes\ |
| and (/ notin $wims_class or ../$wims_superclass/ notin ../$wims_class/) |
| utest=!itemcnt $user_participate |
| !if $utest=1 and / isin $user_participate |
| class=!item 1 of $user_participate |
| !defread wimshome/log/classes/$class/.def |
| !endif |
| utest=!itemcnt $user_participate |
| !if $utest=1 and / isin $user_participate |
| class=!item 1 of $user_participate |
| !defread wimshome/log/classes/$class/.def |
| !endif |
| !endif |
| clang=!defof class_lang in wimshome/log/classes/$class/.def |
| !if $auth_user=supervisor |
| sech=!defof class_secure in wimshome/log/classes/$class/.def |
| sech=!trim $sech |
| !if $sech=$empty |
| t=0 |
| !else |
| t=!checkhost $sech |
| !if $t<1 |
| t=-1 |
| sech=!defof class_secure in wimshome/log/classes/$class/.def |
| sech=!trim $sech |
| !if $sech=$empty |
| t=0 |
| !else |
| t=!checkhost $sech |
| !if $t<1 |
| t=-1 |
| !endif |
| !endif |
| !endif |
| sup_secure=$t |
| sup_secure=$t |
| !else |
| !read adm/class/raftest |
| !if $raftest>$lastallow |
| error=recent_rafale |
| !exit |
| !endif |
| sup_secure=-1 |
| !if $user_agreecgu notwordof yes external and $agreecgu!=yes |
| error=no_cgu |
| !exit |
| !endif |
| !read adm/class/raftest |
| !if $raftest>$lastallow |
| error=recent_rafale |
| !exit |
| !endif |
| sup_secure=-1 |
| !if $user_agreecgu notwordof yes external and $agreecgu!=yes |
| error=no_cgu |
| !exit |
| !endif |
| !endif |
| !read adm/class/authprep $class,$auth_user |
| !if $logfile!=$empty |
| !if $auth_user=supervisor |
| !appendfile $logfiles $now $httpd_REMOTE_ADDR supervisor login |
| !else |
| !appendfile $logfile $logline |
| !endif |
| !if $auth_user=supervisor |
| !appendfile $logfiles $now $httpd_REMOTE_ADDR supervisor login |
| !else |
| !appendfile $logfile $logline |
| !endif |
| !endif |
| !if $class_lock=7 and $auth_user!=supervisor |
| !usererror class_closed |
| !exit |
| !usererror class_closed |
| !exit |
| !endif |
| !if $class_lock iswordof 2 4 6 |
| !set wims_protocol=https |
| !set wims_protocol=https |
| !endif |
| !if $wims_user=$empty and $changesession!=no |
| !writefile wimshome/$wims_sesdir/var.class.prep $classdef |
| random=!randint 10^5,10^9 |
| !restart session=new.$random&lang=$clang&old_session=$wims_session&module=home |
| !writefile wimshome/$wims_sesdir/var.class.prep $classdef |
| random=!randint 10^5,10^9 |
| !restart session=new.$random&lang=$clang&old_session=$wims_session&module=home |
| !else |
| !setdef $classdef in wimshome/$wims_sesdir/var.stat |
| !sh cd $wims_home\ |
| rm -Rf $(wims_sesdir)_*\ |
| mkdir -p log/classes/$class/score $wims_sesdir/getfile\ |
| rm -f $wims_sesdir/exam*\ |
| rm -f $wims_sesdir/getfile/oefimages\ |
| ln -s $wims_home/log/classes/$class/src/images $wims_sesdir/getfile/oefimages |
| !restart lang=$clang&module=home |
| !setdef $classdef in wimshome/$wims_sesdir/var.stat |
| !sh cd $wims_home\ |
| rm -Rf $(wims_sesdir)_*\ |
| mkdir -p log/classes/$class/score $wims_sesdir/getfile\ |
| rm -f $wims_sesdir/exam*\ |
| rm -f $wims_sesdir/getfile/oefimages\ |
| ln -s $wims_home/log/classes/$class/src/images $wims_sesdir/getfile/oefimages |
| !restart lang=$clang&module=home |
| !endif |
| :end |
| /trunk/wims/public_html/modules/adm/class/classes/var.direct |
|---|
| 20,7 → 20,7 |
| !if $user_supervisable=yes |
| !set user_supervise=!defof user_supervise in $userdef |
| !endif |
| if $wims_user=supervisor |
| !if $wims_user=supervisor |
| !set user_supervise=!append item $wims_class to $user_supervise |
| !endif |
| !set user_participate=!defof user_participate in $userdef |
| /trunk/wims/public_html/modules/adm/class/classes/var.proc |
|---|
| 1,5 → 1,5 |
| !if robot isin $session or _ isin $session |
| !exit |
| !exit |
| !endif |
| !read adm/class/classlang names.phtml |
| !default module_title2=$module_title |
| 15,38 → 15,38 |
| !default class_css=$wims_css |
| !if $class!=$empty |
| ## output auth_method_list, aut_idp_method_list, auth_method, aut_idp_method |
| ## output auth_method_list, aut_idp_method_list, auth_method, aut_idp_method |
| !read adm/class/initclass $class,auth |
| !endif |
| !!useful ! if $class=$empty |
| superclass=!text remove . in $superclass |
| !if $wims_superclass!=$empty |
| superclass=$wims_superclass |
| superclass=$wims_superclass |
| !endif |
| !default superclass2=$superclass |
| !read tabletheme |
| !if $auth_method=$empty and $class!=$empty |
| !bound type within supervisor,participant,example,\ |
| authsupervisor,authparticipant,forgetpwd default example |
| !bound type within supervisor,participant,example,\ |
| authsupervisor,authparticipant,forgetpwd default example |
| !else |
| !bound type within supervisor,participant,example,\ |
| authsupervisor,authparticipant default example |
| !bound type within supervisor,participant,example,\ |
| authsupervisor,authparticipant default example |
| !endif |
| !if $type=example |
| superclass= |
| superclass= |
| !endif |
| !if $type=forgetpwd |
| !changeto forgetpwd.proc |
| !changeto forgetpwd.proc |
| !endif |
| !if $superclass=$empty |
| indf=wimshome/log/classes/.index |
| limited=yes |
| indf=wimshome/log/classes/.index |
| limited=yes |
| !else |
| indf=wimshome/log/classes/$superclass/.subclasses |
| keyword= |
| indf=wimshome/log/classes/$superclass/.subclasses |
| keyword= |
| !endif |
| keyword=!items2words $keyword |
| keyword=!trim $keyword |
| 55,10 → 55,10 |
| kw=!tolower $kw |
| ccnt=!recordcnt $indf |
| !if $wims_class!=$empty |
| !read var.direct |
| !if $error!=$empty |
| !exit |
| !endif |
| !read var.direct |
| !if $error!=$empty |
| !exit |
| !endif |
| !endif |
| clcnt=0 |
| 67,117 → 67,120 |
| excnt=0 |
| listla= |
| !if $type=example |
| !for i=1 to $ccnt |
| l=!record $i of $indf |
| c=!item 1 of $l |
| !if NaN notin $[$c] and $c<10000 |
| ltest=!defof class_lang in wimshome/log/classes/$c/.def |
| !advance excnt |
| !if $module_language iswordof $ltest |
| laclasses=!append line $l to $laclasses |
| !advance lacnt |
| !else |
| listla=!append item $ltest to $listla |
| !if $ltest=en |
| enclasses=!append line $l to $enclasses |
| !advance encnt |
| !for i=1 to $ccnt |
| l=!record $i of $indf |
| c=!item 1 of $l |
| !if NaN notin $[$c] and $c<10000 |
| ltest=!defof class_lang in wimshome/log/classes/$c/.def |
| !advance excnt |
| !if $module_language iswordof $ltest |
| laclasses=!append line $l to $laclasses |
| !advance lacnt |
| !else |
| listla=!append item $ltest to $listla |
| !if $ltest=en |
| enclasses=!append line $l to $enclasses |
| !advance encnt |
| !endif |
| !endif |
| !endif |
| !endif |
| !next i |
| !if $lacnt>0 |
| clcnt=$lacnt |
| classes=$laclasses |
| !else |
| clcnt=$encnt |
| classes=$enclasses |
| !endif |
| !next i |
| !if $lacnt>0 |
| clcnt=$lacnt |
| classes=$laclasses |
| !else |
| clcnt=$encnt |
| classes=$enclasses |
| !endif |
| listla=!listuniq $listla |
| listla=!replace internal , by </span>, <span class="tt"> in <span class="tt">$listla</span> |
| othercnt=$[$excnt-$lacnt] |
| listla=!listuniq $listla |
| listla=!replace internal , by </span>, <span class="tt"> in <span class="tt">$listla</span> |
| othercnt=$[$excnt-$lacnt] |
| !endif |
| !if $type iswordof supervisor participant |
| sccnt=0 |
| !if $wims_class!=$empty |
| !defread wimshome/log/classes/$wims_class/.def |
| !! n_type is not always good |
| !set wims_ariane=!append line n_$type,8, to $wims_ariane |
| !default class_type=0 |
| !set wims_ariane_self=no |
| !if $class_type>=2 |
| !read adm/class/userdef classes,$wims_class,$wims_user |
| supervisable=!defof user_supervisable in $userdef |
| super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def |
| !ifval $super_type=4 |
| stype=$[$super_type] |
| sp=!translate internal / to , in $superclass2 |
| splevel=!itemcnt $sp |
| sparent=!item 1 to -2 of $sp |
| sparent=!translate internal , to / in $sparent |
| sparent=!nospace $sparent |
| !if $splevel=1 |
| classes1=!record 0 of wimshome/log/classes/$superclass2/levels |
| sccnt=0 |
| !if $wims_class!=$empty |
| !defread wimshome/log/classes/$wims_class/.def |
| !! n_type is not always good |
| !set wims_ariane=!append line n_$type,8, to $wims_ariane |
| !default class_type=0 |
| !set wims_ariane_self=no |
| !if $class_type>=2 |
| !read adm/class/userdef classes,$wims_class,$wims_user |
| supervisable=!defof user_supervisable in $userdef |
| super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def |
| !ifval $super_type=4 |
| stype=$[$super_type] |
| sp=!translate internal / to , in $superclass2 |
| splevel=!itemcnt $sp |
| sparent=!item 1 to -2 of $sp |
| sparent=!translate internal , to / in $sparent |
| sparent=!nospace $sparent |
| !if $splevel=1 |
| classes1=!record 0 of wimshome/log/classes/$superclass2/levels |
| !endif |
| !if $splevel=2 |
| classes1=!record 0 of wimshome/log/classes/$superclass2/classes |
| classes2=!record 0 of wimshome/log/classes/$superclass2/programs |
| !!classes1=!append line $classes2 to $classes1 |
| !endif |
| !if $splevel=3 |
| classes1=!record 0 of wimshome/log/classes/$superclass2/courses |
| !endif |
| clcnt=!linecnt $classes1 |
| clcnt_pr=!linecnt $classes2 |
| classes= |
| classes_pr= |
| !for i=1 to $clcnt |
| l=!line $i of $classes1 |
| !distribute items $l into code,Sup,name,sup |
| classes=!append line $wims_superclass/$code,,,$name to $classes |
| !next i |
| !for i=1 to $clcnt_pr |
| l=!line $i of $classes2 |
| !distribute items $l into code,Sup,name,sup |
| classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr |
| !next i |
| !exit |
| !endif |
| !endif |
| !if $splevel=2 |
| classes1=!record 0 of wimshome/log/classes/$superclass2/classes |
| classes2=!record 0 of wimshome/log/classes/$superclass2/programs |
| !!classes1=!append line $classes2 to $classes1 |
| !endif |
| !for i=1 to $ccnt |
| l=!record $i of $indf |
| !distribute items $l into code,expire,inst,cl,la,ty |
| l1=!deaccent $l |
| l1=!tolower $l1 |
| c1=!text extract 0123456789 in $code |
| k=yes |
| !for w in $kw |
| !if $w notin $l1 |
| k=no |
| !break |
| !endif |
| !next w |
| !!delete condition on language in a superclass |
| !if (/ isin $code or $c1>9999) and ($la=$module_language or $class_type!=) and\ |
| ($code!=$wims_class or ($wims_user!=supervisor and $type=supervisor)) and \ |
| $k = yes |
| !if $ty isin 24 |
| sclasses=!append line $l to $sclasses |
| !advance sccnt |
| !else |
| classes=!append line $l to $classes |
| !advance clcnt |
| !endif |
| !endif |
| !if $splevel=3 |
| classes1=!record 0 of wimshome/log/classes/$superclass2/courses |
| !if $limited = yes and $clcnt+$sccnt > $listlim |
| overflow=yes |
| !break |
| !endif |
| clcnt=!linecnt $classes1 |
| clcnt_pr=!linecnt $classes2 |
| classes= |
| classes_pr= |
| !for i=1 to $clcnt |
| l=!line $i of $classes1 |
| !distribute items $l into code,Sup,name,sup |
| classes=!append line $wims_superclass/$code,,,$name to $classes |
| !next i |
| !for i=1 to $clcnt_pr |
| l=!line $i of $classes2 |
| !distribute items $l into code,Sup,name,sup |
| classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr |
| !next i |
| !exit |
| !endif |
| !next i |
| !if $wims_user!=$empty and $wims_supertype iswordof 2 4 |
| sccnt=0 |
| !endif |
| !endif |
| !for i=1 to $ccnt |
| l=!record $i of $indf |
| !distribute items $l into code,expire,inst,cl,la,ty |
| l1=!deaccent $l |
| l1=!tolower $l1 |
| c1=!text extract 0123456789 in $code |
| k=yes |
| !for w in $kw |
| !if $w notin $l1 |
| k=no |
| !break |
| !endif |
| !next w |
| !!delete condition on language in a superclass |
| !if (/ isin $code or $c1>9999) and ($la=$module_language or $class_type!=) and\ |
| ($code!=$wims_class or ($wims_user!=supervisor and $type=supervisor)) and \ |
| $k = yes |
| !if $ty isin 24 |
| sclasses=!append line $l to $sclasses |
| !advance sccnt |
| !else |
| classes=!append line $l to $classes |
| !advance clcnt |
| !endif |
| !endif |
| !if $limited = yes and $clcnt+$sccnt > $listlim |
| overflow=yes |
| !break |
| !endif |
| !next i |
| !if $wims_user!=$empty and $wims_supertype iswordof 2 4 |
| sccnt=0 |
| !endif |
| !endif |
| !if $type iswordof authparticipant authsupervisor |