From 61db2de2941fa7527a8e78875c8760c9ec084800 Mon Sep 17 00:00:00 2001
From: Jared Camins-Esakov <jcamins@cpbibliography.com>
Date: Mon, 31 Dec 2012 19:52:49 -0500
Subject: [PATCH] Bug 9174 follow-up: Eliminate warning and fix POD

Thanks to Marcel for spotting these issues.

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Mason James <mtj@kohaaloha.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
---
 C4/Koha.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index f7c00111f3..c0040f63bd 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -425,7 +425,7 @@ sub getframeworkinfo {
 
 =head2 getitemtypeinfo
 
-  $itemtype = &getitemtype($itemtype, [$interface]);
+  $itemtype = &getitemtypeinfo($itemtype, [$interface]);
 
 Returns information about an itemtype. The optional $interface argument
 sets which interface ('opac' or 'intranet') to return the imageurl for.
@@ -440,7 +440,7 @@ sub getitemtypeinfo {
     $sth->execute($itemtype);
     my $res = $sth->fetchrow_hashref;
 
-    $res->{imageurl} = getitemtypeimagelocation( ( $interface eq 'opac' ? 'opac' : 'intranet' ), $res->{imageurl} );
+    $res->{imageurl} = getitemtypeimagelocation( ( ( defined $interface && $interface eq 'opac' ) ? 'opac' : 'intranet' ), $res->{imageurl} );
 
     return $res;
 }
-- 
2.39.2