X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fupload.mc;h=3809292ce8c60c2021aadb316f8eaf6be6fd60d9;hb=9b3b58e46da3867cabcc6a6c54442ea2e6431f9a;hp=78b78508901cca5e30db503bc330f07ab376c4b9;hpb=dca96ee042a4b7cbc3ef2d1053c06388a7b731e2;p=irspy-moved-to-github.git

diff --git a/web/htdocs/details/upload.mc b/web/htdocs/details/upload.mc
index 78b7850..3809292 100644
--- a/web/htdocs/details/upload.mc
+++ b/web/htdocs/details/upload.mc
@@ -1,8 +1,16 @@
-%# $Id: upload.mc,v 1.1 2007-06-28 13:37:11 mike Exp $
+%# $Id: upload.mc,v 1.3 2009-04-16 18:09:44 wosch Exp $
 <%args>
 $filename => undef
 </%args>
 % if (!defined $filename) {
+   <p>
+    Please note that this form expects a
+    <a href="http://explain.z3950.org/"
+	>ZeeRex record</a>
+    only, not an entire
+    <a href="http://www.loc.gov/standards/sru/explain/"
+	>SRU explainResponse</a>.
+   <p>
    <form method="post" action=""
 	    enctype="multipart/form-data">
     <p>
@@ -15,7 +23,23 @@ $filename => undef
 % return;
 % }
 <%perl>
-my $fin = $r->upload()->fh();
+
+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;
@@ -27,7 +51,7 @@ my $id = irspy_record2identifier($xc);
 my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
 				user => "admin", password => "fruitbat",
 				elementSetName => "zeerex");
-ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+ZOOM::IRSpy::_rewrite_zeerex_record($conn, $xc->getContextNode());
 </%perl>
      <p>
       Upload OK.