Result:
found more than 557 distributions - search limited to the first 2001 files matching your query
( run in 2.812 )
CGI-Application-Plugin-REST
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/REST.pm view on Meta::CPAN
return;
}
);
if ( exists $ENV{'CAP_DEVPOPUP_EXEC'} ) {
$caller->add_callback( 'devpopup_report', \&_rest_devpopup );
}
goto &Exporter::import;
}
# Callback for CGI::Application::Plugin::DevPopup which provides debug info.
#
sub _rest_devpopup {
my ( $self, $outputref ) = @_;
my $report = "<table>\n";
foreach my $key ( sort keys %{ $self->{'__r_params'} } ) {
my $name = $key;
lib/CGI/Application/Plugin/REST.pm view on Meta::CPAN
"</td></tr>\n"
);
}
$report .= "</table>\n";
$self->devpopup->add_report(
title => 'CGI::Application::Plugin::REST',
summary => 'Information on the current REST dispatch',
report => $report,
);
CGI-Application-Plugin-TT
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/TT.pm view on Meta::CPAN
# Call tt_post_process hook
$self->tt_post_process(\$html) if $self->can('tt_post_process');
$self->call_hook('tt_post_process', \$html) if $can_call_hook;
_tt_add_devpopup_info($self, $template_name, \%params);
return \$html;
}
##############################################
lib/CGI/Application/Plugin/TT.pm view on Meta::CPAN
return;
}
##############################################
###
### _tt_add_devpopup_info
###
##############################################
#
# This method will look to see if the devpopup
# plugin is being used, and will display all the
# parameters that were passed to the template.
#
sub _tt_add_devpopup_info {
my $self = shift;
my $name = shift;
my $params = shift;
return unless UNIVERSAL::can($self, 'devpopup');
my %params = %$params;
foreach my $key (keys %params) {
if (my $class = Scalar::Util::blessed($params{$key})) {
$params{$key} = "Object:$class";
lib/CGI/Application/Plugin/TT.pm view on Meta::CPAN
# Entity encode the output since it will be displayed on a webpage and we
# want all HTML content rendered as text (borrowed from HTML::Entities)
$dump =~ s/([^\n\r\t !\#\$%\(-;=?-~])/sprintf "&#x%X;", ord($1)/ge;
$self->devpopup->add_report(
title => "TT params for $name",
summary => "All template parameters passed to template $name",
report => qq{<div style="font-size: 80%"><pre>$dump</pre></div>},
);
CGI-Application-Plugin-ViewCode
view release on metacpan or search on metacpan
lib/CGI/Application/Plugin/ViewCode.pm view on Meta::CPAN
Befault, this report will be the same thing produced by C<view_code>. If you want this
report to include the C<view_pod> report, simply set the the C<$ENV{CAP_VIEWCODE_POPUP_POD}>
to true. You can also turn off the C<view_code> report but setting
C<$ENV{CAP_VIEWCODE_POPUP_CODE}> to false.
# have the POD report, but not the code in the dev popup window
BEGIN {
$ENV{CAP_DEVPOPUP_EXEC} = 1; # turn it on for real
$ENV{CAP_VIEWCODE_POPUP_POD} = 1; # turn on POD report
$ENV{CAP_VIEWCODE_POPUP_CODE} = 0; # turn off code report
}
lib/CGI/Application/Plugin/ViewCode.pm view on Meta::CPAN
# if we are running under CGI::Application::Plugin::DevPopup
if( $ENV{CAP_DEVPOPUP_EXEC} ) {
# if we wan't to add the POD report
if( exists $ENV{CAP_VIEWCODE_POPUP_POD} && $ENV{CAP_VIEWCODE_POPUP_POD} ) {
$caller->add_callback( devpopup_report => \&_view_pod );
}
# include the view_code report by default unless it's turned off
if(! (exists $ENV{CAP_VIEWCODE_POPUP_CODE} && !$ENV{CAP_VIEWCODE_POPUP_CODE}) ) {
$caller->add_callback( devpopup_report => \&_view_code );
}
}
}
sub _add_runmode {
lib/CGI/Application/Plugin/ViewCode.pm view on Meta::CPAN
my $package = $1;
my $link = $package;
$link =~ s/::/-/g;
my $rm = $self->mode_param();
$rm = ref $rm ? 'rm' : $rm; # not really anything we can do if their mode_param returns a sub ref
$link = "?$rm=view_code&module=$package;view_code_no_popup=1";
$line =~ s/<span class="Package">[^<]*<\/span>/<a class="Package" href="$link">$package<\/a>/;
}
}
}
}
my $code = join('', @lines);
# if we are under CGI::Application::Plugin::DevPopup then let's create this as a report instead
if( $ENV{CAP_DEVPOPUP_EXEC} && !$query->param('view_code_no_popup') ) {
$self->devpopup->add_report(
title => 'View Code',
summary => "View code of $module",
report => "<style>$style_sec</style><pre>$code</pre>",
);
} else {
lib/CGI/Application/Plugin/ViewCode.pm view on Meta::CPAN
);
$pod_parser->parse_from_file($file);
my $pod = $pod_parser->asString;
# if we are under CGI::Application::Plugin::DevPopup then let's create this as a report instead
if( $ENV{CAP_DEVPOPUP_EXEC} && !$query->param('view_code_no_popup') ) {
$self->devpopup->add_report(
title => 'View POD',
summary => "View POD of $module",
report => "<pre>$pod</pre>",
);
} else {
CGI-Bus
view release on metacpan or search on metacpan
lib/CGI/Bus/tm.pm view on Meta::CPAN
$r .=$s->_htmlbare(-bck => $p->{-iurl} && $img{-bck} ? $p->qurl : 0
,-onClick=>'{window.history.back(); return(false)}') #window.event.returnValue=false;
if !$s->{-formtgf};
$r .=$s->_htmlbare(-lgn => $s->uauth->authurl)
if $guest && $s->uauth->authurl;
$r .=$s->_htmlbare($g->popup_menu(-name=>$s->pxnme(-pxsw=>'LIST')
,-values=>$s->qlstnmes
,-labels=>$s->qlstlbls
,-default=>$s->qlst
,-onChange=> (!$p->{-iurl}
? $s->pxnme(-pxcb=>'-lst') .'.click()'
lib/CGI/Bus/tm.pm view on Meta::CPAN
my $fi =$f->{-inp};
$fi->{-values} =&{$fi->{-values}}($s) if ref($fi->{-values}) eq 'CODE';
$fi->{-labels} =&{$fi->{-labels}}($s) if ref($fi->{-labels}) eq 'CODE';
$fi->{-values} =[sort {lc($fi->{-labels}->{$a}) cmp lc($fi->{-labels}->{$b})} keys %{$fi->{-labels}}]
if !$fi->{-values};
$wgp .=$p->popup_menu(-name=>$f->{-fld},%{$f->{-inp}},-title=>$cmt,-class=>'Form')
}
else {
$wgp .=$p->htmltextfield(-name=>$f->{-fld},%{$f->{-inp}},-title=>$cmt,-class=>'Form')
}
}
CGI-Easy-SendFile
view release on metacpan or search on metacpan
lib/CGI/Easy/SendFile.pm view on Meta::CPAN
# -- send "file" generated in memory instead of real file
my $dynamic_file = '…some binary data…';
my $data = send_file($r, $h, \$dynamic_file);
# -- simulate static image served by web server
# (without "download file" dialog popup in browser)
my $data = send_file($r, $h, 'avatar.png', {
type => 'image/png',
cache => 1,
inline => 1,
});
CGI-FormBuilder
view release on metacpan or search on metacpan
lib/CGI/FormBuilder.pod view on Meta::CPAN
=item jsmessage => $string
You can use this to specify your own custom message for the field,
which will be printed if it fails validation. The C<jsmessage>
option affects the JavaScript popup box, and the C<message> option
affects what is printed out if the server-side validation fails.
If C<message> is specified but not C<jsmessage>, then C<message>
will be used for JavaScript as well.
$form->field(name => 'cc',
CGI-Kwiki
view release on metacpan or search on metacpan
lib/CGI/Kwiki/Formatter.pm view on Meta::CPAN
my $page_id = $self->cgi->page_id;
my $start = $self->loc('start');
my $html = <<END;
<script src="javascript/SlideStart.js"></script>
<form>
${ \ CGI::popup_menu(
-name => 'size',
-values => [qw(640x480 800x600 1024x768 1280x1024 1600x1200), $self->loc('fullscreen')]
)
}
<input type="button" name="button" value="$start" onclick="startSlides()">
CGI-MultiValuedHash
view release on metacpan or search on metacpan
lib/CGI/MultiValuedHash.pm view on Meta::CPAN
name=name&type=textfield&visible_title=What%27s+your+name%3f
Here's another example with a multi-valued field (it is actually a single line,
but appears on two here for clarity:
name=color&type=popup_menu&values=red&values=green&values=blue&
values=chartreuse&visible_title=What%27s+your+favorite+colour%3f
Some query strings are the result of ISINDEX queries, and they look different:
tell&me&about&stuff
Cookie strings such as $ENV{HTTP_COOKIE} are different yet and look like:
name=color; type=popup_menu; values=red&green&blue&chartreuse
In the argument lists for the above methods, DELIM refers to the "&" in normal
query strings and the "; " in cookies, whereas VALSEP is meaningless with normal
query strings and is the "&" in "isindex" queries and cookie strings.
lib/CGI/MultiValuedHash.pm view on Meta::CPAN
values=minie
values=moe
visible_title=What%27s+the+combination%3f
=
name=color
type=popup_menu
values=red
values=green
values=blue
values=chartreuse
visible_title=What%27s+your+favorite+colour%3f
CGI-MxScreen
view release on metacpan or search on metacpan
MxScreen.pm view on Meta::CPAN
22 );
23
24 print p("You told me your favorite weekday was", $self->vars->{weekday})
25 if exists $self->vars->{weekday};
26
27 print p("Your favorite color is", popup_menu($color->properties));
28
29 my $ok = $self->record_button(
30 -name => "Next",
31 -target => "Weekday");
32
MxScreen.pm view on Meta::CPAN
58 -default => $self->vars->{weekday} || "Mon",
59 -override => 1,
60 -values => [qw(Mon Tue Wed Thu Fri Sat Sun)],
61 );
62
63 print p("Your favorite weekday is", popup_menu($weekday->properties));
64
65 my $back = $self->record_button(
66 -name => "Back",
67 -target => $self->spring_screen,
68 );
MxScreen.pm view on Meta::CPAN
screen makes use of a field named C<"color">, and whose value should be
stored in the global persistent hash under the key C<"color"> (as per
the C<-storage> indication).
The remaining attributes are simply collected to be passed to the
C<popup_menu()> routine via C<$color->properties> below. They could be
omitted, and added inline when C<popup_menu()> is called, but it's best
to regroup common things together.
The underlying object created by C<record_field()> will be serialized
and included in the C<CGI::MxScreen> context (only the relevant attributes
are serialized, i.e. C<CGI> parameters such as C<-values> are not).
MxScreen.pm view on Meta::CPAN
access to unknown key 'weekday'
This protection can be disabled if you want it so, but it is on by default.
It will probably save you one day, but unfortunately this is a runtime check.
27 print p("Your favorite color is", popup_menu($color->properties));
28
The above is generating the sole input of this screen, i.e. a popup
menu so that you can select your favorite color. Note that we're passing
C<popup_menu()>, which is a routine from the C<CGI> module, a list of
arguments derived from the recorded field C<$color>, created at line 16.
29 my $ok = $self->record_button(
30 -name => "Next",
31 -target => "Weekday");
MxScreen.pm view on Meta::CPAN
The declaration of the field used to ask them about their preferred week day.
It looks a lot like the one we did for the color, on lines 16-22, with the
exception that the field name is C<"day"> but the storage in the context
is C<"weekday"> (we used the same string C<"color"> previously).
63 print p("Your favorite weekday is", popup_menu($weekday->properties));
64
The above line generates the popup. This will create a selection list
whose CGI name is C<"day">. However, upon reception of that parameter,
C<CGI::MxScreen> will immediately save the value to the location identified
by the C<-storage> line, thereby making the value available to the application
via the C<$self-E<gt>vars> hash.
CGI-OptimalQuery
view release on metacpan or search on metacpan
lib/CGI/OptimalQuery.pm view on Meta::CPAN
=item B<< OQformTop => "top of form" >>
=item B<< usePopups => 1|0 >>
use popups when opening a record form using the built in buttons The default is 1. If this is set to 1, useAjax default is 1.
=item B<< WindowHeight => INT >>
=item B<< WindowWidth => INT >>
Specify popup window width, height.
=item B<< OQscript => " some javascript code (see examples below) " >>
OQscript gives you unlimited power to alter the output of optimal query by allowing you to enter javascript code that is executed client side
CGI-Panel
view release on metacpan or search on metacpan
lib/CGI/Panel.pm view on Meta::CPAN
return $cgi->textarea($args);
}
###############################################################
sub local_popup_menu {
my ($self, $args) = @_;
my $cgi = new CGI;
$args->{name} = $self->get_localised_name($args->{name});
return $cgi->popup_menu($args);
}
###############################################################
sub local_radio_group {
CGI-Path
view release on metacpan or search on metacpan
=head1 allow_history
At least partly due to the sometimes complicated nature of paths, I have found it difficult to debug what is
actually going on during navigation. The history features of CGI::Path aim to try and make things a little
easier to follow. The goal is for each step to get added to the history and get spit out to a popup window,
showing in hopefully easy to read fashion, what happened that led to the step being printed.
To turn on the history features, the allow_history method needs to return true. The default method checks to see
that both $self->{allow_history} and $self->form->{$self->{history_key}} are true. The default history_key is named
history. When CGI::Path finds that history is allowed $self->{history_key} gets saved to the session, which means
CGI-Portable
view release on metacpan or search on metacpan
demos/animals/config.pl view on Meta::CPAN
'values' => ['eenie', 'meenie', 'minie', 'moe'],
default => ['eenie', 'minie'],
rows => 2,
}, {
visible_title => "What's your favorite colour?",
type => 'popup_menu',
name => 'color',
'values' => ['red', 'green', 'blue', 'chartreuse'],
}, {
type => 'submit',
},
CGI-Screen
view release on metacpan or search on metacpan
checkbox(-name=>'weather',-value=>'dull',-label=>'forecast')
radio_group(-name=>'game')
radio_group(-name=>'game',-labels=>{'chess'=>'ping pong'})
checkbox_group(-name=>'game',-Values=>[qw/checkers chess cribbage/])
checkbox_group(-name=>'game',-Values=>[qw/checkers chess cribbage/],-Defaults=>['cribbage'],-override=>1)
popup_menu(-name=>'game',-Values=>[qw/checkers chess cribbage/],-Default=>'cribbage',-override=>1)
CGI-Simple
view release on metacpan or search on metacpan
lib/CGI/Simple.pm view on Meta::CPAN
comment()
checkbox()
checkbox_group()
_tableize()
radio_group()
popup_menu()
scrolling_list()
hidden()
image_button()
nosticky()
default_dtd()
CGI-Test
view release on metacpan or search on metacpan
lib/CGI/Test/Form.pm view on Meta::CPAN
#
# Widgets are also sorted by type, and stored as object attribute:
#
# buttons all buttons
# inputs text area, text fields, password fields
# menus popup menus
# radios radio buttons
# checkboxes all checkboxes
# hidden all hidden fields
# widgets all widgets, whatever their type.
#
CGI-Widget-DBI-Browse
view release on metacpan or search on metacpan
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
);
$self->assert_equals('', $self->{wb}->category_title());
$self->assert_display_does_not_contain([ 'input type="hidden' ]);
$self->assert_display_does_not_contain([ 'At first page', 'At last page' ]);
$self->assert_display_does_not_contain([ 'Sort by', 'sortby_columns_popup' ]);
$self->assert_display_does_not_contain([ 'Sort field' ]);
$self->assert_equals('continent', $self->{wb}->is_browsing());
$self->assert(! $self->{wb}->parent_category_column());
$self->assert_deep_equals([], [$self->{wb}->ancestor_category_columns()]);
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
[ 'td', 'tr' ],
);
$self->assert_equals('South America', $wb->category_title());
$self->assert_display_does_not_contain([ 'At first page', 'At last page' ]);
$self->assert_display_does_not_contain([ 'Sort by', 'sortby_columns_popup' ]);
$self->assert_display_does_not_contain([ 'Sort field' ]);
}
sub test_display__second_level__uses_href_extra_vars_for_category_nav_links
{
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
[ 'td', 'tr' ],
);
$self->assert_equals('Asia > Japan', $wb->category_title());
$self->assert_display_does_not_contain([ 'At first page', 'At last page' ]);
$self->assert_display_does_not_contain([ 'Sort by', 'sortby_columns_popup' ]);
$self->assert_display_does_not_contain([ 'Sort field' ]);
}
sub test_display__third_level__uses_href_extra_vars_for_category_nav_links
{
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
[ 'At first page', 'search_startat=1', 'Next >' ],
);
$self->assert_display_does_not_contain([ 'continent=Europe[^<>]+id="categoryNavLink-Europe".*', 'Europe' ]);
$self->assert_display_does_not_contain([ 'continent=North%20America[^<>]+id="categoryNavLink-North America".*', 'North America' ]);
$self->assert_display_does_not_contain([ 'continent=South%20America[^<>]+id="categoryNavLink-South America".*', 'South America' ]);
$self->assert_display_does_not_contain([ 'Sort by', 'sortby_columns_popup' ]);
$self->assert_display_does_not_contain([ 'Sort field' ]);
$self->init_test_object();
$wb = $self->{wb};
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_equals('state_or_province', $wb->parent_category_column());
$self->assert_deep_equals([qw/continent nation state_or_province/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="North America' ],
[ 'input type="hidden" name="nation" value="United States' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'continent=North%20America', 'city_no' ],
[ 'sortby=name', 'nation=United%20States', 'name' ],
[ 'sortby=population', 'continent=North%20America', 'population' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_deep_equals([qw/continent nation state_or_province/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
# test for hidden _browse_skip_to_results_: required for persistent results where subclasses submit form
[ 'input type="hidden" name="_browse_skip_to_results_" value="1' ],
[ 'input type="hidden" name="continent" value="Asia' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'continent=Asia', 'city_no' ],
[ 'sortby=name', 'continent=Asia', 'name' ],
[ 'sortby=population', 'continent=Asia', 'population' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_equals('continent', $wb->parent_category_column());
$self->assert_deep_equals([qw/continent/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="Antarctica' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'continent=Antarctica', 'city_no' ],
[ 'sortby=name', 'continent=Antarctica', 'name' ],
[ 'sortby=description', 'continent=Antarctica', 'description' ],
[ 'sortby=population', 'continent=Antarctica', 'population' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_equals('continent', $wb->parent_category_column());
$self->assert_deep_equals([qw/continent/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="Pacific Ocean' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'continent=Pacific%20Ocean', 'city_no' ],
[ 'sortby=name', 'continent=Pacific%20Ocean', 'name' ],
[ 'sortby=description', 'continent=Pacific%20Ocean', 'description' ],
[ 'sortby=population', 'continent=Pacific%20Ocean', 'population' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_equals('continent', $wb->parent_category_column());
$self->assert_deep_equals([qw/continent/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="Atlantic Ocean' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'continent=Atlantic%20Ocean', 'city_no' ],
[ 'sortby=name', 'continent=Atlantic%20Ocean', 'name' ],
[ 'sortby=description', 'continent=Atlantic%20Ocean', 'description' ],
[ 'sortby=population', 'continent=Atlantic%20Ocean', 'population' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_deep_equals([qw/continent nation state_or_province/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="North America' ],
[ 'input type="hidden" name="nation" value="United States' ],
[ 'input type="hidden" name="state_or_province" value="Oregon' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'state_or_province=Oregon', 'city_no' ],
[ 'sortby=name', 'nation=United%20States', 'name' ],
[ 'sortby=population', 'continent=North%20America', 'population' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_deep_equals([qw/continent nation state_or_province/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="North America' ],
[ 'input type="hidden" name="nation" value="United States' ],
[ 'input type="hidden" name="state_or_province" value="New York' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'state_or_province=New%20York', 'city_no' ],
[ 'sortby=name', 'nation=United%20States', 'name' ],
[ 'sortby=population', 'continent=North%20America', 'population' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_deep_equals([qw/continent nation state_or_province/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="Asia' ],
[ 'input type="hidden" name="nation" value="India' ],
[ 'input type="hidden" name="state_or_province" value="Maharashtra' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'continent=Asia', 'city_no' ],
[ 'sortby=name', 'nation=India', 'name' ],
[ 'sortby=population', 'state_or_province=Maharashtra', 'population' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_deep_equals([qw/continent nation state_or_province/], [$self->{wb}->ancestor_category_columns()]);
$self->assert_display_contains(
[ 'input type="hidden" name="continent" value="Asia' ],
[ 'input type="hidden" name="nation" value="Japan' ],
[ 'input type="hidden" name="state_or_province" value="Kanto' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'sortby=city_no', 'state_or_province=Kanto', 'city_no' ],
[ 'sortby=name', 'state_or_province=Kanto', 'name' ],
[ 'sortby=population', 'state_or_province=Kanto', 'population' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
lib/CGI/Widget/DBI/TEST/Browse.pm view on Meta::CPAN
$self->assert_display_contains(
[ 'href="?"[^<>]+class="breadcrumbNavLink', 'Top', 'gt' ],
[ 'continent=North%20America', 'class="breadcrumbNavLink', 'North America', 'gt' ],
[ 'continent=North%20America', 'nation=United%20States', 'class="breadcrumbNavLink', 'United States', 'gt' ],
[ 'continent=North%20America', 'nation=United%20States', 'state_or_province=New%20York', 'class="breadcrumbNavLink', 'New York' ],
[ 'Sort by', 'sortby_columns_popup', 'Sort field' ],
[ 'At first page', 'At last page' ],
[ 'tr', 'td' ],
[ 'New York', 'Financial capital of the world', 20_420_000 ],
[ 'Ithaca', 'Ithaca is Gorges', 100_018 ],
[ 'td', 'tr' ],
CGI-Widget-DBI-Search
view release on metacpan or search on metacpan
lib/CGI/Widget/DBI/Search/Display/Grid.pm view on Meta::CPAN
return ($self->{-optional_header}||'')
. $self->extra_vars_for_form()
. '<div id="'.($self->{-css_dataset_container_id} || 'searchWidgetContainerId').'">'
. ($self->{-browse_mode}
? $self->display_pager_links(1, 0, 1)
: '<div align="right">'.$self->translate('Sort by').': '.$self->display_sort_popup().'</div>'.$self->display_pager_links(1, 0))
. '<table id="'.($self->{-css_grid_id} || 'searchWidgetGridId').'" class="'.($self->{-css_grid_class} || 'searchWidgetGridTable').'">'
. $self->{q}->Tr([ @grid_rows ])
. '</table>'
. ($self->{-browse_mode}
? $self->display_pager_links(0, 1, 1)
: $self->display_pager_links(0, 1))
. '</div>'
. ($self->{-optional_footer}||'');
}
=item display_sort_popup()
Returns an HTML popup with possible columns to sort dataset by, whose values are the
full navigation URIs. An onChange event causes the URI to be loaded, resorting the
dataset.
=cut
sub display_sort_popup {
my ($self) = @_;
my $q = $self->{q};
my @sortable_cols = ref $self->{-sortable_columns} eq 'HASH'
? sort { ($self->{-display_columns}->{$a} || $a) cmp ($self->{-display_columns}->{$b} || $b) } keys %{$self->{-sortable_columns}}
: @{$self->{'sql_table_display_columns'}};
$self->{'sortable_columns'} ||= [
map { $self->_column_name($_) } grep { ! $self->{-unsortable_columns}->{$_} } @sortable_cols
];
return $q->popup_menu(
-name => 'sortby_columns_popup',
# call unescape version of sortby_column_uri() to convert & back to & because CGI will autoEscape() - we can't have double-escaping
-values => [ '', map { $self->sortby_column_uri($_, 1) } @{ $self->{'sortable_columns'} } ],
-labels => {
'' => '<'.$self->translate('Sort field').'>',
map {
CGIGraph
view release on metacpan or search on metacpan
lib/CGI/Graph/Layout.pm view on Meta::CPAN
}
sub zoom_bar {
my $self = shift;
my $final = "zoom factor ";
$final .= $self->{CGI}->popup_menu(-name => "zoom",
-values => [1,2,3,4,5],
-onChange => "this.form.submit()");
return $final;
}
CIPP
view release on metacpan or search on metacpan
lib/CIPP/Manual.pm view on Meta::CPAN
The name of the formular widget.
=item B<MULTIPLE>
If this is set, a multi selection list will be generated, instead of a single selection popup widget.
=item B<STICKY>
If the STICKY option is set, the <?OPTION> commands inside the <?SELECT> block preserve their state in generating automatically a SELECTED option, if the corresponding entry was selected before. This is done in checking the value of the corresponding...
=item B<additional_SELECT_parameters>
All additional parameters are taken over without changes into the produced <SELECT> tag.
CORBA-MICO
view release on metacpan or search on metacpan
$ctree->append_column($column);
# disable incremental search
$ctree->set_enable_search(0);
# search by regexp
$ctree->set_search_equal_func(\&CORBA::MICO::Misc::ctree_std_search, $self);
# and use popup search via CTRL_F/CTRL_R
#$ctree->signal_connect(
# key_press_event => \&CORBA::MICO::Misc::ctree_kpress, $self);
$scrolled->add($ctree);
CPAN-Dependency
view release on metacpan or search on metacpan
eg/mkreport view on Meta::CPAN
<td><a href="http://search.cpan.org/dist/%s"
title="Read the documentation of this distribution on Search CPAN"
>%s</a> [<a href="http://cpan.uwinnipeg.ca/dist/%s"
title="Read the documentation of this distribution on Kobesearch"
>mirror</a>]
<div class="popup %s"><div><strong>%s</strong> %s</div></div>
</td>
<td>%d</td>
</tr>
ROW
CPAN-MetaCurator
view release on metacpan or search on metacpan
Changelog.ini view on Meta::CPAN
- In this file replace all (' ' x 4) by a tab.
EOT
[V 1.16]
Date=2026-04-06T00:00:00
Comments=- Start adding buttons on each line of the tree, to support popups.
[V 1.15]
Date=2026-04-06T00:00:00
Comments=- Re-build db with newest data/tiddlers.json. Export as tree.
CPAN-Search-Lite
view release on metacpan or search on metacpan
htdocs/cpan.css view on Meta::CPAN
background: #EAE2BB;
font-size: 80%;
font-family: Verdana, Helvetica, Arial, Times;
}
/* used on popup */
a.windowClose:link
{
font-weight: bold;
color: #FFFFFF;
}
CPAN-Testers-WWW-Admin
view release on metacpan or search on metacpan
vhost/html/js/admin.js view on Meta::CPAN
disp.src=webpath+href
}
function PhotoGallery(callback) {
document.forms[1].display.value = callback;
window.open(cgipath+"pages.cgi?act=album-pick", "popup", "width=370,height=450,scrollbars=no,menubar=no,resizable=no,status=no,toolbar=no,location=no");
}
function ImageGallery(callback) {
document.forms[1].display.value = callback;
window.open(cgipath+"pages.cgi?act=imgs-gallery&imagetype=0,1,2,4,9", "popup", "width=340,height=390,scrollbars=no,menubar=no,resizable=no,status=no,toolbar=no,location=no");
}
CPAN-Testers-WWW-Blog
view release on metacpan or search on metacpan
vhost/cgi-bin/templates/public/banuser.html
vhost/cgi-bin/templates/public/box-sites.html
vhost/cgi-bin/templates/public/error_message.html
vhost/cgi-bin/templates/public/footer.html
vhost/cgi-bin/templates/public/layout.html
vhost/cgi-bin/templates/public/popup.html
vhost/cgi-bin/templates/public/quote.html
vhost/cgi-bin/templates/public/rssfeed.xml
vhost/cgi-bin/templates/public/sidebar.html
vhost/cgi-bin/templates/public/social-bar.html
vhost/cgi-bin/templates/public/tinymce.html
vhost/html/js/tiny_mce/plugins/fullscreen/editor_plugin.js
vhost/html/js/tiny_mce/plugins/fullscreen/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/fullscreen/fullscreen.htm
vhost/html/js/tiny_mce/plugins/iespell/editor_plugin.js
vhost/html/js/tiny_mce/plugins/iespell/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/inlinepopups/editor_plugin.js
vhost/html/js/tiny_mce/plugins/inlinepopups/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/alert.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/button.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/buttons.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/confirm.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/corners.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/horizontal.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/vertical.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/window.css
vhost/html/js/tiny_mce/plugins/inlinepopups/template.htm
vhost/html/js/tiny_mce/plugins/insertdatetime/editor_plugin.js
vhost/html/js/tiny_mce/plugins/insertdatetime/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/layer/editor_plugin.js
vhost/html/js/tiny_mce/plugins/layer/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/media/css/content.css
vhost/html/js/tiny_mce/plugins/xhtmlxtras/abbr.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/acronym.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/attributes.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/cite.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/css/attributes.css
vhost/html/js/tiny_mce/plugins/xhtmlxtras/css/popup.css
vhost/html/js/tiny_mce/plugins/xhtmlxtras/del.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/editor_plugin.js
vhost/html/js/tiny_mce/plugins/xhtmlxtras/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/xhtmlxtras/ins.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/js/abbr.js
vhost/html/js/tiny_mce/themes/simple/skins/default/ui.css
vhost/html/js/tiny_mce/themes/simple/skins/o2k7/content.css
vhost/html/js/tiny_mce/themes/simple/skins/o2k7/img/button_bg.png
vhost/html/js/tiny_mce/themes/simple/skins/o2k7/ui.css
vhost/html/js/tiny_mce/tiny_mce.js
vhost/html/js/tiny_mce/tiny_mce_popup.js
vhost/html/js/tiny_mce/tiny_mce_src.js
vhost/html/js/tiny_mce/utils/editable_selects.js
vhost/html/js/tiny_mce/utils/form_utils.js
vhost/html/js/tiny_mce/utils/mctabs.js
vhost/html/js/tiny_mce/utils/validate.js
CPAN-Testers-WWW-Reports
view release on metacpan or search on metacpan
lib/Labyrinth/Plugin/CPAN/Report.pm view on Meta::CPAN
}
}
if($cgiparams{raw}) {
$tvars{article}{raw} = $cgiparams{raw};
$tvars{realm} = 'popup';
} else {
$tvars{realm} = 'wide';
}
}
CPAN-Testers-WWW-Wiki
view release on metacpan or search on metacpan
vhost/cgi-bin/templates/public/banuser.html
vhost/cgi-bin/templates/public/box-sites.html
vhost/cgi-bin/templates/public/error_message.html
vhost/cgi-bin/templates/public/footer.html
vhost/cgi-bin/templates/public/layout.html
vhost/cgi-bin/templates/public/popup.html
vhost/cgi-bin/templates/public/rssfeed.xml
vhost/cgi-bin/templates/public/sidebar.html
vhost/cgi-bin/templates/public/social-bar.html
vhost/cgi-bin/templates/users/user-acl.html
vhost/cgi-bin/templates/users/user-adminedit.html
vhost/html/js/tiny_mce/plugins/fullscreen/editor_plugin.js
vhost/html/js/tiny_mce/plugins/fullscreen/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/fullscreen/fullscreen.htm
vhost/html/js/tiny_mce/plugins/iespell/editor_plugin.js
vhost/html/js/tiny_mce/plugins/iespell/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/inlinepopups/editor_plugin.js
vhost/html/js/tiny_mce/plugins/inlinepopups/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/alert.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/button.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/buttons.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/confirm.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/corners.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/horizontal.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/img/vertical.gif
vhost/html/js/tiny_mce/plugins/inlinepopups/skins/clearlooks2/window.css
vhost/html/js/tiny_mce/plugins/inlinepopups/template.htm
vhost/html/js/tiny_mce/plugins/insertdatetime/editor_plugin.js
vhost/html/js/tiny_mce/plugins/insertdatetime/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/layer/editor_plugin.js
vhost/html/js/tiny_mce/plugins/layer/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/media/css/content.css
vhost/html/js/tiny_mce/plugins/xhtmlxtras/abbr.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/acronym.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/attributes.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/cite.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/css/attributes.css
vhost/html/js/tiny_mce/plugins/xhtmlxtras/css/popup.css
vhost/html/js/tiny_mce/plugins/xhtmlxtras/del.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/editor_plugin.js
vhost/html/js/tiny_mce/plugins/xhtmlxtras/editor_plugin_src.js
vhost/html/js/tiny_mce/plugins/xhtmlxtras/ins.htm
vhost/html/js/tiny_mce/plugins/xhtmlxtras/js/abbr.js
vhost/html/js/tiny_mce/themes/simple/skins/default/ui.css
vhost/html/js/tiny_mce/themes/simple/skins/o2k7/content.css
vhost/html/js/tiny_mce/themes/simple/skins/o2k7/img/button_bg.png
vhost/html/js/tiny_mce/themes/simple/skins/o2k7/ui.css
vhost/html/js/tiny_mce/tiny_mce.js
vhost/html/js/tiny_mce/tiny_mce_popup.js
vhost/html/js/tiny_mce/tiny_mce_src.js
vhost/html/js/tiny_mce/utils/editable_selects.js
vhost/html/js/tiny_mce/utils/form_utils.js
vhost/html/js/tiny_mce/utils/mctabs.js
vhost/html/js/tiny_mce/utils/validate.js
CPAN-cpanminus-reporter-RetainReports
view release on metacpan or search on metacpan
t/data/cpanriver.01.build.log view on Meta::CPAN
t/multipart_init.t ......... ok
t/multipart_start.t ........ ok
t/no_tabindex.t ............ ok
t/param_fetch.t ............ ok
t/param_list_context.t ..... ok
t/popup_menu.t ............. ok
t/postdata.t ............... ok
CGI::Pretty is DEPRECATED and will be removed in a future release. Please see https://github.com/leejo/CGI.pm/issues/162 for more information at /home/jkeenan/.cpanm/work/1511306908.19874/CGI-4.37/blib/lib/CGI/Pretty.pm line 21.
t/pretty.t ................. ok
t/push.t ................... ok
t/query_string.t ........... ok
CPANPLUS-Shell-Tk
view release on metacpan or search on metacpan
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
It shows basic information on the module when you select one in the list to the
left.
It shows the POD for the module when you select this from the right-click
popup menu in the list.
It shows the command history with editing facility when selected from the menu.
And it show this POD when you select 'Help' from the Help menu.
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
=head2 Working with Modules
When you click on the modules in the listbox on the left you get basic
information on the selected module.
When you right click on the module you get a popup menu which lets you do
the following:
=over 2
=item Install
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
}
}
]
);
#---- on right click show popup menu
my $button3_menu = $self->_create_button3_menu($update);
$update->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $update->curselection;
@{$self->{MODS}} = map {$update->columnGet(0)->get($_, $_)} @sel;
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
}
}
]
);
#---- on right click show popup menu
my $button3_menu = $self->_create_button3_menu($installed);
$installed->bindRows('<ButtonPress-3>',
[ sub {
my @sel = $installed->curselection;
@{$self->{MODS}} = map {$installed->columnGet(0)->get($_, $_)} @sel;
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
#------------------------------------------------------------------------
# right frame contains three text widgets, two are always hidden
# 1. history editor
# 2. module info
# 3. module pod
# the actual contents depends on the last action in popup or history menu
#
sub _setup_right_frame {
my $self = shift;
my $rightframe = shift;
lib/CPANPLUS/Shell/Tk.pm view on Meta::CPAN
$self->{INFO} = $info;
}
#------------------------------------------------------------------------
# popup menu for button 3 in listbox
#
sub _create_button3_menu {
my ($self, $list) = @_;
my $MW = $self->{MW};
my $CP = $self->{CP};
( run in 2.812 seconds using v1.01-cache-2.11-cpan-364913b4093 )