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

working on USS

Browse source
This commit is contained in:
JT Smith 2005-01-31 00:40:06 +00:00
parent 1ec79cfd68
commit 7ac3ec9cc7
5 changed files with 37 additions and 695 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -135,7 +135,23 @@ sub getName {
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost;
$self->deleteAllCachedSubmissions;
my %data = (
ownerUserId => $session{user}{userId},
groupIdView => $self->getParent->get("groupIdView"),
groupIdEdit => $self->getParent->get("groupIdEdit")
);
$data{startDate} = $self->getParent->get("startDate") unless ($session{form}{startDate});
$data{endDate} = $self->getParent->get("endDate") unless ($session{form}{endDate});
unless ($session{form}{synopsis}) {
my $body = $session{form}{description};
$body =~ s/\n/\^\-\;/ unless ($body =~ m/\^\-\;/);
my @content = split(/\^\-\;/,$body);
$content[0] = WebGUI::HTML::filter($content[0],"none");
$data{synopsis} = $content[0];
$body =~ s/\^\-\;/\n/;
$data{description} = $body;
}
$self->update(\%data);
}
#-------------------------------------------------------------------
@ -485,6 +501,12 @@ sub www_editSave {
}
#-------------------------------------------------------------------
sub www_view {
my $self = shift;
return WebGUI::Privilege::noAccess() unless $self->canView;
return $self->getParent->processStyle($self->view);
}
1;