Locks in the database¶

    CREATE TABLE locks (
        lid     serial PRIMARY KEY,
        eid     integer REFERENCES Employees (EID),
        intvl   tsrange NOT NULL,
        remark  text
    )

There is also a stored procedure, "fully_locked", that takes an EID and a tsrange, and returns a boolean value indicating whether or not that period is fully locked for the given employee.

Locks in the Perl API

# FIXME: MISSING VERBIAGE

load_by_lid¶

Instance method. Given an LID, loads a single lock into the object, rewriting whatever was there before. Returns a status object.

insert¶

Instance method. Attempts to INSERT a record. Field values are taken from the object. Returns a status object.

update¶

Instance method. Attempts to UPDATE a record. Field values are taken from the object. Returns a status object.

delete¶

Instance method. Attempts to DELETE a record. Field values are taken from the object. Returns a status object.

lid_exists¶

Boolean

fetch_locks_by_eid_and_tsrange¶

Given a DBIx::Connector object, an EID, and a tsrange, returns a status object. Upon successfully finding one or more locks, the payload will be an ARRAYREF of lock records.

count_locks_in_tsrange¶

Given a DBIx::Connector object, an EID, and a tsrange, returns a status object. If the level is OK, the payload can be expected to contain an integer representing the number of locks that overlap (contain points in common) with this tsrange.