Subversion Repositories wimsdev

Rev

Rev 13557 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !nocache
  2. !if $special_parm!=$empty
  3.   !set exo=$special_parm
  4. !endif
  5.  
  6. !if $exo=__user__ and select iswordof $special_parm2
  7.   !if $wims_user!=$empty and $wims_user!=supervisor
  8.     !set test=$wims_user.
  9.     !goto dir
  10.   !else
  11.     !reset exo
  12.   !endif
  13. !endif
  14. !if $exo!=$empty
  15.   !if select iswordof $special_parm2
  16.     !set oldparm=$exo
  17.     !set test=!lower $exo
  18.     !set test=!deaccent $test
  19.     !set test=!text select abcdefghijklmnopqrstuvwxyz1234567890 $ in $test
  20.     !set test=!singlespace $test
  21.     !set test=!trim $test
  22. :dir
  23.     !reset elist,vlist
  24.     !set tlist=!lower $titlelist
  25.     !set tlist=!deaccent $tlist
  26.     !set tlist=!text select abcdefghijklmnopqrstuvwxyz1234567890 , in $tlist
  27.     !set tlist=!singlespace $tlist
  28.     !for i=0 to $exocnt
  29.       !set n_=!item $i of $exolist
  30.       !set t_=!item $i of $tlist
  31.       !if $test isin $t_ $n_
  32.         !set elist=!append item $n_ to $elist
  33.         !set t_=!item $i of $titlelist
  34.         !set vlist=!append item $t_ to $vlist
  35.       !endif
  36.     !next i
  37.     !if $elist!=$empty
  38.       !set exolist=$elist
  39.       !set titlelist=$vlist
  40.       <input type="hidden" name="defaultlist" value="$elist">
  41.     !endif
  42.   !else
  43.     !set exolist=!listuniq $exolist
  44.     !set exolist=!replace , by , $ in $exolist
  45.     !if $class_header!=wimshome/log/classes/$wims_class/
  46.       !if $class_header!=
  47.         !set dictionary=scripts/$(class_header)Extitles
  48.       !else
  49.         !set dictionary=$module_dir/$(class_header)Extitles
  50.       !endif
  51.     !else
  52.       !set dictionary=$wims_home/log/classes/$wims_class/Extitles
  53.     !endif
  54.     !set translator_unknown=leave
  55.     !set titlelist=!exec translator $exolist
  56.   !endif
  57. !endif
  58. !!set ecnt=!itemcnt $exolist
  59. !if $lang notsametext $module_language and $(titlelist_$lang) notsametext $empty
  60.   !set titlelist=$(titlelist_$lang)
  61. !endif
  62. !if select notwordof $special_parm2 or $special_parm issametext $empty
  63.   <label for="exo">$name_chooseexo:</label>
  64. !endif
  65. !set wims_formselect_switch=multiple="multiple" size="$qcnt"
  66. !formselect exo list $exolist prompt $titlelist
  67. !reset wims_formselect_switch
  68.  
  69. !if $exocnt>2 and $jquery_defined=yes
  70.   <ul class="oef_filter">
  71.     <li>
  72.       <label for="selectorForExo">$name_select_auto:</label>
  73.       <input type="search" results="5" id="selectorForExo" value="$special_parm" placeholder="$name_select_placeholder">
  74.     </li>
  75.   </ul>
  76.   <script src="scripts/js/interface/jQuery.selectFilters.js"></script>
  77.   <script>
  78.     /*<![CDATA[*/
  79.     $$(function() {
  80.       $$('#exo').selectByText($$('#selectorForExo'));
  81.     });
  82.   /*]]>*/
  83.   </script>
  84. !endif
  85.