| 
      
            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)  |