Changeset 2352 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

05/26/20 02:14:04 (4 years ago)

Author:

nanardon

Message:

Add basic template features

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Sql.pm (modified) (1 diff)
• Sql/Templates.pm (added)
• Sql/objects.pm (modified) (1 diff)
• Sql/upgrade.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -18 +18 @@
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
-sub SCHEMA_VERSION { 36 };
+sub SCHEMA_VERSION { 37 };
 
 =head1 NAME

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -262 +262 @@
                 ) ];
             },
+        },
+        template => {
+            reference => 'templates',
+            can_values => sub {
+                $base->search_objects('templates', 'objectType=' . $class->type, 'exported=1')
+            },
+            ro => sub { ref $_[0] ? 1 : 0 },
+            set => sub {},
         },
     );

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/upgrade.pm

@@ -1318 +1318 @@
             ],
         },
+        {
+            ver => 37,
+            sql => [
+                qq{
+                CREATE TABLE public."templates"
+                (
+                  objectType text not NULL,
+                  data text[],
+                  CONSTRAINT template_pkey PRIMARY KEY (name)
+                )
+                INHERITS (public.objects)
+                WITH (
+                  OIDS=FALSE
+                );
+
+                CREATE INDEX templates_rev_idx
+                  ON public."templates"
+                  USING btree
+                  (rev);
+
+                CREATE INDEX templates_exported_idx
+                  ON public."templates"
+                  USING btree
+                  (exported);
+
+                CREATE TRIGGER templates_rev_tg
+                  BEFORE UPDATE OR DELETE
+                  ON public."templates"
+                  FOR EACH ROW
+                  EXECUTE PROCEDURE public.rev_tg_f();
+                }
+            ],
+        },
     );
+
 
     my $dbi = $self->{_db};