|
Line 0
Link Here
|
| 0 |
- |
1 |
#!/usr/bin/perl |
|
|
2 |
|
| 3 |
use Modern::Perl; |
| 4 |
use Test::More tests => 2; |
| 5 |
use C4::Context; |
| 6 |
|
| 7 |
my $opacheader = C4::Context->preference('opacheader'); |
| 8 |
my $newopacheader = "newopacheader"; |
| 9 |
|
| 10 |
C4::Context->set_preference('OPACHEADER', $newopacheader); |
| 11 |
ok(C4::Context->preference('opacheader') eq $newopacheader); |
| 12 |
|
| 13 |
C4::Context->set_preference('opacheader', $opacheader); |
| 14 |
ok(C4::Context->preference('OPACHEADER') eq $opacheader); |