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

(-)a/C4/Circulation.pm (+30 lines)
Lines 99-104 BEGIN { Link Here
99
                &IsBranchTransferAllowed
99
                &IsBranchTransferAllowed
100
                &CreateBranchTransferLimit
100
                &CreateBranchTransferLimit
101
                &DeleteBranchTransferLimits
101
                &DeleteBranchTransferLimits
102
        &TransferSlip
102
	);
103
	);
103
}
104
}
104
105
Lines 3036-3041 sub LostItem{ Link Here
3036
}
3037
}
3037
3038
3038
3039
3040
=head2 ReserveSlip
3041
3042
  ReserveSlip($branchcode, $borrowernumber, $biblionumber)
3043
3044
  Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef
3045
3046
=cut
3047
3048
sub TransferSlip {
3049
    my ($branch, $itemnumber, $to_branch) = @_;
3050
3051
    my $item =  GetItem( $itemnumber )
3052
      or return;
3053
3054
    my $pulldate = C4::Dates->new();
3055
3056
    return C4::Letters::GetPreparedLetter (
3057
        module => 'circulation',
3058
        letter_code => 'TRANSFERSLIP',
3059
        branchcode => $branch,
3060
        tables => {
3061
            'branches'    => $to_branch,
3062
            'biblio'      => $item->{biblionumber},
3063
            'items'       => $item,
3064
        },
3065
    );
3066
}
3067
3068
3039
1;
3069
1;
3040
3070
3041
__END__
3071
__END__
(-)a/circ/transfer-slip.pl (-13 / +19 lines)
Lines 24-34 use warnings; Link Here
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output;
26
use CGI;
26
use CGI;
27
use C4::Auth;
27
use C4::Auth qw/:DEFAULT get_session/;
28
use C4::Biblio;
28
use C4::Circulation;
29
use C4::Items;
30
use C4::Branch;
31
use C4::Dates qw/format_date format_date_in_iso/;
32
29
33
use vars qw($debug);
30
use vars qw($debug);
34
31
Lines 37-48 BEGIN { Link Here
37
}
34
}
38
35
39
my $input = new CGI;
36
my $input = new CGI;
37
my $sessionID = $input->cookie("CGISESSID");
38
my $session = get_session($sessionID);
39
40
my $itemnumber = $input->param('transferitem');
40
my $itemnumber = $input->param('transferitem');
41
my $branchcode = $input->param('branchcode');
41
my $branchcode = $input->param('branchcode');
42
42
43
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
43
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
44
    {
44
    {
45
        template_name   => "circ/transfer-slip.tmpl",
45
        template_name   => "circ/printslip.tmpl",
46
        query           => $input,
46
        query           => $input,
47
        type            => "intranet",
47
        type            => "intranet",
48
        authnotrequired => 0,
48
        authnotrequired => 0,
Lines 51-65 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
51
    }
51
    }
52
);
52
);
53
53
54
my $pulldate = C4::Dates->new();
55
my $item =  GetItem( $itemnumber );
56
my ( undef, $biblio ) = GetBiblio($item->{biblionumber});
57
54
55
my $userenv = C4::Context->userenv;
56
my ($slip, $is_html);
57
if ( my $letter = TransferSlip ($session->param('branch') || $userenv->{branch}, $itemnumber, $branchcode) ) {
58
    $slip = $letter->{content};
59
    $is_html = $letter->{is_html};
60
}
61
else {
62
    $slip = "Item not found";
63
}
58
$template->param(
64
$template->param(
59
    pulldate => $pulldate->output(),
65
    slip => $slip,
60
    branchname => GetBranchName($branchcode),
66
    plain => !$is_html,
61
    biblio => $biblio,
67
    title => "Koha -- Circulation: Transfers",
62
    item => $item,
68
    stylesheet => C4::Context->preference("SlipCSS"),
63
);
69
);
64
70
65
output_html_with_http_headers $input, $cookie, $template->output;
71
output_html_with_http_headers $input, $cookie, $template->output;
(-)a/installer/data/mysql/en/mandatory/sample_notices.sql (-14 / +22 lines)
Lines 70-77 Date due: <<issues.date_due>><br /> Link Here
70
70
71
<h3> Transfer to/Hold in <<branches.branchname>></h3>
71
<h3> Transfer to/Hold in <<branches.branchname>></h3>
72
72
73
<reserves>
74
<div>
75
<h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
73
<h3><<borrowers.surname>>, <<borrowers.firstname>></h3>
76
74
77
<ul>
75
<ul>
Lines 85-100 Date due: <<issues.date_due>><br /> Link Here
85
</ul>
83
</ul>
86
<br />
84
<br />
87
<h3>ITEM ON HOLD</h3>
85
<h3>ITEM ON HOLD</h3>
88
 <h4><<biblio.title>></h4>
