SF.net SVN: ledger-smb:[3684] trunk/LedgerSMB/File/Part.pm

[..hidden..]

Revision: 3684
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3684&view=rev
Author:   einhverfr
Date:     2011-08-25 02:57:07 +0000 (Thu, 25 Aug 2011)
Log Message:
-----------
Correcting missing svn add

Added Paths:
-----------
    trunk/LedgerSMB/File/Part.pm

Added: trunk/LedgerSMB/File/Part.pm
===================================================================
--- trunk/LedgerSMB/File/Part.pm	                        (rev 0)
+++ trunk/LedgerSMB/File/Part.pm	2011-08-25 02:57:07 UTC (rev 3684)
@@ -0,0 +1,56 @@
+=pod
+
+=head1 NAME
+
+LedgerSMB::File::Part
+
+=head1 SYNPSIS
+
+Manages attachments to goods and services.
+
+=head1 INHERITS
+
+=over
+
+=item  LedgerSMB::File
+
+Provides all properties and accessors.  This subclass provides additional 
+methods only
+
+=back
+
+=cut
+
+package LedgerSMB::File::Part;
+use strict;
+use base qw(LedgerSMB::File);
+
+=head1 METHODS
+
+=over
+
+=item attach
+
+Attaches or links a specific file to the given transaction.
+
+=cut
+
+sub attach {
+    my ($self, $args) = @_;
+    $self->exec_method({funcname => 'file__attach_to_part'});
+    $self->commit unless $args->{no_commit};
+}
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (C) 2011 The LedgerSMB Core Team
+
+This file is licensed under the Gnu General Public License version 2, or at your
+option any later version.  A copy of the license should have been included with
+your software.
+
+=cut
+
+1;

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