| Filename | /home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc |
| Statements | Executed 7 statements in 79µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 13µs | 27µs | Template::Document::__ANON__[:94] |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 27µs (13+14) within Template::Document::__ANON__[/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc:94] which was called:
# once (13µs+14µs) by Template::Document::process at line 163 of Template/Document.pm | ||||
| - - | |||||
| 7 | 1 | 200ns | |||
| 8 | 1 | 400ns | |||
| - - | |||||
| 67 | 1 | 10µs | 2 | 16µs | if (($stash->get('languages_loop'))) { # spent 12µs making 1 call to Template::Stash::XS::get
# spent 4µs making 1 call to Template::Stash::undefined |
| 68 | $output .= "\n "; | ||||
| 69 | #line 66 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 70 | if (!(($stash->get('one_language_enabled')))) { | ||||
| 71 | $output .= "\n <div id=\"changelanguage\" class=\"navbar navbar-fixed-bottom\">\n <div class=\"navbar-inner\">\n <ul id=\"i18nMenu\" class=\"nav\">\n "; | ||||
| 72 | #line 62 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 73 | |||||
| 74 | # FOREACH | ||||
| 75 | do { | ||||
| 76 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 77 | my $_tt_list = $stash->get('languages_loop'); | ||||
| 78 | |||||
| 79 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 80 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 81 | || die $Template::Config::ERROR, "\n"; | ||||
| 82 | } | ||||
| 83 | |||||
| 84 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 85 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 86 | 1 | 600ns | $stash->set('loop', $_tt_list); | ||
| 87 | eval { | ||||
| 88 | 1 | 100ns | FOR1: while (! $_tt_error) { | ||
| 89 | $stash->{'languages_loo'} = $_tt_value; | ||||
| 90 | $output .= "\n\n "; | ||||
| 91 | #line 60 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 92 | if (($stash->get(['languages_loo', 0, 'group_enabled', 0]))) { | ||||
| 93 | 1 | 4µs | $output .= "\n "; | ||
| 94 | #line 59 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 95 | 1 | 64µs | if (($stash->get(['languages_loo', 0, 'plural', 0]))) { | ||
| 96 | $output .= "\n <li class=\"dropdown\"><a class=\"dropdown-toggle dropup\" data-toggle=\"dropdown\" id=\"show"; | ||||
| 97 | #line 12 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 98 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 99 | $output .= "\" href=\"#\">\n "; | ||||
| 100 | #line 17 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 101 | if (($stash->get(['languages_loo', 0, 'native_description', 0]))) { | ||||
| 102 | $output .= "\n "; | ||||
| 103 | #line 14 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 104 | $output .= $stash->get(['languages_loo', 0, 'native_description', 0]); | ||||
| 105 | $output .= "\n "; | ||||
| 106 | } | ||||
| 107 | else { | ||||
| 108 | $output .= "\n "; | ||||
| 109 | #line 16 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 110 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 111 | $output .= "\n "; | ||||
| 112 | } | ||||
| 113 | |||||
| 114 | $output .= "\n "; | ||||
| 115 | #line 24 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 116 | |||||
| 117 | # FOREACH | ||||
| 118 | do { | ||||
| 119 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 120 | my $_tt_list = $stash->get(['languages_loo', 0, 'sublanguages_loop', 0]); | ||||
| 121 | |||||
| 122 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 123 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 124 | || die $Template::Config::ERROR, "\n"; | ||||
| 125 | } | ||||
| 126 | |||||
| 127 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 128 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 129 | $stash->set('loop', $_tt_list); | ||||
| 130 | eval { | ||||
| 131 | FOR2: while (! $_tt_error) { | ||||
| 132 | $stash->{'sublanguages_loo'} = $_tt_value; | ||||
| 133 | $output .= "\n "; | ||||
| 134 | #line 23 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 135 | if (($stash->get(['sublanguages_loo', 0, 'enabled', 0]))) { | ||||
| 136 | $output .= "\n "; | ||||
| 137 | #line 22 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 138 | if (($stash->get(['sublanguages_loo', 0, 'sublanguage_current', 0]))) { | ||||
| 139 | $output .= "\n <span class=\"sublanguage-selected\">("; | ||||
| 140 | #line 21 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 141 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 142 | $output .= ")</span>\n "; | ||||
| 143 | } | ||||
| 144 | |||||
| 145 | $output .= "\n "; | ||||
| 146 | } | ||||
| 147 | |||||
| 148 | $output .= "\n ";; | ||||
| 149 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 150 | } | ||||
| 151 | }; | ||||
| 152 | $stash->set('loop', $_tt_oldloop); | ||||
| 153 | die $@ if $@; | ||||
| 154 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 155 | die $_tt_error if $_tt_error; | ||||
| 156 | }; | ||||
| 157 | |||||
| 158 | $output .= "\n <span class=\"caret\"></span></a>\n <ul id=\"sub"; | ||||
| 159 | #line 26 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 160 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 161 | $output .= "\" class=\"dropdown-menu\">\n "; | ||||
| 162 | #line 36 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 163 | |||||
| 164 | # FOREACH | ||||
| 165 | do { | ||||
| 166 | my ($_tt_value, $_tt_error, $_tt_oldloop); | ||||
| 167 | my $_tt_list = $stash->get(['languages_loo', 0, 'sublanguages_loop', 0]); | ||||
| 168 | |||||
| 169 | unless (UNIVERSAL::isa($_tt_list, 'Template::Iterator')) { | ||||
| 170 | $_tt_list = Template::Config->iterator($_tt_list) | ||||
| 171 | || die $Template::Config::ERROR, "\n"; | ||||
| 172 | } | ||||
| 173 | |||||
| 174 | ($_tt_value, $_tt_error) = $_tt_list->get_first(); | ||||
| 175 | eval { $_tt_oldloop = $stash->get('loop') }; | ||||
| 176 | $stash->set('loop', $_tt_list); | ||||
| 177 | eval { | ||||
| 178 | FOR2: while (! $_tt_error) { | ||||
| 179 | $stash->{'sublanguages_loo'} = $_tt_value; | ||||
| 180 | $output .= "\n "; | ||||
| 181 | #line 34 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 182 | if (($stash->get(['sublanguages_loo', 0, 'enabled', 0]))) { | ||||
| 183 | $output .= "\n "; | ||||
| 184 | #line 33 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 185 | if (($stash->get(['sublanguages_loo', 0, 'sublanguage_current', 0]))) { | ||||
| 186 | $output .= "\n <li class=\"navbar-text\"> <a href=\"#\" class=\"currentlanguage disabled\">"; | ||||
| 187 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 188 | $output .= $stash->get(['sublanguages_loo', 0, 'native_description', 0]); | ||||
| 189 | $output .= " "; | ||||
| 190 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 191 | $output .= $stash->get(['sublanguages_loo', 0, 'script_description', 0]); | ||||
| 192 | $output .= " "; | ||||
| 193 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 194 | $output .= $stash->get(['sublanguages_loo', 0, 'region_description', 0]); | ||||
| 195 | $output .= " "; | ||||
| 196 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 197 | $output .= $stash->get(['sublanguages_loo', 0, 'variant_description', 0]); | ||||
| 198 | $output .= " ("; | ||||
| 199 | #line 30 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 200 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 201 | $output .= ")</a></li>\n "; | ||||
| 202 | } | ||||
| 203 | else { | ||||
| 204 | $output .= "\n <li><a href=\"/cgi-bin/koha/changelanguage.pl?language="; | ||||
| 205 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 206 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 207 | $output .= "\"> "; | ||||
| 208 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 209 | $output .= $stash->get(['sublanguages_loo', 0, 'native_description', 0]); | ||||
| 210 | $output .= " "; | ||||
| 211 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 212 | $output .= $stash->get(['sublanguages_loo', 0, 'script_description', 0]); | ||||
| 213 | $output .= " "; | ||||
| 214 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 215 | $output .= $stash->get(['sublanguages_loo', 0, 'region_description', 0]); | ||||
| 216 | $output .= " "; | ||||
| 217 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 218 | $output .= $stash->get(['sublanguages_loo', 0, 'variant_description', 0]); | ||||
| 219 | $output .= " ("; | ||||
| 220 | #line 32 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 221 | $output .= $stash->get(['sublanguages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 222 | $output .= ")</a></li>\n "; | ||||
| 223 | } | ||||
| 224 | |||||
| 225 | $output .= "\n "; | ||||
| 226 | } | ||||
| 227 | |||||
| 228 | $output .= "\n\n ";; | ||||
| 229 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 230 | } | ||||
| 231 | }; | ||||
| 232 | $stash->set('loop', $_tt_oldloop); | ||||
| 233 | die $@ if $@; | ||||
| 234 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 235 | die $_tt_error if $_tt_error; | ||||
| 236 | }; | ||||
| 237 | |||||
| 238 | $output .= "\n </ul></li>\n\n "; | ||||
| 239 | } | ||||
| 240 | else { | ||||
| 241 | $output .= "\n "; | ||||
| 242 | #line 58 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 243 | if (($stash->get(['languages_loo', 0, 'group_enabled', 0]))) { | ||||
| 244 | $output .= "\n "; | ||||
| 245 | #line 57 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 246 | if (($stash->get(['languages_loo', 0, 'current', 0]))) { | ||||
| 247 | $output .= "\n <li class=\"navbar-text\">\n "; | ||||
| 248 | #line 47 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 249 | if (($stash->get(['languages_loo', 0, 'native_description', 0]))) { | ||||
| 250 | $output .= "\n <span class=\"currentlanguage\">"; | ||||
| 251 | #line 44 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 252 | $output .= $stash->get(['languages_loo', 0, 'native_description', 0]); | ||||
| 253 | $output .= "</span>\n "; | ||||
| 254 | } | ||||
| 255 | else { | ||||
| 256 | $output .= "\n <span class=\"currentlanguage\">"; | ||||
| 257 | #line 46 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 258 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 259 | $output .= "</span>\n "; | ||||
| 260 | } | ||||
| 261 | |||||
| 262 | $output .= "\n </li>\n "; | ||||
| 263 | } | ||||
| 264 | else { | ||||
| 265 | $output .= "\n <li><a href=\"/cgi-bin/koha/changelanguage.pl?language="; | ||||
| 266 | #line 50 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 267 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 268 | $output .= "\">\n "; | ||||
| 269 | #line 55 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 270 | if (($stash->get(['languages_loo', 0, 'native_description', 0]))) { | ||||
| 271 | $output .= "\n "; | ||||
| 272 | #line 52 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 273 | $output .= $stash->get(['languages_loo', 0, 'native_description', 0]); | ||||
| 274 | $output .= "\n "; | ||||
| 275 | } | ||||
| 276 | else { | ||||
| 277 | $output .= "\n "; | ||||
| 278 | #line 54 "/home/vagrant/kohaclone/koha-tmpl/intranet-tmpl/prog/en/includes/intranet-bottom.inc" | ||||
| 279 | $output .= $stash->get(['languages_loo', 0, 'rfc4646_subtag', 0]); | ||||
| 280 | $output .= "\n "; | ||||
| 281 | } | ||||
| 282 | |||||
| 283 | $output .= "\n </a></li>\n "; | ||||
| 284 | } | ||||
| 285 | |||||
| 286 | $output .= "\n "; | ||||
| 287 | } | ||||
| 288 | |||||
| 289 | $output .= "\n "; | ||||
| 290 | } | ||||
| 291 | |||||
| 292 | $output .= "\n "; | ||||
| 293 | } | ||||
| 294 | |||||
| 295 | $output .= "\n\n ";; | ||||
| 296 | ($_tt_value, $_tt_error) = $_tt_list->get_next(); | ||||
| 297 | } | ||||
| 298 | }; | ||||
| 299 | $stash->set('loop', $_tt_oldloop); | ||||
| 300 | die $@ if $@; | ||||
| 301 | $_tt_error = 0 if $_tt_error && $_tt_error eq Template::Constants::STATUS_DONE; | ||||
| 302 | die $_tt_error if $_tt_error; | ||||
| 303 | }; | ||||
| 304 | |||||
| 305 | $output .= "\n </ul>\n </div>\n </div>\n "; | ||||
| 306 | } | ||||
| 307 | |||||
| 308 | $output .= "\n"; | ||||
| 309 | } | ||||
| 310 | |||||
| 311 | $output .= "\n <span id=\"audio-alert\"></span>\n </body>\n</html>\n"; | ||||
| 312 | } }; | ||||
| 313 | if ($@) { | ||||
| 314 | $_tt_error = $context->catch($@, \$output); | ||||
| 315 | die $_tt_error unless $_tt_error->type eq 'return'; | ||||
| 316 | } | ||||
| 317 | |||||
| 318 | return $output; | ||||
| 319 | } | ||||
| 320 |