86
<h4><<biblio.title>></h4>
89
 <h5><<biblio.author>></h5>
87
<h5><<biblio.author>></h5>
90
 <ul>
88
<ul>
91
    <li><<items.barcode>></li>
89
   <li><<items.barcode>></li>
92
    <li><<items.itemcallnumber>></li>
90
   <li><<items.itemcallnumber>></li>
93
    <li><<reserves.waitingdate>></li>
91
   <li><<reserves.waitingdate>></li>
94
 </ul>
92
</ul>
95
 <p>Notes:
93
<p>Notes:
96
 <pre><<reserves.reservenotes>></pre>
94
<pre><<reserves.reservenotes>></pre>
97
 </p>
95
</p>
98
</div>
96
', 1),
99
</reserves>', 1);
97
('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
98
99
<h3>Transfer to <<branches.branchname>></h3>
100
101
<h3>ITEM</h3>
102
<h4><<biblio.title>></h4>
103
<h5><<biblio.author>></h5>
104
<ul>
105
   <li><<items.barcode>></li>
106
   <li><<items.itemcallnumber>></li>
107
</ul>', 1);
100
108
(-)a/installer/data/mysql/updatedatabase.pl (-2 / +12 lines)
Lines 4807-4819 Date due: <<issues.date_due>><br /> Link Here
4807
<p>Notes:
4807
<p>Notes:
4808
<pre><<reserves.reservenotes>></pre>
4808
<pre><<reserves.reservenotes>></pre>
4809
</p>', 1)");
4809
</p>', 1)");
4810
    $dbh->do("INSERT INTO `letter` (module, code, name, title, content, is_html)
4811
              VALUES ('circulation','TRANSFERSLIP','Transfer Slip','Transfer Slip', '<h5>Date: <<today>></h5>
4812
<h3>Transfer to <<branches.branchname>></h3>
4813
4814
<h3>ITEM</h3>
4815
<h4><<biblio.title>></h4>
4816
<h5><<biblio.author>></h5>
4817
<ul>
4818
   <li><<items.barcode>></li>
4819
   <li><<items.itemcallnumber>></li>
4820
</ul>', 1)");
4810
4821
4811
    $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4822
    $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('NoticeCSS','','Notices CSS url.',NULL,'free')");
4812
    $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4823
    $dbh->do("INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('SlipCSS','','Slips CSS url.',NULL,'free')");
4813
4824
4814
    $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4825
    $dbh->do("UPDATE `letter` SET content = replace(content, '<<title>>', '<<biblio.title>>') WHERE code = 'HOLDPLACED'");
4815
4826
4816
    print "Upgrade to $DBversion done (Add branchcode and is_html to letter table; Default ISSUESLIP and RESERVESLIP letters; Add NoticeCSS and SlipCSS sysprefs)\n";
4827
    print "Upgrade to $DBversion done (Add branchcode and is_html to letter table; Default ISSUESLIP, RESERVESLIP and TRANSFERSLIP letters; Add NoticeCSS and SlipCSS sysprefs)\n";
4817
    SetVersion($DBversion);
4828
    SetVersion($DBversion);
4818
}
4829
}
4819
4830
4820
- 

Return to bug 7001