Gecko [ 122.154.134.11 ]

Name	Size	Permission
All.pm	969 B	-rw-r--r--
Button.pm	1.16 KB	-rw-r--r--
Checkbox.pm	1.19 KB	-rw-r--r--
Checkboxes.pm	2.49 KB	-rw-r--r--
Columns.pm	1.43 KB	-rw-r--r--
ConfirmPage.pm	1.14 KB	-rw-r--r--
Date.pm	2.11 KB	-rw-r--r--
DynamicBar.pm	2.35 KB	-rw-r--r--
DynamicHTML.pm	1.16 KB	-rw-r--r--
DynamicText.pm	2.42 KB	-rw-r--r--
DynamicWait.pm	2.49 KB	-rw-r--r--
ErrorPage.pm	565 B	-rw-r--r--
File.pm	1.57 KB	-rw-r--r--
Form.pm	7.94 KB	-rw-r--r--
Group.pm	1.44 KB	-rw-r--r--
Icon.pm	1.09 KB	-rw-r--r--
Input.pm	2.27 KB	-rw-r--r--
InputTable.pm	2.79 KB	-rw-r--r--
JavascriptButton.pm	970 B	-rw-r--r--
LinkTable.pm	6.39 KB	-rw-r--r--
Menu.pm	1.48 KB	-rw-r--r--
Multiline.pm	873 B	-rw-r--r--
OptTextarea.pm	2.85 KB	-rw-r--r--
OptTextbox.pm	1.94 KB	-rw-r--r--
Page.pm	8.41 KB	-rw-r--r--
Password.pm	639 B	-rw-r--r--
PlainText.pm	1.7 KB	-rw-r--r--
Properties.pm	2.6 KB	-rw-r--r--
Radios.pm	1.59 KB	-rw-r--r--
ResultPage.pm	520 B	-rw-r--r--
Section.pm	3.54 KB	-rw-r--r--
Select.pm	2.66 KB	-rw-r--r--
Submit.pm	788 B	-rw-r--r--
Table.pm	15.87 KB	-rw-r--r--
TableAction.pm	1.51 KB	-rw-r--r--
Tabs.pm	2.86 KB	-rw-r--r--
Textarea.pm	2.16 KB	-rw-r--r--
Textbox.pm	1.63 KB	-rw-r--r--
Time.pm	4.12 KB	-rw-r--r--
TitleList.pm	1.51 KB	-rw-r--r--
Upload.pm	1.48 KB	-rw-r--r--
User.pm	1.44 KB	-rw-r--r--

Code Editor : Properties.pm

package WebminUI::Properties;
use WebminCore;

=head2 new WebminUI::Properties([heading], [columns], [width])
Creates a read-only properties list
=cut
sub new
{
if (defined(&WebminUI::Theme::Properties::new) &&
    caller() !~ /WebminUI::Theme::Properties/) {
        return new WebminUI::Theme::Properties(@_[1..$#_]);
        }
my ($self, $heading, $columns, $width) = @_;
$self = { 'columns' => 2 };
bless($self);
$self->set_heading($heading) if (defined($heading));
$self->set_columns($columns) if (defined($columns));
$self->set_width($width) if (defined($width));
return $self;
}

=head2 add_row(label, value, ...)
Adds one row to the properties table
=cut
sub add_row
{
my ($self, @row) = @_;
push(@{$self->{'rows'}}, \@row);
}

=head2 set_heading_row(head1, head2, ...)
Adds a row of headings
=cut
sub set_heading_row
{
my ($self, @row) = @_;
$self->{'heading_row'} = \@row;
}

=head2 html()
Returns the HTML for this properties list
=cut
sub html
{
my ($self) = @_;
my $rv;
my $width = $self->get_width();
$rv .= "<table border ".($width ? "width=$width" : "").">\n";
$rv .= "<tr><td><table width=100% cellspacing=0 cellpadding=3>\n";
my $cols = $self->get_columns();
if ($self->get_heading()) {
	$rv .= "<tr $tb><td colspan=$cols><b>".
	       $self->get_heading()."</b></td> </tr>\n";
	}
if ($self->{'heading_row'}) {
	$rv .= "<tr $tb>\n";
	foreach my $r (@{$self->{'heading_row'}}) {
		$rv .= "<td><b>$r</b></td>\n";
		}
	$rv .= "</tr>\n";
	}
foreach my $r (@{$self->{'rows'}}) {
	$rv .= "<tr $cb>\n";
	$rv .= "<td><b>$r->[0]</b></td>\n";
	for(my $i=1; $i<@$r || $i<$cols; $i++) {
		$rv .= "<td>".(ref($r->[$i]) ? $r->[$i]->html()
					    : $r->[$i])."</td>\n";
		}
	$rv .= "</tr>\n";
	}
$rv .= "</table></td></tr></table>\n";
return $rv;
}

=head2 set_width([number|number%])
Sets the width of this section. Can be called with 100%, 500, or undef to use
the minimum possible width.
=cut
sub set_width
{
my ($self, $width) = @_;
$self->{'width'} = $width;
}

sub get_width
{
my ($self) = @_;
return $self->{'width'};
}

=head2 set_columns(number)
Sets the number of columns in the properties table, including the title column
=cut
sub set_columns
{
my ($self, $columns) = @_;
$self->{'columns'} = $columns;
}

sub get_columns
{
my ($self) = @_;
return $self->{'columns'};
}

=head2 set_heading(number)
Sets the heading to appear above the properties list
=cut
sub set_heading
{
my ($self, $heading) = @_;
$self->{'heading'} = $heading;
}

sub get_heading
{
my ($self) = @_;
return $self->{'heading'};
}

=head2 set_page(WebminUI::Page)
Called when this form is added to a page
=cut
sub set_page
{
my ($self, $page) = @_;
$self->{'page'} = $page;
}

${this.title}

Code Editor : Properties.pm