Changeset 2730
- Timestamp:
- 07/08/08 07:58:50 (2 months ago)
- Files:
-
- branches/release-41/lib/MT/BackupRestore.pm (modified) (1 diff)
- branches/release-41/t/61-to_from_xml.t (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/release-41/lib/MT/BackupRestore.pm
r2693 r2730 67 67 'ping_cat' => { 68 68 'order' => 520 69 }, 70 # Comment should be backed up after TBPing 71 # because saving a comment ultimately triggers 72 # MT::TBPing::save. 73 'comment' => { 74 'order' => 530 69 75 }, 70 76 # Session, config and TheSchwartz packages are never backed up. branches/release-41/t/61-to_from_xml.t
r2695 r2730 157 157 isnt(undef, $parent, "parent object(" . $old->id . ") of $class pointed to by $col should not be undef"); 158 158 } else { 159 next if $col eq 'modified_on';160 159 next if ( 161 160 (defined($old->column($col)) && ($old->column($col) eq '')) && 162 161 (!defined($obj->column($col))) 163 162 ); 164 next if ($name eq 'category' && ($col eq 'parent')); 165 next if ($name eq 'folder' && ($col eq 'parent')); 163 if ($name eq 'category' && ($col eq 'parent') && $old->parent) { 164 my $parent = $objects->{'MT::Category#' . $old->parent}; 165 is( $obj->$col, $parent->id, 'Category parent restored'); 166 next; 167 } 168 if ($name eq 'folder' && ($col eq 'parent') && $old->parent) { 169 my $parent = $objects->{'MT::Folder#' . $old->parent}; 170 is( $obj->$col, $parent->id, 'Folder parent restored'); 171 next; 172 } 166 173 if ( ($name eq 'trackback') && ($col eq 'is_disabled') ) { 167 174 if ( defined($obj->is_disabled) && $obj->is_disabled
