View | Details | Raw Unified | Return to bug 38509
Collapse All | Expand All

(-)a/circ/branchtransfers.pl (-4 / +24 lines)
Lines 83-88 my $tobranchcd = $query->param('tobranchcd') || ''; Link Here
83
my $trigger        = 'Manual';
83
my $trigger        = 'Manual';
84
84
85
my $ignoreRs = 0;
85
my $ignoreRs = 0;
86
my $transferred;
87
my $barcode = $query->param('barcode');
88
my @trsfitemloop;
86
############
89
############
87
# Deal with the requests....
90
# Deal with the requests....
88
if ( $op eq "cud-KillWaiting" ) {
91
if ( $op eq "cud-KillWaiting" ) {
Lines 106-111 if ( $op eq "cud-KillWaiting" ) { Link Here
106
    $settransit = 1;
109
    $settransit = 1;
107
    $reqmessage = 1;
110
    $reqmessage = 1;
108
    $trigger    = 'Reserve';
111
    $trigger    = 'Reserve';
112
113
    $barcode = barcodedecode($barcode) if $barcode;
114
    ($transferred, $messages) = transferbook(
115
        {
116
            from_branch     => C4::Context->userenv->{'branch'},
117
            to_branch       => $tobranchcd,
118
            barcode         => $barcode,
119
            ignore_reserves => $ignoreRs,
120
            trigger         => $trigger
121
        }
122
    );
123
    if ($transferred) {
124
        $item = Koha::Items->find( { barcode => $barcode } );
125
        my %trsfitem;
126
        my $frbranchcd = C4::Context->userenv->{'branch'};
127
        $trsfitem{item}     = $item;
128
        $trsfitem{counter}  = 0;
129
        $trsfitem{frombrcd} = $frbranchcd;
130
        $trsfitem{tobrcd}   = $tobranchcd;
131
        push( @trsfitemloop, \%trsfitem );
132
    }
109
} elsif ( $op eq 'cud-KillReserved' ) {
133
} elsif ( $op eq 'cud-KillReserved' ) {
110
    my $biblionumber = $query->param('biblionumber');
134
    my $biblionumber = $query->param('biblionumber');
111
    my $reserve_id   = $query->param('reserve_id');
135
    my $reserve_id   = $query->param('reserve_id');
Lines 118-127 if ( $op eq "cud-KillWaiting" ) { Link Here
118
}
142
}
119
143
120
# collect the stack of books already transferred so they can printed...
144
# collect the stack of books already transferred so they can printed...
121
my @trsfitemloop;
122
my $transferred;
123
my $barcode = $query->param('barcode');
124
125
# remove leading/trailing whitespace
145
# remove leading/trailing whitespace
126
$barcode = barcodedecode($barcode) if $barcode;
146
$barcode = barcodedecode($barcode) if $barcode;
127
if ( $op eq 'cud-transfer' && $barcode ) {
147
if ( $op eq 'cud-transfer' && $barcode ) {
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/branchtransfers.tt (-3 / +2 lines)
Lines 112-118 Link Here
112
                                    <li class="error">Patron's address is in doubt</li>
112
                                    <li class="error">Patron's address is in doubt</li>
113
                                [% END %]
113
                                [% END %]
114
                            </ul>
114
                            </ul>
115
                            <h4>Transfer to: [% Branches.GetName( hold.branchcode ) | html %]</h4>
115
                            <h4>Transfer to: [% Branches.GetName( tobranchcd ) | html %]</h4>
116
                        [% END %]
116
                        [% END %]
117
                    </div>
117
                    </div>
118
118
Lines 132-138 Link Here
132
                                [% END %]
132
                                [% END %]
133
                                [% IF ( reserved ) %]
133
                                [% IF ( reserved ) %]
134
                                    <input type="hidden" name="op" value="cud-SetTransit" />
134
                                    <input type="hidden" name="op" value="cud-SetTransit" />
135
                                    <button type="submit" class="btn btn-default approve"><i class="fa fa-check"></i> Transfer to [% Branches.GetName( hold.branchcode ) | html %]</button>
135
                                    <button type="submit" class="btn btn-default approve"><i class="fa fa-check"></i> Transfer to [% Branches.GetName( tobranchcd ) | html %]</button>
136
                                [% END %]
136
                                [% END %]
137
                            </form>
137
                            </form>
138
                        </div>
138
                        </div>
139
- 

Return to bug 38509