my $datedue = $issue->[$i]{'date_due'};
$issue->[$i]{'date_due'} = C4::Dates->new($issue->[$i]{'date_due'},'iso')->output('syspref');
$issue->[$i]{'issuedate'} = C4::Dates->new($issue->[$i]{'issuedate'},'iso')->output('syspref');
+ my $biblionumber = $issue->[$i]{'biblionumber'};
my %row = %{ $issue->[$i] };
$totalprice += $issue->[$i]{'replacementprice'};
$row{'replacementprice'} = $issue->[$i]{'replacementprice'};
+ # item lost, damaged loops
+ if ($row{'itemlost'}) {
+ my $fw = GetFrameworkCode($issue->[$i]{'biblionumber'});
+ my $category = GetAuthValCode('items.itemlost',$fw);
+ my $lostdbh = C4::Context->dbh;
+ my $sth = $lostdbh->prepare("select lib from authorised_values where category=? and authorised_value =? ");
+ $sth->execute($category, $row{'itemlost'});
+ my $loststat = $sth->fetchrow;
+ if ($loststat) {
+ $row{'itemlost'} = $loststat;
+ }
+ }
+ if ($row{'damaged'}) {
+ my $fw = GetFrameworkCode($issue->[$i]{'biblionumber'});
+ my $category = GetAuthValCode('items.damaged',$fw);
+ my $damageddbh = C4::Context->dbh;
+ my $sth = $damageddbh->prepare("select lib from authorised_values where category=? and authorised_value =? ");
+ $sth->execute($category, $row{'damaged'});
+ my $damagedstat = $sth->fetchrow;
+ if ($damagedstat) {
+ $row{'itemdamaged'} = $damagedstat;
+ }
+ }
+ # end lost, damaged
if ( $datedue lt $today ) {
$overdues_exist = 1;
$row{'red'} = 1; #print "<font color=red>";
}
- $row{toggle} = $toggle++ % 2;
-
#find the charge for an item
my ( $charge, $itemtype ) =
GetIssuingCharges( $issue->[$i]{'itemnumber'}, $borrowernumber );
$_->{relatedto} = findrelatedto( $_->{type}, $_->{externalid} );
}
+my $candeleteuser;
+my $userenv = C4::Context->userenv;
+if($userenv->{flags} % 2 == 1){
+ $candeleteuser = 1;
+}elsif ( C4::Context->preference("IndependantBranches") ) {
+ $candeleteuser = ( $data->{'branchcode'} eq $userenv->{branch} );
+}else{
+ if( C4::Auth::getuserflags( $userenv->{flags},$userenv->{number})->{borrowers} ) {
+ $candeleteuser = 1;
+ }else{
+ $candeleteuser = 0;
+ }
+}
+
# check to see if patron's image exists in the database
# basically this gives us a template var to condition the display of
# patronimage related interface on
$template->param(
detailview => 1,
AllowRenewalLimitOverride => C4::Context->preference("AllowRenewalLimitOverride"),
-<<<<<<< HEAD:members/moremember.pl
DHTMLcalendar_dateformat=>C4::Dates->DHTMLcalendar(),
+ CANDELETEUSER => $candeleteuser,
roaddetails => $roaddetails,
borrowernumber => $borrowernumber,
categoryname => $data->{'description'},
is_child => ($category_type eq 'C'),
# reserveloop => \@reservedata,
dateformat => C4::Context->preference("dateformat"),
-=======
- DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
- roaddetails => $roaddetails,
- borrowernumber => $borrowernumber,
- categoryname => $data->{'description'},
- reregistration => $reregistration,
- branch => $branch,
- totalprice => sprintf("%.2f", $totalprice),
- totaldue => sprintf("%.2f", $total),
- totaldue_raw => $total,
- issueloop => \@issuedata,
- overdues_exist => $overdues_exist,
- error => $error,
- $error => 1,
- StaffMember => ($category_type eq 'S'),
- is_child => ($category_type eq 'C'),
-# reserveloop => \@reservedata,
- dateformat => C4::Context->preference("dateformat"),
- "dateformat_" . (C4::Context->preference("dateformat") || '') => 1,
- samebranch => $samebranch,
->>>>>>> 1be2c41... (bug #3284) fix borrower deletion in independantbranches mode:members/moremember.pl
);
output_html_with_http_headers $input, $cookie, $template->output;