Lines 1220-1226
sub interface {
Link Here
|
1220 |
|
1220 |
|
1221 |
if (defined $interface) { |
1221 |
if (defined $interface) { |
1222 |
$interface = lc $interface; |
1222 |
$interface = lc $interface; |
1223 |
if ($interface eq 'opac' || $interface eq 'intranet') { |
1223 |
if ($interface eq 'opac' || $interface eq 'intranet' || $interface eq 'sip' || $interface eq 'commandline') { |
1224 |
$context->{interface} = $interface; |
1224 |
$context->{interface} = $interface; |
1225 |
} else { |
1225 |
} else { |
1226 |
warn "invalid interface : '$interface'"; |
1226 |
warn "invalid interface : '$interface'"; |
1227 |
- |
|
|