#!/usr/bin/perl
#use Mooix::Thing;
#use Mooix::Root;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	if (59 > $oldversion) {
		# All the sessions moved from abstract/sessions/ to
		# sessions/. If this object's parent is in
		# abstract/sessions, change it.
		my $olddir=$Mooix::Root->id."/abstract/sessions";
		if ($this->parent->id =~ /^\Q$olddir\E\//) {
			my $base=$this->parent->id;
			$base=~s/^\Q$olddir\E\///;
			if (ref $Mooix::Root->sessions->$base) {
				$this->parent($Mooix::Root->sessions->$base);
			}
		}
	}
	
	return $this->super(@_);
}
