| Lines 26-31
          package C4::Reserves;
      
      
        Link Here | 
        
          | 26 | use strict; | 26 | use strict; | 
        
          | 27 | use C4::Context; | 27 | use C4::Context; | 
        
          | 28 | use C4::Biblio; | 28 | use C4::Biblio; | 
            
              |  |  | 29 | use C4::Members; | 
        
          | 29 | use C4::Items; | 30 | use C4::Items; | 
        
          | 30 | use C4::Search; | 31 | use C4::Search; | 
        
          | 31 | use C4::Circulation; | 32 | use C4::Circulation; | 
  
    | Lines 170-175
          sub AddReserve {
      
      
        Link Here | 
        
          | 170 |         $found,          $waitingdate | 171 |         $found,          $waitingdate | 
        
          | 171 |     ); | 172 |     ); | 
        
          | 172 |  | 173 |  | 
            
              |  |  | 174 |     # Send e-mail to librarian if syspref is active | 
            
              | 175 |     if(C4::Context->preference("emailLibrarianWhenHoldIsPlaced")){ | 
            
              | 176 |         my $borrower = GetMemberDetails($borrowernumber); | 
            
              | 177 |         my $biblio   = GetBiblioData($biblionumber); | 
            
              | 178 |         my $letter = C4::Letters::getletter( 'reserves', 'HOLDPLACED'); | 
            
              | 179 |         my $admin_email_address = C4::Context->preference('KohaAdminEmailAddress'); | 
            
              | 180 |  | 
            
              | 181 |         my %keys = (%$borrower, %$biblio); | 
            
              | 182 |         foreach my $key (keys %keys) { | 
            
              | 183 |             my $replacefield = "<<$key>>"; | 
            
              | 184 |             $letter->{content} =~ s/$replacefield/$keys{$key}/g; | 
            
              | 185 |             $letter->{title} =~ s/$replacefield/$keys{$key}/g; | 
            
              | 186 |         } | 
            
              | 187 |          | 
            
              | 188 |         C4::Letters::EnqueueLetter( | 
            
              | 189 |                             {   letter                 => $letter, | 
            
              | 190 |                                 borrowernumber         => $borrowernumber, | 
            
              | 191 |                                 message_transport_type => 'email', | 
            
              | 192 |                                 from_address           => $admin_email_address, | 
            
              | 193 |                                 to_address           => $admin_email_address, | 
            
              | 194 |                             } | 
            
              | 195 |                         ); | 
            
              | 196 |          | 
            
              | 197 |  | 
            
              | 198 |     } | 
            
              | 199 |  | 
            
              | 200 |  | 
        
          | 173 |     #} | 201 |     #} | 
        
          | 174 |     ($const eq "o" || $const eq "e") or return;   # FIXME: why not have a useful return value? | 202 |     ($const eq "o" || $const eq "e") or return;   # FIXME: why not have a useful return value? | 
        
          | 175 |     $query = qq/ | 203 |     $query = qq/ | 
  
    | Lines 182-187
          sub AddReserve {
      
      
        Link Here | 
        
          | 182 |     foreach (@$bibitems) { | 210 |     foreach (@$bibitems) { | 
        
          | 183 |         $sth->execute($borrowernumber, $biblionumber, $resdate, $_); | 211 |         $sth->execute($borrowernumber, $biblionumber, $resdate, $_); | 
        
          | 184 |     } | 212 |     } | 
            
              |  |  | 213 |          | 
        
          | 185 |     return;     # FIXME: why not have a useful return value? | 214 |     return;     # FIXME: why not have a useful return value? | 
        
          | 186 | } | 215 | } | 
        
          | 187 |  | 216 |  |