AcesseArede < Observa

Observa Web>AcesseArede (05 Nov 2009, JeronimoTeles? ) (raw view)EditAttach
<!--
   * Set CSS =
   .opt-list { padding:0px; margin:0px }
   .opt-list li { padding:0px; margin:0px; list-style:none; width:33%; float:left }

%SEARCH{"form.name='WebRedeForm'" type="query" order="topic" nonoise="on" format="| <a href='?municipio=$formfield(Município)%URLPARAM{"tipo" multiple="&tipo=$item"}%#TabelaPostos'>$formfield(Município)</a> |"}%
| %CALC{"$SET( municipios, $SUBSTITUTE( $COUNTITEMS($ABOVE()), <br />, </li><li> ) )"}% |
-->
*Buscar por município:*
<ul class="opt-list">
<li>%CALC{"$GET(municipios)"}%</li>
</ul>
<br style="clear:left" />

%BR%

*Buscar por Tipo:*
<ul class="opt-list">
<script type="text/javascript">
  var tipos = "%TIPOS_REDES%".split( /\s*,\s*/ );
  for ( var t,i=0; t=tipos[i]; i++ ) {
    document.write( '<li><a href="?tipo='+t+'%URLPARAM{"municipio" multiple="&municipio=$item"}%#TabelaPostos">'+t+'</a></li>' )
  }
</script>
</ul>
<br style="clear:left" />

%BR%

%IF{"$'URLPARAM{municipio}'='' and $'URLPARAM{tipo}'=''" then="<!--"}%
#TabelaPostos
---++ Rede de Atenção %URLPARAM{"tipo" multiple="à $item"}% %URLPARAM{"municipio" multiple="em $item"}%
%TABLE{ tablewidth="100%" }%
|  *Serviço*  |  *Município*  |  *Telefone*  |
%IF{"$'URLPARAM{municipio}'='' and $'URLPARAM{tipo}'=''" else="%SEARCH"}%{"form.name='WebRedeForm' %URLPARAM{"municipio" multiple="AND Municpio='$item'"}% %URLPARAM{"tipo" multiple="AND Tipo='$item'"}%" type="query" order="topic" nonoise="on" format="| [[$topic][<strong>$formfield(Nome)</strong>]] | $formfield(Município) | $formfield(Telefone) |"}%
%IF{"$'URLPARAM{municipio}'='' and $'URLPARAM{tipo}'=''" then="-->"}%


%BR%

<script type="text/javascript">
function str2topic(sIn) {
  sIn = sIn.replace( /@/g, " %MAKETEXT{At}% " ).replace( /&/g, " %MAKETEXT{And}% " )
           .replace( /\s|\||\\|\/|\[|\]|\(|\)|\{|\}|<|>|\!|\?|#|\$|%|"|'|\*|,|\.|~|\^|-|\+|=|;/g, " " );
           // the ":" and "_" are good.
  var sOut = "";
  var chgUpper = true;
  for ( var i = 0; i < sIn.length; i++ ) {
    var ch = sIn.charAt( i );
    var chVal = ch.charCodeAt(0);
    var ch2 = '';
    if( (chVal==192) || (chVal==193) || (chVal==194) || (chVal==195) ) { ch = 'A'; }
    if( chVal==196) { ch = 'A'; ch2 = 'E'; }
    if( chVal==197) { ch = 'A'; ch2 = 'A'; }
    if( chVal==198) { ch = 'A'; ch2 = 'E'; }
    if( chVal==199) { ch = 'C'; }
    if( (chVal==200) || (chVal==201) || (chVal==202) || (chVal==203) ) { ch = 'E'; }
    if( (chVal==204) || (chVal==205) || (chVal==206) || (chVal==207) ) { ch = 'I'; }
    if( chVal==208) { ch = 'd'; }
    if( chVal==209) { ch = 'N'; }
    if( (chVal==210) || (chVal==211) || (chVal==212) || (chVal==213) ) { ch = 'O'; }
    if( chVal==214) { ch = 'O'; ch2 = 'E'; }
    if( chVal==216) { ch = 'O'; ch2 = 'E'; }
    if( (chVal==217) || (chVal==218) || (chVal==219) ) { ch = 'U'; }
    if( chVal==220) { ch = 'U'; ch2 = 'E'; }
    if( chVal==221) { ch = 'Y'; }
    if( chVal==222) { ch = 'P'; }
    if( chVal==223) { ch = 's'; ch2 = 's'; }
    if( (chVal==224) || (chVal==225) || (chVal==226) || (chVal==227) ) { ch = 'a'; }
    if( chVal==228) { ch = 'a'; ch2 = 'e'; }
    if( chVal==229) { ch = 'a'; ch2 = 'a'; }
    if( chVal==230) { ch = 'a'; ch2 = 'e'; }
    if( chVal==231) { ch = 'c'; }
    if( (chVal==232) || (chVal==233) || (chVal==234) || (chVal==235) ) { ch = 'e'; }
    if( (chVal==236) || (chVal==237) || (chVal==238) || (chVal==239) ) { ch = 'i'; }
    if( chVal==240) { ch = 'd'; }
    if( chVal==241) { ch = 'n'; }
    if( (chVal==242) || (chVal==243) || (chVal==244) || (chVal==245) ) { ch = 'o'; }
    if( chVal==246) { ch = 'o'; ch2 = 'e'; }
    if( chVal==248) { ch = 'o'; ch2 = 'e'; }
    if( (chVal==249) || (chVal==250) || (chVal==251) ) { ch = 'u'; }
    if( chVal==252) { ch = 'u'; ch2 = 'e'; }
    if( chVal==253) { ch = 'y'; }
    if( chVal==254) { ch = 'p'; }
    if( chVal==255) { ch = 'y'; }
    if( ch!=' ' ) {
      if( chgUpper ) {
        ch = ch.toUpperCase(); chgUpper = false;
      } 
      sOut+=ch;
      if( ch2!='') {
        sOut+=ch2;
      }
    } else {
      chgUpper = true;
    } 
  }
  return sOut;
}
</script>

%CALC{"$SUBSTITUTE( %TIPOS_REDES%, $comma, = )"}%

<form action="https://%HTTP_HOST%%SCRIPTURLPATH{edit}%/%WEB%" onsubmit="this.topic.value=str2topic(this.Municpio.value+':'+this.Nome.value); this.Ttulo.value='Posto de '+this.Tipo.value+' de '+this.Municpio.value+': '+this.Nome.value" method="get">
%IF{"$'WIKINAME' ingroup 'ColibreGroup'" then="
  <hr />
  <h2>Cadastrar Novo Serviço</h2>
  <input type='hidden' name='topic' />
  <input type='hidden' name='Ttulo' />
  <input type='hidden' name='topicparent' value='%TOPIC%' />
  <input type='hidden' name='formtemplate' value='WebRedeForm' />
  Nome do Posto: %BR%
  <input name='Nome' /> %BR%
  Nome do Município: %BR%
  <input name='Municpio' value='%URLPARAM{municipio}%' /> %BR%
  Tipo: %BR%
  <select name='Tipo'>
    <option>%CALC{"$SUBSTITUTE( %TIPOS_REDES%, $comma, </option><option> )"}%</option>
  </select>
  &nbsp; %BR%
  <input type='submit' value='Cadastrar' />
"}%
</form>
WebPaginaComum
Título	Acesse as Redes de Atenção
Topic revision: r1 - 05 Nov 2009 - 13:06:22 - JeronimoTeles?
Observa
Copyright &Â© by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback