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

made the file and image form fields better, but still have some work to do

Browse source 
began converting the article to have it's own attachments, but still have some work to do
This commit is contained in:
JT Smith 2006-04-16 01:10:34 +00:00
parent cedef1c8ac
commit 7fcfb11f20
10 changed files with 248 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lib/WebGUI/Asset/Post.pm
View file

@ -147,8 +147,7 @@ sub definition {
className=>'WebGUI::Asset::Post',
properties=>{
storageId => {
noFormPost=>1,
fieldType=>"hidden",
fieldType=>"file",
defaultValue=>undef
},
threadId => {
@ -504,30 +503,6 @@ sub getThumbnailUrl {
}
#-------------------------------------------------------------------
sub getUploadControl {
my $self = shift;
my $maxAttachments = $self->getThread->getParent->getValue("attachmentsPerPost");
my $uploadControl;
return undef unless ($maxAttachments);
my $i18n = WebGUI::International->new($self->session);
if ($self->get("storageId")) {
my $i;
foreach my $filename (@{$self->getStorageLocation->getFiles}) {
$uploadControl .= $self->session->icon->delete("func=deleteFile;filename=".$filename,$self->get("url"),$i18n->get("delete file warning","Asset_Collaboration"))
.' <a href="'.$self->getStorageLocation->getUrl($filename).'">'.$filename.'</a>'
.'<br />';
$i++;
}
return $uploadControl unless ($i < $maxAttachments);
}
$uploadControl .= WebGUI::Form::file($self->session,
maxAttachments=>$maxAttachments
);
return $uploadControl;
}
#-------------------------------------------------------------------
=head2 hasRated ( )
@ -1065,7 +1040,11 @@ sub www_edit {
$var{'form.preview'} = WebGUI::Form::submit($self->session, {
value=>$i18n->get("preview","Asset_Collaboration")
});
$var{'attachment.form'} = $self->getUploadControl;
$var{'attachment.form'} = WebGUI::Form::file($self->session, {
value=>$self->get("storageId"),
maxAttachments=>$self->getThread->getParent->getValue("attachmentsPerPost"),
deleteFileUrl=>$self->getUrl("func=deleteFile;filename=")
});
$var{'contentType.form'} = WebGUI::Form::contentType($self->session, {
name=>'contentType',
value=>$self->getValue("contentType") || "mixed"