Delete a Page

Overview
Tables Involved
SQL Fragments
- Select page affiliated rows
- Delete page records in all of database
DBIC Approach

Overview

Sometimes you may want to delete a page because it's junk or you have a better copy/version elsewhere in your heirarchy. Let's investigate how we delete the entirety of a page, i.e. all it's parts and versions. Jam Tangan Murah timbangan Penumbuh Rambut Bisnis Modal Kecil villa bali seminyak accommodation seminyak villa rental villa ubud bali villa in seminyak bali driver
seminyak villa pemanas air pulau tidung jam tangan tas branded rental mobil semarang kursi roda jual kursi roda souvenir jogja dealer daihatsu depok dealer daihatsu tangerang tutorial wordpress :: Hot News :: Toko Bunga :: Online Store :: Seminyak bali :: Grosir Baju muslim :: Grosir Baju Batik :: Hosting Murah :: Villa Bali rental :: Group Om Onny :: Jawara Iklan :: Jago Iklan :: Jasa Iklan :: Juara Iklan :: Jawa Iklan :: Jaringan Iklan :: Jaguar Iklan :: All Iklan :: Directory :: Tas Branded :: Souvenir Pernikahan :: Busana Online :: Review :: Naila :: Naura :: Karangan Bunga Pekanbaru :: Karangan Bunga Medan :: Toko Parcel Medan :: Toko Parcel Surabaya :: Toko Parcel Jogja :: Serba-serbi :: Toko Parcel :: Berita Unik :: Toko Abon :: Tips :: Blog :: All tips :: Coba :: sinergi :: bisnis :: om onny jasa seo jasa seo murah jasa seo jasa seo murah jasa seo murah jasa seo murah jasa seo murah

Tables Involved

The tables that contain page related information are:

  page           - id
  page_version   - page
  attachment     - page
  comment        - page
  content        - page
  role_privilege - page
  tag            - page
  link           - from_page, to_page
  wanted_page    - from_page
  journal        - pageid
  entry          - journal

SQL Fragments

Select page affiliated rows

Let's make sure we can select all the rows associated properly before we delete them puppies. We want to be complete but not over-complete.

select id from page
where id=2;

select page from page_version
where page=2;

select page from content
where page = 2;

select page from attachment
where page = 2;

select page from comment
where page = 2;

select from_page, to_page from link
where to_page = 2 or from_page = 2;

select page from role_privilege
where page = 2;

select page from tag
where page = 2;

select from_page from wanted_page
where from_page=2;

select pageid from journal
where pageid=2;

Delete page records in all of database

delete from page
where id=2;

delete from page_version
where page=2;

delete from content
where page = 2;

deletee from attachment
where page = 2;

delete from comment
where page = 2;

delete from link
where to_page = 2 or from_page = 2;

delete from role_privilege
where page = 2;

delete from tag
where page = 2;

delete from wanted_page
where from_page=2;

delete from journal
where pageid=2;

DBIC Approach

Let's take the SQL statements above and do them up with DBIC.

sub delete_page {
    my $id = shift;
    
    print "Erasing page: ";
    my $page = $schema->resultset('Page')->find( { id => $id } );
    print $page->name_orig, "\n";
    $page->delete;
    my $page_version_rs =
      $schema->resultset('PageVersion')->search( { page => $id } )->delete;
    my $content_rs =
      $schema->resultset('Content')->search( { page => $id } )->delete;
    my $attachment_rs =
      $schema->resultset('Attachment')->search( { page => $id } )->delete;
    my $comment_rs =
      $schema->resultset('Comment')->search( { page => $id } )->delete;
    my $link_rs =
      $schema->resultset('Link')
      ->search( [ { from_page => $id }, { to_page => $id } ] )->delete;
    my $role_privilege_rs =
      $schema->resultset('RolePrivilege')->search( { page => $id } )->delete;
    my $tag_rs = $schema->resultset('Tag')->search( { page => $id } )->delete;
    my $wanted_page =
      $schema->resultset('WantedPage')->search( { from_page => $id } )->delete;
    my $journal_rs =
      $schema->resultset('Journal')->search( { pageid => $id } )->delete;
    my $entry_rs =
      $schema->resultset('Entry')->search( { journal => $id } )->delete;
}

Jasa SEO Jasa SEO Murah Jasa SEO Murah Jasa SEO Jasa Adwords Jasa Google Adwords Google Adwords Sepatu Online Toko Sepatu Online Sepatu Sepatu Murah Sepatu Safety Sepatu Futsal Cheapes Hostgator Coupon Link Booking Televisori offerte Notebook Offerte Berita Terkini Internet Marketer Muda Internet Marketer Indonesia Portatile Apple RDAnet Lorks Karikatur Bisnis Modal Kecil Bisnis UKM Berita Terbaru Iklan Baris Jasa SEO Jasa SEO Murah SEO Indonesia Konsultan SEO SEO Belajar SEO Kursus SEO Kursus SEO Murah Jam Tangan Casio Jam Tangan Casio Jam Tangan Murah Jam Tangan Grosir Baju Terbaru Grosir Baju Baju Terbaru Grosir Baju Murah Bisnis Online Belajar SEO Kerupuk Kerupuk kulit Social Bookmark Dofollow Social Bookmark Kumpulan Puisi Kirim Puisi Penumbuh Rambut Penumbuh Rambut timbangan WBC Wonogiri Jasa SEO Murah Jasa SEO Jam Tangan Murah Jam Tangan Murah Kata Gaul

Cupu Berita Terbaru Android Store Upinson Berita Terkini Edo Ziedo Aplikasi Symbian Sepatu Safety Upin Upin Tablet Android Sepatu Murah Upinson Blogger Radio Streaming SEO Star Upinson Cinta EDU Jasa SEO Sepatu Murah Sepatu Murah Sepatu Murah Penumbuh Rambut Penumbuh Rambut Penumbuh Rambut Penumbuh Rambut Penumbuh Rambut Penumbuh Rambut Penumbuh Rambut

Showing changes from previous revision. ~~Removed~~ | Added

Revision by onnycorp, 2012-08-22