Subversion Repositories wimsdev

Rev

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

Rev 13617 Rev 14102
Line 50... Line 50...
50 
   n=!linecnt $r
 50 
   n=!linecnt $r
51 
   c=!char 1 of $r
 51 
   c=!char 1 of $r
52 
  !if \ = $c
 52 
  !if \ = $c
53 
    v=!translate internal \{} to $   $ in $r
 53 
    v=!translate internal \{} to $   $ in $r
54 
    v=!word 1 of $v
 54 
    v=!word 1 of $v
55 
    !if $v iswordof title author email css credits
 55 
    !if $v iswordof title author email css credits keywords description
56 
      name$i=$v
 56 
      name$i=$v
57 
      model_$v=!embraced extract $r
 57 
      model_$v=!embraced extract $r
58 
      !if $oef_author!=$empty
 58 
      !if $oef_author!=$empty
59 
        !default model_author=$oef_author
 59 
        !default model_author=$oef_author
60 
        !default model_email=$oef_email
 60 
        !default model_email=$oef_email