WebSVN – wimsdev – Diff – /trunk/wims/public_html/modules/adm/class/userscore/csv/upload.proc

 # This line prevents clashes of users with same login.
 adduser_replace=nopass
 wims_priv_cryptpass=allow
 wims_deposit=!word 1 of $wims_deposit
 !if $wims_deposit=$empty
- !exit
+  !exit
 !endif
 !if / isin $wims_deposit or .. isin $wims_deposit
- error=bad_filename
+  error=bad_filename
- !exit
+  !exit
 !endif
 d=!translate . to $ $ in $wims_deposit
 d=!word -1 of $d
 !if $d notwordof csv tsv txt
- error=bad_filename
+  error=bad_filename
- !exit
+  !exit
 !endif
 sdir=$wims_home/$wims_sesdir
 t=!exec ftype $sdir/user-deposit
 !if $t=$empty
- !exit
+  !exit
 !endif
 !if $t=binary
- error=binary_upload
+  error=binary_upload
- !exit
+  !exit
 !endif
 !sh grep . $sdir/user-deposit | awk '{print ":"$$0}' | tr '	"' ', ' >$sdir/user_deposit
 file=wimshome/$wims_sesdir/user_deposit
 !read csv/gotlogin $file,login
 !if $gotlogin=$empty
- !read adm/class/initclass $wims_class,auth
+  !read adm/class/initclass $wims_class,auth
- !if $auth_method notitemof $auth_method_list
+  !if $auth_method notitemof $auth_method_list
-  error=no_login
+    error=no_login
-  !exit
+    !exit
- !else
+  !else
-   !read csv/gotlogin $file,external_auth
+    !read csv/gotlogin $file,external_auth
-   !if $(gotexternal_auth)=$empty
+    !if $(gotexternal_auth)=$empty
-     error=no_login_external_auth
+      error=no_login_external_auth
-     !exit
+      !exit
-   !else
+    !else
-    extern=yes
+      extern=yes
-   !endif
+    !endif
- !endif
+  !endif
 !endif
 remark=
 !if sheet isin $types or exam isin $types or average isin $types
- remark=$remark noauto
+  remark=$remark noauto
 !endif
 prop=no
 !if noauto iswordof $remark
-!!or manual isin $types prop are changed now.
+  !!or manual isin $types prop are changed now.
- remark=$remark noprop
+  remark=$remark noprop
 !else
-!! pourquoi cette condition ???
+  !! pourquoi cette condition ???
- !if firstname isitemof $types and lastname isitemof $types
+  !if firstname isitemof $types and lastname isitemof $types
-  prop=yes
+    prop=yes
- !endif
+  !endif
- !read adm/class/userremain.proc
+  !read adm/class/userremain.proc
 !endif
 !if manual isin $types
- manual=yes
+  manual=yes
 !endif
 replacelist=$types
 types=!replace , by ,up_ in up_$types
 types_cnt=!itemcnt $types
     typ=$(types[$m])
     !if Aup_var_ isin A$typ
       typ1=!replace internal up_var_ by  in $typ
       !if $typ1 isitemof $tv_listlocalname
        up_vars=!append line $typ1=$($typ) to $up_vars
       !endif
     !endif
   !next m
   up_vars=!lines2rows $up_vars
   !if $extern=yes
     up_external_auth=!lowercase $l
     l=!lookup $l in wimshome/$sclassdir/.userlist_external
     !if $l=$empty
       l=!lookup $l in wimshome/$sclassdir/.teacherlist_external
     !endif
     !if $l=$empty
-       !if $idp_method=ldap
+      !if $idp_method=ldap
-!!define login_method
+        !!define login_method
         !read adm/class/initldap
-       !endif
+      !endif
       !read adm/class/hashlogin $up_external_auth,$wims_class,$login_method
       l=$login
       !default up_password=!randint 1999999,3000000
     !endif
   !endif extern=yes
