Avoid unnecessary warnings in reserve/modrequest.pl

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl
index 8b7d8ee..f47e112 100755 (executable)
--- 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";