RFE [ 806332 ] Force SSL

lib/WebGUI/Operation/Package.pm

@@ -77,6 +77,7 @@ sub _recursePageTree {
 			userDefined5,
 			hideFromNavigation,
 			newWindow,
+			encryptPage,
 			cacheTimeout,
 			cacheTimeoutVisitor,
 			printableStyleId,
@@ -106,6 +107,7 @@ sub _recursePageTree {
 			".quote($newParent{userDefined5}).",
 			$package{hideFromNavigation},
 			$package{newWindow},
+			$package{encryptPage},
 			$package{cacheTimeout},
 			$package{cacheTimeoutVisitor},
 			".quote($package{printableStyleId}).",

lib/WebGUI/Operation/Page.pm

@@ -346,6 +346,7 @@ sub www_editPage {
 			$page{ownerId} = $session{user}{userId};
 			$page{hideFromNavigation} = 0;
                         $page{newWindow} = 0;
+                        $page{encryptPage} = 0;
                         $page{redirectURL} = "";
 		} else {
 			%page = %{$session{page}};
@@ -385,6 +386,12 @@ sub www_editPage {
 			-label=>WebGUI::International::get(940),
 			-uiLevel=>6
 			);
+		$f->getTab("properties")->yesNo(
+                        -name=>"encryptPage",
+                        -value=>$page{encryptPage},
+                        -label=>WebGUI::International::get('encrypt page'),
+                        -uiLevel=>6
+                        );
                 $f->getTab("properties")->text(
 			-name=>"urlizedTitle",
 			-label=>WebGUI::International::get(104),
@@ -582,6 +589,7 @@ sub www_editPageSave {
 		groupIdView		=> $session{form}{groupIdView}, 
 		groupIdEdit		=> $session{form}{groupIdEdit}, 
 		newWindow		=> $session{form}{newWindow},
+		encryptPage		=> $session{form}{encryptPage},
 		wobjectPrivileges	=> $session{form}{wobjectPrivileges},
 		hideFromNavigation	=> $session{form}{hideFromNavigation},
 		startDate		=> WebGUI::FormProcessor::dateTime("startDate"),