#!/usr/bin/perl use strict; use ZTabs; my $pwd = `pwd`; chomp $pwd; my $head = ZTabs::head(body => 'padding:1; ', file_test => 'true', base => $pwd.'/', # last "/" is important location => 'AllFiles', '.tab' => 'background-color:lightblue', '.content' => 'width:100%', ); my $body_attr = ZTabs::body_attr(); my $tab1 = ZTabs->new(); my $tab2 = ZTabs->new(); $tab1->add_tab( tab => 'Общие', content =>1 ); $tab1->add_tab( tab => 'Документы', content =>2 ); $tab1->add_tab( tab => 'Адрес', content =>3 ); $tab1->add_tab( tab => 'Образование', content =>4 ); $tab1->add_tab( tab => 'Контракт', content =>5 ); $tab1->add_tab( tab => 'Работа', content =>'' ); $tab1->add_tab( tab => 'Примечания', content =>8 ); $tab1->add_tab( tab => 'Воен. билет', content =>'-7-' ); $tab2->add_tab( tab => 'General', content => 'General' ); $tab2->add_tab( tab => 'Documents', content => 'Documents' ); # Output ===================================================== print "\n\n"; print $head,"\n"; print "\n\n\n\n"; print "

Тестовая выдача

\n\n"; print '

' . "\n"; print $tab1->get_tabs(active=>3); print "\n" . '

' . "\n"; print $tab1->get_contents(); print "\n" . '

' . "\n\n"; print "

Tab 2

\n\n"; print '

' . "\n"; print $tab2->get_tabs(); print "\n" . '

' . "\n"; print $tab2->get_contents(); print "\n" . '

' . "\n\n"; print "\n\n\n";