| Lines 44-50
          BEGIN {
      
      
        Link Here | 
        
          | 44 |             &AddToShelf | 44 |             &AddToShelf | 
        
          | 45 |             &ModShelf | 45 |             &ModShelf | 
        
          | 46 |             &ShelfPossibleAction | 46 |             &ShelfPossibleAction | 
          
            
              | 47 |             &DelFromShelf &DelShelf | 47 |             &DelFromShelf | 
        
          | 48 |             &GetBibliosShelves | 48 |             &GetBibliosShelves | 
        
          | 49 |             &AddShare &AcceptShare &RemoveShare &IsSharedList | 49 |             &AddShare &AcceptShare &RemoveShare &IsSharedList | 
        
          | 50 |     ); | 50 |     ); | 
  
    | Lines 508-531
          sub DelFromShelf {
      
      
        Link Here | 
        
          | 508 |     return $t; | 508 |     return $t; | 
        
          | 509 | } | 509 | } | 
        
          | 510 |  | 510 |  | 
            
              | 511 | =head2 DelShelf |  |  | 
            
              | 512 |  | 
            
              | 513 |   $Number = DelShelf($shelfnumber); | 
            
              | 514 |  | 
            
              | 515 | This function deletes the shelf number, and all of it's content. | 
            
              | 516 | Authorization to do so MUST have been checked before calling, while using | 
            
              | 517 | ShelfPossibleAction with manage parameter. | 
            
              | 518 |  | 
            
              | 519 | =cut | 
            
              | 520 |  | 
            
              | 521 | sub DelShelf { | 
            
              | 522 |     my ($shelfnumber)= @_; | 
            
              | 523 |     return unless $shelfnumber && $shelfnumber =~ /^\d+$/; | 
            
              | 524 |     my $dbh = C4::Context->dbh; | 
            
              | 525 |     my $sth = $dbh->prepare("DELETE FROM virtualshelves WHERE shelfnumber=?"); | 
            
              | 526 |     return $sth->execute($shelfnumber); | 
            
              | 527 | } | 
            
              | 528 |  | 
        
          | 529 | =head2 GetBibliosShelves | 511 | =head2 GetBibliosShelves | 
        
          | 530 |  | 512 |  | 
        
          | 531 | This finds all the public lists that this bib record is in. | 513 | This finds all the public lists that this bib record is in. | 
  
    | Lines 596-603
          sub HandleDelBorrower {
      
      
        Link Here | 
        
          | 596 |     #Instead of deleting we could also disown lists (based on a pref). | 578 |     #Instead of deleting we could also disown lists (based on a pref). | 
        
          | 597 |     #In that way we could save shared and public lists. | 579 |     #In that way we could save shared and public lists. | 
        
          | 598 |     #The current table constraints support that idea now. | 580 |     #The current table constraints support that idea now. | 
          
            
              | 599 |     #This pref should then govern the results of other routines such as | 581 |     #This pref should then govern the results of other routines/methods such as | 
            
              | 600 |     #DelShelf too. | 582 |     #Koha::Virtualshelf->new->delete too. | 
        
          | 601 | } | 583 | } | 
        
          | 602 |  | 584 |  | 
        
          | 603 | =head2 AddShare | 585 | =head2 AddShare |