Subversion Repositories ORC

Rev

Rev 16 | Rev 29 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16 Rev 25
Line 13... Line 13...
13 
 
 13 
 
14 
#my $internalDBH = &getDBConnection || die "Unable to connect to Database\n\n";
 14 
#my $internalDBH = &getDBConnection || die "Unable to connect to Database\n\n";
Line 15... Line 15...
15 
my $internalDBH = WebDB->connect () || die "Unable to connect to Database\n\n";
 15 
my $internalDBH = WebDB->connect () || die "Unable to connect to Database\n\n";
16 
 
 - 
 
17 
sub currentTime {
 16 
 
18 
  my $nowhan = $internalDBH->prepare("select now()");
 17 
sub currentTime {
19 
  $nowhan->execute();
 18 
  use DateTime;
Line 20... Line 19...
20 
  my ($now) = $nowhan->fetchrow;
 19 
  my $now = DateTime->now (time_zone => 'America/Los_Angeles');
21 
  $now =~ s/ / at /;
 20 
  $now =~ s/T/ at /;
Line 22... Line 21...
22
21
Line 23... Line 22...
23 
  return $now;
 22 
  return $now." US/Pacific";