Added new collateral subsystem.

This commit is contained in:
JT Smith 2003-03-16 06:17:17 +00:00
parent e229d9061c
commit bf4fe76d96
9 changed files with 298 additions and 84 deletions

View file

@ -12,16 +12,16 @@ package WebGUI::Macro::Snippet;
use strict;
use Tie::CPHash;
use WebGUI::Collateral;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub process {
my (@param, $temp);
@param = WebGUI::Macro::getParams($_[0]);
($temp) = WebGUI::SQL->quickArray("select parameters from collateral where name=".quote($param[0]));
return $temp;
my $collateral = WebGUI::Collateral->find($param[0]);
return $collateral->get("parameters");
}