X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ea5d75b52e043fb3f0d264056df6007049d6a3fd..c0ed7d2fa:/SL/DB/Letter.pm diff --git a/SL/DB/Letter.pm b/SL/DB/Letter.pm index a7deeaeeb..27b0cff47 100644 --- a/SL/DB/Letter.pm +++ b/SL/DB/Letter.pm @@ -1,24 +1,16 @@ -# This file has been auto-generated only because it didn't exist. -# Feel free to modify it at will; it will not be overwritten automatically. - package SL::DB::Letter; use strict; +use SL::DB::Helper::AttrHTML; +use SL::DB::Helper::LinkedRecords; use SL::DB::MetaSetup::Letter; use SL::DB::Manager::Letter; -__PACKAGE__->meta->add_relationships( - customer => { - type => 'many to one', - class => 'SL::DB::Customer', - column_map => { vc_id => 'id' }, - }, - -); - __PACKAGE__->meta->initialize; +__PACKAGE__->attr_html('body'); + sub new_from_draft { my ($class, $draft) = @_;