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

forward port of colins 6.8.4 bugwork

Browse source
This commit is contained in:
Colin Kuskie 2006-01-02 18:51:38 +00:00
parent 8d8c6d8065
commit 21188e7949
4 changed files with 38 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -508,6 +508,7 @@ sub processPropertiesFromFormPost {
if ($self->session->form->process("assetId") eq "new") {
$self->setCollateral("DataForm_field","DataForm_fieldId",{
DataForm_fieldId=>"new",
DataForm_tabId=>0,
name=>"from",
label=>WebGUI::International::get(10,"Asset_DataForm"),
status=>"editable",
@ -517,6 +518,7 @@ sub processPropertiesFromFormPost {
});
$self->setCollateral("DataForm_field","DataForm_fieldId",{
DataForm_fieldId=>"new",
DataForm_tabId=>0,
name=>"to",
label=>WebGUI::International::get(11,"Asset_DataForm"),
status=>"hidden",
@ -527,6 +529,7 @@ sub processPropertiesFromFormPost {
});
$self->setCollateral("DataForm_field","DataForm_fieldId",{
DataForm_fieldId=>"new",
DataForm_tabId=>0,
name=>"cc",
label=>WebGUI::International::get(12,"Asset_DataForm"),
status=>"hidden",
@ -536,6 +539,7 @@ sub processPropertiesFromFormPost {
});
$self->setCollateral("DataForm_field","DataForm_fieldId",{
DataForm_fieldId=>"new",
DataForm_tabId=>0,
name=>"bcc",
label=>WebGUI::International::get(13,"Asset_DataForm"),
status=>"hidden",
@ -545,6 +549,7 @@ sub processPropertiesFromFormPost {
});
$self->setCollateral("DataForm_field","DataForm_fieldId",{
DataForm_fieldId=>"new",
DataForm_tabId=>0,
name=>"subject",
label=>WebGUI::International::get(14,"Asset_DataForm"),
status=>"editable",

2
lib/WebGUI/Asset/Wobject/EventsCalendar.pm
View file

@ -353,7 +353,7 @@ sub view {
my $firstDayInFirstWeek = WebGUI::DateTime::getFirstDayInMonthPosition($thisMonth);
my $daysInMonth = WebGUI::DateTime::getDaysInMonth($thisMonth);
my @prepad;
while ($dayOfWeekCounter < $firstDayInFirstWeek) {
while (($dayOfWeekCounter <= $firstDayInFirstWeek) and $firstDayInFirstWeek != 7) {
push(@prepad,{
count => $dayOfWeekCounter
});