Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

serials-edit.pl

Browse source 
Changing redirection to serials-home.pl
serials-home.pl
	Adding some parameters to serials-home script to display information passed by serials-edit.pl
	Preparing information for display.
(template to get committed)
This commit is contained in:
hdl 2007-06-30 06:23:10 +00:00
parent 0a9ee0c59b
commit 866708d29a
2 changed files with 32 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
serials/serials-edit.pl
View file

@ -248,7 +248,14 @@ if ($op eq 'serialchangestatus') {
}
}
}
print $query->redirect("serials-collection.pl?biblionumber=".$serialdatalist[0]->{biblionumber});
### FIXME this part of code is not very pretty. Nor is it very efficient... There MUST be a more perlish way to write it. But it works.
my $redirect ="serials-home.pl?";
$redirect.=join("&",map{"serialseq=".$_} @serialseqs);
$redirect.="&".join("&",map{"planneddate=".$_} @planneddates);
$redirect.="&".join("&",map{"publisheddate=".$_} @publisheddates);
$redirect.="&".join("&",map{"status=".$_} @status);
$redirect.="&".join("&",map{"notes=".$_} @notes);
print $query->redirect("$redirect");
}
$template->param(serialsadditems =>C4::Context->preference("serialsadditems"));

24
serials/serials-home.pl
View file

@ -55,6 +55,12 @@ my $routing = $query->param('routing');
my $searched = $query->param('searched');
my $biblionumber = $query->param('biblionumber');
my @serialseqs = $query->param('serialseq');
my @planneddates = $query->param('planneddate');
my @publisheddates = $query->param('publisheddate');
my @status = $query->param('status');
my @notes = $query->param('notes');
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "serials/serials-home.tmpl",
@ -66,6 +72,24 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
if (@serialseqs){
my @information;
my $index;
foreach my $seq (@serialseqs){
if ($seq){
### FIXME This limitation that a serial must be given a title may not be very efficient for some library who do not update serials titles.
push @information,
{ serialseq=>$seq,
publisheddate=>$publisheddates[$index],
planneddate=>$planneddates[$index],
notes=>$notes[$index],
status=>$status[$index]
}
}
$index++;
}
$template->param('information'=>\@information);
}
my @subscriptions;
if ($searched){
@subscriptions = GetSubscriptions( $title, $ISSN, $biblionumber );