help.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2017 Koha Development team
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 use Modern::Perl;
  21 use C4::Context;
  22 use CGI qw ( -utf8 );
  23
  24 my $query = new CGI;
  25
  26 # find the script that called the online help using the CGI referer()
  27 our $refer = $query->param('url');
  28 $refer = $query->referer()  if !$refer || $refer eq 'undefined';
  29
  30 my $help_version = C4::Context->preference("Version");
  31 if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) {
  32     my $version = $1;
  33     my $major = $2;
  34     unless ( $major % 2 ) { $major-- };
  35     $major = sprintf("%02d", $major);
  36     $help_version = "$version.$major";
  37 }
  38
  39 # FIXME /en/ must be configurable (or guessed)
  40 my $KohaManualBaseURL = C4::Context->preference('KohaManualBaseURL') || 'http://koha-community.org/manual';
  41 if ( $KohaManualBaseURL =~ m|^/| ) {
  42     $KohaManualBaseURL = C4::Context->preference('staffClientBaseURL') . $KohaManualBaseURL;
  43 }
  44 our $base_url = $KohaManualBaseURL . '/' . $help_version . '/en/html';
  45 our $mapping = {
  46     'about'                                    => '/14_plugins.html#about-koha',
  47     'acqui/acqui-home'                         => '/09_acquisitions.html',
  48     'acqui/addorderiso2709'                    => '/09_acquisitions.html#create-a-basket',
  49     'acqui/basket'                             => '/09_acquisitions.html#create-a-basket',
  50     'acqui/basketgroup'                        => '/09_acquisitions.html#create-a-basket-group',
  51     'acqui/basketheader'                       => '/09_acquisitions.html#create-a-basket',
  52     'acqui/booksellers'                        => '/09_acquisitions.html#acquisition-searches',
  53     'acqui/edifactmsgs'                        => '/09_acquisitions.html#edifact-messages',
  54     'acqui/histsearch'                         => '/09_acquisitions.html#acquisition-searches',
  55     'acqui/invoice'                            => '/09_acquisitions.html#invoices',
  56     'acqui/invoices'                           => '/09_acquisitions.html#invoices',
  57     'acqui/lateorders'                         => '/09_acquisitions.html#claims-late-orders',
  58     'acqui/neworderbiblio'                     => '/09_acquisitions.html#create-a-basket',
  59     'acqui/neworderempty'                      => '/09_acquisitions.html#create-a-basket',
  60     'acqui/newordersubscription'               => '/09_acquisitions.html#create-a-basket',
  61     'acqui/newordersuggestion'                 => '/09_acquisitions.html#create-a-basket',
  62     'acqui/orderreceive'                       => '/09_acquisitions.html#receiving-orders',
  63     'acqui/parcel'                             => '/09_acquisitions.html#receiving-orders',
  64     'acqui/parcels'                            => '/09_acquisitions.html#receiving-orders',
  65     'acqui/supplier'                           => '/09_acquisitions.html#vendors',
  66     'acqui/uncertainprice'                     => '/09_acquisitions.html#create-a-basket',
  67     'acqui/z3950_search'                       => '/09_acquisitions.html#create-a-basket',
  68     'admin/admin-home'                         => '/02_administration.html',
  69     'admin/aqbudgetperiods'                    => '/02_administration.html#budgets',
  70     'admin/aqbudgets'                          => '/02_administration.html#funds',
  71     'admin/aqcontract'                         => '/09_acquisitions.html#vendor-contracts',
  72     'admin/aqplan'                             => '/02_administration.html#budget-planning',
  73     'admin/auth_subfields_structure'           => '/02_administration.html#authority-types',
  74     'admin/auth_tag_structure'                 => '/02_administration.html#authority-types',
  75     'admin/authorised_values'                  => '/02_administration.html#authorized-values',
  76     'admin/authtypes'                          => '/02_administration.html#authority-types',
  77     'admin/biblio_framework'                   => '/02_administration.html#marc-bibliographic-frameworks',
  78     'admin/branch_transfer_limits'             => '/02_administration.html#library-transfer-limits',
  79     'admin/branches'                           => '/02_administration.html#libraries-&-groups',
  80     'admin/categorie'                          => '/02_administration.html#patron-categories',
  81     'admin/checkmarc'                          => '/02_administration.html#marc-bibliographic-framework-test',
  82     'admin/cities'                             => '/02_administration.html#cities-and-towns',
  83     'admin/classsources'                       => '/02_administration.html#classification-sources',
  84     'admin/columns_settings'                   => '/02_administration.html#column-settings',
  85     'admin/currency'                           => '/02_administration.html#currencies-and-exchange-rates',
  86     'admin/didyoumean'                         => '/02_administration.html#did-you-mean?',
  87     'admin/edi_accounts'                       => '/02_administration.html#edi-accounts',
  88     'admin/edi_ean_accounts'                   => '/02_administration.html#library-eans',
  89     'admin/fieldmapping'                       => '/02_administration.html#keywords-to-marc-mapping',
  90     'admin/item_circulation_alerts'            => '/02_administration.html#item-circulation-alerts',
  91     'admin/items_search_fields'                => '/02_administration.html#item-search-fields',
  92     'admin/itemtypes'                          => '/02_administration.html#item-types',
  93     'admin/koha2marclinks'                     => '/02_administration.html#koha-to-marc-mapping',
  94     'admin/marc_subfields_structure'           => '/02_administration.html#marc-bibliographic-frameworks',
  95     'admin/marctagstructure'                   => '/02_administration.html#marc-bibliographic-frameworks',
  96     'admin/matching-rules'                     => '/02_administration.html#record-matching-rules',
  97     'admin/oai_set_mappings'                   => '/02_administration.html#oai-sets-configuration',
  98     'admin/oai_sets'                           => '/02_administration.html#oai-sets-configuration',
  99     'admin/patron-attr-types'                  => '/02_administration.html#patron-attribute-types',
 100     'admin/preferences'                        => '/02_administration.html#global-system-preferences',
 101     'admin/smart-rules'                        => '/02_administration.html#circulation-and-fine-rules',
 102     'admin/systempreferences'                  => '/02_administration.html#global-system-preferences',
 103     'admin/transport-cost-matrix'              => '/02_administration.html#transport-cost-matrix',
 104     'admin/z3950servers'                       => '/02_administration.html#z39.50/sru-servers',
 105     'authorities/authorities-home'             => '/06_cataloging.html#authorities',
 106     'authorities/authorities'                  => '/06_cataloging.html#authorities',
 107     'authorities/detail'                       => '/06_cataloging.html#authorities',
 108     'authorities/merge'                        => '/06_cataloging.html#merging-authorities',
 109     'catalogue/detail'                         => '/06_cataloging.html#bibliographic-records',
 110     'catalogue/issuehistory'                   => '/06_cataloging.html#item-specific-circulation-history',
 111     'catalogue/itemsearch'                     => '/13_searching.html#item-searching',
 112     'catalogue/moredetail'                     => '/06_cataloging.html#item-records',
 113     'catalogue/search-history'                 => '/14_plugins.html#search-history',
 114     'catalogue/search'                         => '/13_searching.html',
 115     'cataloguing/addbiblio'                    => '/06_cataloging.html#bibliographic-records',
 116     'cataloguing/addbooks'                     => '/06_cataloging.html',
 117     'cataloguing/additem'                      => '/06_cataloging.html#item-records',
 118     'cataloguing/linkitem'                     => '/06_cataloging.html#adding-analytic-records',
 119     'cataloguing/merge'                        => '/06_cataloging.html#merging-records',
 120     'cataloguing/moveitem'                     => '/06_cataloging.html#moving-items',
 121     'circ/branchoverdues'                      => '/05_circulation.html#overdues-with-fines',
 122     'circ/branchtransfers'                     => '/05_circulation.html#transfers',
 123     'circ/circulation-home'                    => '/05_circulation.html',
 124     'circ/circulation'                         => '/05_circulation.html#check-out-(issuing)',
 125     'circ/offline'                             => '/05_circulation.html#offline-circulation-in-koha',
 126     'circ/on-site_checkouts'                   => '/05_circulation.html#pending-on-site-checkouts',
 127     'circ/overdue'                             => '/05_circulation.html#overdues',
 128     'circ/pendingreserves'                     => '/05_circulation.html#holds-to-pull',
 129     'circ/renew'                               => '/05_circulation.html#renewing',
 130     'circ/reserveratios'                       => '/05_circulation.html#hold-ratios',
 131     'circ/returns'                             => '/05_circulation.html#check-in-returning',
 132     'circ/selectbranchprinter'                 => '/05_circulation.html#set-library',
 133     'circ/transferstoreceive'                  => '/05_circulation.html#transfers-to-receive',
 134     'circ/view_holdsqueue'                     => '/05_circulation.html#holds-queue',
 135     'circ/waitingreserves'                     => '/05_circulation.html#holds-awaiting-pickup',
 136     'course_reserves/add_items'                => '/07_course_reserves.html',
 137     'course_reserves/course-details'           => '/07_course_reserves.html',
 138     'course_reserves/course-reserves'          => '/07_course_reserves.html',
 139     'course_reserves/course'                   => '/07_course_reserves.html#adding-courses',
 140     'labels/label-edit-batch'                  => '/03_tools.html#batches',
 141     'labels/label-edit-layout'                 => '/03_tools.html#layouts',
 142     'labels/label-edit-profile'                => '/03_tools.html#profiles',
 143     'labels/label-edit-template'               => '/03_tools.html#templates',
 144     'labels/label-home'                        => '/03_tools.html#label-creator',
 145     'labels/label-manage'                      => '/03_tools.html#layouts',
 146     'labels/label-manage'                      => '/03_tools.html#templates',
 147     'labels/label-manage'                      => '/03_tools.html#profiles',
 148     'labels/label-manage'                      => '/03_tools.html#batches',
 149     'labels/spinelabel-home'                   => '/03_tools.html#quick-spine-label-creator',
 150     'mainpage'                                 => '/',
 151     'members/boraccount'                       => '/04_patrons.html#fines',
 152     'members/discharge'                        => '/04_patrons.html#patron-discharges',
 153     'members/files'                            => '/04_patrons.html#files',
 154     'members/mancredit'                        => '/04_patrons.html#creating-manual-credits',
 155     'members/maninvoice'                       => '/04_patrons.html#creating-manual-invoices',
 156     'members/member-flags'                     => '/04_patrons.html#patron-permissions',
 157     'members/member-password'                  => '/04_patrons.html#editing-patrons',
 158     'members/member'                           => '/04_patrons.html#patron-search',
 159     'members/memberentry'                      => '/04_patrons.html#add-a-new-patron',
 160     'members/members-home'                     => '/04_patrons.html',
 161     'members/members-update'                   => '/04_patrons.html#managing-patron-self-edits',
 162     'members/moremember'                       => '/04_patrons.html#patron-information',
 163     'members/notices'                          => '/04_patrons.html#notices',
 164     'members/pay'                              => '/04_patrons.html#pay/reverse-fines',
 165     'members/paycollect'                       => '/04_patrons.html#pay/reverse-fines',
 166     'members/purchase-suggestions'             => '/04_patrons.html#purchase-suggestions',
 167     'members/readingrec'                       => '/04_patrons.html#circulation-history',
 168     'members/routing-lists'                    => '/04_patrons.html#routing-lists',
 169     'members/statistics'                       => '/04_patrons.html#statistics',
 170     'offline_circ/list'                        => '/05_circulation.html#offline-circulation-utilities',
 171     'offline_circ/process_koc'                 => '/05_circulation.html#upload-offline-circ-file',
 172     'patron_lists/lists'                       => '/03_tools.html#patron-lists',
 173     'patroncards/edit-batch'                   => '/03_tools.html#batches',
 174     'patroncards/edit-layout'                  => '/03_tools.html#layouts',
 175     'patroncards/edit-profile'                 => '/03_tools.html#profiles',
 176     'patroncards/edit-template'                => '/03_tools.html#templates',
 177     'patroncards/home'                         => '/03_tools.html#patron-card-creator',
 178     'patroncards/image-manage'                 => '/03_tools.html#manage-images',
 179     'patroncards/manage'                       => '/03_tools.html#patron-card-creator',
 180     'plugins/plugins-home'                     => '/14_plugins.html',
 181     'plugins/plugins-upload'                   => '/14_plugins.html',
 182     'reports/acquisitions_stats'               => '/11_reports.html#acquisitions-statistics',
 183     'reports/bor_issues_top'                   => '/11_reports.html#patrons-with-the-most-checkouts',
 184     'reports/borrowers_out'                    => '/11_reports.html#patrons-with-no-checkouts',
 185     'reports/borrowers_stats'                  => '/11_reports.html#patron-statistics',
 186     'reports/cat_issues_top'                   => '/11_reports.html#most-circulated-items',
 187     'reports/catalogue_out'                    => '/11_reports.html#items-with-no-checkouts',
 188     'reports/catalogue_stats'                  => '/11_reports.html#catalog-statistics',
 189     'reports/dictionary'                       => '/11_reports.html#report-dictionary',
 190     'reports/guided_reports'                   => '/11_reports.html#custom-reports',
 191     'reports/issues_avg_stats'                 => '/11_reports.html#average-loan-time',
 192     'reports/issues_stats'                     => '/11_reports.html#circulation-statistics',
 193     'reports/itemslost'                        => '/11_reports.html#lost-items',
 194     'reports/manager'                          => '/11_reports.html#catalog-by-item-type',
 195     'reports/reports-home'                     => '/11_reports.html',
 196     'reports/reserves_stats'                   => '/11_reports.html#holds-statistics',
 197     'reports/serials_stats'                    => '/11_reports.html#serials-statistics',
 198     'reserve/request'                          => '/05_circulation.html#holds',
 199     'reviews/reviewswaiting'                   => '/03_tools.html#comments',
 200     'rotating_collections/rotatingCollections' => '/03_tools.html#rotating-collections',
 201     'serials/checkexpiration'                  => '/08_serials.html#check-serial-expiration',
 202     'serials/claims'                           => '/08_serials.html#claim-late-serials',
 203     'serials/routing'                          => '/08_serials.html#create-a-routing-list',
 204     'serials/serials-collection'               => '/08_serials.html',
 205     'serials/serials-edit'                     => '/08_serials.html#receive-issues',
 206     'serials/serials-home'                     => '/08_serials.html',
 207     'serials/subscription-add'                 => '/08_serials.html#add-a-subscription',
 208     'serials/subscription-detail'              => '/08_serials.html',
 209     'serials/subscription-frequencies'         => '/08_serials.html#manage-serial-frequencies',
 210     'serials/subscription-numberpatterns'      => '/08_serials.html#manage-serial-numbering-patterns',
 211     'suggestion/suggestion'                    => '/09_acquisitions.html#managing-suggestions',
 212     'tags/list'                                => '/03_tools.html#tag-moderation',
 213     'tags/review'                              => '/03_tools.html#tag-moderation',
 214     'tools/batchMod'                           => '/03_tools.html#batch-item-deletion',
 215     'tools/batch_delete_records'               => '/03_tools.html#batch-record-deletion',
 216     'tools/batch_record_modification'          => '/03_tools.html#batch-record-modification',
 217     'tools/cleanborrowers'                     => '/03_tools.html#patrons-anonymize-bulk-delete',
 218     'tools/csv-profiles'                       => '/03_tools.html#csv-profiles',
 219     'tools/export'                             => '/03_tools.html#export-bibliographic-records',
 220     'tools/holidays'                           => '/03_tools.html#calendar',
 221     'tools/import_borrowers'                   => '/03_tools.html#patron-import',
 222     'tools/inventory'                          => '/03_tools.html#inventory-stocktaking',
 223     'tools/koha-news'                          => '/03_tools.html#news',
 224     'tools/letter'                             => '/03_tools.html#notices-slips',
 225     'tools/manage-marc-import'                 => '/03_tools.html#staged-marc-record-management',
 226     'tools/marc_modification_templates'        => '/03_tools.html#marc-modification-templates',
 227     'tools/modborrowers'                       => '/03_tools.html#batch-patron-modification',
 228     'tools/overduerules'                       => '/03_tools.html#overdue-notice-status-triggers',
 229     'tools/picture-upload'                     => '/03_tools.html#upload-patron-images',
 230     'tools/quotes-upload'                      => '/03_tools.html#import-quotes',
 231     'tools/quotes'                             => '/03_tools.html#quote-of-the-day-(qotd)-editor',
 232     'tools/scheduler'                          => '/03_tools.html#task-scheduler',
 233     'tools/stage-marc-import'                  => '/03_tools.html#stage-marc-records-for-import',
 234     'tools/tools-home'                         => '/03_tools.html',
 235     'tools/upload-cover-image'                 => '/03_tools.html#upload-local-cover-image',
 236     'tools/viewlog'                            => '/03_tools.html#log-viewer',
 237     'virtualshelves/shelves'                   => '/10_lists.html#lists',
 238 };
 239
 240 sub _get_manual_url {
 241     my $url = shift;
 242     my $file;
 243     if ($url =~ /koha\/(.*)\.pl/) {
 244         $file = $1;
 245     } else {
 246         $file = 'mainpage';
 247     }
 248     $file =~ s/[^a-zA-Z0-9_\-\/]*//g;
 249
 250     return $base_url . ( exists $mapping->{$file} ? $mapping->{$file} : $mapping->{mainpage} );
 251 }
 252
 253 my $manual_url = _get_manual_url($refer);
 254
 255 print $query->redirect($manual_url);