#!/usr/bin/perl
-# $Id$
#script to delete items
#written 2/5/00
use CGI;
use C4::Context;
use C4::Output;
-use C4::Circulation;
use C4::Auth;
use C4::Members;
my $member=$input->param('member');
my %member2;
$member2{'borrowernumber'}=$member;
-my $issues=GetBorrowerIssues(\%member2);
-my $i=0;
-foreach (sort keys %$issues) {
- $i++;
-}
+my ($countissues,$issues)=GetPendingIssues($member);
+
my ($bor,$flags)=GetMemberDetails($member,'');
if (C4::Context->preference("IndependantBranches")) {
my $userenv = C4::Context->userenv;
$sth->execute($member);
my $data=$sth->fetchrow_hashref;
$sth->finish;
-if ($i > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){
-warn"je suis rentre dans la boucle";
+if ($countissues > 0 or $flags->{'CHARGES'} or $data->{'borrowernumber'}){
+
my ($template, $borrowernumber, $cookie)
= get_template_and_user({template_name => "members/deletemem.tmpl",
query => $input,
});
# print $input->header;
$template->param(borrowernumber => $member);
- if ($i >0) {
- $template->param(ItemsOnIssues => $i);
+ if ($countissues >0) {
+ $template->param(ItemsOnIssues => $countissues);
}
if ($flags->{'CHARGES'} ne '') {
$template->param(charges => $flags->{'CHARGES'}->{'message'});
if ($data ne '') {
$template->param(guarantees => 1);
}
-# print "<table border=1>";
-# if ($i > 0){
-# print "<TR><TD>Items on Issue</td><td align=right>$i</td></tr>";
-# }
-# if ($flags->{'CHARGES'} ne ''){
-# print "<TR><TD>Charges</td><td>$flags->{'CHARGES'}->{'message'}</tr>";
-# }
-# if ($data ne ''){
-# print "<TR><TD>Guarantees</td></tr>";
-# }
-# print "</table>";
-$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
output_html_with_http_headers $input, $cookie, $template->output;
} else {