1761627c52d4bdd11839eb0f65efc60a75aab982
[maypole.git] / debian / patches / 107_make-examples-consistent.diff
1 --- trunk.orig/ex/fancy_example/BeerDB.pm
2 +++ trunk/ex/fancy_example/BeerDB.pm
3 @@ -6,11 +6,23 @@
4  # This is the sample application.  Change this to the path to your
5  # database. (or use mysql or something)
6  use constant DBI_DRIVER => 'SQLite';
7 -use constant DATASOURCE => '/home/peter/Desktop/maypolebeer/beerdb'; 
8 +use constant DATASOURCE => $ENV{BEERDB_DATASOURCE} || 't/beerdb.db';
9  
10  BeerDB->config->model('BeerDB::Base'); 
11  
12 -BeerDB->setup("dbi:mysql:beerdb",'root', '');
13 +BEGIN {
14 +    my $dbi_driver = DBI_DRIVER;
15 +    if ($dbi_driver =~ /^SQLite/) {
16 +        die sprintf "SQLite datasource '%s' not found, correct the path or "
17 +            . "recreate the database by running Makefile.PL", DATASOURCE
18 +            unless -e DATASOURCE;
19 +        eval "require DBD::SQLite";
20 +        if ($@) {
21 +            eval "require DBD::SQLite2" and $dbi_driver = 'SQLite2';
22 +        }
23 +    }
24 +    BeerDB->setup(join ':', "dbi", $dbi_driver, DATASOURCE);
25 +}
26  
27  # Give it a name.
28  BeerDB->config->application_name('The Beer Database');
29 @@ -20,7 +32,7 @@
30  
31  # Change this to the htdoc root for your maypole application.
32  
33 -my @root=  ('/home/peter/Desktop/maypolebeer/templates'); 
34 +my @root=  ('t/templates'); 
35  push @root,$ENV{BEERDB_TEMPLATE_ROOT} if ($ENV{BEERDB_TEMPLATE_ROOT});
36  BeerDB->config->template_root( [@root] ); 
37  # Specify the rows per page in search results, lists, etc : 10 is a nice round number
38 @@ -37,7 +49,7 @@
39  BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] );
40  BeerDB::Style->untaint_columns( printable => [qw/name notes/] );
41  BeerDB::Beer->untaint_columns(
42 -    printable => [qw/abv name price notes/],
43 +    printable => [qw/abv name price notes url/],
44      integer => [qw/style brewery score/],
45      date =>[ qw/tasted/],
46  );
47 @@ -47,7 +59,7 @@
48  
49  
50  # Required Fields
51 -BeerDB->config->{brewery}{required_cols} = [qw/name url/];
52 +BeerDB->config->{brewery}{required_cols} = [qw/name/];
53  BeerDB->config->{style}{required_cols} = [qw/name/];
54  BeerDB->config->{beer}{required_cols} = [qw/brewery name price/];
55  BeerDB->config->{pub}{required_cols} = [qw/name/];
56 @@ -67,7 +79,7 @@
57  
58  # For testing classmetadata
59  #sub BeerDB::Beer::classdata :Exported {};
60 -sub BeerDB::Beer::list_columns  { return qw/score name price style brewery/};
61 +sub BeerDB::Beer::list_columns  { return qw/score name price style brewery url/};
62  
63  sub BeerDB::Handpump::stringify_self { 
64         my $self = shift; 
65 --- trunk.orig/ex/fancy_example/beerdb.sql
66 +++ trunk/ex/fancy_example/beerdb.sql
67 @@ -1,27 +1,28 @@
68  CREATE TABLE style (
69 -    id integer primary key auto_increment,
70 +    id integer not null primary key auto_increment,
71      name varchar(60),
72      notes text
73  );
74  
75  CREATE TABLE pub (
76 -    id integer primary key auto_increment,
77 +    id integer not null primary key auto_increment,
78      name varchar(60),
79      url varchar(120),
80      notes text
81  );
82  
83  CREATE TABLE handpump (
84 -    id integer primary key auto_increment,
85 +    id integer not null primary key auto_increment,
86      beer integer,
87      pub integer
88  );
89  
90  CREATE TABLE beer (
91 -    id integer primary key auto_increment,
92 +    id integer not null primary key auto_increment,
93      brewery integer,
94      style integer,
95      name varchar(30),
96 +    url varchar(120),
97      score integer(2),
98      price varchar(12),
99      abv varchar(10),
100 @@ -30,7 +31,7 @@
101  );
102  
103  CREATE TABLE brewery (
104 -    id integer  primary key auto_increment,
105 +    id integer not null primary key auto_increment,
106      name varchar(30),
107      url varchar(50),
108      notes text
109 --- trunk.orig/lib/Maypole/Manual/About.pod
110 +++ trunk/lib/Maypole/Manual/About.pod
111 @@ -119,7 +119,8 @@
112          score integer(2),
113          price varchar(12),
114          abv varchar(10),
115 -        notes text
116 +        notes text,
117 +        tasted date
118      );
119  
120      create table handpump (
121 --- trunk.orig/ex/beerdb.sql
122 +++ trunk/ex/beerdb.sql
123 @@ -1,24 +1,24 @@
124  CREATE TABLE style (
125 -    id integer primary key auto_increment,
126 +    id integer not null primary key auto_increment,
127      name varchar(60),
128      notes text
129  );
130  
131  CREATE TABLE pub (
132 -    id integer primary key auto_increment,
133 +    id integer not null primary key auto_increment,
134      name varchar(60),
135      url varchar(120),
136      notes text
137  );
138  
139  CREATE TABLE handpump (
140 -    id integer primary key auto_increment,
141 +    id integer not null primary key auto_increment,
142      beer integer,
143      pub integer
144  );
145  
146  CREATE TABLE beer (
147 -    id integer primary key auto_increment,
148 +    id integer not null primary key auto_increment,
149      brewery integer,
150      style integer,
151      name varchar(30),
152 @@ -31,7 +31,7 @@
153  );
154  
155  CREATE TABLE brewery (
156 -    id integer  primary key auto_increment,
157 +    id integer not null primary key auto_increment,
158      name varchar(30),
159      url varchar(50),
160      notes text