Updated patches for 2.13.
[maypole.git] / debian / patches / 106_fix-_column_info-clash.diff
1 --- maypole.orig/lib/Maypole/Model/CDBI/Base.pm
2 +++ maypole/lib/Maypole/Model/CDBI/Base.pm
3 @@ -460,7 +460,7 @@
4  
5  # Thanks to dave baird --  form builder for these private functions
6  # sub _column_info {
7 -sub _column_info {
8 +sub _init_column_info {
9    my $self = shift;
10    my $dbh = $self->db_Main;
11  
12 @@ -572,7 +572,7 @@
13  sub column_type {
14    my $class = shift;
15    my $colname = shift or die "Need a column for column_type";
16 -  $class->_column_info() unless (ref $class->COLUMN_INFO);
17 +  $class->_init_column_info() unless (ref $class->COLUMN_INFO);
18  
19    if ($class->_isa_class($colname)) {
20      return $class->_isa_class($colname)->column_type($colname);
21 @@ -609,7 +609,7 @@
22  
23  sub required_columns {
24    my ($class, $columns) = @_;
25 -  $class->_column_info() unless (ref $class->COLUMN_INFO);
26 +  $class->_init_column_info() unless (ref $class->COLUMN_INFO);
27    my $column_info = $class->COLUMN_INFO;
28  
29    if ($columns) {
30 @@ -660,7 +660,7 @@
31  sub column_required {
32    my ($class, $colname) = @_;
33    $colname or $class->_croak( "Need a column for column_required" );
34 -  $class->_column_info() unless ref $class->COLUMN_INFO;
35 +  $class->_init_column_info() unless ref $class->COLUMN_INFO;
36    if ($class->_isa_class($colname)) {
37      return $class->_isa_class($colname)->column_required($colname);
38    }
39 @@ -692,7 +692,7 @@
40      my $class = shift;
41      my $colname = shift or $class->_croak( "Need a column for column_nullable" );
42  
43 -  $class->_column_info() unless ref $class->COLUMN_INFO;
44 +  $class->_init_column_info() unless ref $class->COLUMN_INFO;
45    if ($class->_isa_class($colname)) {
46      return $class->_isa_class($colname)->column_nullable($colname);
47    }
48 @@ -716,7 +716,7 @@
49  sub column_default {
50    my $class = shift;
51    my $colname = shift or $class->_croak( "Need a column for column_default");
52 -  $class->_column_info() unless (ref $class->COLUMN_INFO);
53 +  $class->_init_column_info() unless (ref $class->COLUMN_INFO);
54    if ($class->_isa_class($colname)) {
55      return $class->_isa_class($colname)->column_default($colname);
56    }
57 @@ -750,7 +750,7 @@
58      $res{moniker}       = $class->moniker;
59      $res{plural}        = $class->plural_moniker;
60      $res{table}         = $class->table;
61 -    $res{column_metadata} = (ref $class->COLUMN_INFO) ? $class->COLUMN_INFO : $class->_column_info() ;
62 +    $res{column_metadata} = (ref $class->COLUMN_INFO) ? $class->COLUMN_INFO : $class->_init_column_info() ;
63      return \%res;
64  }
65