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

added new range options to events calendar

Browse source
This commit is contained in:
JT Smith 2003-05-26 01:25:14 +00:00
parent 0752423448
commit 302b875dae
3 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Wobject.pm
View file

@ -646,7 +646,7 @@ sub new {
rearrange([qw(properties extendedProperties useDiscussion useTemplate)], @p);
}
$useDiscussion = 0 unless ($useDiscussion);
$useTemplate = 0 unless ($useDiscussion);
$useTemplate = 0 unless ($useTemplate);
my $wobjectProperties = {
userDefined1=>{
fieldType=>"text"
@ -742,6 +742,7 @@ sub new {
};
bless({
_property=>$properties,
_useTemplate=>$useTemplate,
_useDiscussion=>$useDiscussion,
_wobjectProperties=>$wobjectProperties,
_extendedProperties=>$extendedProperties

11
lib/WebGUI/Wobject/EventsCalendar.pm
View file

@ -236,6 +236,8 @@ sub www_edit {
$properties->select(
-name=>"startMonth",
-options=>{
"january"=>WebGUI::International::get(15),
"now"=>WebGUI::International::get(98,$_[0]->get("namespace")),
"current"=>WebGUI::International::get(82,$_[0]->get("namespace")),
"first"=>WebGUI::International::get(83,$_[0]->get("namespace"))
},
@ -433,9 +435,14 @@ sub www_view {
if ($_[0]->get("startMonth") eq "first") {
($minDate) = WebGUI::SQL->quickArray("select min(startDate) from EventsCalendar_event
where wobjectId=".$_[0]->get("wobjectId"));
} elsif ($_[0]->get("startMonth") eq "january") {
$minDate = WebGUI::DateTime::humanToEpoch(WebGUI::DateTime::epochToHuman("","%y")."-01-01 00:00:00");
} else {
$minDate = WebGUI::DateTime::time();
}
unless ($_[0]->get("startMonth") eq "now") {
($minDate,$junk) = WebGUI::DateTime::monthStartEnd($minDate);
}
$minDate = $minDate || WebGUI::DateTime::time();
($minDate,$junk) = WebGUI::DateTime::monthStartEnd($minDate);
if ($_[0]->get("endMonth") eq "last") {
($maxDate) = WebGUI::SQL->quickArray("select max(endDate) from EventsCalendar_event where
wobjectId=".$_[0]->get("wobjectId"));