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

(-)a/C4/SIP/Sip/MsgType.pm (-2 / +2 lines)
Lines 310-316 sub new { Link Here
310
310
311
sub _initialize {
311
sub _initialize {
312
	my ($self, $msg, $control_block) = @_;
312
	my ($self, $msg, $control_block) = @_;
313
	my ($fs, $fn, $fe);
313
	my $fn;
314
	my $proto = $control_block->{protocol}->{$protocol_version};
314
	my $proto = $control_block->{protocol}->{$protocol_version};
315
315
316
	$self->{name}    = $control_block->{name};
316
	$self->{name}    = $control_block->{name};
Lines 931-937 sub handle_patron_info { Link Here
931
    my ($lang, $trans_date, $summary) = @{$self->{fixed_fields}};
931
    my ($lang, $trans_date, $summary) = @{$self->{fixed_fields}};
932
    my $fields = $self->{fields};
932
    my $fields = $self->{fields};
933
    my ($inst_id, $patron_id, $terminal_pwd, $patron_pwd, $start, $end);
933
    my ($inst_id, $patron_id, $terminal_pwd, $patron_pwd, $start, $end);
934
    my ($resp, $patron, $count);
934
    my ($resp, $patron);
935
935
936
    $inst_id      = $fields->{(FID_INST_ID)};
936
    $inst_id      = $fields->{(FID_INST_ID)};
937
    $patron_id    = $fields->{(FID_PATRON_ID)};
937
    $patron_id    = $fields->{(FID_PATRON_ID)};
(-)a/Koha/MetaSearcher.pm (-1 lines)
Lines 106-112 sub search { Link Here
106
    };
106
    };
107
    my $start = clock_gettime( CLOCK_MONOTONIC );
107
    my $start = clock_gettime( CLOCK_MONOTONIC );
108
    my $select = IO::Select->new;
108
    my $select = IO::Select->new;
109
    my @worker_fhs;
110
109
111
    my @cached_sets;
110
    my @cached_sets;
112
    my @servers;
111
    my @servers;
(-)a/Koha/QueryParser/Driver/PQF/Util.pm (-1 lines)
Lines 41-47 Convert a hashref with a Bib-1 mapping into its PQF string representation. Link Here
41
sub attributes_to_attr_string {
41
sub attributes_to_attr_string {
42
    my ($attributes) = @_;
42
    my ($attributes) = @_;
43
    my $attr_string = '';
43
    my $attr_string = '';
44
    my $value;
45
    foreach my $key ( sort keys %{$attributes} ) {
44
    foreach my $key ( sort keys %{$attributes} ) {
46
        next unless looks_like_number($key);
45
        next unless looks_like_number($key);
47
        $attr_string .= ' @attr ' . $key . '=' . $attributes->{ $key } . ' ';
46
        $attr_string .= ' @attr ' . $key . '=' . $attributes->{ $key } . ' ';
(-)a/Koha/QueryParser/Driver/PQF/query_plan/modifier.pm (-1 lines)
Lines 41-47 not have a reference to their parent query_plan. Link Here
41
sub target_syntax {
41
sub target_syntax {
42
    my ($self, $server, $query_plan) = @_;
42
    my ($self, $server, $query_plan) = @_;
43
    my $pqf = '';
43
    my $pqf = '';
44
    my @fields;
45
44
46
    my $attributes = $query_plan->QueryParser->bib1_mapping_by_name('modifier', $self->name, $server);
45
    my $attributes = $query_plan->QueryParser->bib1_mapping_by_name('modifier', $self->name, $server);
47
    $pqf = ($attributes->{'op'} ? $attributes->{'op'} . ' ' : '') . ($self->negate ? '@not @attr 1=_ALLRECORDS @attr 2=103 "" ' : '') . $attributes->{'attr_string'};
46
    $pqf = ($attributes->{'op'} ? $attributes->{'op'} . ' ' : '') . ($self->negate ? '@not @attr 1=_ALLRECORDS @attr 2=103 "" ' : '') . $attributes->{'attr_string'};
(-)a/Koha/Template/Plugin/Price.pm (-1 lines)
Lines 29-35 sub filter { Link Here
29
    my ( $self, $value, $args, $config ) = @_;
29
    my ( $self, $value, $args, $config ) = @_;
30
    $value ||= 0;
30
    $value ||= 0;
31
    $config->{on_editing} //= 0;
31
    $config->{on_editing} //= 0;
32
    my $formatted_price;
33
    return $config->{on_editing}
32
    return $config->{on_editing}
34
        ? Koha::Number::Price->new( $value )->format_for_editing
33
        ? Koha::Number::Price->new( $value )->format_for_editing
35
        : Koha::Number::Price->new( $value )->format;
34
        : Koha::Number::Price->new( $value )->format;
(-)a/acqui/basketheader.pl (-1 lines)
Lines 129-135 if ( $op eq 'add_form' ) { Link Here
129
    my $deliveryplace = $basket->{'deliveryplace'} || C4::Context->userenv->{"branch"};
129
    my $deliveryplace = $basket->{'deliveryplace'} || C4::Context->userenv->{"branch"};
130
130
131
    # Build the combobox to select the billing place
131
    # Build the combobox to select the billing place
132
    my @billingplaceloop;
133
132
134
    my $branches = C4::Branch::GetBranchesLoop( $billingplace );
133
    my $branches = C4::Branch::GetBranchesLoop( $billingplace );
135
    $template->param( billingplaceloop => $branches );
134
    $template->param( billingplaceloop => $branches );
(-)a/acqui/invoice.pl (-1 lines)
Lines 112-118 my $details = GetInvoiceDetails($invoiceid); Link Here
112
my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $details->{booksellerid} });
112
my $bookseller = Koha::Acquisition::Bookseller->fetch({ id => $details->{booksellerid} });
113
my @orders_loop = ();
113
my @orders_loop = ();
114
my $orders = $details->{'orders'};
114
my $orders = $details->{'orders'};
115
my $qty_total;
116
my @foot_loop;
115
my @foot_loop;
117
my %foot;
116
my %foot;
118
my $total_quantity = 0;
117
my $total_quantity = 0;
(-)a/acqui/spent.pl (-1 lines)
Lines 89-95 if ( $sth->err ) { Link Here
89
    die "An error occurred fetching records: " . $sth->errstr;
89
    die "An error occurred fetching records: " . $sth->errstr;
90
}
90
}
91
my $subtotal = 0;
91
my $subtotal = 0;
92
my $toggle;
93
my @spent;
92
my @spent;
94
while ( my $data = $sth->fetchrow_hashref ) {
93
while ( my $data = $sth->fetchrow_hashref ) {
95
    my $recv = $data->{'quantityreceived'};
94
    my $recv = $data->{'quantityreceived'};
(-)a/admin/aqplan.pl (-5 lines)
Lines 85-91 $template->param( Link Here
85
my $borrower_id         = $template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'};
85
my $borrower_id         = $template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'};
86
my $borrower_branchcode = $template->{VARS}->{'USER_INFO'}[0]->{'branchcode'};
86
my $borrower_branchcode = $template->{VARS}->{'USER_INFO'}[0]->{'branchcode'};
87
87
88
my $periods;
89
my $authcat      = $input->param('authcat');
88
my $authcat      = $input->param('authcat');
90
my $show_active  = $input->param('show_active');
89
my $show_active  = $input->param('show_active');
91
my $show_actual  = $input->param('show_actual');
90
my $show_actual  = $input->param('show_actual');
Lines 107-114 $authcat = 'Asort1' if not defined $authcat; # defaults to Asort if no authcat Link Here
107
my $budget_id = $input->param('budget_id');
106
my $budget_id = $input->param('budget_id');
108
my $op        = $input->param("op");
107
my $op        = $input->param("op");
109
108
110
my $budget_branchcode;
111
112
my $budgets_ref = GetBudgetHierarchy( $budget_period_id, $show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'branchcode'}:'', $show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'}:'' );
109
my $budgets_ref = GetBudgetHierarchy( $budget_period_id, $show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'branchcode'}:'', $show_mine?$template->{VARS}->{'USER_INFO'}[0]->{'borrowernumber'}:'' );
113
110
114
# build categories list
111
# build categories list
Lines 140-146 $template->param( authcat_dropbox => { Link Here
140
    });
137
    });
141
138
142
my @budgets = @$budgets_ref;
139
my @budgets = @$budgets_ref;
143
my $CGISort;
144
my @authvals;
140
my @authvals;
145
my %labels;
141
my %labels;
146
142
Lines 160-166 if ( $op eq 'save' ) { Link Here
160
    my %seen;
156
    my %seen;
161
    @buds        = grep { !$seen{$_}++ } @buds;
157
    @buds        = grep { !$seen{$_}++ } @buds;
162
    @auth_values = grep { !$seen{$_}++ } @auth_values;
158
    @auth_values = grep { !$seen{$_}++ } @auth_values;
163
    my @budget_ids;
164
    my @budget_lines;
159
    my @budget_lines;
165
160
166
    foreach my $budget (@buds) {
161
    foreach my $budget (@buds) {
(-)a/admin/auth_subfields_structure.pl (-1 lines)
Lines 273-279 if ($op eq 'add_form') { Link Here
273
	my @kohafield		= ''.$input->param('kohafield');
273
	my @kohafield		= ''.$input->param('kohafield');
274
	my @tab				= $input->param('tab');
274
	my @tab				= $input->param('tab');
275
	my @seealso		= $input->param('seealso');
275
	my @seealso		= $input->param('seealso');
276
	my @hidden;
277
	my @ohidden		= $input->param('ohidden');
276
	my @ohidden		= $input->param('ohidden');
278
	#my @ihidden		= $input->param('ihidden');
277
	#my @ihidden		= $input->param('ihidden');
279
	#my @ehidden		= $input->param('ehidden');
278
	#my @ehidden		= $input->param('ehidden');
(-)a/admin/koha2marclinks.pl (-1 lines)
Lines 64-70 my $cache = Koha::Cache->get_instance(); Link Here
64
################## ADD_FORM ##################################
64
################## ADD_FORM ##################################
65
# called by default. Used to create form to add or  modify a record
65
# called by default. Used to create form to add or  modify a record
66
if ( $op eq 'add_form' ) {
66
if ( $op eq 'add_form' ) {
67
    my $data;
68
    my $sth =
67
    my $sth =
69
      $dbh->prepare(
68
      $dbh->prepare(
70
"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=? AND frameworkcode=''"
69
"select tagfield,tagsubfield,liblibrarian as lib,tab from marc_subfield_structure where kohafield=? AND frameworkcode=''"
(-)a/admin/transport-cost-matrix.pl (-1 / +1 lines)
Lines 55-61 my @branchloop = map { code => $_, Link Here
55
                       name => $branches->{$_}->{'branchname'} },
55
                       name => $branches->{$_}->{'branchname'} },
56
                 sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
56
                 sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
57
                 keys %$branches;
57
                 keys %$branches;
58
my (@branchfromloop, @cost, @errors);
58
my (@branchfromloop, @errors);
59
foreach my $branchfrom ( @branchloop ) {
59
foreach my $branchfrom ( @branchloop ) {
60
    my $fromcode = $branchfrom->{code};
60
    my $fromcode = $branchfrom->{code};
61
61
(-)a/basket/basket.pl (-1 lines)
Lines 84-90 foreach my $biblionumber ( @bibs ) { Link Here
84
		}
84
		}
85
	}
85
	}
86
	# COinS format FIXME: for books Only
86
	# COinS format FIXME: for books Only
87
        my $coins_format;
88
        my $fmt = substr $record->leader(), 6,2;
87
        my $fmt = substr $record->leader(), 6,2;
89
        my $fmts;
88
        my $fmts;
90
        $fmts->{'am'} = 'book';
89
        $fmts->{'am'} = 'book';
(-)a/catalogue/MARCdetail.pl (-1 lines)
Lines 130-136 foreach my $thisframeworkcode ( keys %$frameworks ) { Link Here
130
$template->param( frameworkcodeloop => \@frameworkcodeloop, );
130
$template->param( frameworkcodeloop => \@frameworkcodeloop, );
131
# fill arrays
131
# fill arrays
132
my @loop_data = ();
132
my @loop_data = ();
133
my $tag;
134
133
135
# loop through each tab 0 through 9
134
# loop through each tab 0 through 9
136
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
135
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
(-)a/catalogue/search.pl (-2 lines)
Lines 484-490 my $expanded_facet = $params->{'expand'}; Link Here
484
# Define some global variables
484
# Define some global variables
485
my ( $error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$stopwords_removed,$query_type);
485
my ( $error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$stopwords_removed,$query_type);
486
486
487
my @results;
488
487
489
## I. BUILD THE QUERY
488
## I. BUILD THE QUERY
490
( $error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$stopwords_removed,$query_type) = buildQuery(\@operators,\@operands,\@indexes,\@limits,\@sort_by,$scan,$lang);
489
( $error,$query,$simple_query,$query_cgi,$query_desc,$limit,$limit_cgi,$limit_desc,$stopwords_removed,$query_type) = buildQuery(\@operators,\@operands,\@indexes,\@limits,\@sort_by,$scan,$lang);
Lines 526-532 $template->param ( LIMIT_INPUTS => \@limit_inputs ); Link Here
526
## II. DO THE SEARCH AND GET THE RESULTS
525
## II. DO THE SEARCH AND GET THE RESULTS
527
my $total; # the total results for the whole set
526
my $total; # the total results for the whole set
528
my $facets; # this object stores the faceted results that display on the left-hand of the results page
527
my $facets; # this object stores the faceted results that display on the left-hand of the results page
529
my @results_array;
530
my $results_hashref;
528
my $results_hashref;
531
529
532
eval {
530
eval {
(-)a/cataloguing/addbiblio.pl (-3 lines)
Lines 178-184 sub build_authorized_values_list { Link Here
178
          && !C4::Context->IsSuperLibrarian()
178
          && !C4::Context->IsSuperLibrarian()
179
          && C4::Context->userenv->{branch};
179
          && C4::Context->userenv->{branch};
180
        my $branches = GetBranches($onlymine);
180
        my $branches = GetBranches($onlymine);
181
        my @branchloop;
182
        foreach my $thisbranch ( sort keys %$branches ) {
181
        foreach my $thisbranch ( sort keys %$branches ) {
183
            push @authorised_values, $thisbranch;
182
            push @authorised_values, $thisbranch;
184
            $authorised_lib{$thisbranch} = $branches->{$thisbranch}->{'branchname'};
183
            $authorised_lib{$thisbranch} = $branches->{$thisbranch}->{'branchname'};
Lines 777-783 my ( Link Here
777
	$biblionumbertagsubfield,
776
	$biblionumbertagsubfield,
778
	$biblioitemnumtagfield,
777
	$biblioitemnumtagfield,
779
	$biblioitemnumtagsubfield,
778
	$biblioitemnumtagsubfield,
780
	$bibitem,
781
	$biblioitemnumber
779
	$biblioitemnumber
782
);
780
);
783
781
Lines 845-851 if ( $op eq "addbiblio" ) { Link Here
845
    my $confirm_not_duplicate = $input->param('confirm_not_duplicate');
843
    my $confirm_not_duplicate = $input->param('confirm_not_duplicate');
846
    # it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate)
844
    # it is not a duplicate (determined either by Koha itself or by user checking it's not a duplicate)
847
    if ( !$duplicatebiblionumber or $confirm_not_duplicate ) {
845
    if ( !$duplicatebiblionumber or $confirm_not_duplicate ) {
848
        my $oldbibnum;
849
        my $oldbibitemnum;
846
        my $oldbibitemnum;
850
        if (C4::Context->preference("BiblioAddsAuthorities")){
847
        if (C4::Context->preference("BiblioAddsAuthorities")){
851
            BiblioAutoLink( $record, $frameworkcode );
848
            BiblioAutoLink( $record, $frameworkcode );
(-)a/cataloguing/merge.pl (-1 lines)
Lines 121-127 if ($merge) { Link Here
121
            my @marcfields = $marcrecord->field($field->{tag});
121
            my @marcfields = $marcrecord->field($field->{tag});
122
            foreach my $marcfield (@marcfields) {
122
            foreach my $marcfield (@marcfields) {
123
                my $tag = $marcfield->tag();
123
                my $tag = $marcfield->tag();
124
                my %subfields;
125
                if (scalar @{$field->{subfields}}) {
124
                if (scalar @{$field->{subfields}}) {
126
                    foreach my $subfield (@{$field->{subfields}}) {
125
                    foreach my $subfield (@{$field->{subfields}}) {
127
                        my @values = $marcfield->subfield($subfield);
126
                        my @values = $marcfield->subfield($subfield);
(-)a/cataloguing/value_builder/macles.pl (-3 / +1 lines)
Lines 51-57 return ($function_name,$res); Link Here
51
51
52
sub plugin {
52
sub plugin {
53
my ($input) = @_;
53
my ($input) = @_;
54
	my %env;
55
54
56
#	my $input = new CGI;
55
#	my $input = new CGI;
57
	my $index= $input->param('index');
56
	my $index= $input->param('index');
Lines 62-69 my ($input) = @_; Link Here
62
    #tabs
61
    #tabs
63
    $rq->execute;
62
    $rq->execute;
64
    my @BIGLOOP;
63
    my @BIGLOOP;
65
    my @innerloop;
64
    my (%numbers,@lists,$table);
66
    my (%numbers,%cells,@colhdr,@rowhdr,@multiplelines,@lists,$table);
67
    while (my $tab = $rq->fetchrow_hashref){
65
    while (my $tab = $rq->fetchrow_hashref){
68
      my $number=substr($tab->{authorised_value},0,1);
66
      my $number=substr($tab->{authorised_value},0,1);
69
      if ($tab->{authorised_value}=~/[0-9]XX/){
67
      if ($tab->{authorised_value}=~/[0-9]XX/){
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-1 lines)
Lines 64-70 my $launcher = sub { Link Here
64
    $startfrom = 0 if ( !defined $startfrom );
64
    $startfrom = 0 if ( !defined $startfrom );
65
    my ( $template, $loggedinuser, $cookie );
65
    my ( $template, $loggedinuser, $cookie );
66
    my $resultsperpage;
66
    my $resultsperpage;
67
    my $searchdesc;
68
67
69
    if ( $op eq "fillinput" ) {
68
    if ( $op eq "fillinput" ) {
70
        my $biblionumber = $query->param('biblionumber');
69
        my $biblionumber = $query->param('biblionumber');
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-1 lines)
Lines 68-74 sub plugin { Link Here
68
    $startfrom = 0 if ( !defined $startfrom );
68
    $startfrom = 0 if ( !defined $startfrom );
69
    my ( $template, $loggedinuser, $cookie );
69
    my ( $template, $loggedinuser, $cookie );
70
    my $resultsperpage;
70
    my $resultsperpage;
71
    my $searchdesc;
72
71
73
    if ( $op eq "fillinput" ) {
72
    if ( $op eq "fillinput" ) {
74
        my $biblionumber = $query->param('biblionumber');
73
        my $biblionumber = $query->param('biblionumber');
(-)a/circ/branchtransfers.pl (-1 lines)
Lines 106-112 elsif ( $request eq 'KillReserved' ) { Link Here
106
106
107
# collect the stack of books already transfered so they can printed...
107
# collect the stack of books already transfered so they can printed...
108
my @trsfitemloop;
108
my @trsfitemloop;
109
my %transfereditems;
110
my $transfered;
109
my $transfered;
111
my $barcode = $query->param('barcode');
110
my $barcode = $query->param('barcode');
112
# strip whitespace
111
# strip whitespace
(-)a/circ/pendingreserves.pl (-13 lines)
Lines 53-71 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
53
    }
53
    }
54
);
54
);
55
55
56
my $duedate;
57
my $borrowernumber;
58
my $itemnum;
59
my $data1;
60
my $data2;
61
my $data3;
62
my $name;
63
my $phone;
64
my $email;
65
my $biblionumber;
66
my $title;
67
my $author;
68
69
my $today = dt_from_string;
56
my $today = dt_from_string;
70
$startdate =~ s/^\s+//;
57
$startdate =~ s/^\s+//;
71
$startdate =~ s/\s+$//;
58
$startdate =~ s/\s+$//;
(-)a/circ/waitingreserves.pl (-2 lines)
Lines 47-54 my $tbr = $input->param('tbr') || ''; Link Here
47
my $all_branches   = $input->param('allbranches') || '';
47
my $all_branches   = $input->param('allbranches') || '';
48
my $cancelall      = $input->param('cancelall');
48
my $cancelall      = $input->param('cancelall');
49
49
50
my $cancel;
51
52
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
50
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
53
    {
51
    {
54
        template_name   => "circ/waitingreserves.tt",
52
        template_name   => "circ/waitingreserves.tt",
(-)a/labels/label-item-search.pl (-2 / +2 lines)
Lines 53-59 my $ccl_query = $query->param('ccl_query'); Link Here
53
my $startfrom = $query->param('startfrom') || 1;
53
my $startfrom = $query->param('startfrom') || 1;
54
my ($template, $loggedinuser, $cookie) = (undef, undef, undef);
54
my ($template, $loggedinuser, $cookie) = (undef, undef, undef);
55
my (
55
my (
56
    $total_hits,  $orderby, $results,  $total,  $error,
56
    $total_hits,  $total,  $error,
57
    $marcresults, $idx,     $datefrom, $dateto, $ccl_textbox
57
    $marcresults, $idx,     $datefrom, $dateto, $ccl_textbox
58
);
58
);
59
my $resultsperpage = C4::Context->preference('numSearchResults') || '20';
59
my $resultsperpage = C4::Context->preference('numSearchResults') || '20';
Lines 174-180 if ($show_results) { Link Here
174
    );
174
    );
175
175
176
    # build page nav stuff.
176
    # build page nav stuff.
177
    my ( @field_data, @numbers );
177
    my @numbers;
178
    $total = $total_hits;
178
    $total = $total_hits;
179
179
180
    my ( $from, $to, $startfromnext, $startfromprev, $displaynext,
180
    my ( $from, $to, $startfromnext, $startfromprev, $displaynext,
(-)a/members/moremember.pl (-2 lines)
Lines 154-160 if ( IsDebarred($borrowernumber) ) { Link Here
154
154
155
$data->{ "sex_".$data->{'sex'}."_p" } = 1 if defined $data->{sex};
155
$data->{ "sex_".$data->{'sex'}."_p" } = 1 if defined $data->{sex};
156
156
157
my $catcode;
158
if ( $category_type eq 'C') {
157
if ( $category_type eq 'C') {
159
   my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
158
   my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
160
   my $cnt = scalar(@$catcodes);
159
   my $cnt = scalar(@$catcodes);
Lines 252-258 my $relatives_issues_count = Link Here
252
my $roadtype = C4::Koha::GetAuthorisedValueByCode( 'ROADTYPE', $data->{streettype} );
251
my $roadtype = C4::Koha::GetAuthorisedValueByCode( 'ROADTYPE', $data->{streettype} );
253
my $today       = DateTime->now( time_zone => C4::Context->tz);
252
my $today       = DateTime->now( time_zone => C4::Context->tz);
254
$today->truncate(to => 'day');
253
$today->truncate(to => 'day');
255
my @borrowers_with_issues;
256
my $overdues_exist = 0;
254
my $overdues_exist = 0;
257
my $totalprice = 0;
255
my $totalprice = 0;
258
256
(-)a/reserve/placerequest.pl (-1 lines)
Lines 92-98 if ($type eq 'str8' && $borrower){ Link Here
92
                $i2++;
92
                $i2++;
93
            }
93
            }
94
        }
94
        }
95
        my $const;
96
95
97
    if (defined $checkitem && $checkitem ne ''){
96
    if (defined $checkitem && $checkitem ne ''){
98
		my $item = GetItem($checkitem);
97
		my $item = GetItem($checkitem);
(-)a/reserve/request.pl (-3 lines)
Lines 47-53 use Koha::DateUtils; Link Here
47
use Koha::Borrower::Debarments qw(IsDebarred);
47
use Koha::Borrower::Debarments qw(IsDebarred);
48
48
49
my $dbh = C4::Context->dbh;
49
my $dbh = C4::Context->dbh;
50
my $sth;
51
my $input = new CGI;
50
my $input = new CGI;
52
my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
51
my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user(
53
    {
52
    {
Lines 140-146 if ($multihold) { Link Here
140
if ($borrowernumber_hold && !$action) {
139
if ($borrowernumber_hold && !$action) {
141
    my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold );
140
    my $borrowerinfo = GetMember( borrowernumber => $borrowernumber_hold );
142
    my $diffbranch;
141
    my $diffbranch;
143
    my @getreservloop;
144
142
145
    # we check the reserves of the borrower, and if he can reserv a document
143
    # we check the reserves of the borrower, and if he can reserv a document
146
    # FIXME At this time we have a simple count of reservs, but, later, we could improve the infos "title" ...
144
    # FIXME At this time we have a simple count of reservs, but, later, we could improve the infos "title" ...
Lines 283-289 foreach my $biblionumber (@biblionumbers) { Link Here
283
    # adding a fixed value for priority options
281
    # adding a fixed value for priority options
284
    my $fixedRank = $count+1;
282
    my $fixedRank = $count+1;
285
283
286
    my @branchcodes;
287
    my %itemnumbers_of_biblioitem;
284
    my %itemnumbers_of_biblioitem;
288
    my @itemnumbers;
285
    my @itemnumbers;
289
286
(-)a/serials/checkexpiration.pl (-1 lines)
Lines 113-119 if ($date) { Link Here
113
    );
113
    );
114
}
114
}
115
115
116
my $branchname;
117
my $branches_loop;
116
my $branches_loop;
118
if (  !C4::Context->preference("IndependentBranches")
117
if (  !C4::Context->preference("IndependentBranches")
119
    or C4::Context->IsSuperLibrarian()
118
    or C4::Context->IsSuperLibrarian()
(-)a/serials/subscription-add.pl (-2 lines)
Lines 42-48 my $op = $query->param('op') || ''; Link Here
42
my $dbh = C4::Context->dbh;
42
my $dbh = C4::Context->dbh;
43
my $sub_length;
43
my $sub_length;
44
44
45
my @budgets;
46
45
47
# Permission needed if it is a modification : edit_subscription
46
# Permission needed if it is a modification : edit_subscription
48
# Permission needed otherwise (nothing or dup) : create_subscription
47
# Permission needed otherwise (nothing or dup) : create_subscription
Lines 437-443 sub redirect_mod_subscription { Link Here
437
436
438
sub insert_additional_fields {
437
sub insert_additional_fields {
439
    my ( $additional_fields, $biblionumber, $subscriptionid ) = @_;
438
    my ( $additional_fields, $biblionumber, $subscriptionid ) = @_;
440
    my @additional_field_values;
441
    my $record = GetMarcBiblio( $biblionumber, 1 );
439
    my $record = GetMarcBiblio( $biblionumber, 1 );
442
    for my $field ( @$additional_fields ) {
440
    for my $field ( @$additional_fields ) {
443
        my $af = Koha::AdditionalField->new({ id => $field->{id} })->fetch;
441
        my $af = Koha::AdditionalField->new({ id => $field->{id} })->fetch;
(-)a/sms/sms_listen.pl (-3 lines)
Lines 10-18 use C4::Members; Link Here
10
use C4::Circulation;
10
use C4::Circulation;
11
11
12
my ($res,$ua);
12
my ($res,$ua);
13
my %commands;
14
my $message;
13
my $message;
15
my $phone;
16
my $result;
14
my $result;
17
my $errorcode;
15
my $errorcode;
18
my $smsid;
16
my $smsid;
19
- 

Return to bug 15258