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
use C4::CourseReserves qw(GetItemCourseReservesInfo);
45
use C4::CourseReserves qw(GetItemCourseReservesInfo);
Lines 215-221 foreach my $item (@items) { Link Here
215
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
216
    $item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) );
216
    my $copynumber = $item->{'copynumber'};
217
    my $copynumber = $item->{'copynumber'};
217
    $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
218
    $item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) );
218
    foreach (qw(ccode enumchron copynumber itemnotes uri)) {
219
    foreach (qw(ccode enumchron copynumber itemnotes uri booksellerid)) {
219
        $itemfields{$_} = 1 if ( $item->{$_} );
220
        $itemfields{$_} = 1 if ( $item->{$_} );
220
    }
221
    }
221
222
Lines 223-228 foreach my $item (@items) { Link Here
223
    my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($item->{itemnumber});
224
    my ($reservedate,$reservedfor,$expectedAt) = GetReservesFromItemnumber($item->{itemnumber});
224
    my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0);
225
    my $ItemBorrowerReserveInfo = GetMemberDetails( $reservedfor, 0);
225
    
226
    
227
    # checking for budget information
228
    my $budget = GetBudgetInfoFromItemnumber($item->{itemnumber});    
229
    $item->{budget_period_id}     = $budget->{'budget_period_id'};
230
    $item->{budget_name}     = $budget->{'budget_name'};
231
        
226
    if (C4::Context->preference('HidePatronName')){
232
    if (C4::Context->preference('HidePatronName')){
227
	$item->{'hidepatronname'} = 1;
233
	$item->{'hidepatronname'} = 1;
228
    }
234
    }
Lines 310-315 $template->param( Link Here
310
	itemdata_copynumber => $itemfields{copynumber},
316
	itemdata_copynumber => $itemfields{copynumber},
311
	volinfo				=> $itemfields{enumchron},
317
	volinfo				=> $itemfields{enumchron},
312
    itemdata_itemnotes  => $itemfields{itemnotes},
318
    itemdata_itemnotes  => $itemfields{itemnotes},
319
    itemdata_booksellerid => $itemfields{booksellerid},
313
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
320
	z3950_search_params	=> C4::Search::z3950_search_args($dat),
314
        hostrecords         => $hostrecords,
321
        hostrecords         => $hostrecords,
315
	analytics_flag	=> $analytics_flag,
322
	analytics_flag	=> $analytics_flag,
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt (-1 / +4 lines)
Lines 386-391 function verify_images() { Link Here
386
                [% IF ( hostrecords ) %]<th>Host records</th>[% END %]
386
                [% IF ( hostrecords ) %]<th>Host records</th>[% END %]
387
                [% IF ( analyze ) %]<th>Used in</th><th></th>[% END %]
387
                [% IF ( analyze ) %]<th>Used in</th><th></th>[% END %]
388
                [% IF ( ShowCourseReserves ) %]<th>Course Reserves</th>[% END %]
388
                [% IF ( ShowCourseReserves ) %]<th>Course Reserves</th>[% END %]
389
                [% IF ( itemdata_booksellerid ) %]<th>Budget information</th>[% END %]
389
            </tr>
390
            </tr>
390
        </thead>
391
        </thead>
391
        <tbody>
392
        <tbody>
Lines 554-559 function verify_images() { Link Here
554
                       [% END %]
555
                       [% END %]
555
                    </td>
556
                    </td>
556
                [% END %]
557
                [% END %]
558
                    [% IF ( itemdata_booksellerid ) %]
559
                        <td><a href="/cgi-bin/koha/admin/aqbudgets.pl?budget_period_id=[% item.budget_period_id %]" >[% item.budget_name %]</a></td>
560
                    [% END %]    
557
                </tr>
561
                </tr>
558
            [% END %]
562
            [% END %]
559
        </tbody>
563
        </tbody>
560
- 

Return to bug 10013