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

Several enhancements to the wobject architecture.

Browse source
This commit is contained in:
JT Smith 2002-05-14 01:15:10 +00:00
parent 62b2066a85
commit b491e0f922
3 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI.pm
View file

@ -207,7 +207,10 @@ sub page {
$wobject = \%hash;
$cmd = "WebGUI::Wobject::".${$wobject}{namespace};
$w = $cmd->new($wobject);
$contentHash{${$wobject}{templatePosition}} .= '<a name="'.${$wobject}{wobjectId}.'"></a>'.$w->www_view."<p>\n\n";
if ($w->inDateRange) {
$contentHash{${$wobject}{templatePosition}} .= '<a name="'.${$wobject}{wobjectId}.'"></a>'
.$w->www_view."<p>\n\n";
}
}
$sth->finish;
$cmd = "use WebGUI::Template::".$session{page}{template};

2
lib/WebGUI/Wobject.pm
View file

@ -145,7 +145,7 @@ sub get {
=cut
sub inDateRange {
if ($_[0]->get("startDate") < time() && $_[0]->get("startDate") > time()) {
if ($_[0]->get("startDate") < time() && $_[0]->get("endDate") > time()) {
return 1;
} else {
return 0;

9
lib/WebGUI/Wobject/Item.pm
View file

@ -105,15 +105,14 @@ sub www_edit {
#-------------------------------------------------------------------
sub www_editSave {
my ($attachment);
my ($attachment, $property);
if (WebGUI::Privilege::canEditPage()) {
$_[0]->SUPER::www_editSave();
$attachment = WebGUI::Attachment->new("",$_[0]->get("wobjectId"));
$attachment->save("attachment");
$_[0]->set({
linkURL=>$session{form}{linkURL},
attachment=>$attachment->getFilename
});
$property->{linkURL} = $session{form}{linkURL};
$property->{attachment} = $attachment->getFilename if ($attachment->getFilename ne "");
$_[0]->set($property);
return "";
} else {
return WebGUI::Privilege::insufficient();