IsfdbMaypole->config->{loader}->relationship($_) for
(
"an author has a note",
"a pub has a note",
);
####
plugin error - Class: plugin not found at /home/hossman/.perllib/lib/perl5/site_perl/5.8.5/Maypole.pm line 123
####
mysql> describe pubs;
+------------+-------------+------+-----+---------+----------------+
| Field | Type | Null | Key | Default | Extra |
+------------+-------------+------+-----+---------+----------------+
| pubid | int(11) | | PRI | NULL | auto_increment |
| title | mediumtext | YES | | NULL | |
| author | mediumtext | YES | | NULL | |
| tag | varchar(32) | YES | | NULL | |
| year | date | YES | | NULL | |
| publisher | varchar(64) | YES | | NULL | |
| pages | varchar(16) | YES | | NULL | |
| ptype | varchar(8) | YES | | NULL | |
| ctype | varchar(8) | YES | | NULL | |
| isbn | varchar(16) | YES | | NULL | |
| isbn2 | varchar(16) | YES | | NULL | |
| coverart | mediumtext | YES | | NULL | |
| bcoverart | mediumtext | YES | | NULL | |
| frontimage | mediumtext | YES | | NULL | |
| price | varchar(16) | YES | | NULL | |
| note | int(11) | YES | | NULL | |
+------------+-------------+------+-----+---------+----------------+
16 rows in set (0.00 sec)
mysql> describe authors;
+------------+-------------+------+-----+---------+----------------+
| Field | Type | Null | Key | Default | Extra |
+------------+-------------+------+-----+---------+----------------+
| pubid | int(11) | | PRI | NULL | auto_increment |
| canonical | mediumtext | YES | | NULL | |
| legalname | mediumtext | YES | | NULL | |
| birthplace | varchar(64) | YES | | NULL | |
| birthdate | date | YES | | NULL | |
| deathdate | date | YES | | NULL | |
| pseudos | mediumtext | YES | | NULL | |
| emails | mediumtext | YES | | NULL | |
| webpages | mediumtext | YES | | NULL | |
| note | int(11) | YES | | NULL | |
+------------+-------------+------+-----+---------+----------------+
10 rows in set (0.00 sec)
mysql> describe notes
-> ;
+-------+------------+------+-----+---------+----------------+
| Field | Type | Null | Key | Default | Extra |
+-------+------------+------+-----+---------+----------------+
| pubid | int(11) | | PRI | NULL | auto_increment |
| note | mediumtext | YES | | NULL | |
+-------+------------+------+-----+---------+----------------+
2 rows in set (0.00 sec)
####
package IsfdbMaypole;
use strict;
use warnings;
use lib qw(/home/hossman/.perllib/lib/perl5/site_perl);
use base 'CGI::Maypole';
use Class::DBI::Loader::Relationship;
sub debug {1};
IsfdbMaypole->config->uri_base("http://XXXXXXXXXX/index.cgi/");
IsfdbMaypole->config->template_root("/home/hossman/public_html/isfdb-maypole/");
IsfdbMaypole->config->application_name("ISFDB Tool (Maypole Prototype)");
IsfdbMaypole->config->rows_per_page(10);
IsfdbMaypole->config->user("hossman");
IsfdbMaypole->config->pass("XXXXXXXXXXXXXXXXXXXXXX");
IsfdbMaypole->setup("dbi:mysql:hossman");
IsfdbMaypole->config->{loader}->relationship($_) for
(
# leaving these lines as is causes ./author/list to break,
# but ./author/view links to ./notes/view
# ./pubs/list on the other hand works fine, but ./pubs/view
# doesn't link to ./notes/view
"an author has a note",
# "a pub has a note",
);
1;