acq vandelay : more www vandelay cleanup
authorBill Erickson <berick@esilibrary.com>
Mon, 5 Dec 2011 16:39:48 +0000 (11:39 -0500)
committerBill Erickson <berick@esilibrary.com>
Mon, 5 Dec 2011 16:39:48 +0000 (11:39 -0500)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/WWW/Vandelay.pm

index af2ade1..0cdc41d 100644 (file)
@@ -66,15 +66,8 @@ sub spool_marc {
        my $purpose = $cgi->param('purpose') || '';
        my $infile = $cgi->param('marc_upload') || '';
     my $bib_source = $cgi->param('bib_source') || '';
-    my $provider = $cgi->param('provider') || '';
-    my $picklist = $cgi->param('picklist') || '';
-    my $create_po = $cgi->param('create_po') || '';
-    my $activate_po = $cgi->param('activate_po') || '';
-    my $ordering_agency = $cgi->param('ordering_agency') || '';
-    my $create_assets = $cgi->param('create_assets') || '';
-
-    $logger->debug("purpose = $purpose, infile = $infile, bib_source = $bib_source ".
-        "provider = $provider, picklist = $picklist, create_po = $create_po, ordering_agency = $ordering_agency");
+
+    $logger->debug("purpose = $purpose, infile = $infile, bib_source = $bib_source");
 
        my $conf = OpenSRF::Utils::SettingsClient->new;
        my $dir = $conf->config_value(