| 
      
            Lines 29-34
          use C4::Context;
      
      
        Link Here
      
     | 
  
        
          | 29 | 
          use C4::Templates;    # to get the template  | 
          29 | 
          use C4::Templates;    # to get the template  | 
        
        
          | 30 | 
          use C4::Languages;  | 
          30 | 
          use C4::Languages;  | 
        
        
          | 31 | 
          use C4::Branch;       # GetBranches  | 
          31 | 
          use C4::Branch;       # GetBranches  | 
        
            
               | 
               | 
              32 | 
              use C4::Desks;  | 
            
        
          | 32 | 
          use C4::Search::History;  | 
          33 | 
          use C4::Search::History;  | 
        
        
          | 33 | 
          use Koha;  | 
          34 | 
          use Koha;  | 
        
        
          | 34 | 
          use Koha::AuthUtils qw(hash_password);  | 
          35 | 
          use Koha::AuthUtils qw(hash_password);  | 
        
  
    | 
      
            Lines 405-410
          sub get_template_and_user {
      
      
        Link Here
      
     | 
  
        
          | 405 | 
                      IntranetmainUserblock                                                      => C4::Context->preference("IntranetmainUserblock"), | 
          406 | 
                      IntranetmainUserblock                                                      => C4::Context->preference("IntranetmainUserblock"), | 
        
        
          | 406 | 
                      LibraryName                                                                => C4::Context->preference("LibraryName"), | 
          407 | 
                      LibraryName                                                                => C4::Context->preference("LibraryName"), | 
        
        
          | 407 | 
                      LoginBranchname                                                            => ( C4::Context->userenv ? C4::Context->userenv->{"branchname"} : undef ), | 
          408 | 
                      LoginBranchname                                                            => ( C4::Context->userenv ? C4::Context->userenv->{"branchname"} : undef ), | 
        
            
               | 
               | 
              409 | 
                          LoginDeskname                                                              => ( C4::Context->userenv ? C4::Context->userenv->{"deskname"} : undef ), | 
            
        
          | 408 | 
                      advancedMARCEditor                                                         => C4::Context->preference("advancedMARCEditor"), | 
          410 | 
                      advancedMARCEditor                                                         => C4::Context->preference("advancedMARCEditor"), | 
        
        
          | 409 | 
                      canreservefromotherbranches                                                => C4::Context->preference('canreservefromotherbranches'), | 
          411 | 
                      canreservefromotherbranches                                                => C4::Context->preference('canreservefromotherbranches'), | 
        
        
          | 410 | 
                      intranetcolorstylesheet                                                    => C4::Context->preference("intranetcolorstylesheet"), | 
          412 | 
                      intranetcolorstylesheet                                                    => C4::Context->preference("intranetcolorstylesheet"), | 
        
  
    | 
      
            Lines 425-431
          sub get_template_and_user {
      
      
        Link Here
      
     | 
  
        
          | 425 | 
                      UseKohaPlugins                                                             => C4::Context->preference('UseKohaPlugins'), | 
          427 | 
                      UseKohaPlugins                                                             => C4::Context->preference('UseKohaPlugins'), | 
        
        
          | 426 | 
                      UseCourseReserves                                                          => C4::Context->preference("UseCourseReserves"), | 
          428 | 
                      UseCourseReserves                                                          => C4::Context->preference("UseCourseReserves"), | 
        
        
          | 427 | 
                      useDischarge                                                               => C4::Context->preference('useDischarge'), | 
          429 | 
                      useDischarge                                                               => C4::Context->preference('useDischarge'), | 
        
          
            
              | 428 | 
                      );  | 
              430 | 
                                      );  | 
            
            
               | 
               | 
              431 | 
                      if ( C4::Context->userenv ? C4::Context->userenv->{"branch"} : undef) { | 
            
            
              | 432 | 
                          my $desksaref = GetDesks(C4::Context->userenv->{"branch"}); | 
            
            
              | 433 | 
                          if ($#$desksaref > -1) { | 
            
            
              | 434 | 
                              $template->param(  | 
            
            
              | 435 | 
                                               LoginDeskcode => ( C4::Context->userenv->{"deskcode"} ), | 
            
            
              | 436 | 
                                               LoginDeskname => ( C4::Context->userenv->{"deskname"} ), | 
            
            
              | 437 | 
                                               HasDesk       => (1),  | 
            
            
              | 438 | 
                                              );  | 
            
            
              | 439 | 
                          }  | 
            
            
              | 440 | 
                          else { | 
            
            
              | 441 | 
                              $template->param(  | 
            
            
              | 442 | 
                                               HasDesk       => ( undef ),  | 
            
            
              | 443 | 
                                              );  | 
            
            
              | 444 | 
                          }  | 
            
            
              | 445 | 
                      }  | 
            
        
          | 429 | 
              }  | 
          446 | 
              }  | 
        
        
          | 430 | 
              else { | 
          447 | 
              else { | 
        
        
          | 431 | 
                  warn "template type should be OPAC, here it is=[" . $in->{'type'} . "]" unless ( $in->{'type'} eq 'opac' ); | 
          448 | 
                  warn "template type should be OPAC, here it is=[" . $in->{'type'} . "]" unless ( $in->{'type'} eq 'opac' ); | 
        
  
    | 
      
            Lines 474-479
          sub get_template_and_user {
      
      
        Link Here
      
     | 
  
        
          | 474 | 
                      LibraryName                           => "" . C4::Context->preference("LibraryName"), | 
          491 | 
                      LibraryName                           => "" . C4::Context->preference("LibraryName"), | 
        
        
          | 475 | 
                      LibraryNameTitle                      => "" . $LibraryNameTitle,  | 
          492 | 
                      LibraryNameTitle                      => "" . $LibraryNameTitle,  | 
        
        
          | 476 | 
                      LoginBranchname                       => C4::Context->userenv ? C4::Context->userenv->{"branchname"} : "", | 
          493 | 
                      LoginBranchname                       => C4::Context->userenv ? C4::Context->userenv->{"branchname"} : "", | 
        
            
               | 
               | 
              494 | 
                          Logindeskname                         => C4::Context->userenv ? C4::Context->userenv->{"deskname"} : "", | 
            
        
          | 477 | 
                      OPACAmazonCoverImages                 => C4::Context->preference("OPACAmazonCoverImages"), | 
          495 | 
                      OPACAmazonCoverImages                 => C4::Context->preference("OPACAmazonCoverImages"), | 
        
        
          | 478 | 
                      OPACFRBRizeEditions                   => C4::Context->preference("OPACFRBRizeEditions"), | 
          496 | 
                      OPACFRBRizeEditions                   => C4::Context->preference("OPACFRBRizeEditions"), | 
        
        
          | 479 | 
                      OpacHighlightedWords                  => C4::Context->preference("OpacHighlightedWords"), | 
          497 | 
                      OpacHighlightedWords                  => C4::Context->preference("OpacHighlightedWords"), | 
        
  
    | 
      
            Lines 762-768
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 762 | 
                          $session->param('surname'),      $session->param('branch'), | 
          780 | 
                          $session->param('surname'),      $session->param('branch'), | 
        
        
          | 763 | 
                          $session->param('branchname'),   $session->param('flags'), | 
          781 | 
                          $session->param('branchname'),   $session->param('flags'), | 
        
        
          | 764 | 
                          $session->param('emailaddress'), $session->param('branchprinter'), | 
          782 | 
                          $session->param('emailaddress'), $session->param('branchprinter'), | 
        
          
            
              | 765 | 
                              $session->param('persona'),      $session->param('shibboleth') | 
              783 | 
                              $session->param('persona'),      $session->param('shibboleth'), | 
            
            
               | 
               | 
              784 | 
                              $session->param('deskcode'),     $session->param('deskname') | 
            
        
          | 766 | 
                      );  | 
          785 | 
                      );  | 
        
        
          | 767 | 
                      C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') ); | 
          786 | 
                      C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') ); | 
        
        
          | 768 | 
                      C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') ); | 
          787 | 
                      C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') ); | 
        
  
    | 
      
            Lines 986-992
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 986 | 
                              C4::Context->_unset_userenv($sessionID);  | 
          1005 | 
                              C4::Context->_unset_userenv($sessionID);  | 
        
        
          | 987 | 
                          }  | 
          1006 | 
                          }  | 
        
        
          | 988 | 
                          my ( $borrowernumber, $firstname, $surname, $userflags,  | 
          1007 | 
                          my ( $borrowernumber, $firstname, $surname, $userflags,  | 
        
          
            
              | 989 | 
                                  $branchcode, $branchname, $branchprinter, $emailaddress );  | 
              1008 | 
                                   $branchcode, $branchname, $branchprinter, $emailaddress,  | 
            
            
               | 
               | 
              1009 | 
                                   $deskcode, $deskname);  | 
            
        
          | 990 | 
           | 
          1010 | 
           | 
        
        
          | 991 | 
                          if ( $return == 1 ) { | 
          1011 | 
                          if ( $return == 1 ) { | 
        
        
          | 992 | 
                              my $select = "  | 
          1012 | 
                              my $select = "  | 
        
  
    | 
      
            Lines 1062-1067
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 1062 | 
                              $session->param( 'surname',      $surname );  | 
          1082 | 
                              $session->param( 'surname',      $surname );  | 
        
        
          | 1063 | 
                              $session->param( 'branch',       $branchcode );  | 
          1083 | 
                              $session->param( 'branch',       $branchcode );  | 
        
        
          | 1064 | 
                              $session->param( 'branchname',   $branchname );  | 
          1084 | 
                              $session->param( 'branchname',   $branchname );  | 
        
            
               | 
               | 
              1085 | 
                                  $session->param( 'deskcode',     $deskcode );  | 
            
            
              | 1086 | 
                                  $session->param( 'deskname',     $deskname );  | 
            
        
          | 1065 | 
                              $session->param( 'flags',        $userflags );  | 
          1087 | 
                              $session->param( 'flags',        $userflags );  | 
        
        
          | 1066 | 
                              $session->param( 'emailaddress', $emailaddress );  | 
          1088 | 
                              $session->param( 'emailaddress', $emailaddress );  | 
        
        
          | 1067 | 
                              $session->param( 'ip',           $session->remote_addr() );  | 
          1089 | 
                              $session->param( 'ip',           $session->remote_addr() );  | 
        
  
    | 
      
            Lines 1080-1085
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 1080 | 
                              $session->param( 'surname',      C4::Context->config('user') ); | 
          1102 | 
                              $session->param( 'surname',      C4::Context->config('user') ); | 
        
        
          | 1081 | 
                              $session->param( 'branch',       'NO_LIBRARY_SET' );  | 
          1103 | 
                              $session->param( 'branch',       'NO_LIBRARY_SET' );  | 
        
        
          | 1082 | 
                              $session->param( 'branchname',   'NO_LIBRARY_SET' );  | 
          1104 | 
                              $session->param( 'branchname',   'NO_LIBRARY_SET' );  | 
        
            
               | 
               | 
              1105 | 
                                  $session->param( 'deskcode',     'NO_DESK_SET' );  | 
            
            
              | 1106 | 
                                  $session->param( 'deskname',     'NO_DESK_SET' );  | 
            
        
          | 1083 | 
                              $session->param( 'flags',        1 );  | 
          1107 | 
                              $session->param( 'flags',        1 );  | 
        
        
          | 1084 | 
                              $session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); | 
          1108 | 
                              $session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); | 
        
        
          | 1085 | 
                              $session->param( 'ip',           $session->remote_addr() );  | 
          1109 | 
                              $session->param( 'ip',           $session->remote_addr() );  | 
        
  
    | 
      
            Lines 1094-1100
          sub checkauth {
      
      
        Link Here
      
     | 
  
        
          | 1094 | 
                              $session->param('surname'),      $session->param('branch'), | 
          1118 | 
                              $session->param('surname'),      $session->param('branch'), | 
        
        
          | 1095 | 
                              $session->param('branchname'),   $session->param('flags'), | 
          1119 | 
                              $session->param('branchname'),   $session->param('flags'), | 
        
        
          | 1096 | 
                              $session->param('emailaddress'), $session->param('branchprinter'), | 
          1120 | 
                              $session->param('emailaddress'), $session->param('branchprinter'), | 
        
          
            
              | 1097 | 
                                  $session->param('persona'),      $session->param('shibboleth') | 
              1121 | 
                                  $session->param('persona'),      $session->param('shibboleth'), | 
            
            
               | 
               | 
              1122 | 
                                  $session->param('deskcode'),     $session->param('deskname') | 
            
        
          | 1098 | 
                          );  | 
          1123 | 
                          );  | 
        
        
          | 1099 | 
           | 
          1124 | 
           | 
        
        
          | 1100 | 
                      }  | 
          1125 | 
                      }  | 
        
  
    | 
      
            Lines 1343-1349
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1343 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
          1368 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1344 | 
                          $session->param('surname'),      $session->param('branch'), | 
          1369 | 
                          $session->param('surname'),      $session->param('branch'), | 
        
        
          | 1345 | 
                          $session->param('branchname'),   $session->param('flags'), | 
          1370 | 
                          $session->param('branchname'),   $session->param('flags'), | 
        
          
            
              | 1346 | 
                              $session->param('emailaddress'), $session->param('branchprinter') | 
              1371 | 
                              $session->param('emailaddress'), $session->param('branchprinter'), | 
            
            
               | 
               | 
              1372 | 
                              $session->param('persona'),      $session->param('shibboleth'), | 
            
            
              | 1373 | 
                              $session->param('deskcode'),     $session->param('deskname') | 
            
        
          | 1347 | 
                      );  | 
          1374 | 
                      );  | 
        
        
          | 1348 | 
           | 
          1375 | 
           | 
        
        
          | 1349 | 
                      my $ip       = $session->param('ip'); | 
          1376 | 
                      my $ip       = $session->param('ip'); | 
        
  
    | 
      
            Lines 1430-1436
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1430 | 
                          my (  | 
          1457 | 
                          my (  | 
        
        
          | 1431 | 
                              $borrowernumber, $firstname,  $surname,  | 
          1458 | 
                              $borrowernumber, $firstname,  $surname,  | 
        
        
          | 1432 | 
                              $userflags,      $branchcode, $branchname,  | 
          1459 | 
                              $userflags,      $branchcode, $branchname,  | 
        
          
            
              | 1433 | 
                                  $branchprinter,  $emailaddress  | 
              1460 | 
                                  $branchprinter,  $emailaddress, $deskcode,  | 
            
            
               | 
               | 
              1461 | 
                                  $deskname  | 
            
        
          | 1434 | 
                          );  | 
          1462 | 
                          );  | 
        
        
          | 1435 | 
                          my $sth =  | 
          1463 | 
                          my $sth =  | 
        
        
          | 1436 | 
                            $dbh->prepare(  | 
          1464 | 
                            $dbh->prepare(  | 
        
  
    | 
      
            Lines 1491-1496
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1491 | 
                          $session->param( 'surname',      $surname );  | 
          1519 | 
                          $session->param( 'surname',      $surname );  | 
        
        
          | 1492 | 
                          $session->param( 'branch',       $branchcode );  | 
          1520 | 
                          $session->param( 'branch',       $branchcode );  | 
        
        
          | 1493 | 
                          $session->param( 'branchname',   $branchname );  | 
          1521 | 
                          $session->param( 'branchname',   $branchname );  | 
        
            
               | 
               | 
              1522 | 
                              $session->param( 'deskcode',     $deskcode );  | 
            
            
              | 1523 | 
                              $session->param( 'deskname',     $deskname );  | 
            
        
          | 1494 | 
                          $session->param( 'flags',        $userflags );  | 
          1524 | 
                          $session->param( 'flags',        $userflags );  | 
        
        
          | 1495 | 
                          $session->param( 'emailaddress', $emailaddress );  | 
          1525 | 
                          $session->param( 'emailaddress', $emailaddress );  | 
        
        
          | 1496 | 
                          $session->param( 'ip',           $session->remote_addr() );  | 
          1526 | 
                          $session->param( 'ip',           $session->remote_addr() );  | 
        
  
    | 
      
            Lines 1505-1510
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1505 | 
                          $session->param( 'surname',      C4::Context->config('user') ); | 
          1535 | 
                          $session->param( 'surname',      C4::Context->config('user') ); | 
        
        
          | 1506 | 
                          $session->param( 'branch',       'NO_LIBRARY_SET' );  | 
          1536 | 
                          $session->param( 'branch',       'NO_LIBRARY_SET' );  | 
        
        
          | 1507 | 
                          $session->param( 'branchname',   'NO_LIBRARY_SET' );  | 
          1537 | 
                          $session->param( 'branchname',   'NO_LIBRARY_SET' );  | 
        
            
               | 
               | 
              1538 | 
                              $session->param( 'deskcode',     'NO_DESK_SET' );  | 
            
            
              | 1539 | 
                              $session->param( 'deskname',     'NO_DESK_SET' );  | 
            
        
          | 1508 | 
                          $session->param( 'flags',        1 );  | 
          1540 | 
                          $session->param( 'flags',        1 );  | 
        
        
          | 1509 | 
                          $session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); | 
          1541 | 
                          $session->param( 'emailaddress', C4::Context->preference('KohaAdminEmailAddress') ); | 
        
        
          | 1510 | 
                          $session->param( 'ip',           $session->remote_addr() );  | 
          1542 | 
                          $session->param( 'ip',           $session->remote_addr() );  | 
        
  
    | 
      
            Lines 1515-1521
          sub check_api_auth {
      
      
        Link Here
      
     | 
  
        
          | 1515 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
          1547 | 
                          $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1516 | 
                          $session->param('surname'),      $session->param('branch'), | 
          1548 | 
                          $session->param('surname'),      $session->param('branch'), | 
        
        
          | 1517 | 
                          $session->param('branchname'),   $session->param('flags'), | 
          1549 | 
                          $session->param('branchname'),   $session->param('flags'), | 
        
          
            
              | 1518 | 
                              $session->param('emailaddress'), $session->param('branchprinter') | 
              1550 | 
                              $session->param('emailaddress'), $session->param('branchprinter'), | 
            
            
               | 
               | 
              1551 | 
                              $session->param('persona'),      $session->param('shibboleth'), | 
            
            
              | 1552 | 
                              $session->param('deskcode'),     $session->param('deskname'), | 
            
        
          | 1519 | 
                      );  | 
          1553 | 
                      );  | 
        
        
          | 1520 | 
                      return ( "ok", $cookie, $sessionID );  | 
          1554 | 
                      return ( "ok", $cookie, $sessionID );  | 
        
        
          | 1521 | 
                  } else { | 
          1555 | 
                  } else { | 
        
  
    | 
      
            Lines 1596-1602
          sub check_cookie_auth {
      
      
        Link Here
      
     | 
  
        
          | 1596 | 
                      $session->param('cardnumber'),   $session->param('firstname'), | 
          1630 | 
                      $session->param('cardnumber'),   $session->param('firstname'), | 
        
        
          | 1597 | 
                      $session->param('surname'),      $session->param('branch'), | 
          1631 | 
                      $session->param('surname'),      $session->param('branch'), | 
        
        
          | 1598 | 
                      $session->param('branchname'),   $session->param('flags'), | 
          1632 | 
                      $session->param('branchname'),   $session->param('flags'), | 
        
          
            
              | 1599 | 
                          $session->param('emailaddress'), $session->param('branchprinter') | 
              1633 | 
                          $session->param('emailaddress'), $session->param('branchprinter'), | 
            
            
               | 
               | 
              1634 | 
                          $session->param('persona'),      $session->param('shibboleth'), | 
            
            
              | 1635 | 
                          $session->param('deskcode'),     $session->param('deskname'), | 
            
        
          | 1600 | 
                  );  | 
          1636 | 
                  );  | 
        
        
          | 1601 | 
           | 
          1637 | 
           | 
        
        
          | 1602 | 
                  my $ip       = $session->param('ip'); | 
          1638 | 
                  my $ip       = $session->param('ip'); |