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

(-)a/C4/Accounts.pm (-1 / +1 lines)
Lines 295-301 sub chargelostitem{ Link Here
295
   
295
   
296
    my $dbh = C4::Context->dbh();
296
    my $dbh = C4::Context->dbh();
297
    my ($itemnumber) = @_;
297
    my ($itemnumber) = @_;
298
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title 
298
    my $sth=$dbh->prepare("SELECT issues.*,items.*,biblio.title,issues.renewals AS renewals,items.renewals AS totalrenewals
299
                           FROM issues 
299
                           FROM issues 
300
                           JOIN items USING (itemnumber) 
300
                           JOIN items USING (itemnumber) 
301
                           JOIN biblio USING (biblionumber)
301
                           JOIN biblio USING (biblionumber)
(-)a/C4/Circulation.pm (-3 / +5 lines)
Lines 1960-1966 sub GetItemIssue { Link Here
1960
    my ($itemnumber) = @_;
1960
    my ($itemnumber) = @_;
1961
    return unless $itemnumber;
1961
    return unless $itemnumber;
1962
    my $sth = C4::Context->dbh->prepare(
1962
    my $sth = C4::Context->dbh->prepare(
1963
        "SELECT *
1963
        "SELECT *,issues.renewals AS renewals,items.renewals AS totalrenewals
1964
        FROM issues 
1964
        FROM issues 
1965
        LEFT JOIN items ON issues.itemnumber=items.itemnumber
1965
        LEFT JOIN items ON issues.itemnumber=items.itemnumber
1966
        WHERE issues.itemnumber=?");
1966
        WHERE issues.itemnumber=?");
Lines 2011-2023 sub GetItemIssues { Link Here
2011
    my ( $itemnumber, $history ) = @_;
2011
    my ( $itemnumber, $history ) = @_;
2012
    
2012
    
2013
    my $today = C4::Dates->today('iso');  # get today date
2013
    my $today = C4::Dates->today('iso');  # get today date
2014
    my $sql = "SELECT * FROM issues 
2014
    my $sql = "SELECT *,issues.renewals AS renewals,items.renewals AS totalrenewals
2015
              FROM issues 
2015
              JOIN borrowers USING (borrowernumber)
2016
              JOIN borrowers USING (borrowernumber)
2016
              JOIN items     USING (itemnumber)
2017
              JOIN items     USING (itemnumber)
2017
              WHERE issues.itemnumber = ? ";
2018
              WHERE issues.itemnumber = ? ";
2018
    if ($history) {
2019
    if ($history) {
2019
        $sql .= "UNION ALL
2020
        $sql .= "UNION ALL
2020
                 SELECT * FROM old_issues 
2021
                 SELECT *,old_issues.renewals AS renewals,items.renewals AS totalrenewals
2022
                 FROM old_issues 
2021
                 LEFT JOIN borrowers USING (borrowernumber)
2023
                 LEFT JOIN borrowers USING (borrowernumber)
2022
                 JOIN items USING (itemnumber)
2024
                 JOIN items USING (itemnumber)
2023
                 WHERE old_issues.itemnumber = ? ";
2025
                 WHERE old_issues.itemnumber = ? ";
(-)a/C4/Overdues.pm (-1 / +2 lines)
Lines 166-172 Returns a count and a list of overdueitems for a given borrowernumber Link Here
166
sub checkoverdues {
166
sub checkoverdues {
167
    my $borrowernumber = shift or return;
167
    my $borrowernumber = shift or return;
168
    my $sth = C4::Context->dbh->prepare(
168
    my $sth = C4::Context->dbh->prepare(
169
        "SELECT * FROM issues
169
        "SELECT *,issues.renewals AS renewals,items.renewals AS totalrenewals
170
         FROM issues
170
         LEFT JOIN items       ON issues.itemnumber      = items.itemnumber
171
         LEFT JOIN items       ON issues.itemnumber      = items.itemnumber
171
         LEFT JOIN biblio      ON items.biblionumber     = biblio.biblionumber
172
         LEFT JOIN biblio      ON items.biblionumber     = biblio.biblionumber
172
         LEFT JOIN biblioitems ON items.biblioitemnumber = biblioitems.biblioitemnumber
173
         LEFT JOIN biblioitems ON items.biblioitemnumber = biblioitems.biblioitemnumber
(-)a/misc/cronjobs/advance_notices.pl (-2 / +2 lines)
Lines 123-129 my $due_digest; Link Here
123
123
124
my $dbh = C4::Context->dbh();
124
my $dbh = C4::Context->dbh();
125
my $sth = $dbh->prepare(<<'END_SQL');
125
my $sth = $dbh->prepare(<<'END_SQL');
126
SELECT biblio.*, items.*, issues.*
126
SELECT biblio.*, items.*, issues.*,issues.renewals AS renewals, items.renewals AS totalrenewals
127
  FROM issues,items,biblio
127
  FROM issues,items,biblio
128
  WHERE items.itemnumber=issues.itemnumber
128
  WHERE items.itemnumber=issues.itemnumber
129
    AND biblio.biblionumber=items.biblionumber
129
    AND biblio.biblionumber=items.biblionumber
Lines 231-237 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
231
# Now, run through all the people that want digests and send them
231
# Now, run through all the people that want digests and send them
232
232
233
$sth = $dbh->prepare(<<'END_SQL');
233
$sth = $dbh->prepare(<<'END_SQL');
234
SELECT biblio.*, items.*, issues.*
234
SELECT biblio.*, items.*, issues.*, ,issues.renewals AS renewals, items.renewals AS totalrenewals
235
  FROM issues,items,biblio
235
  FROM issues,items,biblio
236
  WHERE items.itemnumber=issues.itemnumber
236
  WHERE items.itemnumber=issues.itemnumber
237
    AND biblio.biblionumber=items.biblionumber
237
    AND biblio.biblionumber=items.biblionumber
(-)a/misc/cronjobs/overdue_notices.pl (-1 / +2 lines)
Lines 375-381 foreach my $branchcode (@branches) { Link Here
375
    $verbose and warn sprintf "branchcode : '%s' using %s\n", $branchcode, $admin_email_address;
375
    $verbose and warn sprintf "branchcode : '%s' using %s\n", $branchcode, $admin_email_address;
376
376
377
    my $sth2 = $dbh->prepare( <<'END_SQL' );
377
    my $sth2 = $dbh->prepare( <<'END_SQL' );
378
SELECT biblio.*, items.*, issues.*, biblioitems.itemtype, TO_DAYS(NOW())-TO_DAYS(date_due) AS days_overdue
378
SELECT biblio.*, items.*, issues.*, biblioitems.itemtype, TO_DAYS(NOW())-TO_DAYS(date_due) AS days_overdue,
379
       issues.renewals AS renewals, items.renewals AS totalrenewals
379
  FROM issues,items,biblio, biblioitems
380
  FROM issues,items,biblio, biblioitems
380
  WHERE items.itemnumber=issues.itemnumber
381
  WHERE items.itemnumber=issues.itemnumber
381
    AND biblio.biblionumber   = items.biblionumber
382
    AND biblio.biblionumber   = items.biblionumber
(-)a/tools/inventory.pl (-2 / +5 lines)
Lines 142-148 if ($uploadbarcodes && length($uploadbarcodes)>0){ Link Here
142
    my $dbh=C4::Context->dbh;
142
    my $dbh=C4::Context->dbh;
143
    my $date = format_date_in_iso($input->param('setdate')) || C4::Dates->today('iso');
143
    my $date = format_date_in_iso($input->param('setdate')) || C4::Dates->today('iso');
144
# 	warn "$date";
144
# 	warn "$date";
145
    my $strsth="select * from issues, items where items.itemnumber=issues.itemnumber and items.barcode =?";
145
    my $strsth="SELECT *,issues.renewals AS renewals,items.renewals AS totalrenewals
146
        FROM issues, items
147
        WHERE items.itemnumber=issues.itemnumber
148
        AND items.barcode =?
149
    ";
146
    my $qonloan = $dbh->prepare($strsth);
150
    my $qonloan = $dbh->prepare($strsth);
147
    $strsth="select * from items where items.barcode =? and items.wthdrawn = 1";
151
    $strsth="select * from items where items.barcode =? and items.wthdrawn = 1";
148
    my $qwthdrawn = $dbh->prepare($strsth);
152
    my $qwthdrawn = $dbh->prepare($strsth);
149
- 

Return to bug 6271