[Koha-cvs] koha/catalogue issuehistory.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/11/14 15:07:20

Modified files:
	catalogue      : issuehistory.pl 

Log message:
	get title & author into the cgi->param.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/issuehistory.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.3&r2=1.1.2.4

Patches:
Index: issuehistory.pl
===================================================================
RCS file: /sources/koha/koha/catalogue/Attic/issuehistory.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- issuehistory.pl	13 Nov 2006 14:22:04 -0000	1.1.2.3
+++ issuehistory.pl	14 Nov 2006 15:07:20 -0000	1.1.2.4
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: issuehistory.pl,v 1.1.2.3 2006/11/13 14:22:04 toins Exp $
+# $Id: issuehistory.pl,v 1.1.2.4 2006/11/14 15:07:20 toins Exp $
 
 use strict;
 require Exporter;
@@ -38,14 +38,22 @@
 my $params = $query->Vars;
 
 my $bib = $params->{'biblionumber'};
+my $title = $params->{'title'};
+my $author = $params->{'author'};
 
 my $issues = GetIssuesFromBiblio($bib);
+my $total = scalar @$issues;
+
+if($total && !$title){
+    $title = $issues->[0]->{'title'};
+    $author = $issues->[0]->{'author'};
+}
 
 $template->param(
     biblionumber => $bib,
     total  => scalar @$issues,
-    title  => $issues->[0]->{'title'},
-    author => $issues->[0]->{'author'},
+    title  => $title,
+    author => $author,
     issues => $issues
 );