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

(-)a/C4/Housebound.pm (-25 / +30 lines)
Lines 20-26 package C4::Housebound; Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use C4::Context;
22
use C4::Context;
23
use parent qw(Exporter);
23
use base qw(Exporter);
24
24
25
our $VERSION = 3.02;
25
our $VERSION = 3.02;
26
our @EXPORT  = qw(
26
our @EXPORT  = qw(
Lines 76-85 sub GetHouseboundDetails { Link Here
76
    my ($borrowernumber) = @_;
76
    my ($borrowernumber) = @_;
77
    if ($borrowernumber) {
77
    if ($borrowernumber) {
78
        my $dbh = C4::Context->dbh;
78
        my $dbh = C4::Context->dbh;
79
        my $sth =
79
        return $dbh->selectrow_hashref(
80
          $dbh->prepare('select * from housebound where borrowernumber=?');
80
            'select * from housebound where borrowernumber=?',
81
        $sth->execute($borrowernumber);
81
            {}, $borrowernumber );
82
        return $sth->fetchrow_hashref;
83
    }
82
    }
84
    return;
83
    return;
85
}
84
}
Lines 123-134 sub GetCurrentHouseboundInstanceList { Link Here
123
    my ($borrowernumber) = @_;
122
    my ($borrowernumber) = @_;
124
    if ($borrowernumber) {
123
    if ($borrowernumber) {
125
        my $dbh = C4::Context->dbh;
124
        my $dbh = C4::Context->dbh;
126
        my $sth = $dbh->prepare(
125
        my $sql =<<'END_SQL';
127
q|SELECT housebound_instance . * , concat( volunteer.firstname, ' ', volunteer.surname ) AS vol, concat(chooser.firstname, ' ', chooser.surname) as cho, concat(deliverer.firstname, ' ', deliverer.surname) as del FROM housebound_instance left JOIN borrowers volunteer ON volunteer.borrowernumber = housebound_instance.volunteer left join borrowers chooser on chooser.borrowernumber = housebound_instance.chooser left join borrowers deliverer on deliverer.borrowernumber = housebound_instance.deliverer where housebound_instance.borrowernumber=? order by housebound_instance.dmy desc|
126
SELECT housebound_instance . * , concat( volunteer.firstname, ' ', volunteer.surname ) AS vol,
128
        );
127
 concat(chooser.firstname, ' ', chooser.surname) as cho,
129
        $sth->execute($borrowernumber);
128
 concat(deliverer.firstname, ' ', deliverer.surname) as del
130
        my $housebound_instances = $sth->fetchall_arrayref( {} );
129
 FROM housebound_instance
131
        return $housebound_instances;
130
 left JOIN borrowers volunteer ON volunteer.borrowernumber = housebound_instance.volunteer
131
 left join borrowers chooser on chooser.borrowernumber = housebound_instance.chooser
132
 left join borrowers deliverer on deliverer.borrowernumber = housebound_instance.deliverer
133
 where housebound_instance.borrowernumber=?
134
 order by housebound_instance.dmy desc
135
END_SQL
136
          return $dbh->selectall_arrayref( $sql, { Slice => {} },
137
            $borrowernumber );
132
    }
138
    }
133
    return;
139
    return;
134
}
140
}
Lines 137-169 sub GetVolunteerNameAndID { Link Here
137
    my ($borrowernumber) = @_;
143
    my ($borrowernumber) = @_;
138
    if ($borrowernumber) {
144
    if ($borrowernumber) {
139
        my $dbh = C4::Context->dbh;
145
        my $dbh = C4::Context->dbh;
140
        my $sth = $dbh->prepare(
146
        return $dbh->selectrow_hashref(
141
"select borrowernumber,title,firstname,surname from borrowers where borrowernumber=?"
147
'select borrowernumber,title,firstname,surname from borrowers where borrowernumber=?',
148
            {}, $borrowernumber
142
        );
149
        );
143
        $sth->execute($borrowernumber);
144
        my $volunteer = $sth->fetchrow_hashref;
145
        return $volunteer;
146
    }
150
    }
147
    return;
151
    return;
148
}
152
}
149
153
150
sub GetVolunteerList {
154
sub GetVolunteerList {
151
    my $dbh = C4::Context->dbh;
155
    my $dbh = C4::Context->dbh;
152
    my $sth = $dbh->prepare(
156
    my $sql = <<'GVL_END';
153
q|SELECT borrowernumber as volbornumber, concat(title, ' ', firstname, ' ', surname) as fullname from borrowers where categorycode='VOL' order by surname, firstname asc|
157
SELECT borrowernumber as volbornumber,
154
    );
158
 concat(title, ' ', firstname, ' ', surname) as fullname
155
    $sth->execute();
159
 from borrowers where categorycode='VOL'
156
    return $sth->fetchall_arrayref( {} );
160
 order by surname, firstname asc
161
GVL_END
162
      return $dbh->selectall_arrayref( $sql, { Slice => {} } );
157
}
163
}
158
164
159
sub GetHouseboundInstanceDetails {
165
sub GetHouseboundInstanceDetails {
160
    my ($instanceid) = @_;
166
    my ($instanceid) = @_;
161
    if ($instanceid) {
167
    if ($instanceid) {
162
        my $dbh = C4::Context->dbh;
168
        my $dbh = C4::Context->dbh;
163
        my $sth =
169
        return $dbh->selectrow_hashref(
164
          $dbh->prepare('SELECT * from housebound_instance where instanceid=?');
170
            'SELECT * from housebound_instance where instanceid=?',
165
        $sth->execute($instanceid);
171
            {}, $instanceid );
166
        return $sth->fetchrow_hashref;
167
    }
172
    }
168
173
169
    # return undef if no instanceid
174
    # return undef if no instanceid
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/houseboundedit.tt (-1 lines)
Lines 20-26 function check_form_housebound() Link Here
20
            <div class="yui-b">
20
            <div class="yui-b">
21
                <h1>Edit housebound details for [% title %] [% firstname %] [% surname %] [% IF ( cardnumber ) %]([% cardnumber %])[% END %]</h1>
21
                <h1>Edit housebound details for [% title %] [% firstname %] [% surname %] [% IF ( cardnumber ) %]([% cardnumber %])[% END %]</h1>
22
22
23
                <!--<div><ul class="toolbar"><li><span class="yui-button yui-link-button"><span class="first-child"><a href="/cgi-bin/koha/members/housebound.pl?borrowernumber=[% borrowernumber %]">Cancel changes</a></span></span></li></ul></div>-->
24
                    <form id="editform" method="post" action="/cgi-bin/koha/members/houseboundedit.pl" name="form">
23
                    <form id="editform" method="post" action="/cgi-bin/koha/members/houseboundedit.pl" name="form">
25
                        <input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />
24
                        <input type="hidden" name="borrowernumber" value="[% borrowernumber %]" />
26
                        <input type="hidden" name="hbnumber" value="[% hbnumber %]" />
25
                        <input type="hidden" name="hbnumber" value="[% hbnumber %]" />
(-)a/members/houseboundedit.pl (-47 / +51 lines)
Lines 28-47 use C4::Koha; Link Here
28
use C4::Branch;
28
use C4::Branch;
29
use C4::Housebound;
29
use C4::Housebound;
30
30
31
use vars qw($debug);
31
our $debug = $ENV{DEBUG} || 0;
32
33
BEGIN {
34
    $debug = $ENV{DEBUG} || 0;
35
}
36
32
37
my $input = CGI->new();
33
my $input = CGI->new();
38
34
39
my $dbh = C4::Context->dbh;
35
my $dbh = C4::Context->dbh;
40
36
41
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
37
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
42
    {   template_name   => "members/houseboundedit.tmpl",
38
    {
39
        template_name   => 'members/houseboundedit.tmpl',
43
        query           => $input,
40
        query           => $input,
44
        type            => "intranet",
41
        type            => 'intranet',
45
        authnotrequired => 0,
42
        authnotrequired => 0,
46
        flagsrequired   => { borrowers => 1 },
43
        flagsrequired   => { borrowers => 1 },
47
        debug           => ($debug) ? 1 : 0,
44
        debug           => ($debug) ? 1 : 0,
Lines 50-56 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
50
47
51
my $borrowernumber = $input->param('borrowernumber');
48
my $borrowernumber = $input->param('borrowernumber');
52
my $op             = $input->param('op');
49
my $op             = $input->param('op');
53
if ( $op eq "editsubmit" ) {
50
if ( $op eq 'editsubmit' ) {
54
    UpdateHouseboundDetails(
51
    UpdateHouseboundDetails(
55
        $input->param('hbnumber'),     $input->param('borrowernumber'),
52
        $input->param('hbnumber'),     $input->param('borrowernumber'),
56
        $input->param('day'),          $input->param('frequency'),
53
        $input->param('day'),          $input->param('frequency'),
Lines 62-68 if ( $op eq "editsubmit" ) { Link Here
62
      "/cgi-bin/koha/members/housebound.pl?borrowernumber=$borrowernumber";
59
      "/cgi-bin/koha/members/housebound.pl?borrowernumber=$borrowernumber";
63
    print "Location: $url";
60
    print "Location: $url";
64
}
61
}
65
if ( $op eq "addsubmit" ) {
62
if ( $op eq 'addsubmit' ) {
66
    CreateHouseboundDetails(
63
    CreateHouseboundDetails(
67
        $input->param('borrowernumber'), $input->param('day'),
64
        $input->param('borrowernumber'), $input->param('day'),
68
        $input->param('frequency'),      $input->param('Itype_quant'),
65
        $input->param('frequency'),      $input->param('Itype_quant'),
Lines 73-141 if ( $op eq "addsubmit" ) { Link Here
73
      "/cgi-bin/koha/members/housebound.pl?borrowernumber=$borrowernumber";
70
      "/cgi-bin/koha/members/housebound.pl?borrowernumber=$borrowernumber";
74
    print "Location: $url";
71
    print "Location: $url";
75
}
72
}
76
if ( $op eq "edit" ) {
73
if ( $op eq 'edit' ) {
77
    $template->param( opeditsubmit => "editsubmit" );
74
    $template->param( opeditsubmit => 'editsubmit' );
78
}
75
}
79
if ( $op eq "add" ) {
76
if ( $op eq 'add' ) {
80
    $template->param( opaddsubmit => "addsubmit" );
77
    $template->param( opaddsubmit => 'addsubmit' );
81
}
78
}
82
79
83
my $borrowerdetails = C4::Members::GetMemberDetails($borrowernumber);
80
my $borrowerdetails = C4::Members::GetMemberDetails($borrowernumber);
84
my $branchdetail    = GetBranchDetail( $borrowerdetails->{'branchcode'} );
81
my $branchdetail    = GetBranchDetail( $borrowerdetails->{branchcode} );
85
my $categorydetail  = GetMember( $borrowernumber, 'borrowernumber' );
82
my $categorydetail  = GetMember( $borrowernumber, 'borrowernumber' );
86
my $housebound      = GetHouseboundDetails($borrowernumber);
83
my $housebound      = GetHouseboundDetails($borrowernumber);
87
84
88
$template->param(
85
$template->param(
89
    surname        => $borrowerdetails->{'surname'},
86
    surname        => $borrowerdetails->{surname},
90
    firstname      => $borrowerdetails->{'firstname'},
87
    firstname      => $borrowerdetails->{firstname},
91
    cardnumber     => $borrowerdetails->{'cardnumber'},
88
    cardnumber     => $borrowerdetails->{cardnumber},
92
    borrowernumber => $borrowerdetails->{'borrowernumber'},
89
    borrowernumber => $borrowerdetails->{borrowernumber},
93
    houseboundview => 'on',
90
    houseboundview => 'on',
94
    address        => $borrowerdetails->{'address'},
91
    address        => $borrowerdetails->{address},
95
    address2       => $borrowerdetails->{'address2'},
92
    address2       => $borrowerdetails->{address2},
96
    city           => $borrowerdetails->{'city'},
93
    city           => $borrowerdetails->{city},
97
    phone          => $borrowerdetails->{'phone'},
94
    phone          => $borrowerdetails->{phone},
98
    phonepro       => $borrowerdetails->{'phonepro'},
95
    phonepro       => $borrowerdetails->{phonepro},
99
    mobile         => $borrowerdetails->{'mobile'},
96
    mobile         => $borrowerdetails->{mobile},
100
    email          => $borrowerdetails->{'email'},
97
    email          => $borrowerdetails->{email},
101
    emailpro       => $borrowerdetails->{'emailpro'},
98
    emailpro       => $borrowerdetails->{emailpro},
102
    categoryname   => $categorydetail->{'description'},
99
    categoryname   => $categorydetail->{description},
103
    categorycode   => $borrowerdetails->{'categorycode'},
100
    categorycode   => $borrowerdetails->{categorycode},
104
    branch         => $borrowerdetails->{'branch'},
101
    branch         => $borrowerdetails->{branch},
105
    branchname     => $branchdetail->{branchname},
102
    branchname     => $branchdetail->{branchname},
106
    zipcode        => $borrowerdetails->{'zipcode'}
103
    zipcode        => $borrowerdetails->{zipcode}
107
);
104
);
108
105
109
$template->param(
106
$template->param(
110
    hbnumber     => $housebound->{'hbnumber'},
107
    hbnumber     => $housebound->{hbnumber},
111
    day          => $housebound->{'day'},
108
    day          => $housebound->{day},
112
    frequency    => $housebound->{'frequency'},
109
    frequency    => $housebound->{frequency},
113
    Itype_quant  => $housebound->{'Itype_quant'},
110
    Itype_quant  => $housebound->{Itype_quant},
114
    Item_subject => $housebound->{'Item_subject'},
111
    Item_subject => $housebound->{Item_subject},
115
    Item_authors => $housebound->{'Item_authors'},
112
    Item_authors => $housebound->{Item_authors},
116
    referral     => $housebound->{'referral'},
113
    referral     => $housebound->{referral},
117
    notes        => $housebound->{'notes'}
114
    notes        => $housebound->{notes}
118
);
115
);
119
116
120
if ( $housebound->{'day'} eq "Sunday" ) {
117
if ( $housebound->{day} eq 'Sunday' ) {
121
    $template->param( dsun => 1 );
118
    $template->param( dsun => 1 );
122
} elsif ( $housebound->{'day'} eq "Monday" ) {
119
}
120
elsif ( $housebound->{day} eq 'Monday' ) {
123
    $template->param( dmon => 1 );
121
    $template->param( dmon => 1 );
124
} elsif ( $housebound->{'day'} eq "Tuesday" ) {
122
}
123
elsif ( $housebound->{day} eq 'Tuesday' ) {
125
    $template->param( dtue => 1 );
124
    $template->param( dtue => 1 );
126
} elsif ( $housebound->{'day'} eq "Wednesday" ) {
125
}
126
elsif ( $housebound->{day} eq 'Wednesday' ) {
127
    $template->param( dwed => 1 );
127
    $template->param( dwed => 1 );
128
} elsif ( $housebound->{'day'} eq "Thursday" ) {
128
}
129
elsif ( $housebound->{day} eq 'Thursday' ) {
129
    $template->param( dthu => 1 );
130
    $template->param( dthu => 1 );
130
} elsif ( $housebound->{'day'} eq "Friday" ) {
131
}
132
elsif ( $housebound->{day} eq 'Friday' ) {
131
    $template->param( dfri => 1 );
133
    $template->param( dfri => 1 );
132
} elsif ( $housebound->{'day'} eq "Saturday" ) {
134
}
135
elsif ( $housebound->{day} eq 'Saturday' ) {
133
    $template->param( dsat => 1 );
136
    $template->param( dsat => 1 );
134
}
137
}
135
138
136
if ( $housebound->{'frequency'} eq "Week 1/3" ) {
139
if ( $housebound->{frequency} eq 'Week 1/3' ) {
137
    $template->param( wk1 => 1 );
140
    $template->param( wk1 => 1 );
138
} elsif ( $housebound->{'frequency'} eq "Week 2/4" ) {
141
}
142
elsif ( $housebound->{frequency} eq 'Week 2/4' ) {
139
    $template->param( wk2 => 1 );
143
    $template->param( wk2 => 1 );
140
}
144
}
141
145
(-)a/members/houseboundinstances.pl (-55 / +51 lines)
Lines 29-48 use C4::Branch; Link Here
29
use C4::Housebound;
29
use C4::Housebound;
30
use C4::Dates;
30
use C4::Dates;
31
31
32
use vars qw($debug);
32
our $debug = $ENV{DEBUG} || 0;
33
34
BEGIN {
35
    $debug = $ENV{DEBUG} || 0;
36
}
37
33
38
my $input = CGI->new();
34
my $input = CGI->new();
39
35
40
my $dbh = C4::Context->dbh;
36
my $dbh = C4::Context->dbh;
41
37
42
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
38
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
43
    {   template_name   => "members/houseboundinstances.tmpl",
39
    {
40
        template_name   => 'members/houseboundinstances.tmpl',
44
        query           => $input,
41
        query           => $input,
45
        type            => "intranet",
42
        type            => 'intranet',
46
        authnotrequired => 0,
43
        authnotrequired => 0,
47
        flagsrequired   => { borrowers => 1 },
44
        flagsrequired   => { borrowers => 1 },
48
        debug           => ($debug) ? 1 : 0,
45
        debug           => ($debug) ? 1 : 0,
Lines 52-67 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
52
my $borrowernumber = $input->param('borrowernumber');
49
my $borrowernumber = $input->param('borrowernumber');
53
50
54
my $op = $input->param('op');
51
my $op = $input->param('op');
55
if ( $op eq "add" ) {
52
if ( $op eq 'add' ) {
56
    $template->param( opadd => 1, op => "addsubmit" );
53
    $template->param( opadd => 1, op => 'addsubmit' );
57
}
54
}
58
if ( $op eq "edit" ) {
55
if ( $op eq 'edit' ) {
59
    $template->param( opedit => 1, op => "editsubmit" );
56
    $template->param( opedit => 1, op => 'editsubmit' );
60
}
57
}
61
if ( $op eq "del" ) {
58
if ( $op eq 'del' ) {
62
    $template->param( opdel => 1, op => "delsubmit" );
59
    $template->param( opdel => 1, op => 'delsubmit' );
63
}
60
}
64
if ( $op eq "addsubmit" ) {
61
if ( $op eq 'addsubmit' ) {
65
    CreateHouseboundInstanceDetails(
62
    CreateHouseboundInstanceDetails(
66
        $input->param('hbnumber'),  $input->param('dmy'),
63
        $input->param('hbnumber'),  $input->param('dmy'),
67
        $input->param('time'),      $input->param('borrowernumber'),
64
        $input->param('time'),      $input->param('borrowernumber'),
Lines 78-84 if ( $op eq "delsubmit" ) { Link Here
78
      "/cgi-bin/koha/members/housebound.pl?borrowernumber=$borrowernumber";
75
      "/cgi-bin/koha/members/housebound.pl?borrowernumber=$borrowernumber";
79
    print "Location: $url";
76
    print "Location: $url";
80
}
77
}
81
if ( $op eq "editsubmit" ) {
78
if ( $op eq 'editsubmit' ) {
82
    UpdateHouseboundInstanceDetails(
79
    UpdateHouseboundInstanceDetails(
83
        $input->param('instanceid'),     $input->param('hbnumber'),
80
        $input->param('instanceid'),     $input->param('hbnumber'),
84
        $input->param('dmy'),            $input->param('time'),
81
        $input->param('dmy'),            $input->param('time'),
Lines 100-169 my $delivererlist = GetVolunteerList(); Link Here
100
my $delinstanceid     = $input->param('instanceid');
97
my $delinstanceid     = $input->param('instanceid');
101
my $instanceid        = $input->param('instanceid');
98
my $instanceid        = $input->param('instanceid');
102
my $instancedetails   = GetHouseboundInstanceDetails($instanceid);
99
my $instancedetails   = GetHouseboundInstanceDetails($instanceid);
103
my $selectedvolunteer = $instancedetails->{'volunteer'};
100
my $selectedvolunteer = $instancedetails->{volunteer};
104
my $selectedchooser   = $instancedetails->{'chooser'};
101
my $selectedchooser   = $instancedetails->{chooser};
105
my $selecteddeliverer = $instancedetails->{'deliverer'};
102
my $selecteddeliverer = $instancedetails->{deliverer};
106
103
107
foreach my $ivol (@$volunteerlist) {
104
foreach my $ivol ( @{$volunteerlist} ) {
108
    $ivol->{selected} = 'selected'
105
    $ivol->{selected} = 'selected'
109
      if $ivol->{'volbornumber'} == $selectedvolunteer;
106
      if $ivol->{volbornumber} == $selectedvolunteer;
110
}
107
}
111
foreach my $icho (@$chooserlist) {
108
foreach my $icho ( @{$chooserlist} ) {
112
    $icho->{selected} = 'selected'
109
    $icho->{selected} = 'selected'
113
      if $icho->{'volbornumber'} == $selectedchooser;
110
      if $icho->{volbornumber} == $selectedchooser;
114
}
111
}
115
foreach my $idel (@$delivererlist) {
112
foreach my $idel (@$delivererlist) {
116
    $idel->{selected} = 'selected'
113
    $idel->{selected} = 'selected'
117
      if $idel->{'volbornumber'} == $selecteddeliverer;
114
      if $idel->{volbornumber} == $selecteddeliverer;
118
}
115
}
119
if ( $instancedetails->{'time'} eq "am" ) {
116
if ( $instancedetails->{time} eq 'am' ) {
120
    $template->param( timeam => 1 );
117
    $template->param( timeam => 1 );
121
}
118
}
122
if ( $instancedetails->{'time'} eq "pm" ) {
119
if ( $instancedetails->{time} eq 'pm' ) {
123
    $template->param( timepm => 1 );
120
    $template->param( timepm => 1 );
124
}
121
}
125
122
126
$template->param(
123
$template->param(
127
    surname        => $borrowerdetails->{'surname'},
124
    surname        => $borrowerdetails->{surname},
128
    firstname      => $borrowerdetails->{'firstname'},
125
    firstname      => $borrowerdetails->{firstname},
129
    cardnumber     => $borrowerdetails->{'cardnumber'},
126
    cardnumber     => $borrowerdetails->{cardnumber},
130
    borrowernumber => $borrowerdetails->{'borrowernumber'},
127
    borrowernumber => $borrowerdetails->{borrowernumber},
131
    houseboundview => 'on',
128
    houseboundview => 'on',
132
    address        => $borrowerdetails->{'address'},
129
    address        => $borrowerdetails->{address},
133
    address2       => $borrowerdetails->{'address2'},
130
    address2       => $borrowerdetails->{address2},
134
    city           => $borrowerdetails->{'city'},
131
    city           => $borrowerdetails->{city},
135
    phone          => $borrowerdetails->{'phone'},
132
    phone          => $borrowerdetails->{phone},
136
    phonepro       => $borrowerdetails->{'phonepro'},
133
    phonepro       => $borrowerdetails->{phonepro},
137
    mobile         => $borrowerdetails->{'mobile'},
134
    mobile         => $borrowerdetails->{mobile},
138
    email          => $borrowerdetails->{'email'},
135
    email          => $borrowerdetails->{email},
139
    emailpro       => $borrowerdetails->{'emailpro'},
136
    emailpro       => $borrowerdetails->{emailpro},
140
    categoryname   => $categorydetail->{'description'},
137
    categoryname   => $categorydetail->{description},
141
    categorycode   => $borrowerdetails->{'categorycode'},
138
    categorycode   => $borrowerdetails->{categorycode},
142
    branch         => $borrowerdetails->{'branch'},
139
    branch         => $borrowerdetails->{branch},
143
    branchname     => $branchdetail->{branchname},
140
    branchname     => $branchdetail->{branchname},
144
    zipcode        => $borrowerdetails->{'zipcode'}
141
    zipcode        => $borrowerdetails->{zipcode}
145
);
142
);
146
143
147
$template->param(
144
$template->param(
148
    hbnumber                 => $housebound->{'hbnumber'},
145
    hbnumber                 => $housebound->{hbnumber},
149
    day                      => $housebound->{'day'},
146
    day                      => $housebound->{day},
150
    frequency                => $housebound->{'frequency'},
147
    frequency                => $housebound->{frequency},
151
    Itype_quant              => $housebound->{'Itype_quant'},
148
    Itype_quant              => $housebound->{Itype_quant},
152
    Item_subject             => $housebound->{'Item_subject'},
149
    Item_subject             => $housebound->{Item_subject},
153
    Item_authors             => $housebound->{'Item_authors'},
150
    Item_authors             => $housebound->{Item_authors},
154
    referral                 => $housebound->{'referral'},
151
    referral                 => $housebound->{referral},
155
    notes                    => $housebound->{'notes'},
152
    notes                    => $housebound->{notes},
156
    DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
153
    DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
157
    volunteerlist            => $volunteerlist,
154
    volunteerlist            => $volunteerlist,
158
    chooserlist              => $chooserlist,
155
    chooserlist              => $chooserlist,
159
    delivererlist            => $delivererlist,
156
    delivererlist            => $delivererlist,
160
    delinstanceid            => $delinstanceid,
157
    delinstanceid            => $delinstanceid,
161
    instanceid               => $instanceid,
158
    instanceid               => $instanceid,
162
    dmy                      => $instancedetails->{'dmy'},
159
    dmy                      => $instancedetails->{dmy},
163
    time                     => $instancedetails->{'time'},
160
    time                     => $instancedetails->{time},
164
    volunteer                => $instancedetails->{'volunteer'},
161
    volunteer                => $instancedetails->{volunteer},
165
    chooser                  => $instancedetails->{'chooser'},
162
    chooser                  => $instancedetails->{chooser},
166
    deliverer                => $instancedetails->{'deliverer'}
163
    deliverer                => $instancedetails->{deliverer}
167
);
164
);
168
165
169
output_html_with_http_headers $input, $cookie, $template->output;
166
output_html_with_http_headers $input, $cookie, $template->output;
170
- 

Return to bug 5670