Subversion Repositories wimsdev

Rev

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

Rev 15524 Rev 15795
Line 82... Line 82...
82 
  test=!checkhost $up_secure
 82 
  test=!checkhost $up_secure
83 
  !if $test<1
 83 
  !if $test<1
84 
    error=$error checkhost
 84 
    error=$error checkhost
85 
    up_secure=$class_secure
 85 
    up_secure=$class_secure
86 
  !endif
 86 
  !endif
- 
 
 87 
!endif
- 
 
 88 
 
- 
 
 89 
!if $class_type isin 024
- 
 
 90 
  !! --- check geoloc
- 
 
 91 
  up_geoloc=!text select 0123456789., in $up_geoloc
- 
 
 92 
  X=!item 1 of $up_geoloc
- 
 
 93 
  X=$[$X * 1]
- 
 
 94 
  Y=!item 2 of $up_geoloc
- 
 
 95 
  Y=$[$Y * 1]
- 
 
 96 
  N=!itemcnt $up_geoloc
- 
 
 97 
  !if $N!=2 or NAN isin $X$Y
- 
 
 98 
    up_geoloc=$empty
- 
 
 99 
  !endif
- 
 
 100 
  !! --- end check geoloc
- 
 
 101 
  !! --- check location
- 
 
 102 
  up_location=!translate ,!$$"< to $     $ in $up_location
- 
 
 103 
  up_location=!singlespace $up_location
- 
 
 104 
  up_location=!trim $up_location
- 
 
 105 
  !! --- end check location
- 
 
 106 
!else
- 
 
 107 
  !reset up_location up_geoloc
87 
!endif
 108 
!endif
88 
 
 109 
 
89 
!! remarks don't forget to add variable name to adm/class/regclass/proc/cloning.proc to keep it when cloning class (if necessary)
 110 
!! remarks don't forget to add variable name to adm/class/regclass/proc/cloning.proc to keep it when cloning class (if necessary)
90 
 
 111 
 
91 
!setdef !set class_password=$class_password\
 112 
!setdef !set class_password=$class_password\
Line 139... Line 160...
139 
!set class_exotitleform=$up_exotitleform\
 160 
!set class_exotitleform=$up_exotitleform\
140 
!set class_supconnectshowed=$up_supconnectshowed\
 161 
!set class_supconnectshowed=$up_supconnectshowed\
141 
!set class_defined=yes\
 162 
!set class_defined=yes\
142 
!set class_examscore_withoutip=$up_examscore_withoutip\
 163 
!set class_examscore_withoutip=$up_examscore_withoutip\
143 
!set class_sendmailteacher=$up_sendmailteacher\
 164 
!set class_sendmailteacher=$up_sendmailteacher\
- 
 
 165 
!set class_location=$up_location\
- 
 
 166 
!set class_geoloc=$up_geoloc\
144 
in wimshome/log/classes/$wims_class/.def
 167 
in wimshome/log/classes/$wims_class/.def
145 
 
 168 
 
146 
!! change class_expiration in all subclasses .def file
 169 
!! change class_expiration in all subclasses .def file
147 
!if $class_typename isitemof portal,group
 170 
!if $class_typename isitemof portal,group
148 
  listdef=!sh cd $wims_home/log/classes/$wims_superclass;\
 171 
  listdef=!sh cd $wims_home/log/classes/$wims_superclass;\