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

WebGUI 2.5.0 release

Browse source
This commit is contained in:
JT Smith 2001-12-09 22:10:00 +00:00
parent 6286f9bfaf
commit 00aec56a04
65 changed files with 3006 additions and 369 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Macro/u_companyUrl.pm
View file

@ -15,11 +15,9 @@ use WebGUI::Session;
#-------------------------------------------------------------------
sub process {
my ($output, $temp, @data, $sth, $first);
my ($output);
$output = $_[0];
while ($output =~ /\^u(.*?)\;/) {
$output =~ s/\^u(.*?)\;/$session{setting}{companyURL}/;
}
$output =~ s/\^u\;/$session{setting}{companyURL}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^u/) {
$output =~ s/\^u/$session{setting}{companyURL}/g;