RDBO Support.

[mfinanz.git] / SL / DB / MetaSetup / Unit.pm

diff --git a/SL/DB/MetaSetup/Unit.pm b/SL/DB/MetaSetup/Unit.pm
new file mode 100644 (file)
index 0000000..c229462
--- /dev/null
+++ b/SL/DB/MetaSetup/Unit.pm
@@ -0,0 +1,31 @@
+# This file has been auto-generated. Do not modify it; it will be overwritten
+# by rose_auto_create_model.pl automatically.
+package SL::DB::Unit;
+
+use strict;
+
+use base qw(SL::DB::Object);
+
+__PACKAGE__->meta->setup(
+  table   => 'units',
+
+  columns => [
+    name      => { type => 'varchar', length => 20, not_null => 1 },
+    base_unit => { type => 'varchar', length => 20 },
+    factor    => { type => 'numeric', precision => 5, scale => 20 },
+    type      => { type => 'varchar', length => 20 },
+    sortkey   => { type => 'integer', not_null => 1 },
+  ],
+
+  primary_key_columns => [ 'name' ],
+
+  foreign_keys => [
+    unit => {
+      class       => 'SL::DB::Unit',
+      key_columns => { base_unit => 'name' },
+    },
+  ],
+);
+
+1;
+;