| 
      
            Lines 190-197
          sub CartToShelf {
      
      
        Link Here
      
     | 
  
        
          | 190 | 
              }  | 
          190 | 
              }  | 
        
        
          | 191 | 
           | 
          191 | 
           | 
        
        
          | 192 | 
              my $item = GetItem($itemnumber);  | 
          192 | 
              my $item = GetItem($itemnumber);  | 
        
          
            
              | 193 | 
                  $item->{location} = $item->{permanent_location}; | 
              193 | 
                  if ( $item->{location} eq 'CART' ) { | 
            
            
              | 194 | 
                  ModItem($item, undef, $itemnumber);  | 
              194 | 
                      $item->{location} = $item->{permanent_location}; | 
            
            
               | 
               | 
              195 | 
                      ModItem($item, undef, $itemnumber);  | 
            
            
              | 196 | 
                  }  | 
            
        
          | 195 | 
          }  | 
          197 | 
          }  | 
        
        
          | 196 | 
           | 
          198 | 
           | 
        
        
          | 197 | 
          =head2 AddItemFromMarc  | 
          199 | 
          =head2 AddItemFromMarc  | 
        
  
    | 
      
            Lines 542-547
          sub ModItemTransfer {
      
      
        Link Here
      
     | 
  
        
          | 542 | 
           | 
          544 | 
           | 
        
        
          | 543 | 
              my $dbh = C4::Context->dbh;  | 
          545 | 
              my $dbh = C4::Context->dbh;  | 
        
        
          | 544 | 
           | 
          546 | 
           | 
        
            
               | 
               | 
              547 | 
                  # Remove the 'shelving cart' location status if it is being used.  | 
            
            
              | 548 | 
                  CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); | 
            
            
              | 549 | 
               | 
            
        
          | 545 | 
              #new entry in branchtransfers....  | 
          550 | 
              #new entry in branchtransfers....  | 
        
        
          | 546 | 
              my $sth = $dbh->prepare(  | 
          551 | 
              my $sth = $dbh->prepare(  | 
        
        
          | 547 | 
                  "INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch)  | 
          552 | 
                  "INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch)  |