From c2987fa51453f325b1873f5dbab834ebae21a541 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 24 Mar 2009 20:48:43 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Vandelay.pm index 6bc1017e5e..e1fc1fb7c2 100644 --- 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 } ); } -- 2.11.0