[open-ils-commits] r12657 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-24 16:48:43 -0400 (Tue, 24 Mar 2009)
New Revision: 12657

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
Log:
taught the vandelay upload form about some important acq-related fields

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm	2009-03-24 20:48:09 UTC (rev 12656)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm	2009-03-24 20:48:43 UTC (rev 12657)
@@ -63,10 +63,17 @@
     }
 
     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(
         apps => 'open-ils.vandelay' => app_settings => databases => 'importer');
@@ -103,7 +110,11 @@
 		    '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
             }
 	    );
     }