| Lines 48-54
          BEGIN {
      
      
        Link Here | 
        
          | 48 |         AddItem | 48 |         AddItem | 
        
          | 49 |         AddItemBatchFromMarc | 49 |         AddItemBatchFromMarc | 
        
          | 50 |         ModItemFromMarc | 50 |         ModItemFromMarc | 
          
            
              | 51 | 		Item2Marc | 51 | 	Item2Marc | 
        
          | 52 |         ModItem | 52 |         ModItem | 
        
          | 53 |         ModDateLastSeen | 53 |         ModDateLastSeen | 
        
          | 54 |         ModItemTransfer | 54 |         ModItemTransfer | 
  
    | Lines 72-81
          BEGIN {
      
      
        Link Here | 
        
          | 72 |         GetItemnumberFromBarcode | 72 |         GetItemnumberFromBarcode | 
        
          | 73 |         GetBarcodeFromItemnumber | 73 |         GetBarcodeFromItemnumber | 
        
          | 74 |         GetHiddenItemnumbers | 74 |         GetHiddenItemnumbers | 
          
            
              | 75 | 		DelItemCheck | 75 |         DelItemCheck | 
            
              | 76 | 		MoveItemFromBiblio  | 76 | 	MoveItemFromBiblio  | 
            
              | 77 | 		GetLatestAcquisitions | 77 | 	GetLatestAcquisitions | 
            
              |  |  | 78 |  | 
        
          | 78 |         CartToShelf | 79 |         CartToShelf | 
            
              |  |  | 80 |         ShelfToCart | 
        
          | 79 |  | 81 |  | 
        
          | 80 | 	GetAnalyticsCount | 82 | 	GetAnalyticsCount | 
        
          | 81 |         GetItemHolds | 83 |         GetItemHolds | 
  
    | Lines 190-196
          sub CartToShelf {
      
      
        Link Here | 
        
          | 190 |     } | 192 |     } | 
        
          | 191 |  | 193 |  | 
        
          | 192 |     my $item = GetItem($itemnumber); | 194 |     my $item = GetItem($itemnumber); | 
          
            
              | 193 |     $item->{location} = $item->{permanent_location}; | 195 |     if ( $item->{location} eq 'CART' ) { | 
            
              |  |  | 196 |         $item->{location} = $item->{permanent_location}; | 
            
              | 197 |         ModItem($item, undef, $itemnumber); | 
            
              | 198 |     } | 
            
              | 199 | } | 
            
              | 200 |  | 
            
              | 201 | =head2 ShelfToCart | 
            
              | 202 |  | 
            
              | 203 |   ShelfToCart($itemnumber); | 
            
              | 204 |  | 
            
              | 205 | Set the current shelving location of the item  | 
            
              | 206 | to shelving cart ('CART'). | 
            
              | 207 |  | 
            
              | 208 | =cut | 
            
              | 209 |  | 
            
              | 210 | sub ShelfToCart { | 
            
              | 211 |     my ( $itemnumber ) = @_; | 
            
              | 212 |  | 
            
              | 213 |     unless ( $itemnumber ) { | 
            
              | 214 |         croak "FAILED ShelfToCart() - no itemnumber supplied"; | 
            
              | 215 |     } | 
            
              | 216 |  | 
            
              | 217 |     my $item = GetItem($itemnumber); | 
            
              | 218 |     $item->{'location'} = 'CART'; | 
        
          | 194 |     ModItem($item, undef, $itemnumber); | 219 |     ModItem($item, undef, $itemnumber); | 
        
          | 195 | } | 220 | } | 
        
          | 196 |  | 221 |  | 
  
    | Lines 542-547
          sub ModItemTransfer {
      
      
        Link Here | 
        
          | 542 |  | 567 |  | 
        
          | 543 |     my $dbh = C4::Context->dbh; | 568 |     my $dbh = C4::Context->dbh; | 
        
          | 544 |  | 569 |  | 
            
              |  |  | 570 |     # Remove the 'shelving cart' location status if it is being used. | 
            
              | 571 |     CartToShelf( $itemnumber ) if ( C4::Context->preference("ReturnToShelvingCart") ); | 
            
              | 572 |  | 
        
          | 545 |     #new entry in branchtransfers.... | 573 |     #new entry in branchtransfers.... | 
        
          | 546 |     my $sth = $dbh->prepare( | 574 |     my $sth = $dbh->prepare( | 
        
          | 547 |         "INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) | 575 |         "INSERT INTO branchtransfers (itemnumber, frombranch, datesent, tobranch) |