| 
      
            Lines 270-276
          if ($borrowernumber) {
      
      
        Link Here
      
     | 
  
        
          | 270 | 
                  'userdebarred'    => $borrower->{debarred}, | 
          270 | 
                  'userdebarred'    => $borrower->{debarred}, | 
        
        
          | 271 | 
                  'debarredcomment' => $borrower->{debarredcomment}, | 
          271 | 
                  'debarredcomment' => $borrower->{debarredcomment}, | 
        
        
          | 272 | 
              );  | 
          272 | 
              );  | 
        
          
            
              | 273 | 
                  if ( $borrower->{debarred} ne "9999-12-31" ) { | 
              273 | 
                  if ( $borrower->{debarred} && $borrower->{debarred} ne "9999-12-31" ) { | 
            
        
          | 274 | 
                  $template->param( 'userdebarreddate' => C4::Dates::format_date( $borrower->{debarred} ) ); | 
          274 | 
                  $template->param( 'userdebarreddate' => C4::Dates::format_date( $borrower->{debarred} ) ); | 
        
        
          | 275 | 
              }  | 
          275 | 
              }  | 
        
        
          | 276 | 
           | 
          276 | 
           | 
        
  
    | 
      
            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 ( $borrowernumber && $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          => ($borrowernumber && $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,  |