| 
      
            Lines 49-55
          use Koha::Calendar;
      
      
        Link Here
      
     | 
  
        
          | 49 | 
           | 
          49 | 
           | 
        
        
          | 50 | 
          my $query = new CGI;  | 
          50 | 
          my $query = new CGI;  | 
        
        
          | 51 | 
           | 
          51 | 
           | 
        
          
            
              | 52 | 
              if (!C4::Context->userenv){ | 
              52 | 
              my $userenv = C4::Context->userenv;  | 
            
            
               | 
               | 
              53 | 
              if (!$userenv){ | 
            
        
          | 53 | 
              my $sessionID = $query->cookie("CGISESSID"); | 
          54 | 
              my $sessionID = $query->cookie("CGISESSID"); | 
        
        
          | 54 | 
              my $session = get_session($sessionID);  | 
          55 | 
              my $session = get_session($sessionID);  | 
        
        
          | 55 | 
              if ($session->param('branch') eq 'NO_LIBRARY_SET'){ | 
          56 | 
              if ($session->param('branch') eq 'NO_LIBRARY_SET'){ | 
        
  
    | 
      
            Lines 74-84
          my ( $template, $librarian, $cookie ) = get_template_and_user(
      
      
        Link Here
      
     | 
  
        
          | 74 | 
          #Global vars  | 
          75 | 
          #Global vars  | 
        
        
          | 75 | 
          my $branches = GetBranches();  | 
          76 | 
          my $branches = GetBranches();  | 
        
        
          | 76 | 
          my $printers = GetPrinters();  | 
          77 | 
          my $printers = GetPrinters();  | 
        
            
               | 
               | 
              78 | 
              my $userenv_branch = $userenv->{'branch'} // ''; | 
            
            
              | 79 | 
              my $printer = $userenv->{'branchprinter'} // ''; | 
            
        
          | 77 | 
           | 
          80 | 
           | 
        
            
              | 78 | 
              my $printer = C4::Context->userenv ? C4::Context->userenv->{'branchprinter'} : ""; | 
               | 
               | 
            
        
          | 79 | 
          my $overduecharges = (C4::Context->preference('finesMode') && C4::Context->preference('finesMode') ne 'off'); | 
          81 | 
          my $overduecharges = (C4::Context->preference('finesMode') && C4::Context->preference('finesMode') ne 'off'); | 
        
            
              | 80 | 
               | 
               | 
               | 
            
            
              | 81 | 
              my $userenv_branch = C4::Context->userenv->{'branch'} || ''; | 
            
        
          | 82 | 
          #  | 
          82 | 
          #  | 
        
        
          | 83 | 
          # Some code to handle the error if there is no branch or printer setting.....  | 
          83 | 
          # Some code to handle the error if there is no branch or printer setting.....  | 
        
        
          | 84 | 
          #  | 
          84 | 
          #  | 
        
  
    | 
      
            Lines 266-272
          if ($barcode) {
      
      
        Link Here
      
     | 
  
        
          | 266 | 
           | 
          266 | 
           | 
        
        
          | 267 | 
                  if ( C4::Context->preference("FineNotifyAtCheckin") ) { | 
          267 | 
                  if ( C4::Context->preference("FineNotifyAtCheckin") ) { | 
        
        
          | 268 | 
                      my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrower->{'borrowernumber'} ); | 
          268 | 
                      my ( $od, $issue, $fines ) = GetMemberIssuesAndFines( $borrower->{'borrowernumber'} ); | 
        
          
            
              | 269 | 
                          if ($fines > 0) { | 
              269 | 
                          if ($fines && $fines > 0) { | 
            
        
          | 270 | 
                          $template->param( fines => sprintf("%.2f",$fines) ); | 
          270 | 
                          $template->param( fines => sprintf("%.2f",$fines) ); | 
        
        
          | 271 | 
                          $template->param( fineborrowernumber => $borrower->{'borrowernumber'} ); | 
          271 | 
                          $template->param( fineborrowernumber => $borrower->{'borrowernumber'} ); | 
        
        
          | 272 | 
                      }  | 
          272 | 
                      }  | 
        
  
    | 
      
            Lines 536-546
          foreach ( sort { $a <=> $b } keys %returneditems ) {
      
      
        Link Here
      
     | 
  
        
          | 536 | 
              }  | 
          536 | 
              }  | 
        
        
          | 537 | 
              push @riloop, \%ri;  | 
          537 | 
              push @riloop, \%ri;  | 
        
        
          | 538 | 
          }  | 
          538 | 
          }  | 
        
            
               | 
               | 
              539 | 
              my ($genbrname, $genprname);  | 
            
            
              | 540 | 
              if (my $b = $branches->{$userenv_branch}) { | 
            
            
              | 541 | 
                  $genbrname = $b->{'branchname'}; | 
            
            
              | 542 | 
              }  | 
            
            
              | 543 | 
              if (my $p = $printers->{$printer}) { | 
            
            
              | 544 | 
                  $genprname = $p->{'printername'}; | 
            
            
              | 545 | 
              }  | 
            
        
          | 539 | 
          $template->param(  | 
          546 | 
          $template->param(  | 
        
        
          | 540 | 
              riloop         => \@riloop,  | 
          547 | 
              riloop         => \@riloop,  | 
        
          
            
              | 541 | 
                  genbrname      => $branches->{$userenv_branch}->{'branchname'}, | 
              548 | 
                  genbrname      => $genbrname,  | 
            
            
              | 542 | 
                  genprname      => $printers->{$printer}->{'printername'}, | 
              549 | 
                  genprname      => $genprname,  | 
            
            
              | 543 | 
                  branchname     => $branches->{$userenv_branch}->{'branchname'}, | 
              550 | 
                  branchname     => $genbrname,  | 
            
        
          | 544 | 
              printer        => $printer,  | 
          551 | 
              printer        => $printer,  | 
        
        
          | 545 | 
              errmsgloop     => \@errmsgloop,  | 
          552 | 
              errmsgloop     => \@errmsgloop,  | 
        
        
          | 546 | 
              exemptfine     => $exemptfine,  | 
          553 | 
              exemptfine     => $exemptfine,  | 
        
            
              | 547 | 
              -   | 
               | 
               |