Subversion Repositories wimsdev

Rev

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

Rev 16904 Rev 17035
Line 45... Line 45...
45
  !ifval $j_<$(l_[$m_])
45
  !ifval $j_<$(l_[$m_])
46
    j_=!char 2 to 3 of $[101+$j_]
46
    j_=!char 2 to 3 of $[101+$j_]
47
    output=$a_$m_$j_
47
    output=$a_$m_$j_
48
  !else
48
  !else
49
    !ifval $m_=12
49
    !ifval $m_=12
50
      a_=!char 2 to 3 of $[101+$a_]
50
      a_=!char 2 to 5 of $[10001+$a_]
51
      output=$(a_)0101
51
      output=$(a_)0101
52
    !else
52
    !else
53
      m_=!char 2 to 3 of $[101+$m_]
53
      m_=!char 2 to 3 of $[101+$m_]
54
      output=$a_$(m_)01
54
      output=$a_$(m_)01
55
    !endif
55
    !endif
Line 68... Line 68...
68
    !else
68
    !else
69
      m_=!char 2 to 3 of $[99+$m_]
69
      m_=!char 2 to 3 of $[99+$m_]
70
      output=$a_$m_$(l_[$[$m_]])
70
      output=$a_$m_$(l_[$[$m_]])
71
    !endif
71
    !endif
72
  !else
72
  !else
73
    a_=$[$a_-1]
73
    a_=!char 2 to 5 of $[9999+$a_]
74
    output=$(a_)1231
74
    output=$(a_)1231
75
  !endif
75
  !endif
76
!endif
76
!endif
77
!exit
77
!exit
78
 
78