Subversion Repositories wimsdev

Rev

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

Rev 14317 Rev 14335
Line 7... Line 7...
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
wims_helper=chapter=4&open=4_oef#oef
 9 
wims_helper=chapter=4&open=4_oef#oef
10 
wims_form_method=post
 10 
wims_form_method=post
11 
wims_nw=existing catmodule catmodule1 newone oef_fname level vsave \
 11 
wims_nw=existing catmodule catmodule1 newone oef_fname level vsave \
12 
	delete deltitle mode realtest deffile wims_noexport \
 12 
  delete deltitle mode realtest deffile wims_noexport \
13 
	empty wims_module_log class_header
 13 
  empty wims_module_log class_header
14 
wims_nr=wims_sesrandom
 14 
wims_nr=wims_sesrandom
15 
wims_trustfile=oef/embed.phtml oef/special.phtml oef/togetfile.proc
 15 
wims_trustfile=oef/embed.phtml oef/special.phtml oef/togetfile.proc
16 
slib/circuits/draw slib/circuits/drawcomp slib/circuits/range\
 16 
slib/circuits/draw slib/circuits/drawcomp slib/circuits/range\
17 
slib/circuits/comppos
 17 
slib/circuits/comppos
18 
answerlim=!defof MAX_OEFREPLIES in wimshome/public_html/bases/sys/define.conf
 18 
answerlim=!defof MAX_OEFREPLIES in wimshome/public_html/bases/sys/define.conf
Line 31... Line 31...
31 
  !if $newone=1
 31 
  !if $newone=1
32 
    existing=
 32 
    existing=
33 
    newone=
 33 
    newone=
34 
  !endif
 34 
  !endif
35 
  !if (..devel/ notin ..$catmodule or $wims_developer=$empty) and \
 35 
  !if (..devel/ notin ..$catmodule or $wims_developer=$empty) and \
36 
 	    $existing!=$empty and $wims_user!=supervisor \
 36 
      $existing!=$empty and $wims_user!=supervisor \
37 
 	    and ..*/$wims_user. notin ..*/$existing
 37 
      and ..*/$wims_user. notin ..*/$existing
38 
    existing=
 38 
    existing=
39 
  !endif
 39 
  !endif
40 
  !if $existing!=$empty and $level=$empty
 40 
  !if $existing!=$empty and $level=$empty
41 
    !if $catmodule!=$empty
 41 
    !if $catmodule!=$empty
42 
      !if ..devel/ isin ..$catmodule and ($wims_developer= or \
 42 
      !if ..devel/ isin ..$catmodule and ($wims_developer= or \
43 
	      ..devel/$wims_developer notin ..$catmodule)
 43 
        ..devel/$wims_developer notin ..$catmodule)
44 
        !goto nonexist
 44 
        !goto nonexist
45 
      !endif
 45 
      !endif
46 
    !if .. isin $catmodule or ..adm/ isin ..$catmodule or \
 46 
    !if .. isin $catmodule or ..adm/ isin ..$catmodule or \
47 
	      ..classes/ isin ..$catmodule
 47 
        ..classes/ isin ..$catmodule
48 
      !goto nonexist
 48 
      !goto nonexist
49 
    !endif
 49 
    !endif
50 
  !endif
 50 
  !endif
51 
  src=!mexec catexisting.sh $existing
 51 
  src=!mexec catexisting.sh $existing
52 
  !if $src!=$empty
 52 
  !if $src!=$empty
Line 131... Line 131...
131 
!endif
 131 
!endif
132 
 
 132 
 
133 
!if $level=2 and $mode=model
 133 
!if $level=2 and $mode=model
134 
  !read model/cut.proc
 134 
  !read model/cut.proc
135 
  !if $cnt<6 or $sps=$empty or $parms=$empty or $desc=$empty or\
 135 
  !if $cnt<6 or $sps=$empty or $parms=$empty or $desc=$empty or\
136 
 	    $model_type=$empty or statementrec=$empty
 136 
      $model_type=$empty or statementrec=$empty
137 
    mode=
 137 
    mode=
138 
    !goto nomodel
 138 
    !goto nomodel
139 
  !endif
 139 
  !endif
140 
  !set wims_ariane=!append line modellist,1,cmd=reply&level=1&mode=model\
 140 
  !set wims_ariane=!append line modellist,1,cmd=reply&level=1&mode=model\
141 
to $wims_ariane
 141 
to $wims_ariane
Line 144... Line 144...
144 
!if $level=2 and $mode=$empty
 144 
!if $level=2 and $mode=$empty
145 
  !set wims_ariane=!append line normalmode,1,cmd=reply&level=1\
 145 
  !set wims_ariane=!append line normalmode,1,cmd=reply&level=1\
146 
to $wims_ariane
 146 
to $wims_ariane
147 
  !read model/cut.proc
 147 
  !read model/cut.proc
148 
  !if $cnt>=6 and $sps!=$empty and $parms!=$empty and $desc!=$empty and\
 148 
  !if $cnt>=6 and $sps!=$empty and $parms!=$empty and $desc!=$empty and\
149 
	    $model_type!=$empty and statementrec>1
 149 
      $model_type!=$empty and statementrec>1
150 
    mode=model
 150 
    mode=model
151 
    rawinp=
 151 
    rawinp=
152 
  !endif
 152 
  !endif
153 
!endif
 153 
!endif
154 
 
 154 
 
Line 444... Line 444...
444 
    !readproc adm/class/quotafree.proc proc
 444 
    !readproc adm/class/quotafree.proc proc
445 
    !if $quota_free<=1
 445 
    !if $quota_free<=1
446 
     quota=yes
 446 
     quota=yes
447 
    !else
 447 
    !else
448 
     !sh cd $wims_home/$wims_sesdir\
 448 
     !sh cd $wims_home/$wims_sesdir\
449 
	    mkdir -p getfile/oefimg\
 449 
      mkdir -p getfile/oefimg\
450 
	    mv user-deposit getfile/oefimg/$wims_deposit\
 450 
      mv user-deposit getfile/oefimg/$wims_deposit\
451 
	    cp oefdeposit user-deposit 2>/dev/null
 451 
      cp oefdeposit user-deposit 2>/dev/null
452 
    !endif
 452 
    !endif
453 
    imgfname=$wims_deposit
 453 
    imgfname=$wims_deposit
454 
    wims_deposit=
 454 
    wims_deposit=
455 
 !else
 455 
 !else
456 
    !sh cd $wims_home/$wims_sesdir\
 456 
    !sh cd $wims_home/$wims_sesdir\
457 
	    if [ -f user-deposit ]; then cp user-deposit oefdeposit; fi
 457 
      if [ -f user-deposit ]; then cp user-deposit oefdeposit; fi
458 
    !if $delfile!=$empty and .. notin $delfile
 458 
    !if $delfile!=$empty and .. notin $delfile
459 
      !sh rm -f $wims_home/$wims_sesdir/getfile/oefimg/$delfile
 459 
      !sh rm -f $wims_home/$wims_sesdir/getfile/oefimg/$delfile
460 
    !endif
 460 
    !endif
461 
  !endif
 461 
  !endif
462 
  imglist=!filelist $wims_home/$wims_sesdir/getfile/oefimg
 462 
  imglist=!filelist $wims_home/$wims_sesdir/getfile/oefimg