Index: trunk/ippScripts/scripts/warp_overlap.pl
===================================================================
--- trunk/ippScripts/scripts/warp_overlap.pl	(revision 13159)
+++ trunk/ippScripts/scripts/warp_overlap.pl	(revision 13168)
@@ -108,17 +108,8 @@
     # Calculate the overlaps between imfiles and skycells
 
-    # The tess_id is the catdir used to define the tessalation
-    my $command = "ppConfigDump -camera $camera -dump-recipe PSWARP -";
-    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-	run(command => $command, verbose => 1);
-    unless ($success) {
-	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-	&my_die("Unable to perform ppConfigDump: $error_code", $error_code);
-    }
-    my $parser = PS::IPP::Metadata::Config->new;	# Parser for metadata config files
-    my $recipe = $parser->parse( join '', @$stdout_buf);
-    my @tesselations = split(/\s+/, metadataLookupStr($recipe, 'DVO.TESSELLATION')); # List of tessellations
-    foreach my $tess_id ( @tesselations ) {
-	print STDERR "tessellation: $tess_id\n";
+    my $tessellations = $ipprc->tessellations(); # Hash of defined tessellations
+    foreach my $tess_id ( keys %$tessellations ) {
+	my $tess_dir = $$tessellations{$tess_id};
+	print STDERR "tessellation: $tess_id, $tess_dir\n";
 
 	my $imfile = $imfiles->[0];
@@ -131,5 +122,5 @@
 	
 	# run the dvoImageOverlaps program to get the overlaps with this image 
-	my $command = "dvoImageOverlaps -D CATDIR $tess_id $psastroFile";
+	my $command = "dvoImageOverlaps -D CATDIR $tess_dir $psastroFile";
 	my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
 	    run(command => $command, verbose => 1);
@@ -140,5 +131,5 @@
 	my @matchlist = split ('\n', (join "", @$stdout_buf));
 	
-	# The command "dvoImageOverlaps -D CATDIR tessalation (megacam)" returns:
+	# The command "dvoImageOverlaps -D CATDIR tessellation (megacam)" returns:
 	# 729534pa.cmf[ccd00.hdr]  :  skycell.051.fits
 	# PSASTRO.OUTPUT[CMF.HEAD] : SKYCELL
@@ -187,5 +178,5 @@
 	    system "mkdir -p $skyDir" unless -d $skyDir;
 	    my $skyFile = File::Spec->catfile( $skyDir , $skycell_id );
-	    my $command = "dvoImageExtract -D CATDIR $tess_id $skycell_id -o $skyFile";
+	    my $command = "dvoImageExtract -D CATDIR $tess_dir $skycell_id -o $skyFile";
 	    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
 		run(command => $command, verbose => 1);