Subversion Repositories wimsdev

Rev

Rev 16921 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16921 Rev 17495
Line 1... Line -...
1 
 
 - 
 
2 
!if ($wims_class notitemof $nei_sup,$nei_part or\
 1 
!if ($wims_class notitemof $nei_sup,$nei_part or\
3 
	$nei notitemof $n_sup,$n_part) and \
 2 
	$nei notitemof $n_sup,$n_part) and \
4 
    all notitemof $nei_sup,$nei_part
 3 
    all notitemof $nei_sup,$nei_part
5 
  error=not_neighbor
 4 
  error=not_neighbor
6 
  job2=first
 5 
  job2=first
Line 109... Line 108...
109 
      !endif
 108 
      !endif
110 
    !endif
 109 
    !endif
111 
  !endif
 110 
  !endif
112 
  header=!record $iname of wimshome/log/classes/$nei/sheets/.sheets
 111 
  header=!record $iname of wimshome/log/classes/$nei/sheets/.sheets
113 
  header=!line 2 to -1 of $header
 112 
  header=!line 2 to -1 of $header
114 
  header=!replace line number 2 by $class_expiration in $header
 113 
  header=!replace line number 1 by $class_expiration in $header
115 
  !! --- delete reference to a doc for sheet presentation
 114 
  !! --- delete reference to a doc for sheet presentation
116 
  tmp=!line 5 of $header
 115 
  tmp=!line 4 of $header
117 
  !if $tmp notitemof yes,no,$empty
 116 
  !if $tmp notitemof yes,no,$empty
118 
    header=!replace line number 5 by $empty in $header
 117 
    header=!replace line number 4 by $empty in $header
119 
  !endif
 118 
  !endif
120 
  !! --- delete reference to a technical variable to hide sheet
 119 
  !! --- delete reference to a technical variable to hide sheet
121 
  header=!replace lin number 9 by $empty in $header
 120 
  header=!replace line number 8 by $empty in $header
122 
  !if $impmethod=add
 121 
  !if $impmethod=add
123 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :0\
 122 
    !appendfile wimshome/log/classes/$wims_class/sheets/.sheets :0\
124 
$header
 123 
$header
125 
    replace=$[$me_sheetcnt+1]
 124 
    replace=$[$me_sheetcnt+1]
126 
  !endif
 125 
  !endif