From de16696e152a15271533eaf230abe4aef1dfb3f9 Mon Sep 17 00:00:00 2001 From: toins Date: Wed, 12 Jul 2006 16:40:12 +0000 Subject: [PATCH] this file has moved from bull to here --- serials/printlist.pl | 84 ++++++++++++++++++++++++++++ serials/subscription-renew.pl | 100 ++++++++++++++++++++++++++++++++++ serials/viewalerts.pl | 60 ++++++++++++++++++++ 3 files changed, 244 insertions(+) create mode 100755 serials/printlist.pl create mode 100755 serials/subscription-renew.pl create mode 100755 serials/viewalerts.pl diff --git a/serials/printlist.pl b/serials/printlist.pl new file mode 100755 index 0000000000..4e0161647b --- /dev/null +++ b/serials/printlist.pl @@ -0,0 +1,84 @@ +#!/usr/bin/perl +# NOTE: Use standard 8-space tabs for this file (indents are 4 spaces) + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA +# +# $Id$ + +=head1 NAME + +printlist.pl + +=head1 DESCRIPTION + +this script print the list of members who have reserved the subscription given on input arg. + +=head1 PARAMETERS + +=over 4 + +=item serialseq + +=item subscriptionid + +=back + +=cut + +use HTML::Template; +use strict; +require Exporter; +use C4::Context; +use C4::Output; # contains gettemplate +use CGI; +use C4::Auth; +use C4::Serials; +use C4::Interface::CGI::Output; +use C4::Koha; + +my $query=new CGI; + +my $serialseq=$query->param('serialseq'); +my $subscriptionid=$query->param('subscriptionid'); +my $subscription = GetSubscription($subscriptionid); +$subscription->{'distributedto'} =~ s/\n//g; + +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "serials/printlist.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +$template->param(serialseq => $serialseq, + title => $subscription->{bibliotitle}, + branchname => getbranchdetail(C4::Context->userenv->{'branch'})->{branchname}, + branchaddress1 => getbranchdetail(C4::Context->userenv->{'branch'})->{address1}, + branchaddress2 => getbranchdetail(C4::Context->userenv->{'branch'})->{address2}, + branchaddress3 => getbranchdetail(C4::Context->userenv->{'branch'})->{address3}, + branchphone => getbranchdetail(C4::Context->userenv->{'branch'})->{branchphone}, + branchemail => getbranchdetail(C4::Context->userenv->{'branch'})->{branchemail}, + distributedto => $subscription->{'distributedto'}, + ); +output_html_with_http_headers $query, $cookie, $template->output; + + +# Local Variables: +# tab-width: 8 +# End: diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl new file mode 100755 index 0000000000..09e83498ed --- /dev/null +++ b/serials/subscription-renew.pl @@ -0,0 +1,100 @@ +#!/usr/bin/perl +# WARNING: 4-character tab stops here + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +# $Id$ + +=head1 NAME + +subscription-renew.pl + +=head1 DESCRIPTION + +this script renew an existing subscription. + +=head1 Parameters + +=over 4 + +=item op +op use to know the operation to do on this template. + * renew : to renew the subscription. + +Note that if op = modsubscription there are a lot of other parameters. + +=item subscriptionid +Id of the subscription this script has to renew + +=back + +=cut + + +use strict; +require Exporter; +use CGI; +use C4::Koha; +use C4::Auth; +use C4::Date; +use HTML::Template; +use C4::Context; +use C4::Search; +use C4::Auth; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Serials; + +my $query = new CGI; +my $dbh = C4::Context->dbh; + +my $op = $query->param('op'); +my $subscriptionid = $query->param('subscriptionid'); + +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "serials/subscription-renew.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); +if ($op eq "renew") { + ReNewSubscription($subscriptionid,$loggedinuser,$query->param('startdate'),$query->param('numberlength'),$query->param('weeklength'),$query->param('monthlength'),$query->param('note')); +} + +my $subscription= GetSubscription($subscriptionid); + +$template->param(startdate => format_date(GetSubscriptionExpirationDate($subscriptionid)), + numberlength => $subscription->{numberlength}, + weeklength => $subscription->{weeklength}, + monthlength => $subscription->{monthlength}, + subscriptionid => $subscriptionid, + bibliotitle => $subscription->{bibliotitle}, + $op => 1, + intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), + intranetstylesheet => C4::Context->preference("intranetstylesheet"), + IntranetNav => C4::Context->preference("IntranetNav"), + ); + +# Print the page +output_html_with_http_headers $query, $cookie, $template->output; + +# Local Variables: +# tab-width: 4 +# End: diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl new file mode 100755 index 0000000000..c72b1993d6 --- /dev/null +++ b/serials/viewalerts.pl @@ -0,0 +1,60 @@ +#!/usr/bin/perl + +# $Id$ + +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use C4::Auth; +use C4::Context; +use C4::Output; +use CGI; +use C4::Interface::CGI::Output; +use C4::Interface::CGI::Template; +use C4::Koha; +use C4::Letters; +use C4::Serials; + +my $dbh = C4::Context->dbh; + +my $input = new CGI; +my $print = $input->param('print'); +my $template_name; + +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => 'serials/viewalerts.tmpl', + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); + +my $subscriptionid=$input->param('subscriptionid'); + +my $borrowers = getalert('','issue',$subscriptionid); +my $subscription = GetSubscription($subscriptionid); + +foreach (@$borrowers) { + $_->{name} = findrelatedto('borrower',$_->{borrowernumber}); +} +$template->param(alertloop => $borrowers, + bibliotitle => $subscription->{bibliotitle}, + subscriptionid => $subscriptionid); + +output_html_with_http_headers $input, $cookie, $template->output; -- 2.39.2