# ================================================================== # DBman SQL - enhanced database management system # # Website : http://gossamer-threads.com/ # Support : http://gossamer-threads.com/scripts/support/ # # Copyright (c) 2001 Gossamer Threads Inc. All Rights Reserved. # Redistribution in part or in whole strictly prohibited. Please # see LICENSE file for full details. # ================================================================== package Dbsql::Custom; # ================================================================== # use Dbsql qw/$DB $IN $CFG/; use strict; #=================================================================== sub get_today { #------------------------------------------------------------------- # Returns today's date. require GT::Date; my $date = GT::Date::date_get(); return $date; } sub get_today_plus90 { #------------------------------------------------------------------- # Returns a date 90 days from today. use GT::Date qw/:all/; my $date = GT::Date::date_get(); my $date2 = GT::Date::date_add($date, 90); return $date2; } 1;