DBIx::HTML::PopupRadio - Convert sql into a popup menu or radio group.
DBIx::HTML::PopupRadio
use DBIx::HTML::PopupRadio; my($popup_object) = DBIx::HTML::PopupRadio -> new ( dbh => $dbh, sql => 'select campus_id, campus_name from campus order by campus_name', ); $popup_object -> set(default => '1'); my($popup_menu) = $popup_object -> popup_menu(); my($radio_group) = $popup_object -> radio_group(); print $popup_menu;
This module takes a db handle and an SQL statement, and builds a hash.
Then you ask for that hash in HTML, as a popup menu or as a radio group.
The reading of the db table is delayed until you actually call one of the methods 'popup_menu' or 'radio_group'. Even then, it is delayed until any parameters passed in to these 2 methods are processed.
After a call to one of these 2 methods, you can call the 'size' method if you need to check how many rows were returned by the SQL you used.
Neither the module CGI.pm, nor any of that kidney, are used by this module. We simply output pure HTML.
This module is available both as a Unix-style distro (*.tgz) and an ActiveState-style distro (*.ppd). The latter is shipped in a *.zip file.
See http://savage.net.au/Perl-modules/html/installing-a-module.html for help on unpacking and installing each type of distro.
You create an object of the class by calling the constructor, 'new'.
You then call 'set', if you wish, to set any options.
Now call 'popup_menu' or 'radio_group' to get the HTML.
Lastly, display the HTML as part of a form.
The method names 'popup_menu' and 'radio_group' (and 'param') were chosen to be reminiscent of methods with the same names in the CGI.pm module. But let me repeat, my module does not use CGI.
Here, in alphabetical order, are the options accepted by the constructor, together with their default values.
Pass in an open database handle.
This option is mandatory, in the call to new, set, popup_menu or radio_group. Ie By the time you call one of the latter 2 methods, dbh must be set.
Pass in the string (from SQL column 2) which is to be the default item on the popup menu or radio group. You supply here the visible menu item, not the value associated with that menu item.
Starting with V 1.13, a case-insensitive match is used to compare the value provided here with the values read in from the database.
If default is not given a value, the first menu item becomes the default.
See the discussion of the sql option for details about the menu items.
This option is not mandatory.
Pass in a string of JavaScript, eg an event handler.
By using, say, javascript => 'onChange = "replicate()"', you can change the first line of HTML output from this:
<select id = "field01" name = "field01">
to this:
<select id = "field01" name = "field01" onChange = "replicate()">
Here is a real sample of such a JavaScript function, which would be output elsewhere in the HTML:
<script language="JavaScript"> function replicate() { a_form.field02.value = a_form.field01.options[a_form.field01.selectedIndex].text; a_form.field03.value = a_form.field01.options[a_form.field01.selectedIndex].value; } </script>
You can see what is happening: The menu item, both visible text and corresponding value returned to your CGI script, are being copied from the popup menu to 2 other fields in the form.
Obviously you would replace the body of this function with code of your own choosing.
Q: Since this is an onChange handler, the 2 other fields will not be initialized until the default menu selection is changed. So, how do you initialize them before the user selects a new menu item?
A: By outputting the following Javascript further down the form, after the function, menu and other 2 fields have been defined:
<script language="JavaScript">replicate();</script>
What is important to note here is that no function is declared, but one is called. The JavaScript is simple executed inline, at the time it is parsed by the browser.
Pass in 1 if you want each radio group item on a separate line, ie separated by <br />s.
Pass in the name of the form item to use for the popup menu or radio group.
This option is not mandatory, since it has a default value. It could be unset and then reset, but must have a value by the time you call popup_menu or radio_group.
The value of this parameter is what you will pass into a CGI object when you call its param() method to retrieve the user selection.
Hence you would do something like:
my($name) = 'fancy_menu'; my($popup_object) = DBIx::HTML::PopupRadio -> new(name => $name, ...); my($q) = CGI -> new(); my($id) = $q -> param($name) || '';
This is a hash ref of options you wish to set on the HTML 'select' itself.
Eg: new(name => 'a_name', options => {tabindex => 2, force => 1}, ...).
With new(name => 'a_name', ...), the select would look like:
<select id = "a_name" name = "a_name">
With new(name => 'a_name', options => {tabindex => 2, force => 1}, ...), the select would look like:
<select id = "a_name" name = "a_name" tabindex = "2" force = "1">
Alternately, this is possible: prompt => {'x' => 'y'}.
Pass in a prompt to use as the first entry in the popup menu.
The string, in the first case, can contain a single quote but not a double quote. Eg: prompt => "O'Connor".
The key, in the second case, can contain a single quote but not a double quote. Eg: prompt => {"'aitch" => 'Haitch = "h"'}.
Hence we can say new(prompt => 'Choose one') or new(prompt => {'0' => 'Choose one'}).
In the first case, the string 'Choose one' is both a visible menu item and the value passed back to the CGI script if the user selects that item.
In the second case, the string 'Choose one' is the visible menu item, and the other value, here '0', is the one passed back to the CGI script. In particular, this works - new(prompt => {'' => 'Choose one'}) - to return the empty string to the CGI script.
Alternately, an anonymous hash or hash reference can be used, so multiple pairs may be passed and they will appear at the top of the list sorted in the order of the values. Example new(prompt => {'no change' => 'no change', 'remove' => 'remove'});
This latter mechanism allows you to put multiple selections at the top of the menu.
Pass in the SQL used to select the popup menu or radio group items.
This option is mandatory, in the call to new, set, popup_menu or radio_group. Ie By the time you call one of the latter 2 methods, sql must be set.
The SQL must select 2 columns. The first will be used as the value returned by a CGI object, for example, when you call its param() method. The second value will be used as the visible selection offered to the user on the menu.
Of course, the 2 columns selected could be the same:
$obj -> set(sql => 'select campus_name, campus_name from campus');
But normally you would do this:
$obj -> set(sql => 'select campus_id, campus_name from campus');
This means that the second column is used to construct visible menu items, and when an item is selected by the user, the first column is what is returned to your CGI script.
The question remains: After you do something like this:
my($q) = CGI -> new(); my($id) = $q -> param('dbxi_menu') || '';
how do you convert the value, eg campus_id, back into the visible menu item, eg campus_name.
Simple: You call the param method of the DBIx::HTML::PopupRadio class:
my($name) = $popup_object -> param($id);
param returns the empty string if the value of $id is unknown.
See the previous section for details of the parameters.
Call this to convert the value returned to the CGI script when the user selected a menu item, into the visible menu item selected by the user.
In other words, convert the first column of the SQL into the second column.
popup_menu(%arg) takes the same parameters as new().
radio_group(%arg) takes the same parameters as new().
Call this to set any option after calling new().
set(%arg) takes the same parameters as new().
Call this after calling 'popup_menu' or 'radio_group'.
It will tell you whether or not your menu is empty.
See examples/*.cgi for complete programs, both simple and complex.
You will need to run examples/bootstrap-menus.pl to load the 'test' database, 'campus' and 'unit' tables, with sample data.
You will have to patch these 2 programs vis-a-vis the db vendor, username and password.
The sample data in bootstrap-menus.pl is simple, but is used by several modules, so do not be too keen on changing it :-).
CGI::Explorer DBIx::HTML::ClientDB DBIx::HTML::LinkedMenus
The latter 2 modules will be released after the current one.
https://github.com/ronsavage/DBIx-HTML-PopupRadio
Bugs should be reported via the CPAN bug tracker at
https://github.com/ronsavage/DBIx-HTML-PopupRadio/issues
DBIx::HTML::PopupRadio was written by Ron Savage <ron@savage.net.au> in 2002.
Home page: http://savage.net.au/index.html
Australian copyright (c) 2002, Ron Savage. All Programs of mine are 'OSI Certified Open Source Software'; you can redistribute them and/or modify them under the terms of The Artistic License, a copy of which is available at: http://www.opensource.org/licenses/index.html
To install DBIx::HTML::PopupRadio, copy and paste the appropriate command in to your terminal.
cpanm
cpanm DBIx::HTML::PopupRadio
CPAN shell
perl -MCPAN -e shell install DBIx::HTML::PopupRadio
For more information on module installation, please visit the detailed CPAN module installation guide.