Subversion Repositories wimsdev

 !for typ in portal,group,level,class,course,program,test

 !for typ in portal,group,level,class,course,program,test

  !set nstyle=wims_classes_direct_$typ

  !set nstyle=wims_classes_direct_$typ

  !set ntype_=$typ

  !set ntype_=$typ

  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_

  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_

  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_

  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_

      !goto out

      !goto out

    !endif

    !endif

   !else

   !else

    !set t_=$type

    !set t_=$type

   !endif

   !endif

  !set u__=$u_

  !set u__=$u_

   !if $auth_method isitemof $auth_method_list

   !if $auth_method isitemof $auth_method_list

     !if $u_ != supervisor

     !if $u_ != supervisor

      !readproc adm/class/userdef classes,$c_,$u_

      !readproc adm/class/userdef classes,$c_,$u_

      !set u__=!defof user_external_auth in $userdef

      !set u__=!defof user_external_auth in $userdef

     !endif

     !endif

   !endif

   !endif

   !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_

   !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_

:out

:out

 !reset c_ u_ t_

 !reset c_ u_ t_

  !next cl

  !next cl

 !next typ

 !next typ