Bug 8037: (follow-up) improve GetBudgetByOrderNumber test

[koha.git] / serials / statecollection.pl

diff --git a/serials/statecollection.pl b/serials/statecollection.pl
index 1e26fed..6d01c35 100755 (executable)
--- a/serials/statecollection.pl
+++ b/serials/statecollection.pl
@@ -11,21 +11,22 @@
 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
 #
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA  02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 
 use strict;
+use warnings;
 use CGI;
 use C4::Auth;
-use C4::Dates;
+use C4::Dates qw/format_date format_date_in_iso/;
 use C4::Output;
 use C4::Context;
 use C4::Serials;
 
 my $query = new CGI;
-my $op = $query->param('op');
+my $op = $query->param('op') || q{};
 my $dbh = C4::Context->dbh;
 my $subscriptionid = $query->param('subscriptionid');
 my $auser = $query->param('user');
@@ -46,7 +47,7 @@ my ($template, $loggedinuser, $cookie)
                                query => $query,
                                type => "intranet",
                                authnotrequired => 0,
-                               flagsrequired => {serials => 1},
+                               flagsrequired => {serials => '*'},
                                debug => 1,
                                });
 
@@ -66,8 +67,8 @@ if ($op eq 'serialchangestatus') {
                } else {
                        # add a special issue
                        if ($serialseqs[$i]) {
-                               my $subscription=getsubscription($subscriptionid);
-                               newissue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i], format_date_in_iso($planneddates[$i]));
+                               my $sub=getsubscription($subscriptionid);
+                               newissue($serialseqs[$i],$subscriptionid,$sub->{biblionumber},$status[$i], format_date_in_iso($planneddates[$i]));
                        }
                }
        }