X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;ds=sidebyside;f=admin%2Fusage_statistics.pl;h=582e92aa1eb9f6e8c0e4441d3cb9edfcec68ccc7;hb=5f614c05fd3b0691fa5aa0779dbfcb1d0d5b94ec;hp=4573321758fc2531fe9db4590295eb3bdb3e674c;hpb=3d46c0c7bb8ce487f85cd0d0233cb7ceffcbbde3;p=koha-ffzg.git

diff --git a/admin/usage_statistics.pl b/admin/usage_statistics.pl
index 4573321758..582e92aa1e 100755
--- a/admin/usage_statistics.pl
+++ b/admin/usage_statistics.pl
@@ -18,19 +18,18 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
-use Koha::DateUtils qw( dt_from_string output_pref );
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::DateUtils qw( output_pref );
+use Koha::Libraries;
 
-my $query = new CGI;
+my $query = CGI->new;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
     {
         template_name   => "admin/usage_statistics.tt",
         query           => $query,
         type            => "intranet",
-        authnotrequired => 0,
-        flagsrequired   => { parameters => '*' },
-        debug           => 1,
+        flagsrequired   => { parameters => 'manage_usage_stats' },
     }
 );
 
@@ -42,12 +41,21 @@ if ( $op eq 'update' ) {
     my $UsageStatsLibraryName = $query->param('UsageStatsLibraryName');
     my $UsageStatsLibraryType = $query->param('UsageStatsLibraryType');
     my $UsageStatsLibraryUrl = $query->param('UsageStatsLibraryUrl');
+    my $UsageStatsLibrariesInfo = $query->param('UsageStatsLibrariesInfo');
+    my $UsageStatsGeolocation = $query->param('UsageStatsGeolocation');
     C4::Context->set_preference('UsageStats', $UsageStats);
     C4::Context->set_preference('UsageStatsCountry', $UsageStatsCountry);
     C4::Context->set_preference('UsageStatsLibraryName', $UsageStatsLibraryName);
     C4::Context->set_preference('UsageStatsLibraryType', $UsageStatsLibraryType);
     C4::Context->set_preference('UsageStatsLibraryUrl', $UsageStatsLibraryUrl);
-
+    C4::Context->set_preference('UsageStatsLibrariesInfo', $UsageStatsLibrariesInfo);
+    C4::Context->set_preference('UsageStatsGeolocation', $UsageStatsGeolocation);
+    my $libraries = Koha::Libraries->search;
+    while ( my $library = $libraries->next ) {
+        if ( my $latlng = $query->param('geolocation_' . $library->branchcode) ) {
+            $library->geolocation( $latlng )->store;
+        }
+    }
 }
 
 if ( C4::Context->preference('UsageStatsLastUpdateTime') ) {
@@ -55,4 +63,9 @@ if ( C4::Context->preference('UsageStatsLastUpdateTime') ) {
     $template->param(UsageStatsLastUpdateTime => output_pref($dt) );
 }
 
+my $libraries = Koha::Libraries->search;
+$template->param(
+    libraries => $libraries,
+);
+
 output_html_with_http_headers $query, $cookie, $template->output;