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 |
- |
|
|