add week no

entorb · entorb · commit 71d2e24ff224 · 2024-05-06T07:56:17.000+02:00
diff --git a/TMsStrava.pm b/TMsStrava.pm
@@ -584,6 +584,7 @@ sub convertActivityHashToExcel {
       type
       x_gear_name
       start_date_local
+      x_week
       x_start_h
       name
       x_min
@@ -962,7 +963,7 @@ sub htmlPrintHeader {
         # ,-author=>'Torben Menke' # generates mailto:
     ,
     -style => { -src => [ '/style.css', './style-strava.css' ] }
-    #    -style => { -src => './style-strava.css' }
+        #    -style => { -src => './style-strava.css' }
   );
   # CGI.pm doesn't support HTML5 DTD; replace the one it puts in.
   $html =~ s{<!DOCTYPE.*?>}{<!DOCTYPE html>}s;
diff --git a/activityListCaching.pl b/activityListCaching.pl
@@ -43,6 +43,7 @@
 
 # use local::lib;
 use JSON::Create 'create_json';
+use Date::WeekNumber qw/ cpan_week_number /;
 # use JSON::Create;
 # use CGI::ProgressBar qw/:standard/;
 
@@ -334,6 +335,7 @@ sub fetchActivityListYear {
       # 2018-10-02T08:10:49Z
       $h{"x_start_h"} = sprintf "%.1f", $4 + $5 / 60 + $6 / 3600;
       $h{"x_date"}    = "$1-$2-$3";
+      $h{"x_week"}    = cpan_week_number( $h{"x_date"} );
     } ## end if ( $h{"start_date_local"...})
     if ( $h{"average_speed"} and $h{"average_speed"} > 0 ) {
       $h{"x_min/km"} = sprintf "%.2f", 1 / $h{"average_speed"} / 60
