Switching CGI calls to a more Object Oriented sytax

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/members/patronimage.pl b/members/patronimage.pl
index bc9b14f..2ee992f 100755 (executable)
--- 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;