Changeset 16326

Timestamp:

Feb 5, 2008, 4:08:18 PM (18 years ago)

Author:

Paul Price

Message:

Don't get list of tessellations.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Operations.pm

@@ -1 +1 @@
 # Copyright (c) 2007  Paul Price
 #
-# $Id: Operations.pm,v 1.4 2007-11-22 00:55:32 price Exp $
+# $Id: Operations.pm,v 1.5 2008-02-06 02:08:18 price Exp $
 
 package PS::IPP::Operations;
@@ -58 +58 @@
     my $dvoImageExtract = can_run('dvoImageExtract') or die "Can't find dvoImageExtract";
 
-    my $tessellations = $ipprc->tessellations() or
-        (carp "Can't get list of tessellations." and return 0); # Hash of defined tessellations
-
-    ### Because DVO doesn't use psModules, it doesn't understand Nebulous --- check
-    my $scheme = file_scheme($$tessellations{$tess_id}); # The scheme, e.g., file, path, neb
-    if (defined $scheme and lc($scheme) eq 'neb') {
-        carp "Tessellation $tess_id refers to a Nebulous path: $$tessellations{$tess_id}";
+    my $tess_dir = $ipprc->tessellation_catdir( $tess_id ); # Tessellation catdir for DVO
+    unless (defined $tess_dir) {
+        carp "Can't get list of tessellations.";
         return 0;
     }
-    
-    my $tess_dir = $ipprc->convert_filename_absolute( $$tessellations{$tess_id} ); # Catdir for DVO
 
     foreach my $skycell_id ( @$skycells ) {