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

(-)a/C4/Acquisition.pm (+19 lines)
Lines 71-76 BEGIN { Link Here
71
        &ModInvoice
71
        &ModInvoice
72
        &CloseInvoice
72
        &CloseInvoice
73
        &ReopenInvoice
73
        &ReopenInvoice
74
        &GetBudgetInfoFromItemnumber
74
75
75
        &GetItemnumbersFromOrder
76
        &GetItemnumbersFromOrder
76
77
Lines 102-107 sub GetOrderFromItemnumber { Link Here
102
103
103
}
104
}
104
105
106
sub GetBudgetInfoFromItemnumber {
107
   my ($itemnumber) = @_;
108
   my $dbh          = C4::Context->dbh;
109
   my $query        = qq|
110
   
111
   SELECT aqorders_items.ordernumber, aqbudgets.budget_period_id, aqorders.budget_id, aqbudgets.budget_name, items.barcode
112
   FROM aqorders_items LEFT JOIN items ON items.itemnumber = aqorders_items.itemnumber
113
   LEFT JOIN aqorders ON aqorders.ordernumber = aqorders_items.ordernumber
114
   LEFT JOIN aqbudgets ON aqbudgets.budget_id = aqorders.budget_id 
115
   WHERE items.itemnumber = ? | ;
116
117
   my $sth = $dbh->prepare($query);
118
   $sth->execute($itemnumber);
119
   return $sth->fetchrow_hashref;
120
   
121
}
122
123
105
# Returns the itemnumber(s) associated with the ordernumber given in parameter
124
# Returns the itemnumber(s) associated with the ordernumber given in parameter
106
sub GetItemnumbersFromOrder {
125
sub GetItemnumbersFromOrder {
107
    my ($ordernumber) = @_;
126
    my ($ordernumber) = @_;
(-)a/catalogue/detail.pl (-1 / +8 lines)
Lines 39-44 use C4::Tags qw(get_tags); Link Here
39
use C4::VirtualShelves;
39
use C4::VirtualShelves;
40
use C4::XSLT;
40
use C4::XSLT;
41
use C4::Images;
41
use C4::Images;
42
use C4::Acquisition qw(GetBudgetInfoFromItemnumber);
42
use Koha::DateUtils;
43
use Koha::DateUtils;
43
use C4::HTML5Media;
44
use C4::HTML5Media;
44
45
Lines 214-220 foreach my $item (@items) { Link Here
214
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
215
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
215
    my $copynumber = $item->{'copynumber'};
216
    my $copynumber = $item->{'copynumber'};
216
    $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
217
    $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
217
    foreach (qw(ccode enumchron copynumber itemnotes uri)) {
218
    foreach (qw(ccode enumchron copynumber itemnotes uri booksellerid)) {
218
        $itemfields{$_} = 1 if ( $item->{$_} );
219
        $itemfields{$_} = 1 if ( $item->{$_} );
219
    }
220
    }
220
221
Lines 222-227 foreach my $item (@items) { Link Here
222
    my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($item->{itemnumber});
223
    my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($item->{itemnumber});
223
    my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0);
224
    my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0);
224
    
225
    
226
    # checking for budget information
227
    my $budget = GetBudgetInfoFromItemnumber($item->{itemnumber});    
228
    $item->{budget_period_id}     = $budget->{'budget_period_id'};
229
    $item->{budget_name}     = $budget->{'budget_name'};
230
        
225
    if (C4::Context->preference('HidePatronName')){
231
    if (C4::Context->preference('HidePatronName')){
226
	$item->{'hidepatronname'} = 1;
232
	$item->{'hidepatronname'} = 1;
227
    }
233
    }
Lines 305-310 $template->param( Link Here
305
	itemdata_copynumber => $itemfields{copynumber},
311
	itemdata_copynumber => $itemfields{copynumber},
306
	volinfo				=> $itemfields{enumchron},
312
	volinfo				=> $itemfields{enumchron},
307
    itemdata_itemnotes  => $itemfields{itemnotes},
313
    itemdata_itemnotes  => $itemfields{itemnotes},
314
    itemdata_booksellerid => $itemfields{booksellerid},
308
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
315
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
309
        hostrecords         => $hostrecords,
316
        hostrecords         => $hostrecords,
310
	analytics_flag	=> $analytics_flag,
317
	analytics_flag	=> $analytics_flag,
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt (-3 / +5 lines)
Lines 370-375 function verify_images() { Link Here
370
                [% IF ( SpineLabelShowPrintOnBibDetails ) %]<th>Spine label</th>[% END %]
370
                [% IF ( SpineLabelShowPrintOnBibDetails ) %]<th>Spine label</th>[% END %]
371
                [% IF ( hostrecords ) %]<th>Host records</th>[% END %]
371
                [% IF ( hostrecords ) %]<th>Host records</th>[% END %]
372
                [% IF ( analyze ) %]<th>Used in</th><th></th>[% END %]
372
                [% IF ( analyze ) %]<th>Used in</th><th></th>[% END %]
373
                [% IF ( itemdata_booksellerid ) %]<th>Budget information</th>[% END %]
373
            </tr>
374
            </tr>
374
        </thead>
375
        </thead>
375
        <tbody>
376
        <tbody>
Lines 520-527 function verify_images() { Link Here
520
                    [% END %]
521
                    [% END %]
521
                    [% IF ( analyze ) %]
522
                    [% IF ( analyze ) %]
522
                        <td><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?hostbiblionumber=[% item.biblionumber %]&amp;hostitemnumber=[% item.itemnumber %]">Create analytics</a></td>
523
                        <td><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?hostbiblionumber=[% item.biblionumber %]&amp;hostitemnumber=[% item.itemnumber %]">Create analytics</a></td>
523
                    [% END %]
524
                    [% END %] 
524
525
                    [% IF ( itemdata_booksellerid ) %]
526
                        <td><a href="/cgi-bin/koha/admin/aqbudgets.pl?budget_period_id=[% item.budget_period_id %]" >[% item.budget_name %]</a></td>
527
                    [% END %]    
525
                </tr>
528
                </tr>
526
            [% END %]
529
            [% END %]
527
        </tbody>
530
        </tbody>
528
- 

Return to bug 10013