Adding reverse page loop

docs/changelog/7.x.x.txt

@@ -25,7 +25,8 @@
    Kamerbeek /  Procolix)
  - Fixed a bug where WebGUI::Asset::File->addRevision did not set correct
    privs to the storage associated with it. (Martin Kamerbeek / Procolix)
- 
+ - Added a reverse page loop option to the navigation asset (Martin 
+   Kamerbeek / Procolix)
    
 7.0.1
  - fix: User profile field "Department" needs i18n 

docs/upgrades/upgrade_7.0.1-7.0.2.pl

@@ -12,7 +12,7 @@ use lib "../../lib";
 use strict;
 use Getopt::Long;
 use WebGUI::Session;
-
+use WebGUI::Utility;
 
 my $toVersion = "7.0.2"; # make this match what version you're going to
 my $quiet; # this line required
@@ -22,6 +22,7 @@ my $session = start(); # this line required
 
 # upgrade functions go here
 addAdminToVisitorGroup($session);
+addReversePageLoopColumn($session);
 
 finish($session); # this line required
 
@@ -32,6 +33,16 @@ sub addAdminToVisitorGroup {
 	return 1;
 }
 
+sub addReversePageLoopColumn {
+	my $session = shift;
+	print "\tAdding the reversePageLoop column to the Navigation table\n" unless ($quiet);
+
+	my @columns = $session->db->buildArray('describe Navigation');
+	unless (isIn('reversePageLoop', @columns)) {
+		$session->db->write('alter table Navigation add column reversePageLoop tinyint(1) default 0');
+	}
+}
+
 ##-------------------------------------------------
 #sub exampleFunction {
 #	my $session = shift;