[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 => \@serialslist,
 	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;