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