Lines 1117-1123
sub interface {
Link Here
|
1117 |
|
1117 |
|
1118 |
if (defined $interface) { |
1118 |
if (defined $interface) { |
1119 |
$interface = lc $interface; |
1119 |
$interface = lc $interface; |
1120 |
if ($interface eq 'opac' || $interface eq 'intranet') { |
1120 |
if ($interface eq 'opac' || $interface eq 'intranet' || $interface eq 'sip' || $interface eq 'commandline') { |
1121 |
$context->{interface} = $interface; |
1121 |
$context->{interface} = $interface; |
1122 |
} else { |
1122 |
} else { |
1123 |
warn "invalid interface : '$interface'"; |
1123 |
warn "invalid interface : '$interface'"; |
1124 |
- |
|
|