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>