From 5bd4181aaaa9d2bed5e246a02b37fcf3cc09d291 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Thu, 28 Feb 2008 09:08:24 +1300 Subject: [PATCH] Switching CGI calls to a more Object Oriented sytax Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- members/patronimage.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/members/patronimage.pl b/members/patronimage.pl index bc9b14f5c9..2ee992fa74 100755 --- a/members/patronimage.pl +++ b/members/patronimage.pl @@ -65,13 +65,13 @@ if ($dberror) { # things will result... you have been warned! if ($imagedata) { - print header (-type => $imagedata->{'mimetype'}, -Content_Length => length ($imagedata->{'imagefile'})), $imagedata->{'imagefile'}; + print $data->header (-type => $imagedata->{'mimetype'}, -Content_Length => length ($imagedata->{'imagefile'})), $imagedata->{'imagefile'}; exit; } else { warn "No image exists for $cardnumber" if $DEBUG; my $urlbase = url(-base => 1 -rewrite => 1); warn "URL base: $urlbase" if $DEBUG; - print redirect (-uri => "$urlbase/intranet-tmpl/prog/img/patron-blank.png"); + print $data->redirect (-uri => "$urlbase/intranet-tmpl/prog/img/patron-blank.png"); } exit; -- 2.39.5