cvsuser 02/06/07 19:54:07
Modified: P5EEx/Blue/P5EEx/Blue Repository.pm
Log:
added autolabeling of tables
Revision Changes Path
1.15 +21 -3 p5ee/P5EEx/Blue/P5EEx/Blue/Repository.pm
Index: Repository.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Repository.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- Repository.pm 7 Jun 2002 21:59:45 -0000 1.14
+++ Repository.pm 8 Jun 2002 02:54:06 -0000 1.15
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Repository.pm,v 1.14 2002/06/07 21:59:45 spadkins Exp $
+## $Id: Repository.pm,v 1.15 2002/06/08 02:54:06 spadkins Exp $
#############################################################################
package P5EEx::Blue::Repository;
@@ -2367,7 +2367,7 @@
sub load_rep_metadata {
my ($self) = @_;
- my ($table, $tables, $table_defs, $table_def, $native_table, $idx);
+ my ($table, $tables, $table_defs, $table_def, $native_table, $idx, $label,
@label);
# load up all possible information from the native metadata
$self->load_rep_metadata_auto();
@@ -2396,7 +2396,25 @@
foreach $table (keys %$table_defs) {
$table_def = $table_defs->{$table};
$table_def->{name} = $table;
- $table_def->{label} = $table if (! $table_def->{label});
+ if (! $table_def->{label}) {
+ $label = $table;
+ if ($self->{autolabel}) {
+ $label =~ s/^_+//;
+ $label =~ s/_+$//;
+ if ($label =~ /[a-z]/ && $label =~ /[A-Z]/) {
+ $label =~ s/_+/ <br>/g;
+ }
+ else {
+ $label = lc($label);
+ @label = split(/_+/,$label);
+ foreach (@label) {
+ $_ = ucfirst($_);
+ }
+ $label = join(" <br>", @label);
+ }
+ }
+ $table_def->{label} = $label;
+ }
# table has not been added to the list and it's not explicitly "hidden", so
add it
if (!defined $table_def->{idx} && ! $table_def->{hide}) {
