Subversion Repositories wimsdev

!set cat=!nospace $wims_read_parm

!if $(gotcnt$cat)>0

  <ul class="wims_home_result_list">

  !for i=1 to $(gotcnt$cat)

    !set m_=!line $i of $(gotm$cat)

    !set cat_=!module category $m_

    !set w_=!word $i of $(gotw$cat)

    !set l_=!line $i of $(gotl$cat)

    !set t_=!line $i of $(gott$cat)

    !set d_=!line $i of $(gotd$cat)

    !set a_=!line $i of $(gota$cat)

    <li>

    !if $wims_ismanager=2

      <span class="small">$w_</span>

    !endif

    !if $l_!=$search_lang

      !set ltrans=!module translation_language $m_

      !if  $search_lang notin $ltrans

        <img src="gifs/$l_.gif" alt="$l_.gif">

      !endif

      !set t_=!module title_$search_lang $m_

      !set d_=!module description_$search_lang $m_

    !endif

    !if $t_=

      !set t_=!module title $m_

    !endif

    !if $d_=

      !set d_=!module description $m_

    !endif

    !set L=

    !if ../local/ isin ../$m_

      !set L=<sup>local</sup>

    !endif

    !if ../com/ isin ../$m_

      !set L=<sup>com</sup>

    !endif

    !if ../contrib/ isin ../$m_

      !set L=<sup>contrib</sup>

    !endif

    !set ltrans=!module translation_language $m_

    !set t_=!replace internal OEF by in $t_

    !href module=$m_ $t_

    $L, $d_

    !if $wims_show_author=yes

      <span class="small">

      !replace internal , by $ $ in ($a_)

      </span>

    !endif

    !if $ltrans!=$empty

      ($l_ $ltrans)

    !endif

    !if oef isin $cat_

      !set exokeyword=!record 0 of wimshome/public_html/modules/$m_/Dickeywords

      !if $exokeyword!=$empty

        !reset tmp_list

        !! keywords no modified in srch0

        !for exk in $srch0

          !set ext=!lookup $exk in wimshome/public_html/modules/$m_/Dickeywords

          <ul>

          !for exa in $ext

            !if $exa notitemof $tmp_list

              !set tmp_list=!append item $exa to $tmp_list

              <li>

              !set exta=!lookup $exa in wimshome/public_html/modules/$m_/Extitles

              !if $wims_user=supervisor

                !href module=$m_&special_parm=$exta&cmd=intro $exta

              !else

                !href module=$m_&exo=$exa&cmd=new $exta

              !endif

              !if $wims_show_author=yes

                !set exauthor=!lookup $exa in wimshome/public_html/modules/$m_/Exauthors

                !set exauthor=!replace internal , by $ $ in $exauthor

                !set exauthor=!replace internal ; by , $ in $exauthor

                !if $exauthor!=$empty

                  <span class="small">($exauthor)</span>

                !endif

              !endif

              </li>

            !endif

          !next

          </ul>

        !next

        !reset exokeyword exk exa exta exauthor tmp_list

      !endif

    !endif

    </li>

    !reset d_ t_

  !next i

  </ul>

!endif