updated to support 6 digits instead of 4.
authorChris Koeritz <fred@gruntose.com>
Fri, 24 Feb 2012 15:32:21 +0000 (10:32 -0500)
committerChris Koeritz <fred@gruntose.com>
Fri, 24 Feb 2012 15:32:21 +0000 (10:32 -0500)
scripts/math/inc_num.pl

index 4746115c2142e8bbc6673c596d4cfa20bf0fa9d5..acecc29f665d3fb1c88cd856a8cec14e14526130 100644 (file)
@@ -29,6 +29,9 @@ sub get_number {
   if ($number < 10) { $number = '0'.$number; }
   if ($number < 100) { $number = '0'.$number; }
   if ($number < 1000) { $number = '0'.$number; }
+  # upgraded to 6 digit numbers.  whoo hoo.
+  if ($number < 10000) { $number = '0'.$number; }
+  if ($number < 100000) { $number = '0'.$number; }
   close(NUMBERING);
   return $number;
 }
@@ -37,9 +40,9 @@ sub get_number {
 sub next_number {
   local($number_file) = @_;
   local($number) = &get_number($number_file);
-  if ($number < 0) { $number = '0000'; }
+  if ($number < 0) { $number = '000000'; }
   $number++;
-  if ($number > 9999) { $number = '0000'; }
+  if ($number > 999999) { $number = '000000'; }
   open(NUMBERING, "> $number_file");
 #print "number is now $number\n";
   print NUMBERING "$number\n";