Daje-Plugin-Tools

 view release on metacpan or  search on metacpan

lib/Daje/Database/Model/Super/ToolsVersion.pm  view on Meta::CPAN

package Daje::Database::Model::Super::ToolsVersion;
use Mojo::Base 'Daje::Database::Model::Super::Common::Base', -base, -signatures, -async_await;;

use Data::Dumper;

has 'fields' => "tools_version_pkey, editnum, insby, insdatetime, modby, moddatetime, tools_projects_fkey, version, locked, name";
has 'primary_key_name' => "tools_version_pkey";
has 'table_name' => "tools_version";


sub insert($self, $data) {

    my $result = $self->SUPER::insert(
        $self->table_name, $data, $self->primary_key_name
    );
    return $result;

lib/Daje/Database/Model/ToolsVersion.pm  view on Meta::CPAN

package Daje::Database::Model::ToolsVersion;
use Mojo::Base 'Daje::Database::Model::Super::ToolsVersion', -base, -signatures, -async_await;;


async sub load_current_version_p($self, $tools_projects_pkey) {
    return $self->load_from_index(
        $self->table_name(),
        $self->fields(),
        {
            tools_projects_fkey => $tools_projects_pkey,
            locked              => 0
        }
    );
}
1;


#################### pod generated by Pod::Autopod - keep this line to make pod updates possible ####################

=head1 NAME

lib/Daje/Database/Tools.pm  view on Meta::CPAN

(
    tools_version_pkey serial NOT NULL ,
    editnum bigint NOT NULL DEFAULT 1,
    insby character varying COLLATE pg_catalog."default" NOT NULL DEFAULT 'System'::character varying,
    insdatetime timestamp without time zone NOT NULL DEFAULT now(),
    modby character varying COLLATE pg_catalog."default" NOT NULL DEFAULT 'System'::character varying,
    moddatetime timestamp without time zone NOT NULL DEFAULT now(),
    tools_projects_fkey bigint NOT NULL,
    version bigint NOT NULL DEFAULT 1,
    name character varying COLLATE pg_catalog."default" NOT NULL DEFAULT ''::character varying,
    locked boolean NOT NULL DEFAULT false,
    CONSTRAINT tools_version_pkey PRIMARY KEY (tools_version_pkey),
    CONSTRAINT tools_version_tools_projects_fkey FOREIGN KEY (tools_projects_fkey)
        REFERENCES tools_projects (tools_projects_pkey) MATCH SIMPLE
        ON UPDATE NO ACTION
        ON DELETE NO ACTION
        DEFERRABLE
);

CREATE UNIQUE INDEX IF NOT EXISTS tools_version_pkey_tools_projects_fkey
    ON tools_version USING btree

lib/Daje/Database/Tools.pm  view on Meta::CPAN

 AS
 SELECT tools_version.tools_version_pkey,
    tools_version.editnum,
    tools_version.insby,
    tools_version.insdatetime,
    tools_version.modby,
    tools_version.moddatetime,
    tools_version.tools_projects_fkey,
    tools_version.version,
    tools_version.name,
    tools_version.locked,
    workflow_connections.workflow_fkey
   FROM tools_version
     JOIN workflow_connections
     ON tools_version.tools_projects_fkey = workflow_connections.connector_fkey
     AND workflow_connections.connector::text = 'tools_projects'::text;

INSERT INTO tools_objects_tables_datatypes (name, length, scale) VALUES
    ('VARCHAR', 1, 0),
    ('BIGINT', 0, 0),
    ('NUMERIC', 1, 1),

lib/Daje/Database/View/Super/VToolsVersion.pm  view on Meta::CPAN

#
# This library is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
# AUTHOR
# ======
#
# janeskil1525 E<lt>janeskil1525@gmail.comE<gt>
#

has 'fields' => "tools_version_pkey, editnum, insby, insdatetime, modby, moddatetime, tools_projects_fkey, version, locked, name, workflow_fkey";
has 'primary_keys' => "tools_version_pkey";
has 'foreign_keys' => "tools_projects_fkey, workflow_fkey";
has 'view_name' => "v_tools_version_workflow_fkey";


async sub load_full_list_p($self) {
    my $result = $self->load_a_full_list(
        $self->view_name,
        $self->fields
    );