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

adding guid stuff

Browse source
This commit is contained in:
JT Smith 2004-08-11 03:20:22 +00:00
parent 78c3a63fc0
commit 08f3fc841a
3 changed files with 17 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/DatabaseLink.pm
View file

@ -76,7 +76,7 @@ A valid databaseLinkId
=cut
sub get {
return WebGUI::SQL->quickHash("select * from databaseLink where databaseLinkId=".$_[0]);
return WebGUI::SQL->quickHash("select * from databaseLink where databaseLinkId=".quote($_[0]));
}
#-------------------------------------------------------------------
@ -98,7 +98,7 @@ A valid databaseLinkId
sub whatIsUsing {
# get list of SQLReports
my $sql = 'select wobject.wobjectId, wobject.title, page.menuTitle, page.urlizedTitle from wobject, SQLReport, page '.
'where SQLReport.databaseLinkId = '.$_[0].' and SQLReport.wobjectId = wobject.wobjectId '.
'where SQLReport.databaseLinkId = '.quote($_[0]). 'and SQLReport.wobjectId = wobject.wobjectId '.
'and wobject.pageId = page.pageId';
my $sth = WebGUI::SQL->read($sql);
my @using;
@ -108,7 +108,7 @@ sub whatIsUsing {
$sth->finish;
# get list of groups
$sql = 'select groupId, groupName from groups where databaseLinkId = '.$_[0];
$sql = 'select groupId, groupName from groups where databaseLinkId = '.quote($_[0]);
$sth = WebGUI::SQL->read($sql);
while (my $data = $sth->hashRef()) {
push @using, $data;
@ -203,7 +203,7 @@ sub new {
title=>"WebGUI Database"
);
} else {
%databaseLink = WebGUI::SQL->quickHash("select * from databaseLink where databaseLinkId='$databaseLinkId'");
%databaseLink = WebGUI::SQL->quickHash("select * from databaseLink where databaseLinkId=".quote($databaseLinkId));
}
}
bless {_databaseLinkId => $databaseLinkId, _databaseLink => \%databaseLink }, $class;