X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/6cf3f7762efd40bee49a2b8f11bb4ab6915d9071..46f9d91b44c432aa017f44b6b2f53114e190428e:/SL/DB/History.pm

diff --git a/SL/DB/History.pm b/SL/DB/History.pm
index c935a8237..98c465ade 100644
--- a/SL/DB/History.pm
+++ b/SL/DB/History.pm
@@ -7,7 +7,54 @@ use strict;
 
 use SL::DB::MetaSetup::History;
 
+__PACKAGE__->meta->initialize;
+
 # Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
+sub parsed_snumber {
+  my ($self) = @_;
+
+  my ($snumber) = $self->snumbers =~ /^.*?_(.*)/;
+  return $snumber ? $snumber : $self->snumbers;
+}
+
+1
+
+__END__
+
+=pod
+
+=encoding utf-8
+
+=head1 NAME
+
+SL::DB::History: Model for the 'history_erp' table
+
+=head1 SYNOPSIS
+
+This is a standard Rose::DB::Object based model and can be used as one.
+
+=head1 METHODS
+
+=over 4
+
+=item C<parsed_snumber>
+
+The column snumbers contains entries such as "partnumber_3" or
+"customernumber_23".
+
+To be able to print only the number, parsed_snumber returns only the part of
+the string following the first "_".
+
+Returns the whole string if the regex doesn't match anything.
+
+=back
+
+=head1 AUTHORS
+
+G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
+
+=cut
+
 1;