X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHistory.pm;h=98c465ade850de5cf42fda15bbafd430aa4a8b41;hb=1b7759ed7c474adef6eb75b6cc04431768fff8c3;hp=c935a82378bf6efe2063ab0c5f59fc79a68c57ab;hpb=6cf3f7762efd40bee49a2b8f11bb4ab6915d9071;p=kivitendo-erp.git

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;