repo.or.cz
/
sgn.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
bug fix. Now it tests correctly if either of the tests evaluate to false or not
[sgn.git]
/
cgi-bin
/
tools
/
index.pl
blob
5f844ca535ed680ab5b8bc6c3215f25a8bfab89c
1
use
strict
;
2
use
CXGN
::
Page
;
3
use
CXGN
::
Page
::
Toolbar
::
SGN
;
4
my
$page
=
CXGN
::
Page
->
new
(
"Tools"
,
"john"
);
5
$page
->
header
();
6
my
$tb
=
CXGN
::
Page
::
Toolbar
::
SGN
->
new
();
7
print
$tb
->
index_page
(
'tools'
);
8
$page
->
footer
();