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

can now edit, delete, cut submissions

Browse source
This commit is contained in:
JT Smith 2005-02-07 17:37:43 +00:00
parent b322296e0c
commit 75796e9d82
2 changed files with 25 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

46
lib/WebGUI/Asset/USS_submission.pm
View file

@ -94,26 +94,30 @@ sub definition {
defaultValue=>"mixed"
},
userDefined1 => {
fieldType=>"text",
fieldType=>"HTMLArea",
defaultValue=>undef
},
userDefined2 => {
fieldType=>"text",
fieldType=>"HTMLArea",
defaultValue=>undef
},
userDefined3 => {
fieldType=>"text",
fieldType=>"HTMLArea",
defaultValue=>undef
},
userDefined4 => {
fieldType=>"text",
fieldType=>"HTMLArea",
defaultValue=>undef
},
userDefined5 => {
fieldType=>"text",
fieldType=>"HTMLArea",
defaultValue=>undef
},
content => {
fieldType=>"HTMLArea",
defaultValue=>undef
}
}
},
});
return $class->SUPER::definition($definition);
}
@ -144,7 +148,15 @@ sub getResponseCount {
#-------------------------------------------------------------------
sub getStatus {
return 'Approved';
my $self = shift;
my $status = shift;
if ($status eq "Approved") {
return WebGUI::International::get(560);
} elsif ($status eq "Denied") {
return WebGUI::International::get(561);
} elsif ($status eq "Pending") {
return WebGUI::International::get(562);
}
}
#-------------------------------------------------------------------
@ -175,17 +187,6 @@ sub processPropertiesFromFormPost {
$self->update(\%data);
}
#-------------------------------------------------------------------
sub status {
if ($_[0] eq "Approved") {
return WebGUI::International::get(560);
} elsif ($_[0] eq "Denied") {
return WebGUI::International::get(561);
} elsif ($_[0] eq "Pending") {
return WebGUI::International::get(562);
}
}
#-------------------------------------------------------------------
sub view {
@ -211,7 +212,6 @@ sub view {
WebGUI::SQL->write("update USS_submission set views=views+1 where USS_submissionId=".quote($submissionId));
$var{title} = $submission->{title};
$var{content} = WebGUI::HTML::filter($submission->{content},$self->get("filterContent"));
$var{content} =~ s/\^\-\;//g;
$var{content} = WebGUI::HTML::format($var{content},$submission->{contentType});
$var{"user.label"} = WebGUI::International::get(21,$self->get("namespace"));
$var{"user.Profile"} = WebGUI::URL::page('op=viewProfile&uid='.$submission->{userId});
@ -390,11 +390,11 @@ sub www_edit {
$var{'description.label'} = WebGUI::International::get(85);
$var{'body.value'} = $self->get("content");
$var{'body.form'} = WebGUI::Form::HTMLArea({
name=>"body",
name=>"content",
value=>$self->get("content")
});
$var{'body.form.textarea'} = WebGUI::Form::textarea({
name=>"body",
name=>"content",
value=>$self->get("content")
});
# $var{'image.label'} = WebGUI::International::get(32,"USS");
@ -418,7 +418,7 @@ sub www_edit {
$var{'contentType.label'} = WebGUI::International::get(1007);
$var{'contentType.form'} = WebGUI::Form::contentType({
name=>'contentType',
value=>[$self->get("contentType")] || ["mixed"]
value=>$self->get("contentType") || "mixed"
});
$var{'startDate.label'} = WebGUI::International::get(497);
$var{'endDate.label'} = WebGUI::International::get(498);
@ -432,7 +432,7 @@ sub www_edit {
});
$var{'form.submit'} = WebGUI::Form::submit();
$var{'form.footer'} = WebGUI::Form::formFooter();
return $self->getParent->processStyle($self->processTemplate(\%var,$self->getParent->get("submissionFormTemplate")));
return $self->getParent->processStyle($self->processTemplate(\%var,$self->getParent->get("submissionFormTemplateId")));
}
#-------------------------------------------------------------------

5
lib/WebGUI/Asset/Wobject/USS.pm
View file

@ -330,9 +330,8 @@ sub view {
}
my $p = WebGUI::Paginator->new($self->getUrl,$numResults);
my $sql = "select * from USS_submission left join asset on USS_submission.assetId=asset.assetId
where asset.parentId=".quote($self->getId)." and asset.className='WebGUI::Asset::USS_submission' and $constraints
where asset.parentId=".quote($self->getId)." and asset.state='published' and asset.className='WebGUI::Asset::USS_submission' and $constraints
order by ".$self->getValue("sortBy")." ".$self->getValue("sortOrder");
WebGUI::ErrorHandler::warn($sql);
$p->setDataByQuery($sql);
my $page = $p->getPageData;
my $i = 0;
@ -380,7 +379,7 @@ WebGUI::ErrorHandler::warn($sql);
"submission.thirdColumn"=>(($i+1)%3==0),
"submission.fourthColumn"=>(($i+1)%4==0),
"submission.fifthColumn"=>(($i+1)%5==0),
'submission.controls'=>$controls,
'submission.controls'=>$submission->getToolbar,
'submission.inDateRange'=>$inDateRange,
"submission.currentUser"=>($session{user}{userId} eq $submission->get("userId") && $session{user}{userId} ne "1")
});