| 
      
            Lines 482-488
          sub build_issue_data {
      
      
        Link Here
      
     | 
  
        
          | 482 | 
                  ($it->{'charge'}, $it->{'itemtype_charge'}) = GetIssuingCharges( | 
          482 | 
                  ($it->{'charge'}, $it->{'itemtype_charge'}) = GetIssuingCharges( | 
        
        
          | 483 | 
                      $it->{'itemnumber'}, $it->{'borrowernumber'} | 
          483 | 
                      $it->{'itemnumber'}, $it->{'borrowernumber'} | 
        
        
          | 484 | 
                  );  | 
          484 | 
                  );  | 
        
          
            
              | 485 | 
                      $it->{'charge'} = sprintf("%.2f", $it->{'charge'}); | 
              485 | 
                      $it->{'charge'} = sprintf("%.2f", $it->{'charge'}) if defined $it->{'charge'}; | 
            
        
          | 486 | 
                  my ($can_renew, $can_renew_error) = CanBookBeRenewed(   | 
          486 | 
                  my ($can_renew, $can_renew_error) = CanBookBeRenewed(   | 
        
        
          | 487 | 
                      $it->{'borrowernumber'},$it->{'itemnumber'} | 
          487 | 
                      $it->{'borrowernumber'},$it->{'itemnumber'} | 
        
        
          | 488 | 
                  );  | 
          488 | 
                  );  | 
        
  
    | 
      
            Lines 650-656
          $amountold =~ s/^.*\$//;    # remove upto the $, if any
      
      
        Link Here
      
     | 
  
        
          | 650 | 
           | 
          650 | 
           | 
        
        
          | 651 | 
          my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );  | 
          651 | 
          my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );  | 
        
        
          | 652 | 
           | 
          652 | 
           | 
        
          
            
              | 653 | 
              if ( $borrower->{'category_type'} eq 'C') { | 
              653 | 
              if ( $borrower->{'category_type'} && $borrower->{'category_type'} eq 'C') { | 
            
        
          | 654 | 
              my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );  | 
          654 | 
              my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );  | 
        
        
          | 655 | 
              my $cnt = scalar(@$catcodes);  | 
          655 | 
              my $cnt = scalar(@$catcodes);  | 
        
        
          | 656 | 
              $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;  | 
          656 | 
              $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;  | 
        
  
    | 
      
            Lines 748-754
          $template->param(
      
      
        Link Here
      
     | 
  
        
          | 748 | 
              inprocess         => $inprocess,  | 
          748 | 
              inprocess         => $inprocess,  | 
        
        
          | 749 | 
              memberofinstution => $member_of_institution,  | 
          749 | 
              memberofinstution => $member_of_institution,  | 
        
        
          | 750 | 
              CGIorganisations  => $CGIorganisations,  | 
          750 | 
              CGIorganisations  => $CGIorganisations,  | 
        
          
            
              | 751 | 
                  is_child          => ($borrower->{'category_type'} eq 'C'), | 
              751 | 
                  is_child          => ($borrower->{'category_type'} && $borrower->{'category_type'} eq 'C'), | 
            
        
          | 752 | 
              circview => 1,  | 
          752 | 
              circview => 1,  | 
        
        
          | 753 | 
              soundon           => C4::Context->preference("SoundOn"), | 
          753 | 
              soundon           => C4::Context->preference("SoundOn"), | 
        
        
          | 754 | 
              fast_cataloging   => $fast_cataloging,  | 
          754 | 
              fast_cataloging   => $fast_cataloging,  |