Embperl

 view release on metacpan or  search on metacpan

Embperl/Form/Control/selectdyn.pm  view on Meta::CPAN

    $append .= '&addbottom=' . $epreq->Escape ($req -> {json} -> encode($addbottom), 6) ;    
    }
    
$]
<div class="ef-control-selectdyn-div">
<input name="_opt_[+ $name +]" [+ do { local $escmode = 0 ; $self -> get_std_control_attr($req, undef, undef, 'ef-context-menu ' . ($self -> {no_button}?'':'ef-control-selectdyn-has-ctrl' )) } +]
type="text" _ef_attach="ef_selectdyn" 
[$if $self -> {size}            $]size="[+ $self->{size} +]" [$endif$]
[$if $self -> {showurl}         $]_ef_show_url="[+ $self -> {showurl} +]" [$endif$] 
[$if $self -> {showurl_append}  $]_ef_show_url_append="[+ $self -> {showurl_append} +]" [$endif$] 
[$if $self -> {popupurl}        $]_ef_popup_url="[+ $self -> {popupurl} +]" [$endif$] 
[$if $self -> {datasrcurl}      $]_ef_datasrc_url="[+ $self -> {datasrcurl} +]" [$endif$] 
[$if $self -> {url_from}        $]_ef_url_from="[+ $self -> {url_from} +]" [$endif$] 
[$if $self -> {url_to}          $]_ef_url_to="[+ $self -> {url_to} +]" [$endif$] 
[$if $self -> {dbname}          $][+ '_ef_dbname' +]="[+ $self -> {dbname} +]" [$endif$] 
[$if $append                    $]_ef_datasrc_url_append="[+ $append +]" [$endif$] 
[$if $datasrc                   $]_ef_datasrc_nam="[+ $datasrc +]" [$endif$] 
[$if $self -> {datasrctermmax}  $]_ef_datasrc_term_max="[+ $self -> {datasrctermmax} +]" [$endif$] 
[$if $self -> {use_ajax}        $]_ef_use_ajax="[+ $self -> {use_ajax} +]" [$endif$] 
[$if $self -> {show_on_select}  $]_ef_show_on_select="[+ $self -> {show_on_select}?'1':'' +]" [$endif$] 
[$if $doctypes                  $]_ef_doctypes="[+ $doctypes +]" [$endif$] 

Embperl/Form/Control/selectdyn.pm  view on Meta::CPAN

    addbottom => [ [9999 => 'last item'], [9999 => 'very last item']]

=head3 filter

If given, only items where the value matches the regex given in
C<filter> are displayed.

=head3 showurl

This URL will be requested if the user clicks on SHOW in the popup or
double clicks the control. The value of the selected option will be
appended to that url. Should be something like '/foo/bar.epl?id='.
NOTE: This URL is not encoded in anyway, so make sure it is properly
url encoded.

=head3 datasrcurl

This URL will be requested when the user types any input to request
the data for the control. The characters the users has typed will be
passed by the parameter query and the name of the datasrc attribute

Embperl/Form/Control/tinymce.pm  view on Meta::CPAN

    $options -> {$k} = $v if ($v =~ s/%%(.+?)%%/$fdat{$1}/g) ;
    }
$]

[- $ctrlid = $self -> SUPER::show_control ($req) ; -]
<script>
$('#[+ $ctrlid +]').tinymce({
	script_url : '/_appserv/js/tiny_mce/tiny_mce.js',
	theme : "advanced",
	//plugins : "table,insertdatetime,searchreplace,print,contextmenu,paste,fullscreen,noneditable",
	plugins : "insertdatetime,searchreplace,print,contextmenu,paste,fullscreen,noneditable,autoresize,inlinepopups",
   dialog_type : "modal",
	theme_advanced_buttons1 : "bold,italic,underline,strikethrough,styleselect,bullist,numlist,outdent,indent,undo,redo,link,unlink,image,sub,sup,charmap,insertdate,inserttime,search,replace,fullscreen",
	theme_advanced_buttons2 : '', //"print,cut,copy,pastetext,pasteword,selectall",
	theme_advanced_buttons3 : "",
	theme_advanced_toolbar_location : "top",
	theme_advanced_toolbar_align : "left",
	theme_advanced_path : false,
	//content_css : "example_full.css",
	plugin_insertdate_dateFormat : "%d.%m.%Y",
	plugin_insertdate_timeFormat : "%H:%M:%S",

eg/forms/js/EmbperlForm.js  view on Meta::CPAN

    elem.qtip(
        {
        content: {
            text: '<img style="text-align: center" src="/_appserv/css/images/ui-anim_basic_16x16.gif" alt="Loading..." />',
            ajax: {
               url: '#', // URL to the local file
               type: 'GET', // POST or GET
               once: false,
               xcache: false,
               idsrc: document.getElementById (ctlid),
               urlsrc: opts.popupurl,                                        
               urlfunc: function (opts)
                  {
                  i = encodeURIComponent(opts.idsrc.value);
                  if (i)
                        {                  
                        opts.url=opts.urlsrc.replace(/%id%/g, i);
                        return true ;
                        }
                  return false ;
                  }

eg/forms/js/EmbperlForm.js  view on Meta::CPAN

    elem.qtip(
        {
        content: {
            text: '<img style="text-align: center" src="/_appserv/css/images/ui-anim_basic_16x16.gif" alt="Loading..." />',
            ajax: {
               url: '#', // URL to the local file
               type: 'GET', // POST or GET
               once: false,
               xcache: false,
               idsrc: document.getElementById (ctlid),
               urlsrc: opts.popupurl,                                        
               urlfunc: function (opts)
                  {
                  var id = opts.idsrc.value ;  
                  id = id.replace(/^.+@#/, '');
                  i = encodeURIComponent(id);
                  if (i)
                        {                  
                        opts.url=opts.urlsrc.replace(/%id%/g, i);
                        return true ;
                        }