-!! $l is now the login in all cases
+  !! $l is now the login in all cases
   exist=!defof user_exists in wimshome/$userdir/$l
   existsup=$exist
   !if $existsup=yes
-     lfname=!defof user_lastname,user_firstname,user_external_auth in wimshome/$userdir/$l
+    lfname=!defof user_lastname,user_firstname,user_external_auth in wimshome/$userdir/$l
-     !default up_firstname=$(lfname[2])
+    !default up_firstname=$(lfname[2])
-     !default up_lastname=$(lfname[1])
+    !default up_lastname=$(lfname[1])
-     !default up_external_auth=$(lfname[3])
+    !default up_external_auth=$(lfname[3])
-     !if $up_firstname!=$empty and $up_lastname!=$empty
+    !if $up_firstname!=$empty and $up_lastname!=$empty
-       prop=yes
+      prop=yes
-     !endif
+    !endif
   !else
-!!FIXME
+    !!FIXME
     !if $idp_method isitemof $idp_method_list and ($up_firstname=$empty or $up_lastname=$empty)
-!! I am not sure of what we must do : priority to the idp or to the modification of the teacher ??
+      !! I am not sure of what we must do : priority to the idp or to the modification of the teacher ??
       !distribute item $up_firstname, $up_lastname into up_firstname_ , $up_lastname_
       !read adm/class/idp_$idp_method $up_external_auth
       !if $up_lastname_!=$empty
         up_lastname=$up_lastname_
       !endif
        prop=yes
       !endif
     !endif
   !endif
   !if $wims_superclass!=$empty and $wims_superclass!=$wims_class
-   participate=!defof user_participate in wimshome/$userdir/$l
+    participate=!defof user_participate in wimshome/$userdir/$l
-   !if $wims_class notitemof $participate
+    !if $wims_class notitemof $participate
-    !if $wims_typename=course
+      !if $wims_typename=course
-      tmp=!defof class_parent in wimshome/log/classes/$wims_class/.def
+        tmp=!defof class_parent in wimshome/log/classes/$wims_class/.def
-      !if $(tmp)!=$empty and $tmp notitemof $participate
+        !if $(tmp)!=$empty and $tmp notitemof $participate
           exist=
+        !endif
+        !reset tmp
+      !else
+        exist=
       !endif
-      !reset tmp
-    !else
-       exist=
     !endif
-   !endif
   !endif
   !if $exist=yes
     !if $prop=yes
-     !read adm/class/adduser $l
+      !read adm/class/adduser $l
     !endif
   !else
-   exist2=!defof user_exists in wimshome/$userdir/.$l
+    exist2=!defof user_exists in wimshome/$userdir/.$l
-   !if $exist2=yes
+    !if $exist2=yes
-    erased=!append item $l to $erased
+      erased=!append item $l to $erased
-   !else
+    !else
-    missing=!append item $l to $missing
+      missing=!append item $l to $missing
-    !! ici aussi on a besoin d'avoir le nom et prenom
+      !! ici aussi on a besoin d'avoir le nom et prenom
-    !if $existsup=yes or ($up_firstname!=$empty and $up_lastname!=$empty and $up_password!=$empty)
+      !if $existsup=yes or ($up_firstname!=$empty and $up_lastname!=$empty and $up_password!=$empty)
-     !if $prop=yes
+        !if $prop=yes
-      !if $userremain>0
+          !if $userremain>0
-       !read adm/class/adduser $l
+            !read adm/class/adduser $l
-       !if $l notitemof $bad
+            !if $l notitemof $bad
-        added=!append item $l to $added
+              added=!append item $l to $added
-	    userremain=$[$userremain-1]
+	            userremain=$[$userremain-1]
-       !endif  l notitemof bad
+            !endif  l notitemof bad
+          !else
+            remark=$remark full
+          !endif userremain
+        !endif prop=yes
       !else
