No subject
Thu Nov 17 10:48:58 UTC 2005
>From chris at katipo.co.nz Wed Apr 13 14:26:34 2005
Return-Path: <chris at katipo.co.nz>
Delivered-To: chris at wilbur.katipo.co.nz
Received: (qmail 17635 invoked from network); 13 Apr 2005 02:26:34 -0000
Received: from unknown (HELO shelob.katipo.co.nz) (202.50.109.222)
by wilbur.katipo.co.nz with SMTP; 13 Apr 2005 02:26:34 -0000
Received: by shelob.katipo.co.nz (Postfix, from userid 1001)
id 6561E7B0AB; Wed, 13 Apr 2005 14:26:34 +1200 (NZST)
X-Original-To: chris at katipo.co.nz
Delivered-To: chris at katipo.co.nz
Received: from localhost (localhost [127.0.0.1])
by shelob.katipo.co.nz (Postfix) with ESMTP id 559077B09C;
Wed, 13 Apr 2005 14:26:27 +1200 (NZST)
Received: from shelob.katipo.co.nz ([127.0.0.1])
by localhost (staff.katipo.co.nz [127.0.0.1]) (amavisd-new, port 10024)
with ESMTP id 29202-02; Wed, 13 Apr 2005 14:26:27 +1200 (NZST)
Received: from daddy-mx.katipo.co.nz (daddy.katipo.co.nz [202.50.109.200])
(using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits))
(No client certificate requested)
by shelob.katipo.co.nz (Postfix) with ESMTP;
Wed, 13 Apr 2005 14:26:27 +1200 (NZST)
Received: from localhost (localhost.katipo.co.nz [127.0.0.1])
by daddy-mx.katipo.co.nz (Postfix) with ESMTP id 11717E6DFD;
Wed, 13 Apr 2005 14:24:49 +1200 (NZST)
Received: from daddy-mx.katipo.co.nz ([127.0.0.1])
by localhost (daddy.katipo.co.nz [127.0.0.1]) (amavisd-new, port 10024)
with ESMTP id 19390-10; Wed, 13 Apr 2005 14:24:47 +1200 (NZST)
Received: from localhost.katipo.co.nz (localhost.katipo.co.nz [127.0.0.1])
by daddy-mx.katipo.co.nz (Postfix) with ESMTP;
Wed, 13 Apr 2005 14:24:47 +1200 (NZST)
Received: from localhost (localhost.katipo.co.nz [127.0.0.1])
by daddy-mx.katipo.co.nz (Postfix) with ESMTP id 69529E6DF6
for <koha at lists.katipo.co.nz>; Wed, 13 Apr 2005 14:24:43 +1200 (NZST)
Received: from daddy-mx.katipo.co.nz ([127.0.0.1])
by localhost (daddy.katipo.co.nz [127.0.0.1]) (amavisd-new, port 10024)
with ESMTP id 20011-07 for <koha at lists.katipo.co.nz>;
Wed, 13 Apr 2005 14:24:40 +1200 (NZST)
Received: from mail.spc.int (unknown [202.0.157.2])
by daddy-mx.katipo.co.nz (Postfix) with ESMTP
for <koha at lists.katipo.co.nz>; Wed, 13 Apr 2005 14:24:39 +1200 (NZST)
Content-class: urn:content-classes:message
MIME-Version: 1.0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
X-MimeOLE: Produced By Microsoft Exchange V6.5.7226.0
Date: Wed, 13 Apr 2005 13:26:06 +1100
Message-ID: <B8F67A8827141F4C8934FBF3A8FC4B8601050F2C at wilma.noumea.spc.local>
X-MS-Has-Attach:
X-MS-TNEF-Correlator:
Thread-Topic: Weird PERL behaviour
Thread-Index: AcU/0CU94iLjIrsARCOOsKJanz13yg==
From: "Phill Hardstaff" <phillh at spc.int>
To: <koha at lists.katipo.co.nz>
X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at katipo.co.nz
Subject: [Koha] Weird PERL behaviour
X-BeenThere: koha at lists.katipo.co.nz
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: Discussion list for the Koha Library system <koha.lists.katipo.co.nz>
List-Unsubscribe: <http://lists.katipo.co.nz/mailman/listinfo/koha>,
<mailto:koha-request at lists.katipo.co.nz?subject=unsubscribe>
List-Archive: <http://lists.katipo.co.nz/pipermail/koha>
List-Post: <mailto:koha at lists.katipo.co.nz>
List-Help: <mailto:koha-request at lists.katipo.co.nz?subject=help>
List-Subscribe: <http://lists.katipo.co.nz/mailman/listinfo/koha>,
<mailto:koha-request at lists.katipo.co.nz?subject=subscribe>
Sender: koha-bounces at lists.katipo.co.nz
Errors-To: koha-bounces at lists.katipo.co.nz
X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at katipo.co.nz
X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at katipo.co.nz
X-Spam-Checker-Version: SpamAssassin 3.0.2 (2004-11-16) on
shelob.katipo.co.nz
X-Spam-Level:
X-Spam-Status: No, hits=-2.6 required=5.0tests=BAYES_00 autolearn=ham
version=3.0.2
Status: RO
Content-Length: 2789
OK, I realise I am probably on my own here as I am probably the only =
person on earth running Koha with IIS :) But if someone could explain =
this to me I would be very grateful. It's a bit of a complex read :)
Problem is is with Intranet pages, Catalogue. I am using the default =
theme, but have seen the same behaviour with NPL because the root pages =
are the same no matter what theme you use, like loadmodules.pl.
So, the problem. (Intranet pages)
Click on Catalogue
Click on Add Biblio, this calls=20
http://koha.spc.int/cgi-bin/koha/loadmodules.pl?module=3Daddbiblio&type=3D=
intranet
Now if I click on "create empty biblio" it calls
http://koha.spc.int/cgi-bin/koha/addbiblio.pl
Which does not exist and I get a 404 error, it should be calling
http://koha.spc.int/cgi-bin/koha/acqui.simple/addbiblio.pl
So, if you look in loadmodules.pl you find this
sub addbiblio {
my $marc_bool =3D C4::Context->boolean_preference("MARC") || 0;
if ($marc_bool eq "1") {
print $input->redirect("/cgi-bin/koha/acqui.simple/addbooks.pl");
} else {
print =
$input->redirect("/cgi-bin/koha/acqui.simple/addbiblio-nomarc.pl");
}
So the above URL should redirect to=20
http://koha.spc.int/cgi-bin/koha/acqui.simple/addbooks.pl
And well, it sort of does, I get what looks like this page but=20
http://koha.spc.int/cgi-bin/koha/loadmodules.pl?module=3Daddbiblio&type=3D=
intranet
Stays in the address bar
So I modified the PERL code like this
sub addbiblio {
my $marc_bool =3D C4::Context->boolean_preference("MARC") || 0;
if ($marc_bool eq "1") {
print =
$input->redirect("http://koha.spc.int/cgi-bin/koha/acqui.simple/addbooks.=
pl");
} else {
print =
$input->redirect("/cgi-bin/koha/acqui.simple/addbiblio-nomarc.pl");
}
Ie put the whole URL in and it works. It goes to the right page
http://koha.spc.int/cgi-bin/koha/acqui.simple/addbooks.pl
Is now in the address bar and clicking create empty biblio now opens
http://koha.spc.int/cgi-bin/koha/acqui.simple/addbiblio.pl
Does this make any sense to anyone, it's probably just a PERL/Apache =
thing that Linux understands but Activestate/IIS does not, like from the =
code it should redirect to /cgi-bin/koha/acqui.simple/addbooks.pl but it =
won't unless I put the whole URL.
This also fixes a weird problem I had with NPL when it called anything =
using loadmodules.pl.
Cheers
Phill
--=20
Phill Hardstaff
MCSA, CCNA, A+, Network+, Inet+, Server+
Senior Support Engineer
Secretariat of the Pacific Community
B.P. D5
Noumea Cedex
98848
New Caledonia
Phone +687-260141
Mobile +687 838091
Fax +687-263818
Email phillh at spc.int
SPC Web Page http://www.spc.int/
_______________________________________________
Koha mailing list
Koha at lists.katipo.co.nz
http://lists.katipo.co.nz/mailman/listinfo/koha
More information about the Koha
mailing list