Subversion Repositories wimsdev

Rev

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

Rev 12085 Rev 12501
Line 2... Line 2...
2 
!nocache
 2 
!nocache
3 
!if $wims_referer!=$empty and $wims_user=$empty and $wims_new_session=yes
 3 
!if $wims_referer!=$empty and $wims_user=$empty and $wims_new_session=yes
4 
 refcut=!replace internal :// by $ $ in $wims_referer
 4 
  refcut=!replace internal :// by $ $ in $wims_referer
5 
 refcut=!word 2 of $refcut
 5 
  refcut=!word 2 of $refcut
6 
 refcut=!translate internal /. to $ , in $refcut
 6 
  refcut=!translate internal /. to $ , in $refcut
7 
 !distribute words $refcut into refsite, refsearch
 7 
  !distribute words $refcut into refsite, refsearch
8 
 refdom=!item -2 of $refsite
 8 
  refdom=!item -2 of $refsite
9 
 refdom=!lower $refdom
 9 
  refdom=!lower $refdom
10 
 reffields=!defof $refdom in searchengines
 10 
  reffields=!defof $refdom in searchengines
11 
 !if $reffields!=$empty
 11 
  !if $reffields!=$empty
12 
  !distribute items $reffields into refs,refl
 12 
    !distribute items $reffields into refs,refl
13 
  refsearch=!translate internal ?&= to ,, $ in $refsearch
 13 
    refsearch=!translate internal ?&= to ,, $ in $refsearch
14 
  !for rs in $refsearch
 14 
    !for rs in $refsearch
15 
   refw1=!word 1 of $rs
 15 
      refw1=!word 1 of $rs
16 
   !if $refw1=$refs
 16 
      !if $refw1=$refs
17 
    refS=!word 2 to -1 of $rs
 17 
        refS=!word 2 to -1 of $rs
18 
    refS=!lower $refS
 18 
        refS=!lower $refS
19 
    refS=!unhttp $refS
 19 
        refS=!unhttp $refS
20 
    refS=!translate internal + to $ 4 in $refS
 20 
        refS=!translate internal + to $ 4 in $refS
21 
    refS=!replace word wims by $ in $refS
 21 
        refS=!replace word wims by $ in $refS
22 
    refS=!trim $refS
 22 
        refS=!trim $refS
23 
   !endif
 23 
      !endif
24 
   !if $refw1=$refl
 24 
      !if $refw1=$refl
25 
    refL=!word 2 of $rs
 25 
        refL=!word 2 of $rs
26 
   !endif
 26 
      !endif
27 
  !next rs
 27 
    !next rs
28 
  !if $refS!=$empty
 28 
    !if $refS!=$empty
29 
   search_category=A
 29 
      search_category=A
30 
   search_keywords=$refS
 30 
      search_keywords=$refS
- 
 
 31 
    !endif
31 
  !endif
 32 
  !endif
32 
 !endif
 - 
 
33 
!endif
 33 
!endif
34 
!reset test_exist
 34 
!reset test_exist
35 
 
 35 
 
36 
s2dir=!replace internal sessions/ by s2/ in $wims_sesdir
 36 
s2dir=!replace internal sessions/ by s2/ in $wims_sesdir
37 
s2dir=!translate internal _ to $ $ in $s2dir
 37 
s2dir=!translate internal _ to $ $ in $s2dir