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

(-)a/cataloguing/addbiblio.pl (-1 / +2 lines)
Lines 19-25 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use strict;
22
use Modern::Perl;
23
23
#use warnings; FIXME - Bug 2505
24
#use warnings; FIXME - Bug 2505
24
use CGI q(-utf8);
25
use CGI q(-utf8);
25
use C4::Output;
26
use C4::Output;
(-)a/cataloguing/addbooks.pl (-2 / +2 lines)
Lines 24-31 Link Here
24
24
25
=cut
25
=cut
26
26
27
use strict;
27
use Modern::Perl;
28
use warnings;
28
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Auth;
30
use C4::Auth;
31
use C4::Biblio;
31
use C4::Biblio;
(-)a/cataloguing/additem.pl (-1 / +2 lines)
Lines 19-25 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use strict;
22
use Modern::Perl;
23
23
#use warnings; FIXME - Bug 2505
24
#use warnings; FIXME - Bug 2505
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
25
use C4::Auth;
26
use C4::Auth;
(-)a/cataloguing/linkitem.pl (-1 / +2 lines)
Lines 19-25 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use strict;
22
use Modern::Perl;
23
23
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
24
use C4::Auth;
25
use C4::Auth;
25
use C4::Output;
26
use C4::Output;
(-)a/cataloguing/moveitem.pl (-1 / +2 lines)
Lines 19-25 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use strict;
22
use Modern::Perl;
23
23
#use warnings; FIXME - Bug 2505
24
#use warnings; FIXME - Bug 2505
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
25
use C4::Auth;
26
use C4::Auth;
(-)a/cataloguing/value_builder/normarc_field_007.pl (-1 / +1 lines)
Lines 17-23 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 C4::Auth;
21
use C4::Auth;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
(-)a/cataloguing/value_builder/normarc_field_008.pl (-1 / +1 lines)
Lines 17-23 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 C4::Auth;
21
use C4::Auth;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
(-)a/cataloguing/value_builder/normarc_leader.pl (-1 / +2 lines)
Lines 18-24 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
22
use C4::Auth;
23
use C4::Auth;
23
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
24
use C4::Context;
25
use C4::Context;
(-)a/cataloguing/value_builder/unimarc_field_010.pl (-2 / +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 C4::Auth;
22
use C4::Auth;
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use C4::Context;
24
use C4::Context;
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use Date::Calc qw( Today );
23
use Date::Calc qw( Today );
24
24
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
24
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
24
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
24
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
24
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_116.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
24
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_117.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_120.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_122.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
24
use C4::Auth;
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
24
use C4::Auth;
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
24
use C4::Auth;
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
24
use C4::Auth;
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
24
use C4::Auth;
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-1 / +2 lines)
Lines 18-24 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
22
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
24
use C4::Auth;
24
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_125.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_130.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/value_builder/unimarc_field_141.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
use C4::Auth;
23
use C4::Auth;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-3 / +1 lines)
Lines 18-26 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
24
use C4::AuthoritiesMarc;
22
use C4::AuthoritiesMarc;
25
use C4::Auth;
23
use C4::Auth;
26
use C4::Context;
24
use C4::Context;
(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-1 / +1 lines)
Lines 38-44 It need : Link Here
38
38
39
=cut
39
=cut
40
40
41
use strict;
41
use Modern::Perl;
42
42
43
#use warnings; FIXME - Bug 2505
43
#use warnings; FIXME - Bug 2505
44
use C4::Auth;
44
use C4::Auth;
(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-1 / +1 lines)
Lines 39-45 It need : Link Here
39
39
40
=cut
40
=cut
41
41
42
use strict;
42
use Modern::Perl;
43
#use warnings; FIXME - Bug 2505
43
#use warnings; FIXME - Bug 2505
44
use C4::Auth;
44
use C4::Auth;
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-1 / +1 lines)
Lines 17-23 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; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Auth;
22
use C4::Auth;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-1 / +1 lines)
Lines 19-25 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use strict;
22
use Modern::Perl;
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
use C4::Auth;
24
use C4::Auth;
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/cataloguing/value_builder/unimarc_leader.pl (-1 / +1 lines)
Lines 18-24 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; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
(-)a/cataloguing/z3950_auth_search.pl (-2 / +2 lines)
Lines 16-23 Link Here
16
# You should have received a copy of the GNU General Public License along
16
# You should have received a copy of the GNU General Public License along
17
# with Koha; if not, see <http://www.gnu.org/licenses>.
17
# with Koha; if not, see <http://www.gnu.org/licenses>.
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
20
21
use CGI qw / -utf8 /;
21
use CGI qw / -utf8 /;
22
22
23
use C4::Auth;
23
use C4::Auth;
(-)a/cataloguing/z3950_search.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
23
25
use C4::Auth;
24
use C4::Auth;
26
- 

Return to bug 19996