Lines 92-268
unless ($loggedinuser) {
Link Here
|
92 |
} |
92 |
} |
93 |
|
93 |
|
94 |
# Dashboard (If on in SysPref) |
94 |
# Dashboard (If on in SysPref) |
95 |
my $nofile = "Dashboard is set to \"ON\". However there is no XML file to read. Have you run it at least once?"; |
|
|
96 |
if ( C4::Context->preference('DashBoardDisplayed') ) |
95 |
if ( C4::Context->preference('DashBoardDisplayed') ) |
97 |
{ |
96 |
{ |
98 |
my $koha_conf = $ENV{'KOHA_CONF'}; |
97 |
my $koha_conf = $ENV{'KOHA_CONF'}; |
99 |
my ($base,$file) = $koha_conf =~ m|^(.*[/\\])([^/\\]+?)$|; |
98 |
my ($base,$file) = $koha_conf =~ m|^(.*[/\\])([^/\\]+?)$|; |
100 |
my $xml_read = "dashboard_xml.out"; |
99 |
my $xml_read = "dashboard_xml.out"; |
101 |
my $xml_file = "$base"."$xml_read"; |
100 |
my $xml_file = "$base"."$xml_read"; |
102 |
if (-e $xml_file) { |
101 |
if (-e $xml_file) { |
103 |
my $xml = new XML::Simple; |
102 |
my $xml = new XML::Simple; |
104 |
my $dash = $xml->XMLin($xml_file); |
103 |
my $dash = $xml->XMLin($xml_file); |
105 |
my $login_branch_name = $template->{VARS}{LoginBranchcode}; |
104 |
my $login_branch_name = $template->{VARS}{LoginBranchcode}; |
106 |
my $number_of_biblios; |
105 |
my $number_of_biblios; |
107 |
my $biblios_7days; |
106 |
my $biblios_7days; |
108 |
my $items_7days_system; |
107 |
my $items_7days_system; |
109 |
my $items_7days_library; |
108 |
my $items_7days_library; |
110 |
my $borrowers_system; |
109 |
my $borrowers_system; |
111 |
my $expired_borrowers_library; |
110 |
my $expired_borrowers_library; |
112 |
my $expired_borrowers_system; |
111 |
my $expired_borrowers_system; |
113 |
my $loan_history_system; |
112 |
my $loan_history_system; |
114 |
my $loan_history_library; |
113 |
my $loan_history_library; |
115 |
my $overdues_library; |
114 |
my $overdues_library; |
116 |
my $overdues_system; |
115 |
my $overdues_system; |
117 |
my $overdues_7days_library; |
116 |
my $overdues_7days_library; |
118 |
my $overdues_7days_system; |
117 |
my $overdues_7days_system; |
119 |
my $overdues_14days_library; |
118 |
my $overdues_14days_library; |
120 |
my $overdues_14days_system; |
119 |
my $overdues_14days_system; |
121 |
my $overdues_21days_library; |
120 |
my $overdues_21days_library; |
122 |
my $overdues_21days_system; |
121 |
my $overdues_21days_system; |
123 |
my $very_overdue_library; |
122 |
my $very_overdue_library; |
124 |
my $very_overdue_system; |
123 |
my $very_overdue_system; |
125 |
my $borrowers_library; |
124 |
my $borrowers_library; |
126 |
my $issues_library; |
125 |
my $issues_library; |
127 |
my $issues_system; |
126 |
my $issues_system; |
128 |
my $items_library; |
127 |
my $items_library; |
129 |
my $items_system; |
128 |
my $items_system; |
130 |
my $last_updated; |
129 |
my $last_updated; |
131 |
|
130 |
|
132 |
$number_of_biblios = $dash->{biblios}->{NumberOfBiblios}; |
131 |
$number_of_biblios = $dash->{biblios}->{NumberOfBiblios}; |
133 |
$biblios_7days = $dash->{biblio_7days}->{NumberOfBiblio7Days}; |
132 |
$biblios_7days = $dash->{biblio_7days}->{NumberOfBiblio7Days}; |
134 |
$items_7days_system = $dash->{items_7days_system}->{NumberOfItems7Days}; |
133 |
$items_7days_system = $dash->{items_7days_system}->{NumberOfItems7Days}; |
135 |
$borrowers_system = $dash->{number_of_borrowers_system}->{NumberofBorrowersSystem}; |
134 |
$borrowers_system = $dash->{number_of_borrowers_system}->{NumberofBorrowersSystem}; |
136 |
$loan_history_system = $dash->{loan_history_system}->{NumberOfLoans}; |
135 |
$loan_history_system = $dash->{loan_history_system}->{NumberOfLoans}; |
137 |
$items_system = $dash->{items_system}->{NumberOfItemsSystem}; |
136 |
$items_system = $dash->{items_system}->{NumberOfItemsSystem}; |
138 |
$expired_borrowers_system = $dash->{expired_borrowers_system}->{ExpiredBorrowers}; |
137 |
$expired_borrowers_system = $dash->{expired_borrowers_system}->{ExpiredBorrowers}; |
139 |
$issues_system = $dash->{issues_system}->{NumberOfIssuesSystem}; |
138 |
$issues_system = $dash->{issues_system}->{NumberOfIssuesSystem}; |
140 |
$overdues_system = $dash->{overdues_system}->{NumberOfOverdues}; |
139 |
$overdues_system = $dash->{overdues_system}->{NumberOfOverdues}; |
141 |
$overdues_7days_system = $dash->{overdues_7days_system}->{NumberOfOverdues}; |
140 |
$overdues_7days_system = $dash->{overdues_7days_system}->{NumberOfOverdues}; |
142 |
$overdues_14days_system = $dash->{overdues_14days_system}->{NumberOfOverdues14Days}; |
141 |
$overdues_14days_system = $dash->{overdues_14days_system}->{NumberOfOverdues14Days}; |
143 |
$overdues_21days_system = $dash->{overdues_21days_system}->{NumberOfOverdues21Days}; |
142 |
$overdues_21days_system = $dash->{overdues_21days_system}->{NumberOfOverdues21Days}; |
144 |
$very_overdue_system = $dash->{very_overdue_system}->{Overdues}; |
143 |
$very_overdue_system = $dash->{very_overdue_system}->{Overdues}; |
145 |
$last_updated = $dash->{last_updated}->{UpdatedTime}; |
144 |
$last_updated = $dash->{last_updated}->{UpdatedTime}; |
146 |
|
145 |
|
147 |
# Looping for "logged in branch" dependant data |
146 |
# Looping for "logged in branch" dependant data |
148 |
foreach my $numissl(@{$dash->{issues_library}}) |
147 |
foreach my $numissl(@{$dash->{issues_library}}) |
149 |
{ |
148 |
{ |
150 |
if($numissl->{BranchCode} eq $login_branch_name) |
149 |
if($numissl->{BranchCode} eq $login_branch_name) |
151 |
{ |
150 |
{ |
152 |
$issues_library = $numissl->{NumberOfIssues} |
151 |
$issues_library = $numissl->{NumberOfIssues} |
153 |
} |
152 |
} |
154 |
} |
153 |
} |
155 |
foreach my $numitm(@{$dash->{items_library}}) |
154 |
foreach my $numitm(@{$dash->{items_library}}) |
156 |
{ |
155 |
{ |
157 |
if($numitm->{BranchCode} eq $login_branch_name) |
156 |
if($numitm->{BranchCode} eq $login_branch_name) |
158 |
{ |
157 |
{ |
159 |
$items_library = $numitm->{NumberOfItems} |
158 |
$items_library = $numitm->{NumberOfItems} |
160 |
} |
159 |
} |
161 |
} |
160 |
} |
162 |
foreach my $numbor(@{$dash->{borrowers_library}}) |
161 |
foreach my $numbor(@{$dash->{borrowers_library}}) |
163 |
{ |
162 |
{ |
164 |
if($numbor->{BranchCode} eq $login_branch_name) |
163 |
if($numbor->{BranchCode} eq $login_branch_name) |
165 |
{ |
164 |
{ |
166 |
$borrowers_library = $numbor->{NumberOfBorrowers} |
165 |
$borrowers_library = $numbor->{NumberOfBorrowers} |
167 |
} |
166 |
} |
168 |
} |
167 |
} |
169 |
foreach my $numex(@{$dash->{expired_borrowers_library}}) |
168 |
foreach my $numex(@{$dash->{expired_borrowers_library}}) |
170 |
{ |
169 |
{ |
171 |
if($numex->{BranchCode} eq $login_branch_name) |
170 |
if($numex->{BranchCode} eq $login_branch_name) |
172 |
{ |
171 |
{ |
173 |
$expired_borrowers_library = $numex->{ExpiredBorrowers} |
172 |
$expired_borrowers_library = $numex->{ExpiredBorrowers} |
174 |
} |
173 |
} |
175 |
} |
174 |
} |
176 |
|
|
|
177 |
foreach my $numitm7(@{$dash->{items_7days_library}}) |
178 |
{ |
179 |
if($numitm7->{BranchCode} eq $login_branch_name) |
180 |
{ |
181 |
$items_7days_library = $numitm7->{NumberOfItems7DaysLibrary} |
182 |
} |
183 |
} |
184 |
|
185 |
foreach my $oldiss(@{$dash->{loan_history_library}}) |
186 |
{ |
187 |
if($oldiss->{BranchCode} eq $login_branch_name) |
188 |
{ |
189 |
$loan_history_library = $oldiss->{NumberOfLoans} |
190 |
} |
191 |
} |
192 |
|
193 |
foreach my $ovdlib(@{$dash->{overdues_library}}) |
194 |
{ |
195 |
if($ovdlib->{BranchCode} eq $login_branch_name) |
196 |
{ |
197 |
$overdues_library = $ovdlib->{NumberOfOverdues} |
198 |
} |
199 |
} |
200 |
|
175 |
|
201 |
foreach my $ovd7day(@{$dash->{overdues_7days_library}}) |
176 |
foreach my $numitm7(@{$dash->{items_7days_library}}) |
202 |
{ |
177 |
{ |
203 |
if($ovd7day->{BranchCode} eq $login_branch_name) |
178 |
if($numitm7->{BranchCode} eq $login_branch_name) |
204 |
{ |
179 |
{ |
205 |
$overdues_7days_library = $ovd7day->{NumberOfOverdues7Days} |
180 |
$items_7days_library = $numitm7->{NumberOfItems7DaysLibrary} |
206 |
} |
181 |
} |
207 |
} |
182 |
} |
208 |
|
183 |
|
209 |
foreach my $ovd14day(@{$dash->{overdues_14days_library}}) |
184 |
foreach my $oldiss(@{$dash->{loan_history_library}}) |
210 |
{ |
185 |
{ |
211 |
if($ovd14day->{BranchCode} eq $login_branch_name) |
186 |
if($oldiss->{BranchCode} eq $login_branch_name) |
212 |
{ |
187 |
{ |
213 |
$overdues_14days_library = $ovd14day->{NumberOfOverdues14Days} |
188 |
$loan_history_library = $oldiss->{NumberOfLoans} |
214 |
} |
189 |
} |
215 |
} |
190 |
} |
216 |
|
191 |
|
217 |
foreach my $ovd21day(@{$dash->{overdues_21days_library}}) |
192 |
foreach my $ovdlib(@{$dash->{overdues_library}}) |
218 |
{ |
193 |
{ |
219 |
if($ovd21day->{BranchCode} eq $login_branch_name) |
194 |
if($ovdlib->{BranchCode} eq $login_branch_name) |
220 |
{ |
195 |
{ |
221 |
$overdues_21days_library = $ovd21day->{NumberOfOverdues21Days} |
196 |
$overdues_library = $ovdlib->{NumberOfOverdues} |
222 |
} |
197 |
} |
223 |
} |
198 |
} |
224 |
|
199 |
|
225 |
foreach my $vryod(@{$dash->{very_overdue_library}}) |
200 |
foreach my $ovd7day(@{$dash->{overdues_7days_library}}) |
226 |
{ |
201 |
{ |
227 |
if($vryod->{BranchCode} eq $login_branch_name) |
202 |
if($ovd7day->{BranchCode} eq $login_branch_name) |
228 |
{ |
203 |
{ |
229 |
$very_overdue_library = $vryod->{NumberOfVeryOverdue} |
204 |
$overdues_7days_library = $ovd7day->{NumberOfOverdues7Days} |
230 |
} |
205 |
} |
231 |
} |
206 |
} |
232 |
|
207 |
|
233 |
$template->param('number_of_biblios' => $number_of_biblios, |
208 |
foreach my $ovd14day(@{$dash->{overdues_14days_library}}) |
234 |
'biblios_7days' => $biblios_7days, |
209 |
{ |
235 |
'items_7days_system' => $items_7days_system, |
210 |
if($ovd14day->{BranchCode} eq $login_branch_name) |
236 |
'items_7days_library' => $items_7days_library, |
211 |
{ |
237 |
'borrowers_system' => $borrowers_system, |
212 |
$overdues_14days_library = $ovd14day->{NumberOfOverdues14Days} |
238 |
'expired_borrowers_library' => $expired_borrowers_library, |
213 |
} |
239 |
'expired_borrowers_system' => $expired_borrowers_system, |
214 |
} |
240 |
'overdues_library' => $overdues_library, |
|
|
241 |
'overdues_system' => $overdues_system, |
242 |
'overdues_7days_library' => $overdues_7days_library, |
243 |
'overdues_7days_system' => $overdues_7days_system, |
244 |
'overdues_14days_library' => $overdues_14days_library, |
245 |
'overdues_14days_system' => $overdues_14days_system, |
246 |
'overdues_21days_library' => $overdues_21days_library, |
247 |
'overdues_21days_system' => $overdues_21days_system, |
248 |
'very_overdue_library' => $very_overdue_library, |
249 |
'very_overdue_system' => $very_overdue_system, |
250 |
'loan_history_system' => $loan_history_system, |
251 |
'loan_history_library' => $loan_history_library, |
252 |
'issues_library' => $issues_library, |
253 |
'issues_system' => $issues_system, |
254 |
'items_library' => $items_library, |
255 |
'items_system' => $items_system, |
256 |
'borrowers_library' => $borrowers_library, |
257 |
'last_updated' => $last_updated |
258 |
|
215 |
|
259 |
); |
216 |
foreach my $ovd21day(@{$dash->{overdues_21days_library}}) |
260 |
} |
217 |
{ |
|
|
218 |
if($ovd21day->{BranchCode} eq $login_branch_name) |
219 |
{ |
220 |
$overdues_21days_library = $ovd21day->{NumberOfOverdues21Days} |
221 |
} |
222 |
} |
261 |
|
223 |
|
262 |
elsif(!-e $xml_file) { |
224 |
foreach my $vryod(@{$dash->{very_overdue_library}}) |
263 |
$template->param('nofile' => $nofile,); |
225 |
{ |
|
|
226 |
if($vryod->{BranchCode} eq $login_branch_name) |
227 |
{ |
228 |
$very_overdue_library = $vryod->{NumberOfVeryOverdue} |
229 |
} |
264 |
} |
230 |
} |
265 |
|
231 |
|
|
|
232 |
$template->param('number_of_biblios' => $number_of_biblios, |
233 |
'biblios_7days' => $biblios_7days, |
234 |
'items_7days_system' => $items_7days_system, |
235 |
'items_7days_library' => $items_7days_library, |
236 |
'borrowers_system' => $borrowers_system, |
237 |
'expired_borrowers_library' => $expired_borrowers_library, |
238 |
'expired_borrowers_system' => $expired_borrowers_system, |
239 |
'overdues_library' => $overdues_library, |
240 |
'overdues_system' => $overdues_system, |
241 |
'overdues_7days_library' => $overdues_7days_library, |
242 |
'overdues_7days_system' => $overdues_7days_system, |
243 |
'overdues_14days_library' => $overdues_14days_library, |
244 |
'overdues_14days_system' => $overdues_14days_system, |
245 |
'overdues_21days_library' => $overdues_21days_library, |
246 |
'overdues_21days_system' => $overdues_21days_system, |
247 |
'very_overdue_library' => $very_overdue_library, |
248 |
'very_overdue_system' => $very_overdue_system, |
249 |
'loan_history_system' => $loan_history_system, |
250 |
'loan_history_library' => $loan_history_library, |
251 |
'issues_library' => $issues_library, |
252 |
'issues_system' => $issues_system, |
253 |
'items_library' => $items_library, |
254 |
'items_system' => $items_system, |
255 |
'borrowers_library' => $borrowers_library, |
256 |
'last_updated' => $last_updated |
257 |
); |
258 |
} else { |
259 |
$template->{VARS}->{'nofile'} = 1; |
260 |
} |
261 |
|
266 |
} |
262 |
} |
267 |
|
263 |
|
268 |
# Dashboard end |
264 |
# Dashboard end |
269 |
- |
|
|