X-Git-Url: https://feistymeow.org/gitweb/?a=blobdiff_plain;f=scripts%2Fmath%2Finc_num.pl;h=acecc29f665d3fb1c88cd856a8cec14e14526130;hb=46198a8a6081484e0e452a3a47c8bec10f254487;hp=4746115c2142e8bbc6673c596d4cfa20bf0fa9d5;hpb=11f798e2d290397e5b4f1f4d2bb7512819a76a9f;p=feisty_meow.git

diff --git a/scripts/math/inc_num.pl b/scripts/math/inc_num.pl
index 4746115c..acecc29f 100644
--- a/scripts/math/inc_num.pl
+++ b/scripts/math/inc_num.pl
@@ -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";