|
Lines 137-143
my $branches = GetBranches($onlymine);
Link Here
|
| 137 |
my $branchloop; |
137 |
my $branchloop; |
| 138 |
for my $thisbranch ( |
138 |
for my $thisbranch ( |
| 139 |
sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } |
139 |
sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } |
| 140 |
keys %{$branches} ) |
140 |
keys %{$branches} |
|
|
141 |
) |
| 141 |
{ |
142 |
{ |
| 142 |
my $selected = 0; |
143 |
my $selected = 0; |
| 143 |
$selected = 1 if ( defined($subs) && $thisbranch eq $subs->{'branchcode'} ); |
144 |
$selected = 1 if ( defined($subs) && $thisbranch eq $subs->{'branchcode'} ); |
|
Lines 275-283
sub redirect_add_subscription {
Link Here
|
| 275 |
my $missinglist = $query->param('missinglist'); |
276 |
my $missinglist = $query->param('missinglist'); |
| 276 |
my $opacnote = $query->param('opacnote'); |
277 |
my $opacnote = $query->param('opacnote'); |
| 277 |
my $librariannote = $query->param('librariannote'); |
278 |
my $librariannote = $query->param('librariannote'); |
| 278 |
my $x_label = $query->param('x_label'); |
279 |
my $x_label = $query->param('x_label'); |
| 279 |
my $y_label = $query->param('y_label'); |
280 |
my $y_label = $query->param('y_label'); |
| 280 |
my $z_label = $query->param('z_label'); |
281 |
my $z_label = $query->param('z_label'); |
| 281 |
my $subscriptionid = NewSubscription( |
282 |
my $subscriptionid = NewSubscription( |
| 282 |
$auser, $branchcode, |
283 |
$auser, $branchcode, |
| 283 |
$aqbooksellerid, $cost, |
284 |
$aqbooksellerid, $cost, |
|
Lines 302-309
sub redirect_add_subscription {
Link Here
|
| 302 |
$internalnotes, $serialsadditems, |
303 |
$internalnotes, $serialsadditems, |
| 303 |
$staffdisplaycount, $opacdisplaycount, |
304 |
$staffdisplaycount, $opacdisplaycount, |
| 304 |
$graceperiod, $location, |
305 |
$graceperiod, $location, |
| 305 |
$enddate, |
306 |
$enddate, $x_label, |
| 306 |
$x_label, $y_label, $z_label, |
307 |
$y_label, $z_label, |
| 307 |
); |
308 |
); |
| 308 |
ModSubscriptionHistory( |
309 |
ModSubscriptionHistory( |
| 309 |
$subscriptionid, $histstartdate, $histenddate, $recievedlist, |
310 |
$subscriptionid, $histstartdate, $histenddate, $recievedlist, |
|
Lines 380-390
sub redirect_mod_subscription {
Link Here
|
| 380 |
my $nextexpected = GetNextExpected($subscriptionid); |
381 |
my $nextexpected = GetNextExpected($subscriptionid); |
| 381 |
|
382 |
|
| 382 |
# field labels |
383 |
# field labels |
| 383 |
my $x_label = $query->param('x_label'); |
384 |
my $x_label = $query->param('x_label'); |
| 384 |
my $y_label = $query->param('y_label'); |
385 |
my $y_label = $query->param('y_label'); |
| 385 |
my $z_label = $query->param('z_label'); |
386 |
my $z_label = $query->param('z_label'); |
| 386 |
|
387 |
|
| 387 |
# If it's a mod, we need to check the current 'expected' issue, and mod it in the serials table if necessary. |
388 |
# If it's a mod, we need to check the current 'expected' issue, and mod it in the serials table if necessary. |
| 388 |
if ( $nextacquidate ne $nextexpected->{planneddate}->output('iso') ) { |
389 |
if ( $nextacquidate ne $nextexpected->{planneddate}->output('iso') ) { |
| 389 |
ModNextExpected( $subscriptionid, |
390 |
ModNextExpected( $subscriptionid, |
| 390 |
C4::Dates->new( $nextacquidate, 'iso' ) ); |
391 |
C4::Dates->new( $nextacquidate, 'iso' ) ); |
|
Lines 418-424
sub redirect_mod_subscription {
Link Here
|
| 418 |
$staffdisplaycount, $opacdisplaycount, |
419 |
$staffdisplaycount, $opacdisplaycount, |
| 419 |
$graceperiod, $location, |
420 |
$graceperiod, $location, |
| 420 |
$enddate, $subscriptionid, |
421 |
$enddate, $subscriptionid, |
| 421 |
$x_label, $y_label, $z_label |
422 |
$x_label, $y_label, |
|
|
423 |
$z_label |
| 422 |
); |
424 |
); |
| 423 |
ModSubscriptionHistory( |
425 |
ModSubscriptionHistory( |
| 424 |
$subscriptionid, $histstartdate, $histenddate, $recievedlist, |
426 |
$subscriptionid, $histstartdate, $histenddate, $recievedlist, |
| 425 |
- |
|
|