Subversion Repositories wimsdev

Rev

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

Rev 12822 Rev 13637
Line 1... Line 1...
1
!set cat=!nospace $wims_read_parm
1
!set cat=!nospace $wims_read_parm
2
!if $(gotcnt$cat)>0
2
!if $(gotcnt$cat)>0
3
  <ul class="wims_home_result_list">
3
  <ul class="wims_home_result_list">
4
  !for i=1 to $(gotcnt$cat)
4
  !for i=1 to $(gotcnt$cat)
5
    !set m_=!line $i of $(gotm$cat)
5
    !set m_=!line $i of $(gotm$cat)
-
 
6
    !set cat_=!module category $m_
6
    !set w_=!word $i of $(gotw$cat)
7
    !set w_=!word $i of $(gotw$cat)
7
    !set l_=!line $i of $(gotl$cat)
8
    !set l_=!line $i of $(gotl$cat)
8
    !set t_=!line $i of $(gott$cat)
9
    !set t_=!line $i of $(gott$cat)
9
    !set d_=!line $i of $(gotd$cat)
10
    !set d_=!line $i of $(gotd$cat)
10
    !set a_=!line $i of $(gota$cat)
11
    !set a_=!line $i of $(gota$cat)
Line 42... Line 43...
42
    $L, $d_
43
    $L, $d_
43
    !if $wims_show_author=yes
44
    !if $wims_show_author=yes
44
      <span class="small">(
45
      <span class="small">(
45
      !replace internal , by $ $ in $a_
46
      !replace internal , by $ $ in $a_
46
)</span>
47
)</span>
-
 
48
    !endif
-
 
49
    !if oef isin $cat_
-
 
50
      !set exokeyword=!record 0 of wimshome/public_html/modules/$m_/Dickeywords
-
 
51
      !if $exokeyword!=$empty
-
 
52
        !reset tmp_list
-
 
53
        !! keywords no modified in srch0
-
 
54
        !for exk in $srch0
-
 
55
          !set ext=!lookup $exk in wimshome/public_html/modules/$m_/Dickeywords
-
 
56
          <ul>
-
 
57
          !for exa in $ext
-
 
58
            !if $exa notitemof $tmp_list
-
 
59
              !set tmp_list=!append item $exa to $tmp_list
-
 
60
              <li>
-
 
61
              !set exta=!lookup $exa in wimshome/public_html/modules/$m_/Extitles
-
 
62
              !href module=$m_&exo=$exa&cmd=new $exta
-
 
63
              !if $wims_show_author=yes
-
 
64
                !set exauthor=!lookup $exa in wimshome/public_html/modules/$m_/Exauthors
-
 
65
                <span class="small">($(exauthor[1]) $(exauthor[2]))</span>
-
 
66
              !endif
-
 
67
              </li>
-
 
68
            !endif
-
 
69
          !next
-
 
70
          </ul>
-
 
71
        !next
-
 
72
        !reset exokeyword exk exa exta exauthor tmp_list
-
 
73
      !endif
47
    !endif
74
    !endif
48
    </li>
75
    </li>
49
    !reset d_ t_
76
    !reset d_ t_
50
  !next i
77
  !next i
51
  </ul>
78
  </ul>