From 4f4b3f102943df81c7941383e6711db0c13a1cd2 Mon Sep 17 00:00:00 2001
From: Colin Campbell <colin.campbell@ptfs-europe.com>
Date: Tue, 15 Sep 2009 14:06:39 +0100
Subject: [PATCH] Avoid unnecessary warnings in reserve/modrequest.pl

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 reserve/modrequest.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl
index 8b7d8ee918..f47e1128ac 100755
--- a/reserve/modrequest.pl
+++ b/reserve/modrequest.pl
@@ -70,11 +70,12 @@ else {
     }
 }
 my $from=$query->param('from');
-if ($from eq 'borrower'){
-  print $query->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrower[0]");
- } elsif ($from eq 'circ'){
-  print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrower[0]");
- } else {
+$from ||= q{};
+if ( $from eq 'borrower'){
+    print $query->redirect("/cgi-bin/koha/members/moremember.pl?borrowernumber=$borrower[0]");
+} elsif ( $from eq 'circ'){
+    print $query->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrower[0]");
+} else {
      my $url = "/cgi-bin/koha/reserve/request.pl?";
      if ($multi_hold) {
          $url .= "multi_hold=1&biblionumbers=$biblionumbers";
-- 
2.39.5