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

(-)a/catalogue/MARCdetail.pl (-2 / +1 lines)
Lines 43-50 the items attached to the biblio Link Here
43
43
44
=cut
44
=cut
45
45
46
use strict;
46
use Modern::Perl;
47
#use warnings; FIXME - Bug 2505
48
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
49
use HTML::Entities;
48
use HTML::Entities;
50
49
(-)a/catalogue/export.pl (-2 / +1 lines)
Lines 1-6 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use strict;
2
use Modern::Perl;
3
#use warnings; FIXME - Bug 2505
4
3
5
use C4::Record;
4
use C4::Record;
6
use C4::Auth;
5
use C4::Auth;
(-)a/catalogue/image.pl (-2 / +1 lines)
Lines 23-30 Link Here
23
#
23
#
24
#
24
#
25
25
26
use strict;
26
use Modern::Perl;
27
use warnings;
28
27
29
use CGI qw ( -utf8 );    #qw(:standard escapeHTML);
28
use CGI qw ( -utf8 );    #qw(:standard escapeHTML);
30
use C4::Context;
29
use C4::Context;
(-)a/catalogue/imageviewer.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
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>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
(-)a/catalogue/issuehistory.pl (-2 / +1 lines)
Lines 16-23 Link Here
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
18
19
use strict;
19
use Modern::Perl;
20
#use warnings; FIXME - Bug 2505
21
20
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Auth;
22
use C4::Auth;
(-)a/catalogue/labeledMARCdetail.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
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>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use CGI qw ( -utf8 ); 
21
use CGI qw ( -utf8 ); 
23
use HTML::Entities;
22
use HTML::Entities;
24
use MARC::Record;
23
use MARC::Record;
(-)a/catalogue/moredetail.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; FIXME - Bug 2505
24
use C4::Koha;
23
use C4::Koha;
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use HTML::Entities;
25
use HTML::Entities;
(-)a/catalogue/search.pl (-2 / +1 lines)
Lines 132-139 Not yet completed... Link Here
132
132
133
=cut
133
=cut
134
134
135
use strict;            # always use
135
use Modern::Perl;
136
#use warnings; FIXME - Bug 2505
137
136
138
## STEP 1. Load things that are used in both search page and
137
## STEP 1. Load things that are used in both search page and
139
# results page and decide which template to load, operations 
138
# results page and decide which template to load, operations 
(-)a/catalogue/showmarc.pl (-2 / +1 lines)
Lines 20-27 Link Here
20
# with Koha; if not, write to the Free Software Foundation, Inc.,
20
# with Koha; if not, write to the Free Software Foundation, Inc.,
21
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22
22
23
use strict;
23
use Modern::Perl;
24
use warnings;
25
24
26
# standard or CPAN modules used
25
# standard or CPAN modules used
27
use CGI qw(:standard -utf8);
26
use CGI qw(:standard -utf8);
(-)a/catalogue/updateitem.pl (-3 / +1 lines)
Lines 17-24 Link Here
17
#
17
#
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
use strict; 
20
use Modern::Perl;
21
use warnings;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Auth;
22
use C4::Auth;
24
use C4::Context;
23
use C4::Context;
25
- 

Return to bug 19995