Show
Ignore:
Timestamp:
10/31/07 19:08:29 (2 years ago)
Author:
hachi
Message:

Merging release-15 to athena branch. svn merge -r59987:60375 http://svn.sixapart.com/repos/eng/movabletype/branches/release-15 .

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • branches/athena/lib/MT/PluginData.pm

    r1090 r1092  
    3131sub class_label { 
    3232    MT->translate("Plugin Data"); 
     33} 
     34 
     35sub remove { 
     36    my $pd = shift; 
     37    $pd->SUPER::remove(@_) if ref($pd); 
     38 
     39    # class method call - might have blog_id parameter 
     40    my ($terms, $args) = @_; 
     41    $pd->SUPER::remove(@_) unless $terms && exists($terms->{blog_id}); 
     42 
     43    my $blog_ids = delete $terms->{blog_id}; 
     44    if ( 'ARRAY' ne ref($blog_ids) ) { 
     45        $blog_ids = [ $blog_ids ]; 
     46    } 
     47 
     48    my @keys = map { "configuration:blog:$_" } @$blog_ids; 
     49    $terms->{key} = \@keys; 
     50    $pd->SUPER::remove($terms, $args); 
    3351} 
    3452