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

(-)a/C4/Circulation.pm (-9 / +8 lines)
Lines 991-997 sub AddIssue { Link Here
991
    }
991
    }
992
	if ($borrower and $barcode and $barcodecheck ne '0'){#??? wtf
992
	if ($borrower and $barcode and $barcodecheck ne '0'){#??? wtf
993
		# find which item we issue
993
		# find which item we issue
994
		my $item = GetItem('', $barcode) or return undef;	# if we don't get an Item, abort.
994
		my $item = GetItem('', $barcode) or return;	# if we don't get an Item, abort.
995
		my $branch = _GetCircControlBranch($item,$borrower);
995
		my $branch = _GetCircControlBranch($item,$borrower);
996
		
996
		
997
		# get actual issuing if there is one
997
		# get actual issuing if there is one
Lines 1303-1309 sub GetIssuingRule { Link Here
1303
    return $irule if defined($irule) ;
1303
    return $irule if defined($irule) ;
1304
1304
1305
    # if no rule matches,
1305
    # if no rule matches,
1306
    return undef;
1306
    return;
1307
}
1307
}
1308
1308
1309
=head2 GetBranchBorrowerCircRule
1309
=head2 GetBranchBorrowerCircRule
Lines 2175-2181 tables issues and the firstname,surname & cardnumber from borrowers. Link Here
2175
2175
2176
sub GetBiblioIssues {
2176
sub GetBiblioIssues {
2177
    my $biblionumber = shift;
2177
    my $biblionumber = shift;
2178
    return undef unless $biblionumber;
2178
    return unless $biblionumber;
2179
    my $dbh   = C4::Context->dbh;
2179
    my $dbh   = C4::Context->dbh;
2180
    my $query = "
2180
    my $query = "
2181
        SELECT issues.*,items.barcode,biblio.biblionumber,biblio.title, biblio.author,borrowers.cardnumber,borrowers.surname,borrowers.firstname
2181
        SELECT issues.*,items.barcode,biblio.biblionumber,biblio.title, biblio.author,borrowers.cardnumber,borrowers.surname,borrowers.firstname
Lines 2353-2365 from the book's item type. Link Here
2353
=cut
2353
=cut
2354
2354
2355
sub AddRenewal {
2355
sub AddRenewal {
2356
    my $borrowernumber  = shift or return undef;
2356
    my $borrowernumber  = shift or return;
2357
    my $itemnumber      = shift or return undef;
2357
    my $itemnumber      = shift or return;
2358
    my $branch          = shift;
2358
    my $branch          = shift;
2359
    my $datedue         = shift;
2359
    my $datedue         = shift;
2360
    my $lastreneweddate = shift || DateTime->now(time_zone => C4::Context->tz)->ymd();
2360
    my $lastreneweddate = shift || DateTime->now(time_zone => C4::Context->tz)->ymd();
2361
    my $item   = GetItem($itemnumber) or return undef;
2361
    my $item   = GetItem($itemnumber) or return;
2362
    my $biblio = GetBiblioFromItemNumber($itemnumber) or return undef;
2362
    my $biblio = GetBiblioFromItemNumber($itemnumber) or return;
2363
2363
2364
    my $dbh = C4::Context->dbh;
2364
    my $dbh = C4::Context->dbh;
2365
    # Find the issues record for this book
2365
    # Find the issues record for this book
Lines 2380-2386 sub AddRenewal { Link Here
2380
    # based on the value of the RenewalPeriodBase syspref.
2380
    # based on the value of the RenewalPeriodBase syspref.
2381
    unless ($datedue) {
2381
    unless ($datedue) {
2382
2382
2383
        my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) or return undef;
2383
        my $borrower = C4::Members::GetMember( borrowernumber => $borrowernumber ) or return;
2384
        my $itemtype = (C4::Context->preference('item-level_itypes')) ? $biblio->{'itype'} : $biblio->{'itemtype'};
2384
        my $itemtype = (C4::Context->preference('item-level_itypes')) ? $biblio->{'itype'} : $biblio->{'itemtype'};
2385
2385
2386
        $datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ?
2386
        $datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ?
2387
- 

Return to bug 6679