cvsuser 02/04/18 09:44:35
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML RepositoryEditor.pm
Log:
renamed $wc to $context everywhere
Revision Changes Path
1.4 +51 -50 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/RepositoryEditor.pm
Index: RepositoryEditor.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/RepositoryEditor.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- RepositoryEditor.pm 2 Mar 2002 03:07:47 -0000 1.3
+++ RepositoryEditor.pm 18 Apr 2002 16:44:35 -0000 1.4
@@ -1,6 +1,6 @@
######################################################################
-## $Id: RepositoryEditor.pm,v 1.3 2002/03/02 03:07:47 spadkins Exp $
+## $Id: RepositoryEditor.pm,v 1.4 2002/04/18 16:44:35 spadkins Exp $
######################################################################
## x TODO: add "summary" feature
## x TODO: add cross-tabulation
@@ -32,7 +32,7 @@
## x TODO: add default {summary} formula as sum(COL) (for numbers)
package P5EEx::Blue::Widget::HTML::RepositoryEditor;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML;
@@ -50,8 +50,8 @@
# official way
use P5EEx::Blue::P5EE;
- $wc = P5EEx::Blue::P5EE->context();
- $w = $wc->widget($name);
+ $context = P5EEx::Blue::P5EE->context();
+ $w = $context->widget($name);
# internal way
use P5EEx::Blue::Widget::HTML::RepositoryEditor;
@@ -83,14 +83,12 @@
my $self = shift;
$self->SUPER::init(@_);
- my ($wc, $name, $rep, $repname, $table, $table_names);
+ my ($context, $name, $rep, $repname, $table, $table_names);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
-
$repname = $self->get("repository");
- $rep = $self->{context}->repository($repname);
- $self->{repository} = $rep;
+ $rep = $context->repository($repname);
$table = $self->get("table");
if (! $table) {
@@ -98,9 +96,9 @@
$table = $table_names->[0];
$self->set("table",$table);
}
- $self->{columns} = [];
+ $self->{columns} = [] if (!defined $self->{columns});
- $wc->widget("$name.datatable",
+ $context->widget("$name.datatable",
widgetClass => "P5EEx::Blue::Widget::HTML::DataTable",
scrollable => 1,
sortable => 1,
@@ -157,12 +155,12 @@
sub set_mode {
my ($self, $mode, $editable) = @_;
- my ($wc, $name, $w);
+ my ($context, $name, $w);
$self->set("mode", $mode);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
- $w = $wc->widget("$name.datatable");
+ $w = $context->widget("$name.datatable");
$w->set("table", $self->get("table"));
$w->set("columns", $self->get("columns"));
$w->set("ordercols", $self->get("ordercols"));
@@ -223,14 +221,14 @@
sub html {
my $self = shift;
- my ($wc, $name, $mode);
+ my ($context, $name, $mode);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
$mode = $self->get("mode","");
if ($mode eq "edit" || $mode eq "view") {
- return $wc->widget("$name.datatable")->display();
+ return $context->widget("$name.datatable")->display();
}
else {
return $self->mk_criteria_html();
@@ -240,11 +238,14 @@
sub mk_criteria_html {
my $self = shift;
- my ($name, $wc, $rep, $table, $table_names, $table_label_hashref, $table_label);
+ my ($name, $context, $repname, $rep, $table, $table_names,
$table_label_hashref, $table_label);
- $wc = $self->{context};
+ $context = $self->{context};
$name = $self->{name};
- $rep = $self->{repository};
+ $repname = $self->{repository};
+ $rep = $context->repository($repname);
+ $self->{rep} = $rep;
+ $rep = $self->{rep};
$table_names = $rep->get_table_names();
$table_label_hashref = $rep->get_table_labels();
@@ -261,19 +262,19 @@
my ($view_button, $edit_button, $select_button);
my ($columns, $params);
- $view = $wc->widget("$name.view",
+ $view = $context->widget("$name.view",
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => 20,
maxwidth => 99,
)->display();
- $saveas_view = $wc->widget("$name.saveas_view",
+ $saveas_view = $context->widget("$name.saveas_view",
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => 20,
maxwidth => 99,
)->display();
- $new_table = $wc->widget("$name.new_table",
+ $new_table = $context->widget("$name.new_table",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => $table_names,
labels => $table_label_hashref,
@@ -281,13 +282,13 @@
$self->set_default("maxrows",25);
- $maxrows = $wc->widget("$name.maxrows",
+ $maxrows = $context->widget("$name.maxrows",
widgetClass => "P5EEx::Blue::Widget::HTML::TextField",
size => 4,
maxlength => 99,
)->display();
- $open_button = $wc->widget("$name.open_button",
+ $open_button = $context->widget("$name.open_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => "Open",
@@ -296,7 +297,7 @@
bevel => 2,
)->display();
- $save_button = $wc->widget("$name.save_button",
+ $save_button = $context->widget("$name.save_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => "Save",
@@ -305,7 +306,7 @@
bevel => 2,
)->display();
- $delete_button = $wc->widget("$name.delete_button",
+ $delete_button = $context->widget("$name.delete_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => "Delete",
@@ -314,7 +315,7 @@
bevel => 2,
)->display();
- $saveas_button = $wc->widget("$name.saveas_button",
+ $saveas_button = $context->widget("$name.saveas_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => "Save As",
@@ -323,7 +324,7 @@
bevel => 2,
)->display();
- $view_button = $wc->widget("$name.view_button",
+ $view_button = $context->widget("$name.view_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => "View",
@@ -332,7 +333,7 @@
bevel => 2,
)->display();
- $edit_button = $wc->widget("$name.edit_button",
+ $edit_button = $context->widget("$name.edit_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => 'Edit',
@@ -341,7 +342,7 @@
bevel => 2,
)->display();
- $select_button = $wc->widget("$name.select_button",
+ $select_button = $context->widget("$name.select_button",
widgetClass => "P5EEx::Blue::Widget::HTML::ImageButton",
imageScript => 'button',
label => "Select Table",
@@ -399,18 +400,18 @@
sub column_selection_html {
my $self = shift;
- my ($wc, $name, $repname, $rep, $table);
- $wc = $self->{context};
+ my ($context, $name, $repname, $rep, $table);
+ $context = $self->{context};
$name = $self->{name};
$repname = $self->get("repository");
- $rep = $wc->repository($repname);
+ $rep = $context->repository($repname);
$table = $self->get("table");
return "ERROR: No table specified" if (!$table);
my ($columns, $column_labels, $column_menu, $column_menu_html);
$columns = $rep->get_column_names($table);
$column_labels = $rep->get_column_labels($table);
- $column_menu = $wc->widget("$name.columns",
+ $column_menu = $context->widget("$name.columns",
override => 1,
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => $columns,
@@ -424,7 +425,7 @@
for ($i = 0; $i < 5; $i++) {
- $order_menu[$i] = $wc->widget("$name\{ordercols}[$i]",
+ $order_menu[$i] = $context->widget("$name\{ordercols}[$i]",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => $columns,
labels => $column_labels,
@@ -432,17 +433,17 @@
nullable => 1,
)->display();
- $dir_menu[$i] = $wc->widget("$name\{directions}[$i]",
+ $dir_menu[$i] = $context->widget("$name\{directions}[$i]",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => [ '', 'UP', 'DOWN', ],
labels => { '' => '', 'UP' => 'Up', 'DOWN' =>
'Down', },
)->display();
- $summ_checkbox[$i] = $wc->widget("$name\{summarize}[$i]",
+ $summ_checkbox[$i] = $context->widget("$name\{summarize}[$i]",
widgetClass =>
"P5EEx::Blue::Widget::HTML::Checkbox",
)->display();
- $xtab_checkbox[$i] = $wc->widget("$name\{crosstabulate}[$i]",
+ $xtab_checkbox[$i] = $context->widget("$name\{crosstabulate}[$i]",
widgetClass =>
"P5EEx::Blue::Widget::HTML::Checkbox",
)->display();
}
@@ -498,11 +499,11 @@
sub param_selection_html {
my $self = shift;
- my ($wc, $name, $repname, $rep, $table);
- $wc = $self->{context};
+ my ($context, $name, $repname, $rep, $table);
+ $context = $self->{context};
$name = $self->{name};
$repname = $self->get("repository");
- $rep = $wc->repository($repname);
+ $rep = $context->repository($repname);
$table = $self->get("table");
return "ERROR: No table specified" if (!$table);
@@ -520,7 +521,7 @@
"NOT_OR" => "Not any of the following conditions",
);
- $critsense_menu = $wc->widget("$name.critsense",
+ $critsense_menu = $context->widget("$name.critsense",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => \@critsense,
labels => \%critsense,
@@ -530,26 +531,26 @@
for ($i = 0; $i < 5; $i++) {
- $param_menu[$i] = $wc->widget("$name\{param}[$i]",
+ $param_menu[$i] = $context->widget("$name\{param}[$i]",
widgetClass => "P5EEx::Blue::Widget::HTML::Select",
values => $columns,
labels => $column_labels,
nullable => 1,
)->display();
- $param_min[$i] = $wc->widget("$name\{param_min}[$i]",
+ $param_min[$i] = $context->widget("$name\{param_min}[$i]",
widgetClass =>
"P5EEx::Blue::Widget::HTML::TextField",
size => 8,
maxlength => 99,
)->display();
- $param_max[$i] = $wc->widget("$name\{param_max}[$i]",
+ $param_max[$i] = $context->widget("$name\{param_max}[$i]",
widgetClass =>
"P5EEx::Blue::Widget::HTML::TextField",
size => 8,
maxlength => 99,
)->display();
- $param_contains[$i]= $wc->widget("$name\{param_contains}[$i]",
+ $param_contains[$i]= $context->widget("$name\{param_contains}[$i]",
widgetClass =>
"P5EEx::Blue::Widget::HTML::TextField",
size => 8,
maxlength => 99,
