X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0bbc7ffddd20e42362b9d959f1e57b444da44408..d17e1b9d1b761bb19d0cb79a742ea70a07028998:/SL/DB/RequirementSpecVersion.pm?ds=inline

diff --git a/SL/DB/RequirementSpecVersion.pm b/SL/DB/RequirementSpecVersion.pm
new file mode 100644
index 000000000..e37b2c7d8
--- /dev/null
+++ b/SL/DB/RequirementSpecVersion.pm
@@ -0,0 +1,21 @@
+package SL::DB::RequirementSpecVersion;
+
+use strict;
+
+use SL::DB::MetaSetup::RequirementSpecVersion;
+use SL::Locale::String;
+
+# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
+__PACKAGE__->meta->make_manager_class;
+
+sub validate {
+  my ($self) = @_;
+
+  my @errors;
+  push @errors, t8('The version number is missing.') if !$self->version_number;
+  push @errors, t8('The description is missing.')    if !$self->description;
+
+  return @errors;
+}
+
+1;