[Koha-cvs] koha/serials subscription-detail.pl

[Antoine Farnault]

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

Modified files:
        serials        : subscription-detail.pl 

Log message:
        POD added.

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

Patches:
Index: subscription-detail.pl
===================================================================
RCS file: /sources/koha/koha/serials/subscription-detail.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- subscription-detail.pl      7 Jul 2006 09:05:23 -0000       1.2
+++ subscription-detail.pl      12 Jul 2006 16:41:35 -0000      1.3
@@ -17,7 +17,34 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: subscription-detail.pl,v 1.2 2006/07/07 09:05:23 toins Exp $
+# $Id: subscription-detail.pl,v 1.3 2006/07/12 16:41:35 toins Exp $
+
+=head1 NAME
+
+subscription-details.pl
+
+=head1 DESCRIPTION
+
+this script display the detail of a subscription given on input arg.
+
+=head1 Parameters
+
+=over 4
+
+=item op
+op use to know the operation to do on this template.
+ * modsubscription : to modify the subscription.
+ * del : to delete this subscription.
+
+Note that if op = modsubscription there are a lot of other parameters.
+
+=item subscriptionid
+The subscription this script has to dislay
+
+=back
+
+=cut
+
 
 use strict;
 use CGI;
@@ -91,9 +118,8 @@
 
 if ($op eq 'del') {
        &DelSubscription($subscriptionid);
-       print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=../bull-home.pl\"></html>";
+    print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=../serials-home.pl\"></html>";
        exit;
-
 }
 $subs = &GetSubscription($subscriptionid);
 # html'ize distributedto
@@ -154,10 +180,9 @@
        subscriptionid => $subs->{subscriptionid},
        serialslist => address@hidden,
        totalissues => $totalissues,
-       );
-$template->param(
                        "periodicity$subs->{periodicity}" => 1,
-                       "arrival$subs->{dow}" => 1,
-                       );
+    "arrival$subs->{dow}" => 1
+);
+
 
 output_html_with_http_headers $query, $cookie, $template->output;