Subversion Repositories wimsdev

Rev

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

Rev 2356 Rev 7270
Line 1... Line 1...
1 
 
 1 
 
2 
rec=!record $doc of wimshome/log/classes/$wims_class/doc/.docindex
 2 
rec=!record $doc of wimshome/log/classes/$wims_class/doc/.docindex
3 
!distribute lines $rec into bidon,bidon,title_save,desc_save,status_save
 3 
!distribute lines $rec into bidon,bidon,title_save,desc_save,status_save,wksheet_save
4 
 
 4 
 
5 
!if $title!=$title_save
 5 
!if $title!=$title_save
6 
 !distribute item 3,$title into update_field,update_content
 6 
 !distribute item 3,$title into update_field,update_content
7 
 !read update.doc
 7 
 !read update.doc
8 
!endif
 8 
!endif
Line 10... Line 10...
10 
 !distribute item 4,$desc into update_field,update_content
 10 
 !distribute item 4,$desc into update_field,update_content
11 
 !read update.doc
 11 
 !read update.doc
12 
!endif
 12 
!endif
13 
!if $status!=$status_save
 13 
!if $status!=$status_save
14 
 !distribute item 5,$status into update_field,update_content
 14 
 !distribute item 5,$status into update_field,update_content
- 
 
 15 
 !read update.doc
- 
 
 16 
!endif
- 
 
 17 
!if $wksheet!=$wksheet_save
- 
 
 18 
 !distribute item 6,$wksheet into update_field,update_content
15 
 !read update.doc
 19 
 !read update.doc
16 
!endif
 20 
!endif
17 
!if $update=0
 21 
!if $update=0
18 
  !distribute item 0 into update_field
 22 
  !distribute item 0 into update_field
19 
  !read update.doc
 23 
  !read update.doc