[- text ("titolo"."oppure_seleziono"); -]  [- text ("titolo"."tipo_contatto"); -]:
[- text("titolo"."quadratino_semplice_inserito"); -]
[- text("titolo"."quadratino_semplice_cancellato"); -]
aaaaaaaaaaaaa [- my $tipo='html_tipo_cont'; ## Get my $ar=abbrev::get_list($tipo); my @objects=map { {name=>'', # non e' piaciuto a Bettina: non vengono i numeri/tipo in questo caso. checked=> "1", value=>$_, text=>$_} } @$ar; fixset('tipo',# prefix \@objects,# objects # args: {attributes=>'onchange="submit()"', tipo=>$tipo, class=>"tipo_cont",# $tipo }); -]
[- Execute ('target','select_contatti_form',$fdat);-] [$ else $] La scheda non trovata [$ endif $] [$ endsub $] [$ sub tail $]
[- links_from ('select_contact', $cur_row->{numero},$fdat); -] [$ endsub $] [# ## Local variables: ## mode: cperl ## outline-regexp: "^\\([:*]+\\)" ## outline-regexp: "\\[$ *sub" ## End: #]