| 
      
            Lines 201-209
          sub SearchSuggestion {
      
      
        Link Here
      
     | 
  
        
          | 201 | 
           | 
          201 | 
           | 
        
        
          | 202 | 
          =head2 GetSuggestion  | 
          202 | 
          =head2 GetSuggestion  | 
        
        
          | 203 | 
           | 
          203 | 
           | 
        
          
            
              | 204 | 
              \%sth = &GetSuggestion($ordernumber)  | 
              204 | 
              \%sth = &GetSuggestion($suggestionid)  | 
            
        
          | 205 | 
           | 
          205 | 
           | 
        
          
            
              | 206 | 
              this function get the detail of the suggestion $ordernumber (input arg)  | 
              206 | 
              this function get the detail of the suggestion $suggestionid (input arg)  | 
            
        
          | 207 | 
           | 
          207 | 
           | 
        
        
          | 208 | 
          return :  | 
          208 | 
          return :  | 
        
        
          | 209 | 
              the result of the SQL query as a hash : $sth->fetchrow_hashref.  | 
          209 | 
              the result of the SQL query as a hash : $sth->fetchrow_hashref.  | 
        
  
    | 
      
            Lines 211-217
          return :
      
      
        Link Here
      
     | 
  
        
          | 211 | 
          =cut  | 
          211 | 
          =cut  | 
        
        
          | 212 | 
           | 
          212 | 
           | 
        
        
          | 213 | 
          sub GetSuggestion { | 
          213 | 
          sub GetSuggestion { | 
        
          
            
              | 214 | 
                  my ($ordernumber) = @_;  | 
              214 | 
                  my ($suggestionid) = @_;  | 
            
        
          | 215 | 
              my $dbh           = C4::Context->dbh;  | 
          215 | 
              my $dbh           = C4::Context->dbh;  | 
        
        
          | 216 | 
              my $query         = q{ | 
          216 | 
              my $query         = q{ | 
        
        
          | 217 | 
                  SELECT *  | 
          217 | 
                  SELECT *  | 
        
  
    | 
      
            Lines 219-225
          sub GetSuggestion {
      
      
        Link Here
      
     | 
  
        
          | 219 | 
                  WHERE  suggestionid=?  | 
          219 | 
                  WHERE  suggestionid=?  | 
        
        
          | 220 | 
              };  | 
          220 | 
              };  | 
        
        
          | 221 | 
              my $sth = $dbh->prepare($query);  | 
          221 | 
              my $sth = $dbh->prepare($query);  | 
        
          
            
              | 222 | 
                  $sth->execute($ordernumber);  | 
              222 | 
                  $sth->execute($suggestionid);  | 
            
        
          | 223 | 
              return ( $sth->fetchrow_hashref );  | 
          223 | 
              return ( $sth->fetchrow_hashref );  | 
        
        
          | 224 | 
          }  | 
          224 | 
          }  | 
        
        
          | 225 | 
           | 
          225 | 
           | 
        
            
              | 226 | 
              -   | 
               | 
               |