| Lines 25-35
          use strict;
      
      
        Link Here | 
        
          | 25 | use CGI; | 25 | use CGI; | 
        
          | 26 | use C4::Output; | 26 | use C4::Output; | 
        
          | 27 | use C4::Auth qw/:DEFAULT get_session/; | 27 | use C4::Auth qw/:DEFAULT get_session/; | 
            
              | 28 | use C4::Dates qw/format_date/; |  |  | 
        
          | 29 | use C4::Branch; # GetBranches | 28 | use C4::Branch; # GetBranches | 
        
          | 30 | use C4::Koha;   # GetPrinter | 29 | use C4::Koha;   # GetPrinter | 
        
          | 31 | use C4::Circulation; | 30 | use C4::Circulation; | 
            
              | 32 | use C4::Overdues qw/CheckBorrowerDebarred/; |  |  | 
        
          | 33 | use C4::Members; | 31 | use C4::Members; | 
        
          | 34 | use C4::Biblio; | 32 | use C4::Biblio; | 
        
          | 35 | use C4::Reserves; | 33 | use C4::Reserves; | 
  
    | Lines 240-246
          if ($borrowernumber) {
      
      
        Link Here | 
        
          | 240 |             flagged  => "1", | 238 |             flagged  => "1", | 
        
          | 241 |             noissues => "1", | 239 |             noissues => "1", | 
        
          | 242 |             expired => "1", | 240 |             expired => "1", | 
          
            
              | 243 |             renewaldate => format_date("$renew_year-$renew_month-$renew_day") | 241 |             renewaldate => "$renew_year-$renew_month-$renew_day", | 
        
          | 244 |         ); | 242 |         ); | 
        
          | 245 |     } | 243 |     } | 
        
          | 246 |     # check for NotifyBorrowerDeparture | 244 |     # check for NotifyBorrowerDeparture | 
  
    | Lines 249-255
          if ($borrowernumber) {
      
      
        Link Here | 
        
          | 249 |             Date_to_Days( $today_year, $today_month, $today_day ) )  | 247 |             Date_to_Days( $today_year, $today_month, $today_day ) )  | 
        
          | 250 |     { | 248 |     { | 
        
          | 251 |         # borrower card soon to expire warn librarian | 249 |         # borrower card soon to expire warn librarian | 
          
            
              | 252 |         $template->param("warndeparture" => format_date($borrower->{dateexpiry}), | 250 |         $template->param("warndeparture" => $borrower->{dateexpiry}, | 
        
          | 253 |         flagged       => "1",); | 251 |         flagged       => "1",); | 
        
          | 254 |         if (C4::Context->preference('ReturnBeforeExpiry')){ | 252 |         if (C4::Context->preference('ReturnBeforeExpiry')){ | 
        
          | 255 |             $template->param("returnbeforeexpiry" => 1); | 253 |             $template->param("returnbeforeexpiry" => 1); | 
  
    | Lines 261-272
          if ($borrowernumber) {
      
      
        Link Here | 
        
          | 261 |         finetotal    => $fines | 259 |         finetotal    => $fines | 
        
          | 262 |     ); | 260 |     ); | 
        
          | 263 |  | 261 |  | 
          
            
              | 264 |     my $debar = CheckBorrowerDebarred($borrowernumber); | 262 |     my $debar = $borrower->{debarred}; | 
        
          | 265 |     if ($debar) { | 263 |     if ($debar) { | 
        
          | 266 |         $template->param( 'userdebarred'    => 1 ); | 264 |         $template->param( 'userdebarred'    => 1 ); | 
        
          | 267 |         $template->param( 'debarredcomment' => $borrower->{debarredcomment} ); | 265 |         $template->param( 'debarredcomment' => $borrower->{debarredcomment} ); | 
        
          | 268 |         if ( $debar ne "9999-12-31" ) { | 266 |         if ( $debar ne "9999-12-31" ) { | 
          
            
              | 269 |             $template->param( 'userdebarreddate' => C4::Dates::format_date($debar) ); | 267 |             $template->param( 'userdebarreddate' => $debar ); | 
        
          | 270 |         } | 268 |         } | 
        
          | 271 |     } | 269 |     } | 
        
          | 272 |  | 270 |  | 
  
    | Lines 348-354
          if ($borrowernumber) {
      
      
        Link Here | 
        
          | 348 |         $getreserv{transfered}    = 0; | 346 |         $getreserv{transfered}    = 0; | 
        
          | 349 |         $getreserv{nottransfered} = 0; | 347 |         $getreserv{nottransfered} = 0; | 
        
          | 350 |  | 348 |  | 
          
            
              | 351 |         $getreserv{reservedate}    = format_date( $num_res->{'reservedate'} ); | 349 |         $getreserv{reservedate}    = $num_res->{'reservedate'}; | 
        
          | 352 |         $getreserv{reservenumber}  = $num_res->{'reservenumber'}; | 350 |         $getreserv{reservenumber}  = $num_res->{'reservenumber'}; | 
        
          | 353 |         $getreserv{title}          = $getiteminfo->{'title'}; | 351 |         $getreserv{title}          = $getiteminfo->{'title'}; | 
        
          | 354 |         $getreserv{itemtype}       = $itemtypeinfo->{'description'}; | 352 |         $getreserv{itemtype}       = $itemtypeinfo->{'description'}; | 
  
    | Lines 366-372
          if ($borrowernumber) {
      
      
        Link Here | 
        
          | 366 |         $getWaitingReserveInfo{biblionumber} = $getiteminfo->{'biblionumber'}; | 364 |         $getWaitingReserveInfo{biblionumber} = $getiteminfo->{'biblionumber'}; | 
        
          | 367 |         $getWaitingReserveInfo{itemtype}     = $itemtypeinfo->{'description'}; | 365 |         $getWaitingReserveInfo{itemtype}     = $itemtypeinfo->{'description'}; | 
        
          | 368 |         $getWaitingReserveInfo{author}       = $getiteminfo->{'author'}; | 366 |         $getWaitingReserveInfo{author}       = $getiteminfo->{'author'}; | 
          
            
              | 369 |         $getWaitingReserveInfo{reservedate}  = format_date( $num_res->{'reservedate'} ); | 367 |         $getWaitingReserveInfo{reservedate}  = $num_res->{'reservedate'}; | 
        
          | 370 |         $getWaitingReserveInfo{waitingat}    = GetBranchName( $num_res->{'branchcode'} ); | 368 |         $getWaitingReserveInfo{waitingat}    = GetBranchName( $num_res->{'branchcode'} ); | 
        
          | 371 |         $getWaitingReserveInfo{waitinghere}  = 1 if $num_res->{'branchcode'} eq $branch; | 369 |         $getWaitingReserveInfo{waitinghere}  = 1 if $num_res->{'branchcode'} eq $branch; | 
        
          | 372 |         } | 370 |         } | 
  
    | Lines 374-380
          if ($borrowernumber) {
      
      
        Link Here | 
        
          | 374 |         if ($transfertwhen) { | 372 |         if ($transfertwhen) { | 
        
          | 375 |             $getreserv{color}      = 'transfered'; | 373 |             $getreserv{color}      = 'transfered'; | 
        
          | 376 |             $getreserv{transfered} = 1; | 374 |             $getreserv{transfered} = 1; | 
          
            
              | 377 |             $getreserv{datesent}   = format_date($transfertwhen); | 375 |             $getreserv{datesent}   = $transfertwhen; | 
        
          | 378 |             $getreserv{frombranch} = GetBranchName($transfertfrom); | 376 |             $getreserv{frombranch} = GetBranchName($transfertfrom); | 
        
          | 379 |         } elsif ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'}) { | 377 |         } elsif ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'}) { | 
        
          | 380 |             $getreserv{nottransfered}   = 1; | 378 |             $getreserv{nottransfered}   = 1; | 
  
    | Lines 445-459
          sub build_issue_data {
      
      
        Link Here | 
        
          | 445 |         $it->{'can_renew'} = $can_renew; | 443 |         $it->{'can_renew'} = $can_renew; | 
        
          | 446 |         $it->{'can_confirm'} = !$can_renew && !$restype; | 444 |         $it->{'can_confirm'} = !$can_renew && !$restype; | 
        
          | 447 |         $it->{'renew_error'} = $restype; | 445 |         $it->{'renew_error'} = $restype; | 
          
            
              | 448 |         $it->{'checkoutdate'} = C4::Dates->new($it->{'issuedate'},'iso')->output('syspref'); | 446 |         $it->{'checkoutdate'} = $it->{'issuedate'}; | 
            
              |  |  | 447 |         $it->{'duedate'} = $it->{'date_due'}; | 
            
              | 448 |         $it->{'od'} = ( $it->{'date_due'} lt $todaysdate ) ? 1 : 0 ; | 
        
          | 449 |         $it->{'issuingbranchname'} = GetBranchName($it->{'branchcode'}); | 449 |         $it->{'issuingbranchname'} = GetBranchName($it->{'branchcode'}); | 
        
          | 450 |  | 450 |  | 
        
          | 451 |         $totalprice += $it->{'replacementprice'}; | 451 |         $totalprice += $it->{'replacementprice'}; | 
        
          | 452 |         $it->{'itemtype'} = $itemtypeinfo->{'description'}; | 452 |         $it->{'itemtype'} = $itemtypeinfo->{'description'}; | 
        
          | 453 |         $it->{'itemtype_image'} = $itemtypeinfo->{'imageurl'}; | 453 |         $it->{'itemtype_image'} = $itemtypeinfo->{'imageurl'}; | 
            
              | 454 |         $it->{'dd'} = format_date($it->{'date_due'}); |  |  | 
            
              | 455 |         $it->{'displaydate'} = format_date($it->{'issuedate'}); | 
            
              | 456 |         $it->{'od'} = ( $it->{'date_due'} lt $todaysdate ) ? 1 : 0 ; | 
        
          | 457 |         ($it->{'author'} eq '') and $it->{'author'} = ' '; | 454 |         ($it->{'author'} eq '') and $it->{'author'} = ' '; | 
        
          | 458 |         $it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; | 455 |         $it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; | 
        
          | 459 |  | 456 |  | 
  
    | Lines 667-674
          $template->param(
      
      
        Link Here | 
        
          | 667 |     surname           => $borrower->{'surname'}, | 664 |     surname           => $borrower->{'surname'}, | 
        
          | 668 |     showname          => $borrower->{'showname'}, | 665 |     showname          => $borrower->{'showname'}, | 
        
          | 669 |     category_type     => $borrower->{'category_type'}, | 666 |     category_type     => $borrower->{'category_type'}, | 
          
            
              | 670 |     dateexpiry        => format_date($newexpiry), | 667 |     dateexpiry        => $newexpiry, | 
            
              | 671 |     expiry            => format_date($borrower->{'dateexpiry'}), | 668 |     expiry            => $borrower->{'dateexpiry'}, | 
        
          | 672 |     categorycode      => $borrower->{'categorycode'}, | 669 |     categorycode      => $borrower->{'categorycode'}, | 
        
          | 673 |     categoryname      => $borrower->{description}, | 670 |     categoryname      => $borrower->{description}, | 
        
          | 674 |     address           => $address, | 671 |     address           => $address, |