Gossamer Forum: Products: Gossamer Links: Development, Plugins and Globals: Not deleting?

Dec 17, 2003, 10:03 AM

Andy

Veteran / Moderator (18441 posts)

Dec 17, 2003, 10:03 AM

Post #1 of 4

Shortcut

Not deleting?

I'm trying to delete links from the tables lsql_Links and lsql_Category for more than one ID. I currently have;

Code:
   # get the list of ID's we need to delete... 
    my $sth = $DB->table('CatLinks')->select( GT::SQL::Condition->new('LinkID','<','50000') ) || die $GT::SQL::error; 
    while (my $hit = $sth->fetchrow_hashref) { 
      push (@id_list , $hit->{LinkID}); 
    }   

   # remove old listings first... 
    $DB->table('Links')->delete( { ID => \@id_list } ) || die $GT::SQL::error; 
    $DB->table('CatLinks')->delete( { LinkID => \@id_list } ) || die $GT::SQL::error;

I know that the while {} loop is working fine, cos if I use join() to see what ID numbers exist in it, and all the ID's that should have been put in it are there.

It much be down to the delete() call, but I don't understand why Unsure

Any suggestions?

Cheers

Andy (mod)
andy@ultranerds.co.uk

Dec 18, 2003, 3:42 AM

Andy

Veteran / Moderator (18441 posts)

Dec 18, 2003, 3:42 AM

Post #2 of 4

Shortcut

Re: [Andy] Not deleting? In reply to

Anyone got any suggestions? Unsure

Cheers

Andy (mod)
andy@ultranerds.co.uk

Dec 18, 2003, 9:20 AM

afinlr

Veteran (1921 posts)

Dec 18, 2003, 9:20 AM

Post #3 of 4

Shortcut

Re: [Andy] Not deleting? In reply to

At first glance I would guess that you want ID IN rather than ID => and if so you'll need a condition statement?

Dec 18, 2003, 9:22 AM

Andy

Veteran / Moderator (18441 posts)

Dec 18, 2003, 9:22 AM

Post #4 of 4

Shortcut

Re: [afinlr] Not deleting? In reply to

I ended up using;

Code:
   # get the list of ID's we need to delete... 
    my $sth = $DB->table('Links')->select( GT::SQL::Condition->new('ID','<','50000') ) || die $GT::SQL::error; 
    while (my $hit = $sth->fetchrow_hashref) { 
      push (@id_list , $hit->{ID}); 
    }   

    print "Deleting IDs: \n\n"; 
    print join("\n",@id_list) . "\n"; 

   # remove old listings first... 
   foreach (@id_list) { 
     $DB->table('Links')->delete( { ID => $_ } ) || die $GT::SQL::error; 
     $DB->table('CatLinks')->delete( { LinkID => $_ } ) || die $GT::SQL::error; 
   }

Cheers

Andy (mod)
andy@ultranerds.co.uk