# 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.
=head1 NAME
use C4::Serials;
use C4::Output;
use C4::Context;
+use C4::Branch;
-my $query = new CGI;
-my $title = $query->param('title_filter');
-my $ISSN = $query->param('ISSN_filter');
-my $routing = $query->param('routing')||C4::Context->preference("RoutingSerials");
-my $searched = $query->param('searched');
-my $biblionumber = $query->param('biblionumber');
+my $query = new CGI;
+my $title = $query->param('title_filter');
+my $ISSN = $query->param('ISSN_filter');
+my $EAN = $query->param('EAN_filter');
+my $routing = $query->param('routing') || C4::Context->preference("RoutingSerials");
+my $searched = $query->param('searched');
+my $biblionumber = $query->param('biblionumber');
my @serialseqs = $query->param('serialseq');
my @planneddates = $query->param('planneddate');
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { serials => 1 },
+ flagsrequired => { serials => '*' },
debug => 1,
}
);
$template->param('information'=>\@information);
}
my @subscriptions;
-if ($searched){
- @subscriptions = GetSubscriptions( $title, $ISSN, $biblionumber );
+if ($searched) {
+ @subscriptions = GetSubscriptions( $title, $ISSN, $EAN, $biblionumber );
}
# to toggle between create or edit routing list options
if ($routing) {
for my $subscription ( @subscriptions) {
$subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );
+ $subscription->{branchname} = GetBranchName ( $subscription->{branchcode} );
}
}
ISSN_filter => $ISSN,
done_searched => $searched,
routing => $routing,
+ (uc(C4::Context->preference("marcflavour"))) => 1
);
+
output_html_with_http_headers $query, $cookie, $template->output;