%args> $filename => undef %args> % if (!defined $filename) {
Please note that this form expects a ZeeRex record only, not an entire SRU explainResponse.
% return; % } <%perl> my $fin; # Apache2.0 if ($r->isa('Apache2::RequestRec')) { require Apache2::Request; require Apache2::Upload; my $req = new Apache2::Request($r); my $upload = $req->upload('filename'); $fin = $upload->fh(); } # Apache 1.3 else { $fin = $r->upload()->fh(); } if (!defined $fin) { $m->comp("/details/error.mc", msg => "Upload cancelled"); return; } my $xml = join("", <$fin>); my $xc = irspy_xpath_context($xml); my $id = irspy_record2identifier($xc); my $db = ZOOM::IRSpy::connect_to_registry(); my $conn = new ZOOM::Connection($db, 0, user => "admin", password => "fruitbat", elementSetName => "zeerex"); ZOOM::IRSpy::_rewrite_zeerex_record($conn, $xc->getContextNode()); %perl>
Upload OK.
Proceed to ">the new record.