From 4cf11a716fbe0e530b037ef94514713930617fe0 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 17 Feb 2007 16:53:03 +0000
Subject: [PATCH] Fix the POD for Storage.pm Fix for bad calendar day names in
 the month view.

---
 docs/changelog/7.x.x.txt             | 1 +
 lib/WebGUI/Asset/Wobject/Calendar.pm | 6 +++---
 lib/WebGUI/Storage.pm                | 2 +-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 1c8e7fe23..26ba877e6 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -15,6 +15,7 @@
    the Events Calendars they replace.
  - fix: Events are created with no group information.
  - fix: Can't add files with File Pile (perlDreamer Consulting, LLC)
+ - fix: Calendar: Month View Always Shows Sunday (perlDreamer Consulting, LLC)
 
 7.3.9
  - fix: SQL Form and big table imports
diff --git a/lib/WebGUI/Asset/Wobject/Calendar.pm b/lib/WebGUI/Asset/Wobject/Calendar.pm
index a282dcf69..81a779b7a 100644
--- a/lib/WebGUI/Asset/Wobject/Calendar.pm
+++ b/lib/WebGUI/Asset/Wobject/Calendar.pm
@@ -1145,10 +1145,10 @@ sub viewMonth {
     unshift @dayNames,splice(@dayNames,$first_dow);
     unshift @dayAbbrs,splice(@dayAbbrs,$first_dow);
     
-    for my $day (0..$#dayNames) {
+    for my $dayIndex (0..$#dayNames) {
         push @{$var->{dayNames}}, {
-            "dayName"    => $dayNames[$_],
-            "dayAbbr"    => $dayAbbrs[$_],
+            "dayName"    => $dayNames[$dayIndex],
+            "dayAbbr"    => $dayAbbrs[$dayIndex],
         };
     }
     
diff --git a/lib/WebGUI/Storage.pm b/lib/WebGUI/Storage.pm
index 32f3be81d..34886c24a 100644
--- a/lib/WebGUI/Storage.pm
+++ b/lib/WebGUI/Storage.pm
@@ -41,7 +41,7 @@ This package provides a mechanism for storing and retrieving files that are not
  $store = WebGUI::Storage->get($self->session,$id);
 
  $filename = $store->addFileFromFilesystem($pathToFile);
- $filename = $store->addFileFromFormPost($formVarName);
+ $filename = $store->addFileFromFormPost($formVarName,$attachmentLimit);
  $filename = $store->addFileFromHashref($filename,$hashref);
  $filename = $store->addFileFromScalar($filename,$content);