Hello,
I have had the my maypole app up and running for a few weeks. I have
added new tables to my DB before and have not had problems, until now.
I am getting the following debug output:
debugging (level 1) enabled for CircuitDB at
/usr/lib/perl5/site_perl/5.8.5/Maypole/Application.pm line 40.
Loaded tables:
avg_use_business,avg_use_nonbusiness,brad,circuit,circuit_billing_detail,circuit_interface_detail,last_check,site,site_thinness,vendor
at /usr/lib/perl5/site_perl/5.8.5/Maypole/Model/CDBI.pm line 245.
caught view error: Can't locate object method "isa_class" via package
"CircuitDB::Brad" at /etc/apache/lib/perl5/CircuitDB.pm line 22.
Can't locate object method "isa_class" via package "CircuitDB::Brad" at
/etc/apache/lib/perl5/CircuitDB.pm line 22.
: at /usr/lib/perl5/site_perl/5.8.5/Maypole.pm line 128
Use of uninitialized value in length at
/usr/lib/perl5/site_perl/5.8.5/Apache/MVC.pm line 86.
Use of uninitialized value in subroutine entry at
/usr/lib/perl5/site_perl/5.8.5/Apache/MVC.pm line 95.
At first I thought there was some problem with the class creation name
as I had underscores in the name. So I changed the table name to 'brad'
to try and rule that out. Here is what I have in my module for the class:
CircuitDB::Brad->untaint_columns( printable =>["site", "switch_name"],
integer => ["total_GE",
"total_FE", "free_GE", "free_FE", "last_check"]);
sub CircuitDB::Brad::display_columns{qw[switch_name site total_FE
free_FE total_GE free_GE last_check]};
Per Peter's recomendations I have included a version of column_type in
my module:
sub Maypole::Model::CDBI::column_type {
my $class = shift;
my $col = shift or die "Need a column for column_type";
my $type = $class->_column_info->{$col}->{type} || '';
my $colclass = $class if $type;
unless ($type) {
# check is_a for type
my $isa_class = $class->isa_class($col);
###<<<<<<<<<Line 21
if ($isa_class) {
$colclass = $isa_class;
$type = $isa_class->column_type($col)
}
}
if ($type and $type =~ /^tinyint\(1\)$/i) {
# how we display these bool columns: No, Yes, 0, 1, Off,
On etc.
my $bool = eval { $colclass->bool_columns->{$col}; };
$type = "bool";
$type .= "(" . join (',', @$bool) . ")" if $bool;
}
return $type;
}
The reference to line 21 is marked above.
Any help would be appreciated.
Brad
-------------------------------------------------------
SF.Net email is Sponsored by the Better Software Conference & EXPO
September 19-22, 2005 * San Francisco, CA * Development Lifecycle Practices
Agile & Plan-Driven Development * Managing Projects & Teams * Testing & QA
Security * Process Improvement & Measurement * http://www.sqe.com/bsce5sf
_______________________________________________
Maypole-users mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/maypole-users
