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

Added some more skeletons (newWobject, newAsset, changelog(!))

Browse source
This commit is contained in:
Matthew Wilson 2005-12-12 17:29:37 +00:00
parent dc82b96d96
commit 0ca14186fe
5 changed files with 3 additions and 116 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lib/WebGUI/Asset/Wobject/Survey.pm
View file

@ -318,40 +318,6 @@ sub getEditForm {
return $tabform;
}
#
# WID FIXEN!
#
#-------------------------------------------------------------------
sub getIndexerParams {
my $self = shift;
my $now = shift;
return {
Survey => {
sql =>"select Survey_question.question as question,
Survey_question.Survey_questionId as Survey_questionId,
asset.className as class,
asset.ownerUserId as ownerId,
asset.url as url,
asset.assetId as assetId,
asset.groupIdView as groupIdView,
Survey.groupToTakeSurvey as special_groupIdView
from Survey, asset
left join Survey_question on Survey_question.Survey_id=Survey.Survey_id
where Survey.assetId = asset.assetId
and asset.startDate < $now
and asset.endDate > $now",
fieldsToIndex => ["question",
'select answer from Survey_answer where Survey_questionId = \'$data{Survey_questionId}\'' ],
contentType => 'content',
url => 'WebGUI::URL::gateway($data{url})',
headerShortcut => 'select title from asset where assetId = \'$data{assetId}\'',
bodyShortcut => '$textToIndex'
}
};
}
#-------------------------------------------------------------------
sub getIp {
my $self = shift;
@ -359,8 +325,6 @@ sub getIp {
return $ip;
}
#-------------------------------------------------------------------
sub getMenuVars {
my $self = shift;