View | Details | Raw Unified | Return to bug 39712
Collapse All | Expand All

(-)a/Koha/Manual.pm (-1 / +46 lines)
Lines 1-9 Link Here
1
package Koha::Manual;
1
package Koha::Manual;
2
2
3
# This file is part of Koha.
4
#
5
# Koha is free software; you can redistribute it and/or modify it
6
# under the terms of the GNU General Public License as published by
7
# the Free Software Foundation; either version 3 of the License, or
8
# (at your option) any later version.
9
#
10
# Koha is distributed in the hope that it will be useful, but
11
# WITHOUT ANY WARRANTY; without even the implied warranty of
12
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13
# GNU General Public License for more details.
14
#
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
3
use Modern::Perl;
18
use Modern::Perl;
4
19
5
use C4::Context;
20
use C4::Context;
6
21
22
=head1 NAME
23
24
Koha::Manual - Build links to the documentation
25
26
=head1 API
27
28
=head2 Class Methods
29
30
=head3 _get_help_version
31
32
Return the version to use.
33
Either the system preference "Version", or the last version.major value if using unstable.
34
35
=cut
36
7
sub _get_help_version {
37
sub _get_help_version {
8
    my $help_version = C4::Context->preference("Version");
38
    my $help_version = C4::Context->preference("Version");
9
    if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) {
39
    if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) {
Lines 16-21 sub _get_help_version { Link Here
16
    return $help_version;
46
    return $help_version;
17
}
47
}
18
48
49
=head3 _get_base_url
50
51
Return the base URL to use.
52
53
Use system preferences 'KohaManualLanguage' and 'KohaManualBaseURL' to properly build the URL.
54
55
=cut
56
19
sub _get_base_url {
57
sub _get_base_url {
20
    my ($preferred_language) = @_;
58
    my ($preferred_language) = @_;
21
59
Lines 314-319 our $mapping = { Link Here
314
    'virtualshelves/shelves'            => '/lists.html#lists',
352
    'virtualshelves/shelves'            => '/lists.html#lists',
315
};
353
};
316
354
355
=head3 get_url
356
357
    my $koha_manual_url = Koha::Manual::get_url($referer, $lang);
358
359
Return the external URL to the manual for the I<$url> passed in parameter
360
361
=cut
362
317
sub get_url {
363
sub get_url {
318
    my ( $url, $preferred_language ) = @_;
364
    my ( $url, $preferred_language ) = @_;
319
    my $file;
365
    my $file;
320
- 

Return to bug 39712