SF.net SVN: ledger-smb:[3595] trunk/LedgerSMB

[..hidden..]

Revision: 3595
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3595&view=rev
Author:   einhverfr
Date:     2011-07-29 22:20:49 +0000 (Fri, 29 Jul 2011)

Log Message:
-----------
Removing two unused Perl modules

Removed Paths:
-------------
    trunk/LedgerSMB/Entity.pm
    trunk/LedgerSMB/Vendor.pm

Deleted: trunk/LedgerSMB/Entity.pm
===================================================================
--- trunk/LedgerSMB/Entity.pm	2011-07-29 22:12:16 UTC (rev 3594)
+++ trunk/LedgerSMB/Entity.pm	2011-07-29 22:20:49 UTC (rev 3595)
@@ -1,43 +0,0 @@
-package LedgerSMB::Entity;
-
-use base qw/LedgerSMB::DBObject/;
-
-sub save {
-    
-    my $self = shift @_;
-    
-    my $id = @{ $self->exec_method(procname=>'entity_save', 
-        args=>[
-            $self->{name},
-            $self->{entity_class},
-        ]
-    )};
-    
-    $self->{id} = shift @{ $id };
-    return $self->{id};
-}
-
-sub get {
-    
-    my $self = shift @_;
-    
-    my $hashref = $self->exec_method(procname=>'entity_get', args=>[$self->{id}]);
-    $self->merge($hashref);
-    return $self->{id};
-    
-}
-
-sub search {
-    
-    # Shouldn't really be necessary.. 
-    
-    # anyway, Search on name.
-    my $self = shift @_;
-    
-    my @list = @{ $self->exec_method( procname=>'entity_search', 
-        args=>[ 
-            $self->{name}
-        ]
-    ) };
-}
-1;

Deleted: trunk/LedgerSMB/Vendor.pm
===================================================================
--- trunk/LedgerSMB/Vendor.pm	2011-07-29 22:12:16 UTC (rev 3594)
+++ trunk/LedgerSMB/Vendor.pm	2011-07-29 22:20:49 UTC (rev 3595)
@@ -1,39 +0,0 @@
-package LedgerSMB::DBObject::Vendor;
-
-use base qw(LedgerSMB::DBObject::Company);
-use LedgerSMB::DBObject;
-
-sub save {
-    my $self = shift @_;
-    
-    my $entity;
-    
-    # this is a fairly effective way of telling if we need to create a new
-    # entity or not.
-
-    if (!$self->{entity_id}) {
-        
-        $entity = LedgerSMB::Entity->new(base=>$request);
-    }
-    else {
-        
-        $entity = LedgerSMB::Entity->get(id=>$self->{entity_id});
-    }
-    
-    $entity->set(name=> $reqeust->{first_name}." ".$request->{last_name} );
-    $entity->set(entity_class=>2);
-
-    $self->set(entity_id=>$entity->{id});
-    $self->set(entity_class=> 1);
-    
-    $entity->save();
-    if (!self->{entity_id}) {
-        
-        $self->{entity_id} = $entity->{id};
-    }
-    $self->SUPER::save();
-    
-    return $self->{id};
-
-}
-1;
\ No newline at end of file


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.