Changeset 28592

Timestamp:

Jul 2, 2010, 10:12:29 AM (16 years ago)

Author:

Paul Price

Message:

Backporting fix to publishing.

Location:

tags/ipp-20100701/ippScripts

Files:

• . (modified) (1 prop)
• scripts/publish_file.pl (modified) (2 diffs)

tags/ipp-20100701/ippScripts/scripts/publish_file.pl

@@ -82 +82 @@
 my $mdcParser = PS::IPP::Metadata::Config->new;
 
+my $mops = ($product =~ /^IPP-MOPS/ ? 1 : 0); # Format for MOPS?
 my ($dsFile, $dsFileName) = tempfile("/tmp/publish.$pub_id.ds.XXXX", UNLINK => !$save_temps );
 my $dsType = $mops ? "IPP-MOPS" : $product; # Type for DataStore
@@ -156 +157 @@
         &my_die("Unable to parse metadata config", $pub_id, $PS_EXIT_PROG_ERROR);
 
-    my $mops = ($product =~ /^IPP-MOPS/ ? 1 : 0); # Format for MOPS?
     my ($mopsPositiveFile, $mopsPositiveFileName) = tempfile("/tmp/publish.$pub_id.mops.pos.XXXX", UNLINK => !$save_temps ) if $mops;
     my ($mopsNegativeFile, $mopsNegativeFileName) = tempfile("/tmp/publish.$pub_id.mops.neg.XXXX", UNLINK => !$save_temps ) if $mops;