use strict;
+use warnings;
use C4::Auth;
use C4::Biblio;
use C4::Output;
my $supplier=$query->param('supplier');
my @suppliers = GetBookSeller($supplier);
-my $count = scalar @suppliers;
+#my $count = scalar @suppliers;
#build result page
-my @loop_suppliers;
-for (my $i=0; $i<$count; $i++) {
- my $orders = GetPendingOrders($suppliers[$i]->{'id'});
- my $ordcount = scalar @$orders;
+my $loop_suppliers = [];
+for my $s (@suppliers) {
+ my $orders = GetPendingOrders($s->{'id'});
- my %line;
- $line{aqbooksellerid} =$suppliers[$i]->{'id'};
- $line{name} = $suppliers[$i]->{'name'};
- $line{active} = $suppliers[$i]->{'active'};
- my @loop_basket;
- for (my $i2=0;$i2<$ordcount;$i2++){
- my %inner_line;
- $inner_line{basketno} =$orders->[$i2]->{'basketno'};
- $inner_line{total} =$orders->[$i2]->{'count(*)'};
- $inner_line{authorisedby} = $orders->[$i2]->{'authorisedby'};
- $inner_line{creationdate} = format_date($orders->[$i2]->{'creationdate'});
- $inner_line{closedate} = format_date($orders->[$i2]->{'closedate'});
- push @loop_basket, \%inner_line;
+ my $loop_basket = [];
+ for my $ord ( @{$orders} ) {
+ push @{$loop_basket}, {
+ basketno => $ord->{'basketno'},
+ total => $ord->{'count(*)'},
+ authorisedby => $ord->{'authorisedby'},
+ creationdate => format_date($ord->{'creationdate'}),
+ closedate => format_date($ord->{'closedate'}),
+ };
}
- $line{loop_basket} = \@loop_basket;
- push @loop_suppliers, \%line;
+ push @{$loop_suppliers}, {
+ loop_basket => $loop_basket,
+ aqbooksellerid => $s->{'id'},
+ name => $s->{'name'},
+ active => $s->{'active'},
+ };
}
-$template->param(loop_suppliers => \@loop_suppliers,
+
+$template->param(loop_suppliers => $loop_suppliers,
supplier => $supplier,
- count => $count);
+ count => scalar @suppliers);
output_html_with_http_headers $query, $cookie, $template->output;
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Output;
my $totcomtd = 0;
my $totavail = 0;
my @loop_budget = ();
-for ( my $i = 0 ; $i < $count ; $i++ ) {
+for my $r (@results) {
my ( $spent, $comtd ) =
- GetBookFundBreakdown( $results[$i]->{'bookfundid'} );
- my $avail = $results[$i]->{'budgetamount'} - ( $spent + $comtd );
+ GetBookFundBreakdown( $r->{'bookfundid'} );
+ my $avail = $r->{'budgetamount'} - ( $spent + $comtd );
my %line;
- $line{bookfundname} = $results[$i]->{'bookfundname'};
- $line{budgetamount} = $results[$i]->{'budgetamount'};
+ $line{bookfundname} = $r->{'bookfundname'};
+ $line{budgetamount} = $r->{'budgetamount'};
$line{spent} = sprintf( "%.2f", $spent );
$line{comtd} = sprintf( "%.2f", $comtd );
$line{avail} = sprintf( "%.2f", $avail );
push @loop_budget, \%line;
- $total += $results[$i]->{'budgetamount'};
+ $total += $r->{'budgetamount'};
$totspent += $spent;
$totcomtd += $comtd;
$totavail += $avail;
#currencies
my @rates = GetCurrencies();
-$count = scalar @rates;
-my @loop_currency = ();
-for ( my $i = 0 ; $i < $count ; $i++ ) {
- my %line;
- $line{currency} = $rates[$i]->{'currency'};
- $line{rate} = $rates[$i]->{'rate'};
- push @loop_currency, \%line;
+my $loop_currency = [];
+for my $r (@rates) {
+ push @{$loop_currency}, {
+ currency => $r->{'currency'},
+ rate => $r->{'rate'},
+ };
}
$template->param(
classlist => $classlist,
type => 'intranet',
loop_budget => \@loop_budget,
- loop_currency => \@loop_currency,
+ loop_currency => $loop_currency,
total => sprintf( "%.2f", $total ),
totspent => sprintf( "%.2f", $totspent ),
totcomtd => sprintf( "%.2f", $totcomtd ),
=cut
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Serials; # GetExpirationDate
#!/usr/bin/perl
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Serials;
}
my $letter=((scalar(@letters)>1) || ($letters[0]->{name}||$letters[0]->{code}));
-my ($count2, @missingissues) = GetLateOrMissingIssues($supplierid,$serialid,$order) if $supplierid;
+my ($count2, @missingissues);
+if ($supplierid) {
+ ($count2, @missingissues) = GetLateOrMissingIssues($supplierid,$serialid,$order);
+}
my $CGIsupplier=CGI::scrolling_list( -name => 'supplierid',
-id => 'supplierid',
if($supplierid){
(@supplierinfo)=GetBookSeller($supplierid);
} else { # set up supplierid for the claim links out of main table if all suppliers is chosen
- for(my $i=0; $i<@missingissues;$i++){
- $missingissues[$i]->{'supplierid'} = getsupplierbyserialid($missingissues[$i]->{'serialid'});
+ for my $mi (@missingissues){
+ $mi->{supplierid} = getsupplierbyserialid($mi->{serialid});
}
}
my $preview=0;
-if($op eq 'preview'){
+if($op && $op eq 'preview'){
$preview = 1;
} else {
my @serialnums=$input->param('serialid');
#!/usr/bin/perl
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Serials;
my $query = new CGI;
my $supplierid = $query->param('supplierid');
my @serialid = $query->param('serialid');
-my $op = $query->param('op');
+my $op = $query->param('op') || q{};
my $serialidcount = @serialid;
my %supplierlist = GetSuppliersWithLateIssues;
my ($count, @lateissues);
if($op ne 'claims'){
($count, @lateissues) = GetLateIssues($supplierid);
- for (my $i=0;$i<@lateissues;$i++){
- my @rows1 = ($lateissues[$i]->{'name'}, # lets build up a row
- $lateissues[$i]->{'title'},
- $lateissues[$i]->{'serialseq'},
- $lateissues[$i]->{'planneddate'},
- );
- push (@loop1, \@rows1);
+ for my $issue (@lateissues){
+ push @loop1,
+ [ $issue->{'name'}, $issue->{'title'}, $issue->{'serialseq'}, $issue->{'planneddate'},];
}
}
my $totalcount2 = 0;
for (my $j=0;$j<@missingissues;$j++){
my @rows2 = ($missingissues[$j]->{'name'}, # lets build up a row
- $missingissues[$j]->{'title'},
+ $missingissues[$j]->{'title'},
$missingissues[$j]->{'serialseq'},
$missingissues[$j]->{'planneddate'},
);
if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness
# not necessarily needed as the name will appear in supplier column also
$heading = "FOR $missingissues[0]->{'name'}";
- $filename = "_$missingissues[0]->{'name'}";
+ $filename = "_$missingissues[0]->{'name'}";
}
}
print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
for my $row ( @loop1 ) {
-
+
$csv->combine(@$row);
my $string = $csv->string;
print $string, "\n";
print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
for my $row ( @loop2 ) {
-
+
$csv->combine(@$row);
my $string = $csv->string;
print $string, "\n";
=head1 member-search.pl
Member Search.pl script used to search for members to add to a routing list
-
+
=cut
use strict;
+use warnings;
use CGI;
use C4::Auth; # get_template_and_user
use C4::Output;
# lets one print out routing slip and create (in this instance) the heirarchy
# of reserves for the serial
use strict;
+use warnings;
use CGI;
use C4::Koha;
use C4::Auth;
if($delete){
delroutingmember($routingid,$subscriptionid);
my $sth = $dbh->prepare("UPDATE serial SET routingnotes = NULL WHERE subscriptionid = ?");
- $sth->execute($subscriptionid);
- print $query->redirect("routing.pl?subscriptionid=$subscriptionid&op=new");
+ $sth->execute($subscriptionid);
+ print $query->redirect("routing.pl?subscriptionid=$subscriptionid&op=new");
}
if($edit){
print $query->redirect("routing.pl?subscriptionid=$subscriptionid");
}
-
+
my ($routing, @routinglist) = getroutinglist($subscriptionid);
my $subs = GetSubscription($subscriptionid);
my ($count,@serials) = GetSerials($subscriptionid);
if($ok){
# get biblio information....
my $biblio = $subs->{'biblionumber'};
-
+
# get existing reserves .....
my ($count,$reserves) = GetReservesFromBiblionumber($biblio);
my $totalcount = $count;
AddReserve($branch,$routinglist[$i]->{'borrowernumber'},$biblio,$const,\@bibitems,$routinglist[$i]->{'ranking'},'',$notes,$title);
}
}
-
-
+
+
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/routing-preview-slip.tmpl",
query => $query,
flagsrequired => {serials => 1},
debug => 1,
});
-}
+}
-# my $firstdate = "$serials[0]->{'serialseq'} ($serials[0]->{'planneddate'})";
my @results;
my $data;
for(my $i=0;$i<$routing;$i++){
my $routingnotes = $serials[0]->{'routingnotes'};
$routingnotes =~ s/\n/\<br \/\>/g;
-
+
$template->param(
title => $subs->{'bibliotitle'},
issue => $issue,
issue_escaped => URI::Escape::uri_escape($issue),
subscriptionid => $subscriptionid,
- memberloop => \@results,
+ memberloop => \@results,
routingnotes => $routingnotes,
);
=cut
use strict;
+use warnings;
use CGI;
use C4::Koha;
use C4::Auth;
my $routingid = $query->param('routingid');
my $borrowernumber = $query->param('borrowernumber');
my $notes = $query->param('notes');
-my $op = $query->param('op');
+my $op = $query->param('op') || q{};
my $date_selected = $query->param('date_selected');
my $dbh = C4::Context->dbh;
my $urldate = URI::Escape::uri_escape($date_selected);
print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
}
-
+
my ($routing, @routinglist) = getroutinglist($subscriptionid);
my $subs = GetSubscription($subscriptionid);
my ($count,@serials) = GetSerials($subscriptionid);
# }
# my $issue = "$serialseq ($date)";
-
+
my @results;
my $data;
for(my $i=0;$i<$routing;$i++){
$data=GetMember($routinglist[$i]->{'borrowernumber'},'borrowernumber');
$data->{'location'}=$data->{'branchcode'};
- $data->{'name'}="$data->{'firstname'} $data->{'surname'}";
+ if ($data->{firstname} ) {
+ $data->{name} = $data->{firstname} . q| |;
+ }
+ else {
+ $data->{name} = q{};
+ }
+ if ($data->{surname} ) {
+ $data->{name} .= $data->{surname};
+ }
$data->{'routingid'}=$routinglist[$i]->{'routingid'};
$data->{'subscriptionid'}=$subscriptionid;
- my $rankingbox = '<select name="itemrank" onchange="reorder_item('.$subscriptionid.','.$routinglist[$i]->{'routingid'}.',this.options[this.selectedIndex].value)">';
+ if (! $routinglist[$i]->{routingid} ) {
+ $routinglist[$i]->{routingid} = q||;
+ }
+ my $rankingbox = '<select name="itemrank" onchange="reorder_item('
+ . $subscriptionid . ',' .$routinglist[$i]->{'routingid'} . ',this.options[this.selectedIndex].value)">';
for(my $j=1; $j <= $routing; $j++) {
$rankingbox .= "<option ";
- if($routinglist[$i]->{'ranking'} == $j){
+ if($routinglist[$i]->{ranking} && $routinglist[$i]->{ranking} == $j){
$rankingbox .= " selected=\"selected\"";
}
$rankingbox .= " value=\"$j\">$j</option>";
}
$rankingbox .= "</select>";
$data->{'routingbox'} = $rankingbox;
-
+
push(@results, $data);
}
$template->param(
title => $subs->{'bibliotitle'},
subscriptionid => $subscriptionid,
- memberloop => \@results,
+ memberloop => \@results,
op => $new,
dates => \@dates,
routingnotes => $serials[0]->{'routingnotes'},
=cut
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Koha;
$selectview = C4::Context->preference("SubscriptionHistory") unless $selectview;
my $sth;
-# my $id;
my ($template, $loggedinuser, $cookie);
my $biblionumber = $query->param('biblionumber');
if ($selectview eq "full"){
flagsrequired => {serials => 1},
debug => 1,
});
-
+
# replace CR by <br> in librarian note
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
-
+
$template->param(
biblionumber => $query->param('biblionumber'),
years => $subscriptions,
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Koha;
my $subscriptiondescs ;
my $subscriptions;
-if($op eq "gennext" && @subscriptionid){
- my $subscriptionid = @subscriptionid[0];
+$op ||= q{};
+if($op eq 'gennext' && @subscriptionid){
+ my $subscriptionid = $subscriptionid[0];
my $subscription = GetSubscription($subscriptionid);
my $sth = $dbh->prepare("SELECT publisheddate, serialid, serialseq, planneddate
$newserialseq, $newlastvalue1, $newlastvalue2, $newlastvalue3,
$newinnerloop1, $newinnerloop2, $newinnerloop3
) = GetNextSeq($subscription);
-
+
## We generate the next publication date
my $nextpublisheddate = GetNextDate( $expected->{planneddate}->output('iso'), $subscription );
## Creating the new issue
NewIssue( $newserialseq, $subscriptionid, $subscription->{'biblionumber'},
1, $nextpublisheddate, $nextpublisheddate );
-
+
## Updating the subscription seq status
my $squery = "UPDATE subscription SET lastvalue1=?, lastvalue2=?, lastvalue3=?, innerloop1=?, innerloop2=?, innerloop3=?
WHERE subscriptionid = ?";
$subs->{ "status" . $subs->{'status'} } = 1;
$subs->{startdate} = format_date( $subs->{startdate} );
$subs->{histstartdate} = format_date( $subs->{histstartdate} );
- if ( $subs->{enddate} eq '0000-00-00' ) {
+ if ( !defined $subs->{enddate} || $subs->{enddate} eq '0000-00-00' ) {
$subs->{enddate} = '';
}
else {
=item op
op can be :
- * modsubscriptionhistory :to modify the subscription history
+ * modsubscriptionhistory :to modify the subscription history
* serialchangestatus :to modify the status of this subscription
=item subscriptionid
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Dates qw/format_date format_date_in_iso/;
}
my @errors;
my @errseq;
-my $redirectstring;
# If user comes from subscription details
unless (@serialids){
foreach my $subscriptionid (@subscriptionids){
unless (scalar(@serialids)){
my $string="serials-collection.pl?subscriptionid=".join(",",@subscriptionids);
$string=~s/,$//;
-# warn $string;
+# warn $string;
print $query->redirect($string);
}
my ($template, $loggedinuser, $cookie)
$data->{planneddate}=format_date($data->{planneddate});
$data->{'editdisable'}=((HasSubscriptionExpired($data->{subscriptionid})&& $data->{'status1'})||$data->{'cannotedit'});
push @serialdatalist,$data;
- $processedserialid{$tmpserialid}=1;
+ $processedserialid{$tmpserialid}=1;
}
my $bibdata=GetBiblioData($serialdatalist[0]->{'biblionumber'});
next unless (defined($subscriptionid) && !$processedsubscriptionid{$subscriptionid});
my $cell;
if ($serialdatalist[0]->{'serialsadditems'}){
- #Create New empty item
+ #Create New empty item
$cell =
PrepareItemrecordDisplay( $serialdatalist[0]->{'biblionumber'},'', GetSubscription($subscriptionid));
$cell->{serialsadditems} = 1;
'abouttoexpire'=>abouttoexpire($subscriptionid),
'subscriptionexpired'=>HasSubscriptionExpired($subscriptionid),
};
- $processedsubscriptionid{$subscriptionid}=1;
+ $processedsubscriptionid{$subscriptionid}=1;
}
$template->param(newserialloop=>\@newserialloop);
$template->param(subscriptions=>\@subscriptionloop);
-if ($op eq 'serialchangestatus') {
+if ($op and $op eq 'serialchangestatus') {
# my $sth = $dbh->prepare("select status from serial where serialid=?");
my $newserial;
for (my $i=0;$i<=$#serialids;$i++) {
}
}
# check for item barcode # being unique
- my $exists = GetItemnumberFromBarcode($record->subfield($barcodetagfield,$barcodetagsubfield)) if ($record->subfield($barcodetagfield,$barcodetagsubfield));
- # push @errors,"barcode_not_unique" if($exists);
+ my $exists;
+ if ($record->subfield($barcodetagfield,$barcodetagsubfield)) {
+ $exists = GetItemnumberFromBarcode($record->subfield($barcodetagfield,$barcodetagsubfield));
+ }
+ # push @errors,"barcode_not_unique" if($exists);
# if barcode exists, don't create, but report The problem.
- if ($exists){
- push @errors,"barcode_not_unique" if($exists);
- push @errseq,{"serialseq"=>$serialseqs[$index]};
+ if ($exists){
+ push @errors,"barcode_not_unique" if($exists);
+ push @errseq,{"serialseq"=>$serialseqs[$index]};
} else {
- my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$itemhash{$item}->{'bibnum'});
- AddItem2Serial($itemhash{$item}->{'serial'},$itemnumber);
+ my ($biblionumber,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$itemhash{$item}->{'bibnum'});
+ AddItem2Serial($itemhash{$item}->{'serial'},$itemnumber);
}
} else {
#modify item
}
}
}
-# ### FIXME this part of code is not very pretty. Nor is it very efficient... There MUST be a more perlish way to write it. But it works.
+# ### FIXME this part of code is not very pretty. Nor is it very efficient... There MUST be a more perlish way to write it. But it works.
# my $redirect ="serials-home.pl?";
# $redirect.=join("&",map{"serialseq=".$_} @serialseqs);
# $redirect.="&".join("&",map{"planneddate=".$_} @planneddates);
$template->param("Errors" => 1);
if (scalar(@errseq)>0){
$template->param("barcode_not_unique" => 1);
- $template->param('errseq'=>\@errseq);
- }
- } else {
+ $template->param('errseq'=>\@errseq);
+ }
+ } else {
my $redirect ="serials-collection.pl?";
my %hashsubscription;
foreach (@subscriptionids) {
}
$redirect.=join("&",map{"subscriptionid=".$_} sort keys %hashsubscription);
print $query->redirect("$redirect");
- }
+ }
}
$template->param(
=cut
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Serials;
### FIXME This limitation that a serial must be given a title may not be very efficient for some library who do not update serials titles.
push @information,
{ serialseq=>$seq,
- publisheddate=>$publisheddates[$index],
- planneddate=>$planneddates[$index],
- notes=>$notes[$index],
+ publisheddate=>$publisheddates[$index],
+ planneddate=>$planneddates[$index],
+ notes=>$notes[$index],
status=>$status[$index]
- }
- }
- $index++;
- }
+ }
+ }
+ $index++;
+ }
$template->param('information'=>\@information);
}
my @subscriptions;
# to toggle between create or edit routing list options
if ($routing) {
- for ( my $i = 0 ; $i < @subscriptions ; $i++ ) {
- my $checkrouting =
- check_routing( $subscriptions[$i]->{'subscriptionid'} );
- $subscriptions[$i]->{'routingedit'} = $checkrouting;
+ for my $subscription ( @subscriptions) {
+ $subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );
}
}
$add1,$every1,$whenmorethan1,$setto1,$lastvalue1,$innerloop1,
$add2,$every2,$whenmorethan2,$setto2,$lastvalue2,$innerloop2,
$add3,$every3,$whenmorethan3,$setto3,$lastvalue3,$innerloop3,
- $numberingmethod, $status, $biblionumber,
+ $numberingmethod, $status, $biblionumber,
$bibliotitle, $callnumber, $notes, $hemisphere, $letter, $manualhistory,$serialsadditems, $location);
my @budgets;
my $sub_on;
my @subscription_types = (
'issues', 'weeks', 'months'
- );
+ );
my @sub_type_data;
my $subs;
if ($subs->{'cannotedit'} && $op eq 'mod'){
warn "Attempt to modify subscription $subscriptionid by ".C4::Context->userenv->{'id'}." not allowed";
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
- }
+ }
$firstissuedate = $subs->{firstacquidate}; # in iso format.
for (qw(startdate firstacquidate histstartdate enddate histenddate)) {
next unless defined $subs->{$_};
if ($subs->{$_} eq '0000-00-00') {
$subs->{$_} = ''
} else {
- $subs->{$_} = format_date($subs->{$_});
+ $subs->{$_} = format_date($subs->{$_});
}
}
$subs->{'letter'}='' unless($subs->{'letter'});
last;
}
}
-
+
$template->param($subs);
$template->param("dow".$subs->{'dow'} => 1) if defined $subs->{'dow'};
$template->param(
}
}
-my $onlymine=C4::Context->preference('IndependantBranches') &&
- C4::Context->userenv &&
- C4::Context->userenv->{flags} % 2 !=1 &&
+my $onlymine=C4::Context->preference('IndependantBranches') &&
+ C4::Context->userenv &&
+ C4::Context->userenv->{flags} % 2 !=1 &&
C4::Context->userenv->{branch};
my $branches = GetBranches($onlymine);
my @branchloop;
my $branchcode = $query->param('branchcode');
my $aqbooksellerid = $query->param('aqbooksellerid');
my $cost = $query->param('cost');
- my $aqbudgetid = $query->param('aqbudgetid');
+ my $aqbudgetid = $query->param('aqbudgetid');
my $startdate = $query->param('startdate');
- my $firstacquidate = $query->param('firstacquidate');
+ my $firstacquidate = $query->param('firstacquidate');
my $periodicity = $query->param('periodicity');
my $dow = $query->param('dow');
my @irregularity = $query->param('irregularity_select');
# if we have not received any issues yet, then we also must change the firstacquidate for the subs.
$firstissuedate = $nextacquidate if($nextexpected->{isfirstissue});
}
-
+
if ($history_only) {
ModSubscriptionHistory ($subscriptionid,$histstartdate,$histenddate,$recievedlist,$missinglist,$opacnote,$librariannote);
} else {
$row{'selected'} = '';
}
push( @sub_type_data, \%row );
- }
+ }
$template->param(subtype => \@sub_type_data,
);
};
}
$template->param(letterloop => \@letterloop) if @letterloop;
+ return;
}
-
use strict;
+use warnings;
use CGI;
use C4::Koha;
my $index = C4::Context->preference("item-level_itypes") ? 'itype' : 'itemtype';
$query .= " AND $index=$itemtypelimit";
}
-
+
$resultsperpage= $input->param('resultsperpage');
$resultsperpage = 20 if(!defined $resultsperpage);
exit;
}
my @results;
-
+
for(my $i=0;$i<$total;$i++) {
my %resultsloop;
my $marcrecord = MARC::File::USMARC::decode($marcrecords->[$i]);
push @results, \%resultsloop;
}
-
+
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/result.tmpl",
query => $input,
}
}
}
-
+
my $from = 0;
$from = $startfrom*$resultsperpage+1 if($total_hits > 0);
my $to;
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Koha;
use C4::Output;
use C4::Context;
use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/;
-#use Date::Manip;
+use Carp;
my $query = new CGI;
my $op = $query->param('op');
my $dbh = C4::Context->dbh;
-my $sth;
-# my $id;
my ($template, $loggedinuser, $cookie, $hemisphere);
my $subscriptionid = $query->param('subscriptionid');
-my $subs = &GetSubscription($subscriptionid);
+my $subs = GetSubscription($subscriptionid);
$subs->{enddate} = GetExpirationDate($subscriptionid);
-if ($op eq 'del') {
+if ($op && $op eq 'del') {
if ($subs->{'cannotedit'}){
- warn "Attempt to delete subscription $subscriptionid by ".C4::Context->userenv->{'id'}." not allowed";
+ carp "Attempt to delete subscription $subscriptionid by ".C4::Context->userenv->{'id'}." not allowed";
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
- }
- &DelSubscription($subscriptionid);
+ }
+ DelSubscription($subscriptionid);
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=serials-home.pl\"></html>";
exit;
}
$template->param($subs);
$template->param(biblionumber_for_new_subscription => $subs->{bibnum});
+my @irregular_issues = split /,/, $subs->{irregularity};
+if (! $subs->{numberpattern}) {
+ $subs->{numberpattern} = q{};
+}
+if (! $subs->{dow}) {
+ $subs->{dow} = q{};
+}
+if (! $subs->{periodicity}) {
+ $subs->{periodicity} = '0';
+}
$template->param(
subscriptionid => $subscriptionid,
routing => $routing,
serialslist => \@serialslist,
totalissues => $totalissues,
hemisphere => $hemisphere,
- cannotedit =>(C4::Context->preference('IndependantBranches') &&
- C4::Context->userenv &&
- C4::Context->userenv->{flags} % 2 !=1 &&
+ cannotedit =>(C4::Context->preference('IndependantBranches') &&
+ C4::Context->userenv &&
+ C4::Context->userenv->{flags} % 2 !=1 &&
C4::Context->userenv->{branch} && $subs->{branchcode} &&
(C4::Context->userenv->{branch} ne $subs->{branchcode})),
- "periodicity".($subs->{periodicity}?$subs->{periodicity}:'0') => 1,
- "arrival".$subs->{dow} => 1,
- "numberpattern".$subs->{numberpattern} => 1,
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
- irregular_issues => scalar(split(/,/,$subs->{irregularity})),
+ 'periodicity' . $subs->{periodicity} => 1,
+ 'arrival' . $subs->{dow} => 1,
+ 'numberpattern' . $subs->{numberpattern} => 1,
+ intranetstylesheet => C4::Context->preference('intranetstylesheet'),
+ intranetcolorstylesheet => C4::Context->preference('intranetcolorstylesheet'),
+ irregular_issues => scalar @irregular_issues,
);
output_html_with_http_headers $query, $cookie, $template->output;
#!/usr/bin/perl
-# WARNING: 4-character tab stops here
# Copyright 2000-2002 Katipo Communications
#
=cut
use strict;
+use warnings;
use CGI;
use C4::Koha;
$query->param('startdate'), $query->param('numberlength'),
$query->param('weeklength'), $query->param('monthlength'),
$query->param('note')
- );
+ );
}
my $subscription = GetSubscription($subscriptionid);
if ($subscription->{'cannotedit'}){
warn "Attempt to renew subscription $subscriptionid by ".C4::Context->userenv->{'id'}." not allowed";
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
-}
+}
$template->param(
startdate => format_date(
subscriptionid => $subscriptionid,
bibliotitle => $subscription->{bibliotitle},
$op => 1,
- popup => ($query->param('mode')eq "popup"),
+ popup => ($query->param('mode')eq "popup"),
);
# Print the page
output_html_with_http_headers $query, $cookie, $template->output;
-
-# Local Variables:
-# tab-width: 4
-# End: