fixed bug 633314

docs/upgrades/upgrade_4.8.0-4.9.0.sql

@@ -8,6 +8,8 @@ alter table users drop column ldapURL;
 alter table users drop column connectDN;
 insert into international (internationalId,languageId,namespace,message,lastUpdated) values (814,1,'WebGUI','Back to styles.', 1038022043);
 alter table collateral change parameters parameters text;
+insert into international (internationalId,languageId,namespace,message,lastUpdated) values (815,1,'WebGUI','The file you tried to upload is too large.', 1038023800);
+
 
 
 

lib/WebGUI/Form.pm

@@ -869,7 +869,7 @@ sub password {
 
 sub phone {
         my ($maxLength);
-        $maxLength = shift || 30;
+        $maxLength = $_[0]->{maxLength} || 30;
 	return text({
 		name=>$_[0]->{name},
 		maxlength=>$maxLength,

lib/WebGUI/Operation/Account.pm

@@ -360,12 +360,23 @@ sub www_editProfile {
 					} else {
 						$default = eval $data{dataDefault};
 					}
-                                        $f->select($data{fieldName},$values,$label,$default,'','','',$subtext);
+                                        $f->select(
+						-name=>$data{fieldName},
+						-options=>$values,
+						-label=>$label,
+						-value=>$default,
+						-subtext=>$subtext
+						);
                                 } else {
                                         $default = $session{form}{$data{fieldName}}
                                                 || $session{user}{$data{fieldName}}
                                                 || eval $data{dataDefault};
-                                        $f->$method($data{fieldName},$label,$default,'','',$subtext);
+                                        $f->$method(
+						-name=>$data{fieldName},
+						-label=>$label,
+						-value=>$default,
+						-subtext=>$subtext
+						);
                                 }
                                 $previousCategory = $category;
                         }

lib/WebGUI/Wobject/Article.pm

@@ -116,6 +116,7 @@ sub www_edit {
 #-------------------------------------------------------------------
 sub www_editSave {
 	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
+#	return WebGUI::International::get(815).$_[0]->www_edit if ($session{cgi}->cgi_error eq "413 POST too large");
         my ($image, $attachment, %property);
 	$_[0]->SUPER::www_editSave() if ($_[0]->get("wobjectId") eq "new");
         $image = WebGUI::Attachment->new("",$_[0]->get("wobjectId"));
@@ -130,7 +131,7 @@ sub www_editSave {
 	$property{linkURL} = $session{form}{linkURL};
 	$property{allowDiscussion} = $session{form}{allowDiscussion};
 	$_[0]->SUPER::www_editSave(\%property);
-        return "";
+       	return "";
 }
 
 #-------------------------------------------------------------------