| 
      
            Lines 46-54
          my ($template, $loggedinuser, $cookie)
      
      
        Link Here
      
     | 
  
        
          | 46 | 
          					debug => 0,  | 
          46 | 
          					debug => 0,  | 
        
        
          | 47 | 
          					});  | 
          47 | 
          					});  | 
        
        
          | 48 | 
           | 
          48 | 
           | 
        
          
            
              | 49 | 
              my $filetype       = $input->param('filetype'); | 
              49 | 
              our $filetype      = $input->param('filetype') || ''; | 
            
        
          | 50 | 
          my $cardnumber     = $input->param('cardnumber'); | 
          50 | 
          my $cardnumber     = $input->param('cardnumber'); | 
        
          
            
              | 51 | 
              my $uploadfilename = $input->param('uploadfile'); | 
              51 | 
              our $uploadfilename = $input->param('uploadfile') || ''; | 
            
        
          | 52 | 
          my $uploadfile     = $input->upload('uploadfile'); | 
          52 | 
          my $uploadfile     = $input->upload('uploadfile'); | 
        
        
          | 53 | 
          my $borrowernumber = $input->param('borrowernumber'); | 
          53 | 
          my $borrowernumber = $input->param('borrowernumber'); | 
        
        
          | 54 | 
          my $op             = $input->param('op') || ''; | 
          54 | 
          my $op             = $input->param('op') || ''; | 
        
  
    | 
      
            Lines 76-82
          Files greater than 100K will be refused. Images should be 140x200 pixels. If the
      
      
        Link Here
      
     | 
  
        
          | 76 | 
           | 
          76 | 
           | 
        
        
          | 77 | 
          $debug and warn "Operation requested: $op";  | 
          77 | 
          $debug and warn "Operation requested: $op";  | 
        
        
          | 78 | 
           | 
          78 | 
           | 
        
          
            
              | 79 | 
              my ( $total, $handled, @counts, $tempfile, $tfh, %errors );  | 
              79 | 
              my ( $total, $handled, $tempfile, $tfh );  | 
            
            
               | 
               | 
              80 | 
              our @counts = ();  | 
            
            
              | 81 | 
              our %errors = ();  | 
            
        
          | 80 | 
           | 
          82 | 
           | 
        
        
          | 81 | 
          # Case is important in these operational values as the template must use case to be visually pleasing!  | 
          83 | 
          # Case is important in these operational values as the template must use case to be visually pleasing!  | 
        
        
          | 82 | 
          if ( ( $op eq 'Upload' ) && $uploadfile ) { | 
          84 | 
          if ( ( $op eq 'Upload' ) && $uploadfile ) { | 
        
            
              | 83 | 
              -   | 
               | 
               |