-       remark=$remark full
-      !endif userremain
-     !endif prop=yes
-     !else
-      !if $up_password=$empty
+        !if $up_password=$empty
-        pass_missing=yes
+           pass_missing=yes
-      !endif
+        !endif
-    !endif firstname ... non empty
+      !endif firstname ... non empty
-   !endif exist2=yes
+    !endif exist2=yes
   !endif exist=yes
 !next l
 !if $change!=$empty
- !read adm/class/mkuserlist
+  !read adm/class/mkuserlist
- !if $classtype isin 24
+  !if $classtype isin 24
-  !read adm/gateway/mkteacherlist
+    !read adm/gateway/mkteacherlist
- !endif
+  !endif
- !read adm/class/stat
+  !read adm/class/stat
- wims_class_log=spreadsheet userinfo by $wims_realuser
+  wims_class_log=spreadsheet userinfo by $wims_realuser
 !endif
 missing=!listcomplement $added in $missing
 change=!listcomplement $added in $change
 added=!listcomplement $missing in $added
 !if $manual=yes
- fn=wimshome/log/classes/$wims_class/.grades
+  fn=wimshome/log/classes/$wims_class/.grades
- fu=wimshome/log/classes/$wims_class/.userlist
+  fu=wimshome/log/classes/$wims_class/.userlist
- l=!record 1 of $fn
+  l=!record 1 of $fn
- t=!line 2 of $l
+  t=!line 2 of $l
- n=!itemcnt $t
+  n=!itemcnt $t
- n=$[$n-2]
+  n=$[$n-2]
- !if $n<1
+  !if $n<1
-  error=no_manual
+    error=no_manual
-  !exit
+    !exit
- !endif
+  !endif
- otypes=nn
+  otypes=nn
- !for i=1 to $n
-  otypes=$otypes,o_$i
- !next i
- first=$l
- cnt=!recordcnt $fn
- !for u=2 to $cnt
-  l=!record $u of $fn
-  uu=!item 1 of $l
-  orig_$uu=!item 2 to -1 of $l
- !next u
- !writefile $fn :$first
- cnt=!recordcnt $fu
- !for i=1 to $cnt
-  l_=!record $i of $fu
-  u=!item 3 of $l_
-  !distribute items $(dep_$u) into $types
-  !distribute items $(orig_$u) into $otypes
-  t_=!defof user_firstname user_lastname in wimshome/$userdir/$u
   !for i=1 to $n
-   l_=$[$(up_manual$i)]
-   !if NaN isin $l_ or Inf isin $l_ or $l_<0 or $l_>100000 or $(up_manual$i)=$empty
-    l_=
-   !endif
-   !default l_=$(o_$i)
+    otypes=$otypes,o_$i
-   t_=!append item $l_ to $t_
   !next i
+  first=$l
+  cnt=!recordcnt $fn
+  !for u=2 to $cnt
+    l=!record $u of $fn
+    uu=!item 1 of $l
+    orig_$uu=!item 2 to -1 of $l
+  !next u
+  !writefile $fn :$first
+  cnt=!recordcnt $fu
+  !for i=1 to $cnt
+    l_=!record $i of $fu
+    u=!item 3 of $l_
+    !distribute items $(dep_$u) into $types
+    !distribute items $(orig_$u) into $otypes
+    t_=!defof user_firstname user_lastname in wimshome/$userdir/$u
+    !for i=1 to $n
+      l_=$[$(up_manual$i)]
+      !if NaN isin $l_ or Inf isin $l_ or $l_<0 or $l_>100000 or $(up_manual$i)=$empty
+        l_=
+      !endif
+      !default l_=$(o_$i)
+      t_=!append item $l_ to $t_
+    !next i
-  !appendfile $fn :$u,$t_
+    !appendfile $fn :$u,$t_
- !next u
+  !next u
- wims_class_log=spreadsheet grades by $wims_realuser
+  wims_class_log=spreadsheet grades by $wims_realuser
 !endif

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/modules/adm/class/userscore/csv/upload.proc – Rev 11563 → 12467