[Cpan-forum-commit] rev 338 - in trunk: . lib/CPAN/Forum/DB

[svn at pti.co.il]

Author: gabor
Date: 2007-08-14 11:33:18 +0300 (Tue, 14 Aug 2007)
New Revision: 338

Modified:
   trunk/
   trunk/lib/CPAN/Forum/DB/Subscriptions.pm
   trunk/lib/CPAN/Forum/DB/Subscriptions_all.pm
   trunk/lib/CPAN/Forum/DB/Subscriptions_pauseid.pm
Log:
remove the CDBI related calls from DB::Subscriptions* modules



Property changes on: trunk
___________________________________________________________________
Name: svk:merge
   - 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4424
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752
   + 7bc34947-122d-0410-bc5a-f898d2bb5f81:/local/cpan-forum:4425
8c4c90e1-83eb-0310-96eb-e7cb62807872:/local/cpan-forum:12752

Modified: trunk/lib/CPAN/Forum/DB/Subscriptions.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Subscriptions.pm	2007-08-14 08:33:03 UTC (rev 337)
+++ trunk/lib/CPAN/Forum/DB/Subscriptions.pm	2007-08-14 08:33:18 UTC (rev 338)
@@ -3,12 +3,7 @@
 use warnings;
 use Carp;
 use base 'CPAN::Forum::DBI';
-__PACKAGE__->table('subscriptions');
-__PACKAGE__->columns(All => qw/id gid uid allposts starters followups announcements/);
-__PACKAGE__->has_a(uid => "CPAN::Forum::DB::Users");
-__PACKAGE__->has_a(gid => "CPAN::Forum::DB::Groups");
 
-
 sub find {
     my ($self, %args) = @_;
     my ($sql, @args) = $self->_find(%args);

Modified: trunk/lib/CPAN/Forum/DB/Subscriptions_all.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Subscriptions_all.pm	2007-08-14 08:33:03 UTC (rev 337)
+++ trunk/lib/CPAN/Forum/DB/Subscriptions_all.pm	2007-08-14 08:33:18 UTC (rev 338)
@@ -3,12 +3,8 @@
 use warnings;
 use Carp;
 use base 'CPAN::Forum::DBI';
-__PACKAGE__->table('subscriptions_all');
-__PACKAGE__->columns(All => qw/id uid allposts starters followups announcements/);
-__PACKAGE__->has_a(uid => "CPAN::Forum::DB::Users");
 
 
-
 sub find {
     my ($self, %args) = @_;
     my ($sql, @args) = $self->_find(%args);

Modified: trunk/lib/CPAN/Forum/DB/Subscriptions_pauseid.pm
===================================================================
--- trunk/lib/CPAN/Forum/DB/Subscriptions_pauseid.pm	2007-08-14 08:33:03 UTC (rev 337)
+++ trunk/lib/CPAN/Forum/DB/Subscriptions_pauseid.pm	2007-08-14 08:33:18 UTC (rev 338)
@@ -3,10 +3,6 @@
 use warnings;
 use Carp;
 use base 'CPAN::Forum::DBI';
-__PACKAGE__->table('subscriptions_pauseid');
-__PACKAGE__->columns(All => qw/id pauseid uid allposts starters followups announcements/);
-__PACKAGE__->has_a(uid     => "CPAN::Forum::DB::Users");
-__PACKAGE__->has_a(pauseid => "CPAN::Forum::DB::Authors");
 
 sub find {
     my ($self, %args) = @_;