89 	}

    89 	}

    90 }

    90 }

    91 mkdir($basedir);

    91 mkdir($basedir);

    92 #print "Created dir $basedir.\n";

    92 #print "Created dir $basedir.\n";

    93 

    93 

    94 my $saxhandler = RaptorSAXHandler->new();

    98 my $saxhandler = RaptorSAXHandler->new();

    95 if ($releaseable_module)

    99 if ($releaseable_module)

    96 {

   100 {

    97 	print "Adding RaptorReleaseable module to the observers\n";

   101 	print "Adding RaptorReleaseable module to the observers\n";

    98 	$saxhandler->add_observer('RaptorReleaseable', $RaptorReleaseable::reset_status);

   102 	$saxhandler->add_observer('RaptorReleaseable', $RaptorReleaseable::reset_status);