Bug 2400 [10/18]: fixing pod syntax in C4/ImportBatch.pm

[koha_fer] / serials / routing.pl

diff --git a/serials/routing.pl b/serials/routing.pl
index f4d5be7..d84076a 100755 (executable)
--- a/serials/routing.pl
+++ b/serials/routing.pl
@@ -29,10 +29,10 @@ use strict;
 use CGI;
 use C4::Koha;
 use C4::Auth;
-use C4::Date;
+use C4::Dates;
 use C4::Output;
 use C4::Acquisition;
-use C4::Interface::CGI::Output;
+use C4::Output;
 use C4::Context;
 
 use C4::Members;
@@ -114,9 +114,9 @@ for(my $i=0;$i<$routing;$i++){
     for(my $j=1; $j <= $routing; $j++) {
        $rankingbox .= "<option ";
        if($routinglist[$i]->{'ranking'} == $j){
-           $rankingbox .= " selected='SELECTED'";
+           $rankingbox .= " selected=\"selected\"";
        }
-       $rankingbox .= " value='$j'>$j</option>";
+       $rankingbox .= " value=\"$j\">$j</option>";
     }
     $rankingbox .= "</select>";
     $data->{'routingbox'} = $rankingbox;
@@ -130,7 +130,7 @@ if ($op eq 'new') {
     $new = 1;
 } else {
 # for modify routing list default
-    $new => 0;
+    $new = 0;
 }
 
 $template->param(