taught the vandelay upload form about some important acq-related fields

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12657 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
index 6bc1017..e1fc1fb 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
@@ -63,9 +63,16 @@ sub spool_marc {
     }
 
     my $data_fingerprint = '';
-       my $purpose = $cgi->param('purpose');
-       my $infile = $cgi->param('marc_upload');
-    my $bib_source = $cgi->param('bib_source');
+       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 $ordering_agency = $cgi->param('ordering_agency') || '';
+
+    $logger->debug("purpose = $purpose, infile = $infile, bib_source = $bib_source ".
+        "provider = $provider, picklist = $picklist, create_po = $create_po, ordering_agency = $ordering_agency");
 
        my $conf = OpenSRF::Utils::SettingsClient->new;
        my $dir = $conf->config_value(
@@ -103,7 +110,11 @@ sub spool_marc {
                    'vandelay_import_spool_' . $data_fingerprint,
                    {   purpose => $purpose, 
                 path => $outfile,
-                bib_source => $bib_source
+                bib_source => $bib_source,
+                provider => $provider,
+                picklist => $picklist,
+                create_po => $create_po,
+                ordering_agency => $ordering_agency
             }
            );
     }