Subversion Repositories wimsdev

Rev

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

Rev 15989 Rev 15998
Line 16... Line 16...
16 
  seq_desc=!replace internal $\
 16 
  seq_desc=!replace internal $\
17 
$ by $ $ in $seq_desc
 17 
$ by $ $ in $seq_desc
18 
  seq_title=!char 1 to $title_limit of $seq_title
 18 
  seq_title=!char 1 to $title_limit of $seq_title
19 
  seq_desc=!char 1 to $desc_limit of $seq_desc
 19 
  seq_desc=!char 1 to $desc_limit of $seq_desc
20 
  new_data=:$seq_title\
 20 
  new_data=:$seq_title\
21 
  $seq_desc
 21 
$seq_desc
- 
 
 22 
  !! ---- check hidedate and showdate
- 
 
 23 
  today=!char 1 to 8 of $wims_now
- 
 
 24 
  thisyear=!char 1 to 4 of $today
- 
 
 25 
  !for k in hide,show
- 
 
 26 
    $(k)date=!text select char 0123456789 in $($(k)date)
- 
 
 27 
    expmon=!char 5 to 6 of $($(k)date)
- 
 
 28 
    expday=!char 7 to 8 of $($(k)date)
- 
 
 29 
    expyear=!char 1 to 4 of $($(k)date)
- 
 
 30 
    !if $expday<1 or $expday>31 or $expmon<1 or $expmon>12 \
- 
 
 31 
      or $expyear<$thisyear or $expyear>$thisyear+1 \
- 
 
 32 
      or $($(k)date)<$class_creation \
- 
 
 33 
      or $($(k)date)>$class_expiration \
- 
 
 34 
      or N isin $expmon$expday$expyear \
- 
 
 35 
      or $($(k)date)<=$today
- 
 
 36 
      !reset $(k)date
- 
 
 37 
    !endif
- 
 
 38 
  !next k
- 
 
 39
22 
 
 40 
 
23 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
 41 
  !set listdoc=!makelist doc_ i for i=1 to $docpubliccnt
24 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
 42 
  !set listc=!filelist $wims_home/log/classes/$wims_class/doc
25 
  !set listc=!lines2items $listc
 43 
  !set listc=!lines2items $listc
26 
  !set listc=!replace internal c by c_$ $ in $listc
 44 
  !set listc=!replace internal c by c_$ $ in $listc
Line 48... Line 66...
48 
  !next j
 66 
  !next j
49 
  list=!replace internal _ by $ $ in $(listfinal)
 67 
  list=!replace internal _ by $ $ in $(listfinal)
50 
  new_data=!append line $list to $new_data
 68 
  new_data=!append line $list to $new_data
51 
  !bound visible within 0,1 default 0
 69 
  !bound visible within 0,1 default 0
52 
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
 70 
  !writefile wimshome/log/classes/$wims_class/seq/.sequence$seq $new_data\
53 
$visible
 71 
$visible\
- 
 
 72 
$hidedate\
- 
 
 73 
$showdate
54 
 
 74 
 
55 
  s_ =!record 0 of .sequences
 75 
  s_ =!record 0 of .sequences
56 
  s_=!line 2 to -1 of s_
 76 
  s_=!line 2 to -1 of s_
57 
  !if $seq= $[$seq_cnt+1]
 77 
  !if $seq= $[$seq_cnt+1]
58 
    seq_cnt=$[$seq_cnt+1]
 78 
    seq_cnt=$[$seq_cnt+1]