Attachment 18583 Details for Bug 8956 – [Signed off] Bug 8956 - Split serials enumeration data into separate fields - Part 8 - Perltidy serials/subscription-add.pl again

[patch] [Signed off] Bug 8956 - Split serials enumeration data into separate fields - Part 8 - Perltidy serials/subscription-add.pl again

Signed-off-Bug-8956---Split-serials-enumeration-da.patch (text/plain), 3.26 KB, created by Melia Meggs on 2013-05-31 23:37:55 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Melia Meggs

Created: 2013-05-31 23:37:55 UTC

Size: 3.26 KB

patch

obsolete

>From 2b7849c2e9f1c398018b9ab7cb679abe5e569e5c Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>Date: Tue, 19 Mar 2013 02:52:27 -0700
>Subject: [PATCH] [Signed off] Bug 8956 - Split serials enumeration data into separate fields - Part 8 - Perltidy serials/subscription-add.pl again
>
>Signed-off-by: Paul Landers <paul.landers@ttuhsc.edu>
>---
> serials/subscription-add.pl |   24 +++++++++++++-----------
> 1 files changed, 13 insertions(+), 11 deletions(-)
>
>diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl
>index 1ef36a1..d17611a 100755
>--- a/serials/subscription-add.pl
>+++ b/serials/subscription-add.pl
>@@ -137,7 +137,8 @@ my $branches = GetBranches($onlymine);
> my $branchloop;
> for my $thisbranch (
>     sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} }
>-    keys %{$branches} )
>+    keys %{$branches}
>+  )
> {
>     my $selected = 0;
>     $selected = 1 if ( defined($subs) && $thisbranch eq $subs->{'branchcode'} );
>@@ -275,9 +276,9 @@ sub redirect_add_subscription {
>     my $missinglist    = $query->param('missinglist');
>     my $opacnote       = $query->param('opacnote');
>     my $librariannote  = $query->param('librariannote');
>-    my $x_label           = $query->param('x_label');
>-    my $y_label           = $query->param('y_label');
>-    my $z_label           = $query->param('z_label');
>+    my $x_label        = $query->param('x_label');
>+    my $y_label        = $query->param('y_label');
>+    my $z_label        = $query->param('z_label');
>     my $subscriptionid = NewSubscription(
>         $auser,           $branchcode,
>         $aqbooksellerid,  $cost,
>@@ -302,8 +303,8 @@ sub redirect_add_subscription {
>         $internalnotes,     $serialsadditems,
>         $staffdisplaycount, $opacdisplaycount,
>         $graceperiod,       $location,
>-        $enddate,
>-        $x_label, $y_label, $z_label,
>+        $enddate,           $x_label,
>+        $y_label,           $z_label,
>     );
>     ModSubscriptionHistory(
>         $subscriptionid, $histstartdate, $histenddate, $recievedlist,
>@@ -380,11 +381,11 @@ sub redirect_mod_subscription {
>     my $nextexpected      = GetNextExpected($subscriptionid);
> 
>     # field labels
>-    my $x_label           = $query->param('x_label');
>-    my $y_label           = $query->param('y_label');
>-    my $z_label           = $query->param('z_label');
>+    my $x_label = $query->param('x_label');
>+    my $y_label = $query->param('y_label');
>+    my $z_label = $query->param('z_label');
> 
>-    #  If it's  a mod, we need to check the current 'expected' issue, and mod it in the serials table if necessary.
>+#  If it's  a mod, we need to check the current 'expected' issue, and mod it in the serials table if necessary.
>     if ( $nextacquidate ne $nextexpected->{planneddate}->output('iso') ) {
>         ModNextExpected( $subscriptionid,
>             C4::Dates->new( $nextacquidate, 'iso' ) );
>@@ -418,7 +419,8 @@ sub redirect_mod_subscription {
>         $staffdisplaycount, $opacdisplaycount,
>         $graceperiod,       $location,
>         $enddate,           $subscriptionid,
>-        $x_label,           $y_label,          $z_label
>+        $x_label,           $y_label,
>+        $z_label
>     );
>     ModSubscriptionHistory(
>         $subscriptionid, $histstartdate, $histenddate, $recievedlist,
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 8956: 13041 | 13042 | 13043 | 13044 | 13045 | 13046 | 13047 | 15914 | 15915 | 15916 | 15917 | 15918 | 15919 | 15920 | 16346 | 16347 | 16348 | 16349 | 16350 | 16351 | 16352 | 16353 | 18554 | 18555 | 18556 | 18557 | 18558 | 18559 | 18560 | 18561 | 18568 | 18569 | 18570 | 18571 | 18572 | 18573 | 18574 | 18575 | 18576 | 18577 | 18578 | 18579 | 18580 | 18581 | 18582 | 18583 | 18679