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

(-)a/C4/Circulation.pm (-4 / +4 lines)
Lines 790-796 sub CanBookBeIssued { Link Here
790
    #
790
    #
791
    if ( $patron->category->category_type eq 'X' && (  $item_object->barcode  )) {
791
    if ( $patron->category->category_type eq 'X' && (  $item_object->barcode  )) {
792
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
792
    	# stats only borrower -- add entry to statistics table, and return issuingimpossible{STATS} = 1  .
793
        &UpdateStats({
793
        C4::Stats::UpdateStats({
794
                     branch => C4::Context->userenv->{'branch'},
794
                     branch => C4::Context->userenv->{'branch'},
795
                     type => 'localuse',
795
                     type => 'localuse',
796
                     itemnumber => $item_object->itemnumber,
796
                     itemnumber => $item_object->itemnumber,
Lines 1631-1637 sub AddIssue { Link Here
1631
            }
1631
            }
1632
1632
1633
            # Record the fact that this book was issued.
1633
            # Record the fact that this book was issued.
1634
            &UpdateStats(
1634
            C4::Stats::UpdateStats(
1635
                {
1635
                {
1636
                    branch => C4::Context->userenv->{'branch'},
1636
                    branch => C4::Context->userenv->{'branch'},
1637
                    type => ( $onsite_checkout ? 'onsite_checkout' : 'issue' ),
1637
                    type => ( $onsite_checkout ? 'onsite_checkout' : 'issue' ),
Lines 2229-2235 sub AddReturn { Link Here
2229
    }
2229
    }
2230
2230
2231
    # Record the fact that this book was returned.
2231
    # Record the fact that this book was returned.
2232
    UpdateStats({
2232
    C4::Stats::UpdateStats({
2233
        branch         => $branch,
2233
        branch         => $branch,
2234
        type           => $stat_type,
2234
        type           => $stat_type,
2235
        itemnumber     => $itemnumber,
2235
        itemnumber     => $itemnumber,
Lines 3117-3123 sub AddRenewal { Link Here
3117
        }
3117
        }
3118
3118
3119
        # Add the renewal to stats
3119
        # Add the renewal to stats
3120
        UpdateStats(
3120
        C4::Stats::UpdateStats(
3121
            {
3121
            {
3122
                branch         => $item_object->renewal_branchcode({branch => $branch}),
3122
                branch         => $item_object->renewal_branchcode({branch => $branch}),
3123
                type           => 'renew',
3123
                type           => 'renew',
(-)a/C4/Stats.pm (-4 / +3 lines)
Lines 19-25 package C4::Stats; 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
use Modern::Perl;
21
use Modern::Perl;
22
require Exporter;
23
use Carp qw( croak );
22
use Carp qw( croak );
24
use C4::Context;
23
use C4::Context;
25
24
Lines 27-37 use Koha::DateUtils qw( dt_from_string ); Link Here
27
use Koha::Statistics;
26
use Koha::Statistics;
28
use Koha::PseudonymizedTransactions;
27
use Koha::PseudonymizedTransactions;
29
28
30
use vars qw(@ISA @EXPORT);
29
our (@ISA, @EXPORT_OK);
31
32
BEGIN {
30
BEGIN {
31
    require Exporter;
33
    @ISA    = qw(Exporter);
32
    @ISA    = qw(Exporter);
34
    @EXPORT = qw(
33
    @EXPORT_OK = qw(
35
      UpdateStats
34
      UpdateStats
36
    );
35
    );
37
}
36
}
(-)a/acqui/addorderiso2709.pl (-2 / +2 lines)
Lines 30-36 use Encode; Link Here
30
use C4::Context;
30
use C4::Context;
31
use C4::Auth qw( get_template_and_user );
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output qw( output_html_with_http_headers );
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches sub SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
33
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
34
use C4::Matcher;
34
use C4::Matcher;
35
use C4::Search qw( FindDuplicate );
35
use C4::Search qw( FindDuplicate );
36
use C4::Acquisition qw( populate_order_with_prices );
36
use C4::Acquisition qw( populate_order_with_prices );
Lines 41-47 use C4::Biblio qw( Link Here
41
    GetMarcQuantity
41
    GetMarcQuantity
42
    TransformHtmlToXml
42
    TransformHtmlToXml
43
);
43
);
44
use C4::Items qw( PrepareItemrecordDisplay sub AddItemFromMarc );
44
use C4::Items qw( PrepareItemrecordDisplay AddItemFromMarc );
45
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
45
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
46
use C4::Acquisition qw( populate_order_with_prices );
46
use C4::Acquisition qw( populate_order_with_prices );
47
use C4::Suggestions;    # GetSuggestion
47
use C4::Suggestions;    # GetSuggestion
(-)a/acqui/edimsg.pl (-1 / +1 lines)
Lines 19-25 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use CGI;
21
use CGI;
22
use Koha::Databas;
22
use Koha::Database;
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
(-)a/acqui/parcel.pl (-1 / +1 lines)
Lines 58-64 use Modern::Perl; Link Here
58
58
59
use C4::Auth qw( get_template_and_user );
59
use C4::Auth qw( get_template_and_user );
60
use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails get_rounded_price );
60
use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails get_rounded_price );
61
use C4::Budgets qw( _round GetBudget GetBudgetByOrderNumber GetBudgetName );
61
use C4::Budgets qw( GetBudget GetBudgetByOrderNumber GetBudgetName );
62
use CGI qw ( -utf8 );
62
use CGI qw ( -utf8 );
63
use C4::Output qw( output_html_with_http_headers );
63
use C4::Output qw( output_html_with_http_headers );
64
use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
64
use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
(-)a/misc/translator/VerboseWarnings.pm (-6 / +6 lines)
Lines 22-33 BEGIN { Link Here
22
    require Exporter;
22
    require Exporter;
23
    @ISA = qw(Exporter);
23
    @ISA = qw(Exporter);
24
    @EXPORT_OK = qw(
24
    @EXPORT_OK = qw(
25
        &pedantic_p
25
        pedantic_p
26
        &warn_additional
26
        warn_additional
27
        &warn_normal
27
        warn_normal
28
        &warn_pedantic
28
        warn_pedantic
29
        &error_additional
29
        error_additional
30
        &error_normal
30
        error_normal
31
    );
31
    );
32
}
32
}
33
33
(-)a/misc/translator/tmpl_process3.pl (-2 / +1 lines)
Lines 20-26 use File::Basename qw( fileparse ); Link Here
20
use Getopt::Long qw( GetOptions );
20
use Getopt::Long qw( GetOptions );
21
use Locale::PO;
21
use Locale::PO;
22
use TmplTokenizer;
22
use TmplTokenizer;
23
use VerboseWarnings qw( :warn :die );
23
use VerboseWarnings qw( pedantic_p warn_additional warn_normal warn_pedantic error_additional error_normal );
24
24
25
###############################################################################
25
###############################################################################
26
26
27
- 

Return to bug 17600