diff --git a/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign.pm b/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign.pm
new file mode 100644
index 00000000..39906a54
--- /dev/null
+++ b/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign.pm
@@ -0,0 +1,105 @@
+package Astguiclient::Campaign;
+
+use strict;
+
+=head1 name
+
+Astguiclient::Campaign - .
+
+=head1 DESCRIPTION
+
+This module is essentially a ORM to the vicidial_campaigns table.
+
+=head2 new
+
+=cut
+
+sub new {
+	my $class = shift;
+	return bless {}, $class;
+}
+
+=head2 find
+
+Decide what campaigns to load up.  Has several options explained
+below.
+
+=head3 Parameters
+
+=over
+
+=item type
+
+This is a scalar telling what type of campaigns to load up.  Default
+will load up "all".
+
+=item * all
+
+Loads up all available campaigns.
+
+=item * active_agents
+
+Loads up campaigns with active_agents.
+
+=item id => 'campaign_id'
+
+Will load up campaign only with the given id
+
+=cut
+
+sub find  {
+	my $self = shift;
+	my $type = shift unless(ref $_[0]);
+	my %args = ( 
+		id		=> undef,
+		@_
+	);
+
+	my $sql;
+	if( defined $args{id} ) {
+		$args{id} = Astguiclient->dbi->quote( $args{id} );
+		$sql = "SELECT * FROM vicidial_campaigns WHERE id = $args{id}";
+	} elsif( $type eq 'all' ) {
+		$sql = "SELECT * FROM vicidial_campaigns";
+	} elsif( $type eq 'active_agents' ) {
+		$sql = 
+		   "SELECT * FROM vicidial_campaigns
+			ON vicidial_campaigns.id = vicidial_live_agents.campaign_id
+			WHERE vicidial_live_agents.status IN ( $ACTIVE_AGENTS )";
+	}		
+
+	my $sth = Astguiclient->dbi->prepare( $sql );
+	$sth->execute();
+	while( my $ref = $sth->fetchrow_hashref() ) {
+		push( @records, Astguiclient::Campaign::Record->new( $ref ) );
+	}
+
+	return @records;
+}
+	
+
+=head1 AUTHOR
+
+Jason Yates <jaywhy@gmail.com>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2006  Matt Florell <vicidial@gmail.com>
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+
+=cut
+
+1;
diff --git a/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign/Agent.pm b/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign/Agent.pm
new file mode 100644
index 00000000..a37347bc
--- /dev/null
+++ b/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign/Agent.pm
@@ -0,0 +1,126 @@
+package Astguiclient::Campaign::Agent;
+
+use strict;
+use base qw(Class::Accessor::Fast);
+
+__PACKAGE__->mk_accessor( qw/ active total list / );
+
+=head1 name
+
+Astguiclient::Campaign::Agent - .
+
+=head1 DESCRIPTION
+
+=head2 new
+
+=cut
+
+sub new {
+	my $class = shift;
+	my %args = @_;
+
+	my $self = bless \%args, $class;
+	$self->load()
+	return $self;
+}
+
+=head2 find 
+
+Load the agent information.  This is called automatically by new,
+however if reload is required call again.
+
+$self->find( 
+	conditions => [ "STATUS in ( ?, ?)", @bind_params ]
+);
+
+=head3 Parameters
+
+=over
+
+=item conditions
+
+A way to send into conditions in the where clause of the query. If
+bind parameters are needed, the query should and be sent in as an
+array ref.
+
+=back
+
+=cut
+
+sub find  {
+	my $self = shift;
+	my %args = (
+		conditions => undef,
+		@_,
+	);
+
+	# Create the SQL statement.
+	my $sql = "SELECT * FROM vicidial_live_agents WHERE campaign_id = ?";
+	my @bind_params = ( $self->{id} );
+	if( $args{conditions} ) {
+		# If the condition has bind parameters
+		if( ref( $args{conditions} ) ) {
+			$sql .= " AND $args{conditions}[0]";
+			push( @bind_params, @{ $args{conditions}[1] } );
+		} else {
+			# No bind params just sent in scalar.
+			$sql .= " AND $args{conditions}";
+		}
+	}
+	my $sth = Astguiclient->dbi->prepare();
+	$sth->execute( @bind_params )
+	my @records;
+	while( my $ref = $sth->fetchrow_hashref() ) {
+		push( @records, $ref );
+	}
+
+	return @records;
+}
+
+=head2 active
+
+If in array or list context will return a list of active agents. In
+scalar context will return a count of active agents.
+
+=cut
+
+sub active {
+	my $self = shift;
+
+	if( !wantarray ) {
+		# Return a count of the live agents.
+		return Astguiclient->dbi->selectrow_array("SELECT count(*) FROM vicidial_live_agents
+			WHERE campaign_id = ? STATUS IN ( $ACTIVE_STATUS )",
+			undef,
+			$self->{id}
+		);
+	} else {
+		$self->find( conditions => "STATUS in ( $ACTIVE_STATUS )" );
+	}
+}
+
+=head1 AUTHOR
+
+Jason Yates <jaywhy@gmail.com>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2006  Matt Florell <vicidial@gmail.com>
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+
+=cut
+
+1;
diff --git a/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign/Record.pm b/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign/Record.pm
new file mode 100644
index 00000000..be9491a8
--- /dev/null
+++ b/agc_2-X/branches/agc_30/lib/Astguiclient/Campaign/Record.pm
@@ -0,0 +1,59 @@
+package Astguiclient::Campaign::Record;
+
+use strict;
+use base qw(Class::Accessor::Fast);
+
+use Astguiclient::Campaign::Agent;
+
+__PACKAGE__->mk_accessors(qw/ agent /);
+
+=head1 name
+
+Astguiclient::Campaign - .
+
+=head1 DESCRIPTION
+
+This module is essentially a ORM to the vicidial_campaigns table.
+
+=head2 new
+
+=cut
+
+sub new {
+	my $class = shift;
+	my $self = bless shift, $class;
+
+	$self->agent( 
+		Astguiclient::Campaign::Agent->new( id => $self->{campaign_id} )
+	);
+}
+
+=head2 agent
+
+Returns the agent object.
+
+=head1 AUTHOR
+
+Jason Yates <jaywhy@gmail.com>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2006  Matt Florell <vicidial@gmail.com>
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of the GNU General Public License
+as published by the Free Software Foundation; either version 2
+of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+
+=cut
+
+1;