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

(-)a/serials/acqui-search-result.pl (-2 / +1 lines)
Lines 40-47 acqui-search-result.pl Link Here
40
=cut
40
=cut
41
41
42
42
43
use strict;
43
use Modern::Perl;
44
use warnings;
45
use C4::Auth;
44
use C4::Auth;
46
use C4::Biblio;
45
use C4::Biblio;
47
use C4::Output;
46
use C4::Output;
(-)a/serials/acqui-search.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
25
use C4::Output;
24
use C4::Output;
(-)a/serials/checkexpiration.pl (-2 / +1 lines)
Lines 42-49 The date to filter on. Link Here
42
42
43
=cut
43
=cut
44
44
45
use strict;
45
use Modern::Perl;
46
use warnings;
47
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
48
use C4::Auth;
47
use C4::Auth;
49
use C4::Serials; # GetExpirationDate
48
use C4::Serials; # GetExpirationDate
(-)a/serials/reorder_members.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# In this instance it is in fact a setting up of a list of reserves for the item
18
# In this instance it is in fact a setting up of a list of reserves for the item
19
# where the hierarchical order can be changed on the fly and a routing list can be
19
# where the hierarchical order can be changed on the fly and a routing list can be
20
# printed out
20
# printed out
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth qw( checkauth );
23
use C4::Auth qw( checkauth );
25
use C4::Serials qw( reorder_members );
24
use C4::Serials qw( reorder_members );
(-)a/serials/routing-preview.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# Routing Preview.pl script used to view a routing list after creation
18
# Routing Preview.pl script used to view a routing list after creation
19
# lets one print out routing slip and create (in this instance) the heirarchy
19
# lets one print out routing slip and create (in this instance) the heirarchy
20
# of reserves for the serial
20
# of reserves for the serial
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Koha;
23
use C4::Koha;
25
use C4::Auth;
24
use C4::Auth;
(-)a/serials/routing.pl (-2 / +1 lines)
Lines 25-32 printed out Link Here
25
25
26
=cut
26
=cut
27
27
28
use strict;
28
use Modern::Perl;
29
use warnings;
30
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
31
use C4::Koha;
30
use C4::Koha;
32
use C4::Auth;
31
use C4::Auth;
(-)a/serials/serials-collection.pl (-2 / +1 lines)
Lines 19-26 Link Here
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
21
22
use strict;
22
use Modern::Perl;
23
use warnings;
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use C4::Auth;
24
use C4::Auth;
26
use C4::Koha;
25
use C4::Koha;
(-)a/serials/serials-edit.pl (-2 / +1 lines)
Lines 61-68 op can be : Link Here
61
61
62
=cut
62
=cut
63
63
64
use strict;
64
use Modern::Perl;
65
use warnings;
66
use CGI qw ( -utf8 );
65
use CGI qw ( -utf8 );
67
use Encode qw( decode is_utf8 );
66
use Encode qw( decode is_utf8 );
68
use C4::Auth;
67
use C4::Auth;
(-)a/serials/subscription-add.pl (-2 / +1 lines)
Lines 15-22 Link Here
15
# You should have received a copy of the GNU General Public License
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>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
22
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
21
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
(-)a/serials/subscription-bib-search.pl (-2 / +1 lines)
Lines 46-53 to multipage gestion. Link Here
46
46
47
=cut
47
=cut
48
48
49
use strict;
49
use Modern::Perl;
50
use warnings;
51
50
52
use CGI qw ( -utf8 );
51
use CGI qw ( -utf8 );
53
use C4::Koha;
52
use C4::Koha;
(-)a/serials/subscription-renew.pl (-2 / +1 lines)
Lines 43-50 Id of the subscription this script has to renew Link Here
43
43
44
=cut
44
=cut
45
45
46
use strict;
46
use Modern::Perl;
47
use warnings;
48
47
49
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
50
use Carp;
49
use Carp;
(-)a/serials/viewalerts.pl (-3 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
25
use C4::Context;
24
use C4::Context;
26
- 

Return to bug 20015