oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

WebGUI 3.0.1 release

Browse source
This commit is contained in:
JT Smith 2002-01-15 05:45:00 +00:00
parent baec9039ef
commit 237925b365
43 changed files with 129 additions and 329 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Macro/D_date.pm
View file

@ -28,18 +28,10 @@ sub _replacement {
#-------------------------------------------------------------------
sub process {
my ($output, $temp, @param);
my ($output);
$output = $_[0];
$output =~ s/\^D\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^D\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^D(.*)\^\/D/) {
$temp = epochToHuman(time(),$1);
$output =~ s/\^D(.*)\^\/D/$temp/g;
} elsif ($output =~ /\^D/) {
$temp = localtime(time);
$output =~ s/\^D/$temp/g;
}
return $output;
}