[Koha-cvs] koha/serials serial-issues.pl

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/12 16:45:20

Modified files:
        serials        : serial-issues.pl 

Log message:
        Pod added, Unused param deleted.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serial-issues.pl?cvsroot=koha&r1=1.2&r2=1.3

Patches:
Index: serial-issues.pl
===================================================================
RCS file: /sources/koha/koha/serials/serial-issues.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- serial-issues.pl    7 Jul 2006 09:05:23 -0000       1.2
+++ serial-issues.pl    12 Jul 2006 16:45:20 -0000      1.3
@@ -17,7 +17,30 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: serial-issues.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+# $Id: serial-issues.pl,v 1.3 2006/07/12 16:45:20 toins Exp $
+
+=head1 NAME
+
+serial-issue.pl
+
+=head1 DESCRIPTION
+
+this script give more information about a susbcription given on input arg.
+
+=head1 PARAMETERS
+
+=over 4
+
+=item selectview
+can be equal to "full" or not.
+
+=item biblionumber
+the biblionumber this script has to give more infos.
+
+=back
+
+
+=cut
 
 use strict;
 use CGI;
@@ -31,7 +54,6 @@
 use HTML::Template;
 
 my $query = new CGI;
-my $op = $query->param('op');
 my $dbh = C4::Context->dbh;
 my $selectview = $query->param('selectview');
 $selectview = C4::Context->preference("SubscriptionHistory") unless 
$selectview;
@@ -41,7 +63,7 @@
 my ($template, $loggedinuser, $cookie);
 my $biblionumber = $query->param('biblionumber');
 if ($selectview eq "full"){
- my $subscriptions = GetFullSubscriptionListFromBiblionumber($biblionumber);
+    my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
  
  my $title = $subscriptions->[0]{bibliotitle};
  my $yearmin=$subscriptions->[0]{year};
@@ -69,8 +91,7 @@
   );
 
 } else {
- my $subscriptions = GetSubscriptionListFromBiblionumber($biblionumber);
- 
+    my $subscriptions = GetSubscriptionsFromBiblionumber($biblionumber);
  ($template, $loggedinuser, $cookie)
  = get_template_and_user({template_name => "serials/serial-issues.tmpl",
      query => $query,
@@ -83,10 +104,10 @@
  # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
  
  $template->param(
-  biblionumber => $query->param('biblionumber'),
+        biblionumber => "".$query->param('biblionumber'),
   subscription_LOOP => $subscriptions,
-  suggestion => C4::Context->preference("suggestion"),
-  virtualshelves => C4::Context->preference("virtualshelves"),
+        suggestion => "".C4::Context->preference("suggestion"),
+        virtualshelves => "".C4::Context->preference("virtualshelves"),
   );
 }
 output_html_with_http_headers $query, $cookie, $template->output;