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

(-)a/C4/Items.pm (-1 / +1 lines)
Lines 547-553 sub ModItem { Link Here
547
    }
547
    }
548
548
549
    my $dbh           = @_ ? shift : C4::Context->dbh;
549
    my $dbh           = @_ ? shift : C4::Context->dbh;
550
    my $frameworkcode = @_ ? shift : GetFrameworkCode( $biblionumber );
550
    my $frameworkcode = @_ ? shift : C4::Biblio::GetFrameworkCode( $biblionumber );
551
    
551
    
552
    my $unlinked_item_subfields;  
552
    my $unlinked_item_subfields;  
553
    if (@_) {
553
    if (@_) {
(-)a/C4/Utils/DataTables/Members.pm (-1 / +1 lines)
Lines 3-9 package C4::Utils::DataTables::Members; Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use C4::Context;
4
use C4::Context;
5
use C4::Utils::DataTables;
5
use C4::Utils::DataTables;
6
use Koha::DateUtils;
6
use Koha::DateUtils qw( dt_from_string output_pref );
7
7
8
sub search {
8
sub search {
9
    my ( $params ) = @_;
9
    my ( $params ) = @_;
(-)a/Koha/Template/Plugin/AudioAlerts.pm (-1 lines)
Lines 25-31 use JSON; Link Here
25
use base qw( Template::Plugin );
25
use base qw( Template::Plugin );
26
26
27
use C4::Context;
27
use C4::Context;
28
use Koha;
29
28
30
sub AudioAlerts {
29
sub AudioAlerts {
31
    my $dbh = C4::Context->dbh;
30
    my $dbh = C4::Context->dbh;
(-)a/Koha/Template/Plugin/AuthorisedValues.pm (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use Template::Plugin;
21
use Template::Plugin;
22
use base qw( Template::Plugin );
22
use base qw( Template::Plugin );
23
23
24
use C4::Koha;
24
use C4::Koha qw( GetAuthorisedValues );
25
use Koha::AuthorisedValues;
25
use Koha::AuthorisedValues;
26
26
27
sub GetByCode {
27
sub GetByCode {
(-)a/svc/bib (-2 / +2 lines)
Lines 24-31 use warnings; Link Here
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Auth qw/check_api_auth/;
26
use C4::Auth qw/check_api_auth/;
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcBiblio ModBiblio DelBiblio GetMarcFromKohaField );
28
use C4::Items;
28
use C4::Items qw( ModItemFromMarc );
29
use XML::Simple;
29
use XML::Simple;
30
30
31
my $query = new CGI;
31
my $query = new CGI;
(-)a/svc/checkouts (-1 / +1 lines)
Lines 30-36 use C4::Overdues qw(GetFine); Link Here
30
use C4::Context;
30
use C4::Context;
31
31
32
use Koha::AuthorisedValues;
32
use Koha::AuthorisedValues;
33
use Koha::DateUtils;
33
use Koha::DateUtils qw( dt_from_string output_pref );
34
34
35
my $input = new CGI;
35
my $input = new CGI;
36
36
(-)a/svc/convert_report (-3 / +3 lines)
Lines 19-27 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Reports::Guided;
23
use C4::Reports::Guided qw( get_saved_report convert_sql );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
26
27
my $query  = CGI->new();
27
my $query  = CGI->new();
(-)a/svc/cover_images (-2 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth qw/check_cookie_auth/;
24
use C4::Auth qw/check_cookie_auth/;
25
use C4::Images;
25
use C4::Images qw( DelImage ListImagesForBiblio );
26
use JSON qw/to_json/;
26
use JSON qw/to_json/;
27
27
28
my $input = new CGI;
28
my $input = new CGI;
29
- 

Return to bug 17600