./Zanas.pm

no warnings;

use Zanas::Presentation;
use Zanas::Content;
use Zanas::Apache;
use Zanas::SQL;
use Zanas::Request;

################################################################################

sub require_fresh {

	my ($module_name) = @_;

	if ($_USER and $$_USER{role} and $module_name =~ /Content|Presentation/) {

		my $specific_module_name = $module_name;

		$specific_module_name =~ s/(Content|Presentation)/$$_USER{role}::$1/;

		my $error;

		eval {$error = require_fresh_internal ($specific_module_name)};

		return unless $error;

	}

	require_fresh_internal ($module_name, 1);

}

################################################################################

sub fix_module_for_role {

	my ($file_name) = @_;

	my $tmp_file_name = $file_name . '~';

	open (IN, $file_name) or die "Cannot open $file_name: $!\n";
	open (OUT, ">$tmp_file_name") or die "Cannot write to $tmp_file_name: $!\n";

	my $suffix = ($_USER and $$_USER{role}) ? '_for_' . $_USER -> {role} : '';

	while (my $s = ) {

		$s =~ s/sub\s+get_menu\w*/sub get_menu$suffix/;

		print OUT $s;

	}

	close (OUT);
	close (IN);

}

################################################################################

sub require_fresh_internal {

	my ($module_name, $fatal) = @_;

	if ($conf -> {core_spy_modules} || $preconf -> {core_spy_modules}) {

		my $file_name = $module_name;

		$file_name =~ s{::}{\/}g;

		my $inc_key = $file_name . '.pm';

		$file_name =~ s{^(.+?)\/}{\/};
		$file_name = $PACKAGE_ROOT . $file_name . '.pm';

		-f $file_name or return "File not found: $file_name\n";

		fix_module_for_role ($file_name) if $conf -> {core_fix_modules} and $module_name =~ /Content|Presentation/;

		my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $last_modified, $ctime, $blksize, $blocks) = stat ($file_name);

		my $last_load = $INC_FRESH {$module_name} + 0;

		my $need_refresh = $last_load < $last_modified;

		$need_refresh or return;

#		eval { do $file_name };

		delete $INC {$inc_key};

		eval "require $module_name";

	}

	else {

		eval "require $module_name";

	}

	$INC_FRESH {$module_name} = time;

        if ($@ and $fatal) {
		$_REQUEST {error} = $@;
		print STDERR "require_fresh: error load module $module_name: $@\n";
        }

        return $@;

}

################################################################################

BEGIN {

#	print STDERR Dumper ($preconf);

	if ($ENV {GATEWAY_INTERFACE} =~ m{^CGI/} || $conf -> {use_cgi} || $preconf -> {use_cgi}) {
 		eval 'require CGI';
	} else {
		eval 'require Apache::Request';
		if ($@) {
			eval 'require CGI';
			eval 'require Zanas::Request';
		};
	}

	$INC {'Apache/Request.pm'} or eval 'require Zanas::Request';

	our $STATIC_ROOT = __FILE__;
	$STATIC_ROOT =~ s{\.pm}{/static/};

	eval 'require Compress::Zlib';

	if ($@) {
		delete $conf -> {core_gzip};
		delete $preconf -> {core_gzip};
	};

	our %INC_FRESH = ();

	while (my ($name, $path) = each %INC) {

		delete $INC {$name} if $name =~ m{Zanas[\./]};

	}

	our $PACKAGE_ROOT = $INC {__PACKAGE__ . '/Config.pm'};

	$PACKAGE_ROOT ||= '';

	$PACKAGE_ROOT =~ s{\/Config\.pm}{};

	$conf = {%$conf, %$preconf};

	if ($conf -> {core_load_modules}) {

		opendir (DIR, "$PACKAGE_ROOT/Content") || die "can't opendir $PACKAGE_ROOT/Content: $!";
		my @files = grep {/\.pm$/} map { "Content/$_" } readdir(DIR);
		closedir DIR;

		opendir (DIR, "$PACKAGE_ROOT/Presentation") || die "can't opendir $PACKAGE_ROOT/Presentation: $!";
		push @files, grep {/\.pm$/} map { "Presentation/$_" } readdir(DIR);
		closedir DIR;

		foreach my $file (@files) {

			$file =~ s{\.pm$}{};
			$file =~ s{\/}{\:\:};

			require_fresh (__PACKAGE__ . "::$file");

		}

	}

	if ($conf -> {db_dsn}) {

		sql_reconnect ();

		$model_update -> assert (

			tables => {

				sessions => {

					columns => {

						id => {
							TYPE_NAME  => 'bigint',
							_PK    => 1,
						},

						id_user => {
							TYPE_NAME  => 'int',
						},

						ts => {
							TYPE_NAME  => 'timestamp',
						},

					}

				},

			},

		);

		$model_update -> assert (

			default_columns => {
				id   => {TYPE_NAME  => 'int', _EXTRA => 'auto_increment', _PK => 1},
				fake => {TYPE_NAME  => 'bigint', COLUMN_DEF => 0, NULLABLE => 0},
			},

			tables => {

				roles => {

					columns => {
						name  => {TYPE_NAME    => 'varchar', COLUMN_SIZE  => 255},
						label => {TYPE_NAME    => 'varchar', COLUMN_SIZE  => 255},
					},

				},

				users => {

					columns => {
						name =>     {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						login =>    {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						label =>    {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						password => {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						id_role =>  {TYPE_NAME => 'int'},
					}

				},

				log => {

					columns => {
						id_user =>   {TYPE_NAME => 'int'},
						id_object => {TYPE_NAME => 'int'},
						ip =>        {TYPE_NAME => 'varchar', COLUMN_SIZE => 15},
						ip_fw =>     {TYPE_NAME => 'varchar', COLUMN_SIZE => 15},
						type =>      {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						action =>    {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						error =>     {TYPE_NAME => 'varchar', COLUMN_SIZE => 255},
						params =>    {TYPE_NAME => 'text'},
						dt =>        {TYPE_NAME => 'timestamp'},
					}

				},

			},

		)

	}

}

################################################################################

package Zanas;

$VERSION = '0.9908';

=head1 NAME

Zanas.pm - a RAD platform for WEB GUIs with rich DHTML widget set.

=head1 DESCRIPTION

Zanas.pm is a set of naming conventions, utility functions, and a basic Apache request handler that help to quickly build robust, efficient and good-looking Web interfaces with standard design. The last doesn't mean that you can't alter hardcoded HTML fragments at all. But building public Web sites with original graphics and layout is not the primary goal of Zanas development. Zanas is good for developing client database editing GUIs ('thin clients') and is conditionnally comparable to Windows API and java Swing.

Zanas' basic features are:

=over

=item GUI base

usable set of DHTML widgets (forms, toolbars, etc);

=item transparent DB scheme maintenace

when some table or field lacks, the application creates it silently;

=item ALC support

standard routines to backup, mirror and synchronize multiple installations of the same application (Zanas::Install);

=item sessions

session management subsystem with transparent query rewriting;

=item js alerting

server side error handling and data validation with client javaScript notifications without page reloading (yes, it really is);

=item logging

action logging is a part of core process, additionl API calls aren't needed;

=item fake records/garbage collection

handling of temporary records that are only visible on creation forms and wizards;

=back

=head1 DESIGN PRINCIPLES

There is a whole a lot of univesal web application platforms. So, why develop another one instead of using some mature product? 'Cause we've already tried many of this and have'nt found a good one.

When developing Zanas, we use the following principles:

=over

=item no OO

HTTP is nothing else than evaluting string functions with sets of named parameters. Request handler must do nothing else than decompose the top function to some more primitive functions. So, Zanas is purely procedure-oriented framework.

=item content/presentation separation

Request handler reduce the top function f (x) to a superposition of a content and a presentation function: c (x) and p (c, x), where c (x) can't produce any HTML fragment in its result and p (c, x) can't use any info stored in the database.

	f (x) = p (c (x), x).

=item URL discipline and strict callback naming

Content and presentation functions can be reduced to swithes between some elementary callback functions, where the switch is directly governed by known CGI parameters. Say, for C C and C
.

=item no ASP or like

Perl is ideal for implementing templating languages. That's why people love to implement new templating languages in Perl. But most of them ignore the fact that Perl I a templating language. Heredoc syntax is much more usable than any ASP-like. And it doesn't require any additional processing: everything is done by the Perl interpreter.

=item no XML

Nested Perl datastructures like list-of-hashes and more complex offer the same functionnality as the XML DOM model. And it doesn't require any external libraries: everything is done by the Perl interpreter.

=item no XSLT

It would be very strange to use XSLT without XML, but we must underline here that there was one more reason to not use XSLT. Its syntax is even much crappier and less flexible than ASP-like.

=back

=head1 MAGIC CGI PARAMETERS

The next CGI parameters have special meaning in Zanas URLs and can be used only as described.

=over

=item sid

Session ID. If not set, the client is automatically redirected to the logon screen.

=item type

Type of the current screen. Can have values like C<'users'> or, for example, C<'users_creation_wizard_step_2'>. Influences the callback functions selection and the main menu rendering.

=item id

Current object ID. Influences the callback functions selection. When set, the screen presents detailed info of one object, otherwise, it contains some search results.

=item action

Name of the action to execute. If set, the request handler executes some editing callback, then evalutes the new URL where C is unset and redirects the client there.

=item salt

Fake random parameter for preventing the client HTML cacheing.

=back

=head1 GLOBAL VARIABLES

The next variables are accessible in all callback subs.

=over

=item %_REQUEST

The hash of CGI parameters and its values

=item $_USER

The hashref containing the current user information:

	{
		id   => ...
		name => ...
		role => ...
	}

=back

=head1 CALLBACK SUBS

Under differnent circumstances, Zanas Apache request handler executes appropriate callback subs. The name of the callback to execute depends on current program context, C value and the role of the current user.

Suppose that the context imply the callback name C<$my_callback>, C<$_REQUEST{type}> is C<$type> and C<$$_USER {role}> is C<$role>. In this case, if the sub named "${my_callback}_${type}_for_${role}" is defined, it will be called. Otherwise, if the sub named "${my_callback}_${type}" is defined, it will be called. Otherwise, undef value will be used instead of missing sub result.

In the next sections, "${my_callback}_${type}_for_${role}" always means one of 3 cases described above.

=over

=item validate_{$action}_${type}_for_${role}

This sub must analyze the values of parameters in C<%_REQUEST> hash for consistency. In most cases, the object id is stored in C<$_REQUEST {id}> and the names of all other fields are underscore prefixed (C<$_REQUEST {_name}>, C<$_REQUEST {_login}>, C<$_REQUEST {_password}> etc).

If everythig's OK, the validator must return C. Otherwise, the return value is an error code. We'll call it C<$error>. So, if C<$error> is defined, an error message template C<$$error_messages {"{$action}_${type}_${error}"}> is interpolated as a qq-string and then sent to the user as the error message.

For example, if the sub C returns C<'duplicate_login'>, C<$_REQUEST {_login} eq 'scott'> and C<$$error_messages {"update_users_duplicate_login"} eq 'Duplicate login: \'$_REQUEST{_login}\''>, then the error message will be C<"Duplicate login: 'scott'">.

=item do_{$action}_${type}_for_${role}

This sub must execute the C<$action>. Note that you can choose the next screen shown to the user by manipulating the C<%_REQUEST> hash. For example, it's usual to set the C parameter after creating new object:

	sub do_create_users_for_admin {

		sql_do ("INSERT INTO ... ");

		$_REQUEST {id} = sql_last_insert_id ();

	}

The client window will be rediredted to "/?type=users&id=1&sid=...".

=item get_item_of_${type}_for_${role}

This sub must fetch the info for the screen of type C<$type> having the obgect id C<$_REQUEST {id}> and the role C<${role}>. Usually it's a reference to a hash, may be nested.

=item select_${type}_for_${role}

This sub must fetch the info for the screen of type C<$type> and the role C<${role}>. Usually it's a reference to a list of references to hashes, may be nested.

=item draw_item_of_${type}_for_${role}

This sub must render the screen of type C<$type> having the obgect id C<$_REQUEST {id}> and the role C<${role}> as HTML. The info fetched with C is passed as its 1st parameter.

=item draw_${type}_for_${role}

This sub must render the screen of type C<$type> sand the role C<${role}> as HTML. The info fetched with C is passed as its 1st parameter.

=back

=head1 HTTP REQUEST HANDLING

=head2 SESSION CHECKING

First of all, the handler checks for the C param and, if the session is alive, it sets the C<$USER> variable, otherwise, redirects the client to the logon screen.

=head2 EDITING REQUEST

If the C CGI parameter is set, then the sub named C is invoked. If if returns a non-empty error message, it's logged and presented with a js popup window. Otherwise the sub named C is invoked, then the client is redirected to the new URL composed from all C<%_REQUEST> key-value pairs except C and those which names start with an C<'_'>.

In any case, the HTTP response has status 200 (OK) and contains a tiny HTML document consisting of a singular C tag with a non-empty C event handler. When an error occurs, this handler displays the message in a js popup window. Otherwise the C handler opens the new URL in the top browser window.

Every conventional HTML page generated by Zanas Apache handler has a zero sized internal frame called C. In order to improve the GUI usability, every anchor with non-empty C parameter value in its href and every form with a non-empty value for C input must use C as the target:

	[New Folder]

	

		...
	



Standard Zanas HTML rendering API does this automatically.

=head2 OBJECT BROWSING REQUEST

If the C CGI parameter is unset and C CGI parameter is set, then the HTML resuls from the superposition of C and C callbacks.

=head2 SELECTION BROWSING REQUEST

If both C and C CGI parameters are unset, then the HTML resuls from the superposition of C and C callbacks.

=head1 MODULES STRUCTURE

Zanas modules don't have a C directive. All the stuff is loaded in one package.

Callback subs must be placed in strictly named .pm files. Suppose that you've chosen C<$applib> as your application library root and have placed it in your C<@INC> array. Then, create C<$applib/Content> and C<$applib/Presentation> directories.

Now, all content callbacks (C, C, C and C) must be defined in C<$applib/Content/${type}.pm> and presentation callbacks (C and C) in C<$applib/Presentation/${type}.pm>.

	$applib
		Content
			roles.pm
			users.pm
		Presentation
			roles.pm
			users.pm

=head1 MORE API DOCS

Generate it:

	perl -MZanas::Docs -e generate

=head1 SEE ALSO

DBIx::ModelUpdate Zanas::Install

=head1 AUTHORS

Dmitry Ovsyanko 
Pavel Kudryavtzev 
Yaroslav Ivanov <... hekima ...>

1;

./Makefile.PL

use ExtUtils::MakeMaker;
WriteMakefile(
    'NAME'		=> 'Zanas',
    'VERSION_FROM'	=> 'Zanas.pm',
    'PREREQ_PM'		=> {
	'DBI'			=> '1.21',
	'DBD::mysql'		=> '2.9002',
	'Apache::Request'	=> '0.33',
	'Number::Format'	=> '1.45',
	'DBIx::ModelUpdate'	=> '0.2',
    },
    ($] >= 5.005 ?
	(ABSTRACT_FROM => 'Zanas.pm',
	AUTHOR     => 'D. Ovsyanko ') : ())
);

./Changes

0.9908:

	- check_title sub is added, draw_table_header, draw_row_button and draw_text_cell are fixed to use it;

0.9907:

	- magic %_REQUEST params documented;
	- trees in 'checkboxes' are supported;

0.9906:

	- new $conf options: kb_options_menu, kb_options_buttons, kb_options_pager and kb_options_focus;
	- hotkey and hotkeys subs added;
	- draw_toolbar_input_select sub added;
	- draw_form_field_checkboxes redone dramatically;

0.9905:

	- Zanas::Docs added;

0.9904:

	- added 'read_only' option in draw_menu sub;

0.9903:

	- new magic parameter: __help_url;
	- draw_text_cell fix: no hrefs rendered when lpt=1;
	- added 'position' option in add_totals sub;
	- added 'read_only' option in draw_input_cell sub;
	- another XLS fix: $conf -> {site_root} removed, $$ added in temporary filename;

0.9902:

	- serving XLS responses refactored: $conf -> {site_root} is obsoleted & no more filesystem garbage;
	- 
				
			
			
				

					
${$i18n{NAME}}{$lang}
					
\$_REQUEST {$$s{name}}

					@{[ $$s{default} ? <${$i18n{DEFAULT}}{$lang}
						
$$s{default}
EOD

					
${$i18n{DESCRIPTION}}{$lang}
					
$$s{"label_$lang"}

					$see_also

				
			
		
EOF

	close (F);

}

################################################################################

sub generate_sub {

	my ($lang, $s) = @_;

	my $options = '';
	foreach my $o (@{$s -> {options}}) {
		my ($name, $default) = split /\//, $o;
		$default ||= ' ';
		my ($o_def) = grep {$_ -> {name} eq $name} @options;
		$o_def or die "Option not defined: $name.\n";
		my $label = $o_def -> {"label_$lang"};
		$options .= qq{$name$label$default};
	}

	$options and $options = <${$i18n{OPTIONS}}{$lang}
					

						

						

							

								
${$i18n{NAME}}{$lang}
${$i18n{DESCRIPTION}}{$lang}
${$i18n{DEFAULT}}{$lang}
								$options
							
						
EOF

	my $see_also = '';
	foreach my $sa (sort @{$s -> {see_also}}) {
		$see_also .= qq{
$sa};
	}

	$see_also and $see_also = <${$i18n{SEE_ALSO}}{$lang}
					
$see_also
EOF


	open (F, ">$lang/$$s{name}.html");
	print F <
			
				
				
			
			
				

					
${$i18n{NAME}}{$lang}
					
$$s{name}

					
${$i18n{SYNOPSIS}}{$lang}
					
$$s{syn}

					
${$i18n{DESCRIPTION}}{$lang}
					
$$s{"label_$lang"}

					$options
					$see_also

				
			
		
EOF

	close (F);

}

################################################################################

sub generate_left {

	my ($lang) = @_;

	my $subs = '';
	foreach my $s (sort {$a -> {name} cmp $b -> {name}} @subs) {
		$subs .= qq{$$s{name}
};
		generate_sub ($lang, $s);
	}

	my $params = '';
	foreach my $s (sort {$a -> {name} cmp $b -> {name}} @params) {
		$params .= qq{$$s{name}
};
		generate_param ($lang, $s);
	}

	open (F, ">$lang/left.html");
	print F <
			
				
				
			
			
				@{[ map { <$_
EO
				
${$i18n{'API Reference'}}{$lang}
				$subs

				
%_REQUEST
				$params
			
		
EOF
	close (F);
}

################################################################################

sub generate_index {
	my ($lang) = @_;
	open (F, ">$lang/index.html");
	print F <
			
				
			
			
				
				
			
		
EOF
	close (F);
}

################################################################################

sub generate_for_lang {
	my ($lang) = @_;
	mkdir $lang;
	mkdir "$lang/params";
	generate_index ($lang);
	generate_left  ($lang);
}

################################################################################

sub generate {
	map { generate_for_lang ($_) } @langs;
	mkdir 'css';
	open (F, ">css/z.css");
	print F <
./Zanas/Request.pm
package Zanas::Request;
require Zanas::Request::Upload;

################################################################################

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;

	my $self  = {};
	$self -> {Q} = new CGI;

#	if ($ENV{PATH_TRANSLATED} =~ /$ENV{DOCUMENT_ROOT}\/+index\.html/) {
#		$self -> {Filename} = '';
#	} else {
#		$ENV{PATH_TRANSLATED} =~ /$ENV{DOCUMENT_ROOT}\/+(.*)/;
#		$self -> {Filename} = $1;
#	}

#	$self -> {Filename} = $self -> {Q} -> script_name;
#	$self -> {Filename} = '/' if $self -> {Filename} =~ /index\.pl/;

	$self -> {Filename} = $ENV{PATH_INFO};
	$self -> {Filename} = '/' if $self -> {Filename} =~ /index\./;

	$self -> {Document_root} = $ENV{DOCUMENT_ROOT};
	$self -> {Out_headers} = {-type => 'text/html', -status=> 200};

	bless ($self, $class);

	return $self;
}

################################################################################

sub internal_redirect {

	my $self = shift;
	my $q = $self -> {Q};

	my $url = $_[0];

#print STDERR "URL: $url ";

	unless ($url =~ /^http:\/\//) {
		$url =~ s{^/}{};
		$url = "http://$ENV{HTTP_HOST}/$url" ;
	}

#print STDERR " --> $url\n";

	print $q -> redirect (-uri => $url);

}

################################################################################

sub header_in {
	my $self = shift;
	my $q = $self -> {Q};
	return $q -> http ($_ [0]);
}

################################################################################

sub content_type {

	my $self = shift;
	my $q = $self -> {Q};

	if ($_ [0]) {
		$self -> {Out_headers} -> {-type} = $_ [0];
	} else {
		return $self -> {Out_headers} -> {-type};
	}

}

################################################################################

sub status {

	my $self = shift;
	my $q = $self -> {Q};
	if ($_ [0]) {
		$self -> {Out_headers} -> {-status} = $_ [0];
	} else {
		return $self -> {Out_headers} -> {-status};
	}

}

################################################################################

sub header_out {

	my $self = shift;
	my $q = $self -> {Q};

	$self -> {Out_headers} -> {"-$_[0]"} = $_[1];

}

################################################################################

sub send_http_header {

	my $self = shift;
	my $q = $self -> {Q};

	my @params = ();

	foreach $header (keys %{$self -> {Out_headers}}) {
		push (@params, $header, $self -> {Out_headers} -> {$header});
	}

	print $q -> header (@params);
}

################################################################################

sub send_fd {

	my $self = shift;
	my $q = $self -> {Q};

	my $fh = CGI::to_filehandle($_ [0]);
	binmode($fh);

	my $buf;

	while (read ($fh, $buff, 8 * 2**10)) {
		print STDOUT $buff;
	}

}

################################################################################

sub filename {

	my $self = shift;

	return $self -> {Filename};

}

################################################################################

sub connection {

	my $self = shift;

	return $self;

}

################################################################################

sub remote_ip {

	return $ENV {REMOTE_ADDR};

}

################################################################################

sub document_root {

	my $self = shift;

	return $self -> {Document_root};

}

################################################################################

sub parms {

	my $self = shift;
	my $q = $self -> {Q};
	my %vars = $q -> Vars;
	return \%vars;

}

################################################################################

sub param {

	my $self = shift;
	my $q = $self -> {Q};

	return $q -> param ($_ [0]);

}

################################################################################

sub upload {

	my $self = shift;
	my $q = $self -> {Q};

	my $param = $_ [0];
	return $self -> {$param} if ($self -> {$param});

	$self -> {$param} = Zanas::Request::Upload -> new($q, $param);

	return $self -> {$param};

}

################################################################################

package Apache::Constants;

sub OK () {
	return 200;
}

1;
./Zanas/Presentation
./Zanas/Presentation/MSIE_5.pm
no warnings;

################################################################################

sub register_hotkey {

	my ($hashref, $type, $data, $options) = @_;

	$hashref -> {label} =~ s{\&(.)}{$1} or return;

	my $c = $1;

	my $code = 0;

	if ($c eq '<') {
		$code = 37;
	}
	elsif ($c eq '>') {
		$code = 39;
	}
	elsif (lc $c eq 'ж') {
		$code = 186;
	}
	elsif (lc $c eq 'э') {
		$code = 222;
	}
	else {
		$c =~ y{ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮйцукенгшщзхъфывапролджэячсмитьбю}{qwertyuiop[]asdfghjkl;'zxcvbnm,.qwertyuiop[]asdfghjkl;'zxcvbnm,.};
		$code = (ord ($c) - 32);
	}

	push @scan2names, {
		code => $code,
		type => $type,
		data => $data,
		ctrl => $options -> {ctrl},
		alt  => $options -> {alt},
	};

}

################################################################################

sub hotkeys {

	map { hotkey ($_) } @_;

}

################################################################################

sub hotkey {

	my ($def) = $_[0];

	return if $def -> {off};

	$def -> {type} ||= 'href';
	if ($def -> {code} =~ /^F(\d+)/) {
		$def -> {code} = 111 + $1;
	}

	push @scan2names, $def;

}

################################################################################

sub handle_hotkey_focus {

	my ($r) = @_;

	< {ctrl} ? '' : '!';
	my $alt  = $r -> {alt}  ? '' : '!';

	< {type};
			$renderrer = 'draw_item_of_' . $page -> {type};
		}
		elsif ($_REQUEST {dbf}) {
			$selector  = 'select_' . $page -> {type};
			$renderrer = 'dbf_write_' . $page -> {type};
		}
		else {
			$selector  = 'select_' . $page -> {type};
			$renderrer = 'draw_' . $page -> {type};
		}

		my $content;

		eval {
			$content = call_for_role ($selector);
		};

		print STDERR $@ if $@;

		return '' if $_REQUEST {__response_sent};

		if ($_REQUEST {__popup}) {
			$_REQUEST {__read_only} = 1;
			$_REQUEST {__pack} = 1;
			$_REQUEST {__no_navigation} = 1;
		}

		eval {
			$body = call_for_role ($renderrer, $content);
		};

		$_REQUEST {error} = $@ if $@;

	}

	if ($_REQUEST {error}) {

		my $message = js_escape ($_REQUEST {error});

		my $html = <
				
				
				
			
EOH

		return $html;

	}

	if ($_REQUEST{dbf}) {
		return $body;
	}
	elsif ($_REQUEST{lpt}) {

		$body =~ s{^.*?\]*lpt\=\"?1\"?[^\>]*\>}{}sm; #"

		$_REQUEST{_xls_checksum} and $body =~ s{}{$_REQUEST{_xls_checksum}};

		$_REQUEST{xls} and $body =~ s{
				
					
					$_REQUEST{_xml}
					
				
				
					$body
				
			
EOH

	}

	$_USER -> {role} eq 'admin' and $_REQUEST{id} or my $lpt = $body =~ s{]*lpt\=\"?1\"?[^\>]*\>}{\}gsm; #"

	my $menu = draw_menu ($page -> {menu}, $page -> {highlighted_type});

	$_REQUEST {__scrollable_table_row} ||= 0;

	my $meta_refresh = $_REQUEST {__meta_refresh} ? qq{} : '';

	my $auth_toolbar = draw_auth_toolbar ({lpt => $lpt});

	my $keepalive = $_REQUEST{sid} ? <
		
EOH

	my $win_dirty_hack = $^O eq 'MSWin32' ? '/i' : '';

	my $request_package = ref $apr;
	my $mod_perl = $ENV {MOD_PERL};
	$mod_perl ||= 'NO mod_perl AT ALL';

	return <
			
				
				
				$meta_refresh

				
				@{[ map {<
EOJS

					
				@{[ map {<
					
EOCSS

				

			
			

				

				

				@{[ $_REQUEST{__help_url} ? <
						window.open ('$_REQUEST{__help_url}', '_blank', 'toolbar=no,resizable=yes');
						event.returnValue = false;
					
EOHELP



				

					$auth_toolbar
					$menu
					$body
				
				
				$keepalive
			
		
EOH

}

################################################################################

sub draw_form_field_button {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s ||= $$options{value};
	$s =~ s/\"/\"\;/gsm; #"
	my $onclick = $$options{onclick} || '';
	return qq {};
}

################################################################################

sub draw_menu {

	my ($types, $cursor) = @_;

	@$types or return '';

	$_REQUEST {__no_navigation} and return '';

	my ($tr1, $tr2, $tr3, $divs) = ('', '', '', '');

	foreach my $type (@$types)	{

		next if $type -> {off};

		$conf -> {kb_options_menu} ||= {ctrl => 1, alt => 1};

		register_hotkey ($type, 'href', 'main_menu_' . $type -> {name}, $conf -> {kb_options_menu});

		$tr1 .= <
			
EOH

#		my $aclass = $$type{name} eq $cursor ? 'lnk1' : 'lnk0';
#		my $tclass = $$type{name} eq $cursor ? 'bgr4' : 'bgr8';

		my ($aclass, $tclass);
		if ($type -> {role}) {
			$aclass = "$$type{name}_for_$$type{role}" eq $cursor ? 'lnk1' : 'lnk0';
			$tclass = "$$type{name}_for_$$type{role}" eq $cursor ? 'bgr4' : 'bgr8';
		} else {
			$aclass = $$type{name} eq $cursor ? 'lnk1' : 'lnk0';
			$tclass = $$type{name} eq $cursor ? 'bgr4' : 'bgr8';
		}

#			


		my $onhover = '';
		if (ref $type -> {items} eq ARRAY) {
			$divs .= draw_vert_menu ($type -> {name}, $type -> {items});
			$onhover = qq {onmouseover="open_popup_menu ('$$type{name}')"};
		}

		my $href = $type -> {no_page} ? '#' : "/?type=$$type{name}&sid=$_REQUEST{sid}@{[$_REQUEST{period} ? '&period=' . $_REQUEST {period} : '']}@{[$type->{role} ? '&role=' . $type->{role} : '']}";

		$tr2 .= <
			
EOH

		$tr3 .= <
			
EOH

	}

	return <
			
				$tr2
				
				$tr3
				

			
  $$type{label}  
  $$type{label}  

				

				

			

				

				


		
		$divs
EOH
}

################################################################################

sub draw_vert_menu {

	my ($name, $types) = @_;

	my $tr2 = '';

	foreach my $type (@$types) {

		if ($type eq BREAK) {

			$tr2 .= <
					
				
					
					
					
EOH

		}
		else {

			$tr2 .= <
					
				
					
					
						  $$type{label}  
					
					
EOH
		}

	}

	return <
			
				$tr2
				
		
EOH

}

################################################################################

sub draw_hr {

	my (%options) = @_;

	$options {height} ||= 1;
	$options {class}  ||= bgr8;

	return <
			
		
EOH

}

################################################################################

sub draw_input_cell {

	my ($data) = @_;

	return '' if $data -> {off};

	return draw_text_cell ($data) if $_REQUEST {__read_only} || $data -> {read_only};

	$data -> {max_len} ||= $conf -> {max_len};
	$data -> {max_len} ||= 30;

	$data -> {size} ||= 30;

	$data -> {attributes} ||= {};
	$data -> {attributes} -> {class} ||= 'txt4';

	$data -> {a_class} ||= 'lnk4';

	my $txt = trunc_string ($data -> {label}, $data -> {max_len});

	$txt ||= '';

	my $attributes = dump_attributes ($data -> {attributes});

	return qq {};

}

################################################################################

sub draw_checkbox_cell {

	my ($data) = @_;
	my $value = $data -> {value} || 1;

	my $checked = $data -> {checked} ? 'checked' : '';

	$data -> {attributes} ||= {};
	$data -> {attributes} -> {class} ||= 'txt4';

	my $attributes = dump_attributes ($data -> {attributes});

	return qq { } if $data -> {off};

	return qq {};

}

################################################################################

sub draw_text_cells {

	my $options = (ref $_[0] eq HASH) ? shift () : {};

	return join '', map { draw_text_cell ($_, $options) } @{$_[0]};

}


################################################################################

sub draw_text_cell {

	my ($data, $options) = @_;

	ref $data eq HASH or $data = {label => $data};

	return '' if $data -> {off};

	$data -> {max_len} ||= $conf -> {max_len};
	$data -> {max_len} ||= 30;

	$data -> {attributes} ||= {};
	$data -> {attributes} -> {class} ||= $options -> {is_total} ? 'header5' : 'txt4';
	$data -> {attributes} -> {align} ||= 'right' if $options -> {is_total};

	$options -> {a_class} ||= 'lnk4';
	$data -> {a_class} ||= $options -> {a_class};

	my $txt;

	if ($data -> {picture}) {
		$txt = $number_format -> format_picture ($data -> {label}, $data -> {picture});
		$data -> {attributes} -> {align} ||= 'right';
	}
	else {
		$txt = trunc_string ($data -> {label}, $data -> {max_len});
	}

	unless ($data -> {no_nobr}) {
		$txt = '' . $txt . '';
	}

	$txt ||= ' ';

	$data -> {href}   ||= $options -> {href} unless $options -> {is_total};
	$data -> {target} ||= $options -> {target};
	if ($data -> {href} && !$_REQUEST {lpt}) {
		check_href ($data);
		my $target = $data -> {target} ? "target='$$data{target}'" : '';
		$txt = qq { $txt };
	}

	my $attributes = dump_attributes ($data -> {attributes});

	check_title ($data);

	return qq {$txt};

}

################################################################################

sub draw_tr {

	my ($options, @tds) = @_;

	return qq {@tds};

}

################################################################################

sub draw_one_cell_table {

	my ($options, $body) = @_;

	return < {js_ok_escape} ? js_ok_escape () : '' ]}

		

				

					
$body
				
		
EOH

}

################################################################################

sub draw_table_header {

	my ($cell) = @_;

	if (ref $cell eq ARRAY) {

		my $line = join '', (map {draw_table_header ($_)} @$cell);

		return (ref $cell -> [0] eq ARRAY ? '' : '') . $line;

	}
	elsif (!ref $cell) {

		return "$cell\ ";

	}

	return '' if $cell -> {off};

	$cell -> {label} = "" . $cell -> {label} . "" if $cell -> {href};
	$cell -> {label} .= "\ \ \↑" if $cell -> {href_asc};
	$cell -> {label} .= "\ \ \↓" if $cell -> {href_desc};
	$cell -> {colspan} ||= 1;

	check_title ($cell);

	return "$$cell{label}\ ";

}

################################################################################

sub draw_table {

	my $headers = [];

	unless (ref $_[0] eq CODE or (ref $_[0] eq ARRAY and ref $_[0] -> [0] eq CODE)) {
		$headers = shift;
	}

	my ($tr_callback, $list, $options) = @_;

	return '' if $options -> {off};

	my $ths = @$headers ? '' . draw_table_header ($headers) . '' : '';

	my $trs = '';

	if ($options -> {'..'} && !$_REQUEST{lpt}) {

		my $url = $_REQUEST {__path} -> [-2];

		$trs = <
				if (window.event.keyCode == 27) {
					activate_link ('$url');
				}
			
			
				@{[ draw_text_cell ({
					label => '..',
					href  => $url,
					attributes => {
						colspan => 0 + @$headers,
					},
				})]}
			
EOH

	}

	my @tr_callbacks = ref $tr_callback eq ARRAY ? @$tr_callback : ($tr_callback);

	my $n = 0;
	foreach our $i (@$list) {
		$i -> {__n} = $n++;
		$trs .= '' if $n == @$list && !$i -> {id};
		foreach my $callback (@tr_callbacks) {
#			$trs .= '';
			$trs .= '';
			$trs .= &$callback ();
			$trs .= '';
		}
		$trs .= '' if $n == @$list && !$i -> {id};
	}

	$options -> {type}   ||= $_REQUEST{type};
	$options -> {action} ||= 'add';
	$options -> {name}   ||= 'form';

	my $hiddens = '';

	foreach my $key (keys %_REQUEST) {
		next if $key =~ /^_/ or $key =~/^(type|action|sid)$/;
		$hiddens .= qq {};
	}

	return < {js_ok_escape} ? js_ok_escape ({name => $options -> {name}, no_ok => $options -> {no_ok}}) : '' ]}

		


			


				
				
				
				$hiddens
				
					$ths
						
							$trs
						
				$$options{toolbar}

			

		
EOH

}

################################################################################

sub draw_path {

	$_REQUEST{lpt} and return '';

	my ($options, $list) = @_;

	($list and ref $list eq ARRAY and @$list) or return '';

	$options -> {id_param} ||= 'id';
	$options -> {max_len} ||= $conf -> {max_len};
	$options -> {max_len} ||= 30;

	$path = '';

	my $nowrap = $options -> {multiline} ? '' : 'nowrap';

	my $n = 2;

	$_REQUEST {__path} = [];

	foreach my $item (@$list) {

		my $name = trunc_string ($item -> {name}, $options -> {max_len});

		$path and $path .= ' / ';

		$path and $options -> {multiline} and $path .= '
' . ('  ' x ($n++));

		$id_param = $item -> {id_param};
		$id_param ||= $options -> {id_param};

		$item -> {cgi_tail} ||= $options -> {cgi_tail};

		my $url = "/?type=$$item{type}&$id_param=$$item{id}&sid=$_REQUEST{sid}&$$item{cgi_tail}";

		push @{$_REQUEST {__path}}, $url;

		$path .= <$name
EOH

	}

	return draw_hr (height => 10) . <
			
				
					

						

							

						
						


							
 $path 
							

								
							
							

						
						

							

						
						

							

						
					
				
			
		
EOH

}

################################################################################

sub draw_window_title {

	my ($options) = @_;

	return '' if $options -> {off};

	return <   $$options{label}
EOH

}

################################################################################

sub draw_toolbar {

	my ($options, @buttons) = @_;

	return '' if $options -> {off};

	$_REQUEST {__toolbars_number} ||= 0;

	my $form_name = $_REQUEST {__toolbars_number} ? 'toolbar_form_' . $_REQUEST {__toolbars_number} : 'toolbar_form';
	$_REQUEST {__toolbars_number} ++;

	return <
			


				@{[ map {< {keep_params}} ]}
					
EO
					
				
					
				
				
					
				
				
					
						
					
					@buttons
					
						
					
					
				
				
					
				
				
					
				
			
		
EOH

}

################################################################################

sub draw_toolbar_button {

	my ($options) = @_;

	return '' if $options -> {off};

	$options -> {target} ||= '_self';

	$conf -> {kb_options_buttons} ||= {ctrl => 1, alt => 1};

	register_hotkey ($options, 'href', $options, $conf -> {kb_options_buttons});

	check_href ($options);

	if ($options -> {confirm}) {
		my $salt = rand;
		my $msg = js_escape ($options -> {confirm});
		$options -> {href} = qq [javascript:if (confirm ($msg)) {window.open('$$options{href}', '$$options{target}')}];
	}

	return < [$$options{label}]
		
EOH

}

################################################################################

sub draw_toolbar_input_text {

	my ($options) = @_;

	return '' if $options -> {off};

	my $value = $options -> {value};
	$value ||= $_REQUEST{$$options{name}};

	my $hiddens = '';

	foreach my $key (keys %_REQUEST) {
		next if $key eq $options -> {name} or $key =~ /^_/ or $key eq 'start' or $key eq 'sid';
		$hiddens .= qq {};
	}

	return <$$options{label}: $hiddens
		
EOH

}

################################################################################

sub draw_toolbar_pager {

	my ($options) = @_;

	$options -> {portion} ||= $conf -> {portion};

	my $start = $_REQUEST {start} + 0;

	my $label = '';

	$conf -> {kb_options_pager} ||= $conf -> {kb_options_buttons};
	$conf -> {kb_options_pager} ||= {ctrl => 1, alt => 1};

	if ($start > $options -> {portion}) {
		$url = create_url (start => 0);
		$label .= qq { << };
	}

	if ($start > 0) {
		register_hotkey ({label => '&<'}, 'href', '_pager_prev', $conf -> {kb_options_pager});
		$url = create_url (start => $start - $options -> {portion});
		$label .= qq { < };
	}

	$options -> {total} or return 'список пуст';

	$label .= ($start + 1) . ' - ' . ($start + $$options{cnt}) . ' из ' . $$options{total};

	if ($start + $$options{cnt} < $$options{total}) {

		register_hotkey ({label => '&>'}, 'href', '_pager_next', $conf -> {kb_options_pager});
		$url = create_url (start => $start + $options -> {portion});
		$label .= qq { > };
	}

	return <$label
		
EOH

}

################################################################################

sub draw_row_button {

	my ($options) = @_;

	return ' ' if $options -> {off};

	if ($options -> {confirm}) {
		my $salt = rand;
		my $msg = js_escape ($options -> {confirm});
		$options -> {href} = qq [javascript:if (confirm ($msg)) {window.open('$$options{href}', '_self')}];
	}

	if ($conf -> {core_show_icons}) {
		$options -> {label} = qq||
	}
	else {
		$options -> {label} = "\ [$$options{label}]\ ";
	}

	check_href  ($options);
	check_title ($options);

	return qq {$$options{label}};

}

################################################################################

sub draw_row_buttons {

	my ($options, $buttons) = @_;

	return $options -> {off} ?
		' ':
		(join '', map {draw_row_button ($_)} @$buttons) . '';

}

################################################################################

sub draw_form_field {

	my ($field, $data) = @_;

	if (ref $field eq ARRAY) {

		my $html = '';

		for (my $i = 0; $i < @$field; $i++) {
			my $subfield = $field -> [$i];
			$subfield -> {is_slave} = 1;
			$subfield -> {colspan} = $i == @$field - 1 ? $_REQUEST {__max_cols} - 2 * $i - 1 : 1;
			$html .= draw_form_field ($subfield, $data);
		}

		return $html;

	}

	return '' if $field -> {off};

	my $type = $field -> {type};
	$type = 'static' if ($_REQUEST {__read_only} or $field -> {read_only}) and $type ne 'hgroup';
	$type ||= 'string';

	my $html = &{"draw_form_field_$type"} ($field, $data);

	$conf -> {kb_options_focus} ||= $conf -> {kb_options_buttons};
	$conf -> {kb_options_focus} ||= {ctrl => 1, alt => 1};

	register_hotkey ($field, 'focus', '_' . $field -> {name}, $conf -> {kb_options_focus});

	$field -> {label} .= ' *' if $field -> {mandatory};

	$field -> {label} .= ':' if $field -> {label};

	$field -> {colspan} ||= $_REQUEST {__max_cols} - 1;

	$field -> {label_width} = '20%' unless $field -> {is_slave};
	my $label_width = $field -> {label_width} ? 'width=' . $field -> {label_width} : '';
	my $cell_width  = $field -> {cell_width}  ? 'width=' . $field -> {cell_width}  : '';

	return $type eq 'hidden' ? $html : <$$field{label}
		$html
EOH

}

################################################################################

sub draw_form {

	my ($options, $data, $fields) = @_;

	my $action = exists $options -> {action} ? $options -> {action} : 'update';

	my $type = $options -> {type};
	$type ||= $_REQUEST{type};

	my $id = $options -> {id};
	$id ||= $_REQUEST{id};

	my $name = $options -> {name};
	$name ||= 'form';

	my $target = $options -> {target};
	$target ||= 'invisible';

	my $trs = '';
	my $n = 0;

	my $max_cols = 1;

	foreach my $field (@$fields) {
		next unless ref $field eq ARRAY;
		$max_cols = @$field if $max_cols < @$field;
	}

	$_REQUEST {__max_cols} = $max_cols * 2;

	foreach my $field (@$fields) {

		next if ref $field eq HASH and $field -> {off};
		next if ref $field eq ARRAY and @$field == 0;

		my $id_tr = ref $field eq HASH ? "tr_$$field{name}" : '';

		$trs .= "" . draw_form_field ($field, $data) . '';

	}

	my $path = ($data -> {path} && !$_REQUEST{__no_navigation}) ? draw_path ($options, $data -> {path}) : '';

	my $bottom_toolbar =
		exists $options -> {bottom_toolbar} ? $options -> {bottom_toolbar} :
		$_REQUEST {__no_navigation} ? draw_close_toolbar ($options) :
		$options -> {back} ? draw_back_next_toolbar ($options) :
		$options -> {no_ok} ? draw_esc_toolbar ($options) :
		draw_ok_esc_toolbar ($options);

	return <

			@{[ js_ok_escape ($options) ]}

			

				
				
				
				
				$trs
			
		$bottom_toolbar
EOH

}

################################################################################

sub js_ok_escape {

	my ($options) = @_;

	$options -> {name} ||= 'form';
	$options -> {confirm_ok} ||= 'Сохранить данные?';

	$options -> {confirm_ok} = js_escape ($options -> {confirm_ok});

	return <

			if (window.event.keyCode == 27 && (!is_dirty || window.confirm ('Уйти без сохранения данных?'))) {
				activate_link (document.getElementById ('esc').href);
			}

			@{[ $options -> {no_ok} ? '' : <

EOH

}

################################################################################

sub draw_form_field_string {

	my ($options, $data) = @_;

	$options -> {max_len} ||= $conf -> {max_len};
	$options -> {max_len} ||= $options -> {size};
	$options -> {max_len} ||= 30;

	my $s = $options -> {value};
	$s ||= $$data{$$options{name}};
	if ($options -> {picture}) {
		$s = $number_format -> format_picture ($s , $options -> {picture});
		$s =~ s/^\s+//g;
	}

	$s =~ s/\"/\"\;/gsm; #";

	my $attributes = dump_attributes ($options -> {attributes});

	my $size = $options -> {size} ? "size=$$options{size} maxlength=$$options{size}" : "size=120";
	return qq {};

}

################################################################################

sub draw_form_field_datetime {

	my ($options, $data) = @_;

	$options -> {max_len} ||= $conf -> {max_len};
	$options -> {max_len} ||= $options -> {size};

	unless ($options -> {format}) {

		if ($options -> {no_time}) {
			$conf -> {format_d}   ||= '%d.%m.%Y';
			$options -> {format}  ||= $conf -> {format_d};
			$options -> {max_len} ||= 20;
			$options -> {size}    ||= 11;
		}
		else {
			$conf -> {format_dt}  ||= '%d.%m.%Y %k:%M';
			$options -> {format}  ||= $conf -> {format_dt};
			$options -> {size}    ||= 16;
		}

	}

	$options -> {onClose} ||= 'null';

	my $s = $options -> {value};
	$s ||= $$data{$$options{name}};
	$s =~ s/\"/\"\;/gsm; #";

	$options -> {attributes} -> {id} = 'input_' . $options -> {name};

	$options -> {attributes} -> {readonly} = 1;

	my $attributes = dump_attributes ($options -> {attributes});

	my $size = $options -> {size} ? "size=$$options{size} maxlength=$$options{size}" : "size=30";

	push @{$_REQUEST {__include_js}},  'jscalendar/calendar', 'jscalendar/lang/calendar-ru', 'jscalendar/calendar-setup';
	push @{$_REQUEST {__include_css}}, 'jscalendar/calendar-win2k-1';

	my $shows_time = $options -> {no_time} ? 'false' : 'true';

	return <
		...

		

EOH

}

################################################################################

sub draw_form_field_file {
	my ($options, $data) = @_;
	$options -> {size} ||= 60;
	return qq {};
}

################################################################################

sub draw_form_field_hidden {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s ||= $$options{value};
	$s =~ s/\"/\"\;/gsm; #"
	return qq {};
}

################################################################################

sub draw_form_field_hgroup {
	my ($options, $data) = @_;
	map {$_ -> {label} .= ' *' if $_ -> {mandatory}} @{$options -> {items}};
	map {$_ -> {label} = '' if $_ -> {off}} @{$options -> {items}};
	return join '  ', map {$_ -> {label} . ($_ -> {label} ? ': ' : '') . ($_ -> {off} ? '' : &{'draw_form_field_' . (($_REQUEST {__read_only} || $options -> {read_only} || $_ -> {read_only}) ? 'static' : $_ -> {type} ? $_ -> {type} : 'string')}($_, $data))} @{$options -> {items}};
}

################################################################################

sub draw_form_field_text {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s =~ s/\"/\"\;/gsm; #"

	my $cols = $options -> {cols};
	$cols ||= 60;

	my $rows = $options -> {rows};
	$rows ||= 25;

	my $value = $options -> {value};
	$value ||= '';

	return qq {$s};
}

################################################################################

sub draw_form_field_password {
	my ($options, $data) = @_;
	return qq {};
}

################################################################################

sub draw_form_field_static {

	my ($options, $data) = @_;

	my $hidden_name = $$options{hidden_name};
	$hidden_name ||= $$options{name};

	my $hidden_value = $$options{hidden_value};
	$hidden_value ||= $$data{$$options{name}};
	$hidden_value ||= $$options{value};
	$hidden_value =~ s/\"/\"\;/gsm; #"

	my $value = $data -> {$options -> {name}};

	my $static_value = '';

	if (ref $value eq ARRAY) {

		foreach my $v (@$value) {
			$static_value .= ', ' if $static_value;
			foreach my $pv (@{$options -> {values}}) {
				$pv -> {id} eq $v or next;
				$static_value .= $pv -> {label};
			}
		}

	}
	else {
		$static_value =
			ref $options -> {values} eq ARRAY ? (map {$_ -> {label}} grep {$_ -> {id} == $value} @{$options -> {values}})[0] :
			ref $options -> {values} eq HASH ?  $options -> {values} -> {$value} :
			($options -> {value} || $value);
	}



	$static_value = $number_format -> format_picture ($static_value, $options -> {picture}) if $options -> {picture};

	if ($options -> {href}) {

		check_href ($options);
		$options -> {a_class} ||= 'lnk4';
		$static_value = qq{$static_value}

	}

	return $$options{add_hidden} ? qq {$static_value } : $static_value;

}

################################################################################

sub draw_form_field_radio {

	my ($options, $data) = @_;

	my $html = '';

	foreach my $value (@{$options -> {values}}) {
		my $checked = $data -> {$options -> {name}} == $value -> {id} ? 'checked' : '';
		$html .= qq { $$value{label} 
};
	}

	return $html;

}

################################################################################

sub draw_form_field_checkbox {

	my ($options, $data) = @_;

	my $s = $options -> {checked} || $data -> {$options -> {name}};

	$s =~ s/\"/\"\;/gsm; #"

	my $checked = $s ? 'checked' : '';

	return qq {};

}

################################################################################

sub draw_form_field_checkboxes {

	my ($options, $data) = @_;

	my $html = '';

	my $v = $data -> {$options -> {name}};

	if (ref $v eq ARRAY) {

		foreach my $value (@{$options -> {values}}) {

			my $checked = 0 + (grep {$_ eq $value -> {id}} @$v) ? 'checked' : '';

			my $id = 'div_' . $value;
			my $subhtml = '';
			my $subattr = '';

			if ($value -> {items} && @{$value -> {items}} > 0) {


				foreach my $subvalue (@{$value -> {items}}) {

					my $subchecked = 0 + (grep {$_ eq $subvalue -> {id}} @$v) ? 'checked' : '';


					$subhtml .= qq {       $$subvalue{label} 
};

				}

				my $display = $checked ? '' : 'style={display:none}';

				$subhtml = <
						$subhtml
					
EOH

				$subattr = qq{onClick="setVisible('$id', checked)"};

			}

			$html .= qq { $$value{label} 
 $subhtml};

		}

	}
	else {

		foreach my $value (@{$options -> {values}}) {
			my $checked = $v eq $value -> {id} ? 'checked' : '';
			$html .= qq { $$value{label} 
};
		}

	}

	if ($options -> {height}) {
		$html = <
				$html
			
EOH
	}

	return $html;

}

################################################################################

sub draw_toolbar_input_select {

	my ($options, $data) = @_;

	my $html = '';

	$options -> {max_len} ||= $conf -> {max_len};

	unshift @{$options -> {values}}, {id => 0, label => $options -> {empty}} if exists $options -> {empty};

	foreach my $value (@{$options -> {values}}) {
		my $selected = (($value -> {id} eq $_REQUEST {$options -> {name}}) or ($value -> {id} eq $options -> {value})) ? 'selected' : '';
		my $label = trunc_string ($value -> {label}, $options -> {max_len});
		$html .= qq {$label};
	}

	return <
		
			$html
		
		
EOH

}

################################################################################

sub draw_form_field_select {

	my ($options, $data) = @_;

	my $html = '';

	$options -> {max_len} ||= $conf -> {max_len};

	unshift @{$options -> {values}}, {id => 0, label => $options -> {empty}} if exists $options -> {empty};

	foreach my $value (@{$options -> {values}}) {

		my $selected = (($value -> {id} eq $data -> {$options -> {name}}) or ($value -> {id} eq $options -> {value})) ? 'selected' : '';
		my $label = trunc_string ($value -> {label}, $options -> {max_len});
		$html .= qq {$label};
	}

	my $multiple = $options -> {rows} > 1 ? "multiple size=$$options{rows}" : '';

	return <
			$html
		
EOH

}

################################################################################

sub draw_esc_toolbar {

	my ($options) = @_;

	$options -> {href} = $options -> {esc};
	$options -> {href} ||= "/?type=$_REQUEST{type}";
	check_href ($options);

	draw_centered_toolbar ($options, [
		@{$options -> {additional_buttons}},
		{icon => 'cancel', label => 'вернуться', href => "$options->{href}", id => 'esc'},
	])

}

################################################################################

sub draw_ok_esc_toolbar {

	my ($options) = @_;

	$options -> {href} = $options -> {esc};
	$options -> {href} ||= "/?type=$_REQUEST{type}";
	check_href ($options);

	my $name = $options -> {name};
	$name ||= 'form';

	$options -> {label_ok} ||= 'применить';
	$options -> {label_cancel} ||= 'вернуться';

	draw_centered_toolbar ($options, [
		{
			icon => 'ok',
			label => $options -> {label_ok},
#			href => '#',
#			onclick => "document.$name.submit()",
			href => "javaScript:document.$name.submit()",
			id   => 'ok',
		},
		@{$options -> {additional_buttons}},
		{
			icon => 'cancel',
			label => $options -> {label_cancel},
			href => $options -> {href},
			id => 'esc'
		},
	 ])

}

################################################################################

sub draw_close_toolbar {

	my ($options) = @_;

	draw_centered_toolbar ({}, [
		@{$options -> {additional_buttons}},
		{
			icon => 'ok',
			label => 'закрыть',
			href => 'javascript:window.close()',
			id => 'esc',
		},
	 ])

}

################################################################################

sub draw_back_next_toolbar {

	my ($options) = @_;

	my $type = $options -> {type};
	$type ||= $_REQUEST {type};

	my $back = $options -> {back};
	$back ||= "/?type=$type";

	draw_centered_toolbar ($options, [
		{icon => 'back', label => '<< назад', href => $back, id => 'esc'},
		@{$options -> {additional_buttons}},
		{icon => 'next', label => 'продолжить >>', href => '#', onclick => 'document.form.submit()'},
	])

}

################################################################################

sub draw_centered_toolbar_button {

	my ($options) = @_;

	return '' if $options -> {off};

	check_href ($options);

	my $target = $options -> {target};
	$target ||= '_self';

	if ($options -> {confirm}) {
		my $salt = rand;
		my $msg = js_escape ($options -> {confirm});
		$options -> {href} = qq [javascript:if (confirm ($msg)) {window.open('$$options{href}', '$target')}];
	}

	return <-->
		 [$$options{label}] 
		
EOH

}

################################################################################

sub draw_centered_toolbar {

	$_REQUEST{lpt} and return '';

	my ($options, $list) = @_;

	my $colspan = 3 * (1 + @$list) + 1;

	return <
			
				
					
									@{[ map {draw_centered_toolbar_button ($_)} @$list]}
									
						
					
				
			
		
	

EOH

}

################################################################################

sub draw_auth_toolbar {

	$_REQUEST {__no_navigation} and return '';

	my ($options) = @_;

	my $calendar = <
		@{[ $_CALENDAR -> draw () ]}
		
EOH

	$top_banner = interpolate ($conf -> {top_banner});

	$conf -> {exit_url} ||= '/?sid=0';

	return <
			
			
		
		

				$calendar

				

				@{[ $options -> {lpt} ? <
				
EOLPT

				@{[ $_REQUEST {__help_url} ? <
				
EOHELP

				@{[ $_USER ? <
				
EOEXIT

				

			

				
  

				

				
Пользователь: @{[ $_USER && $_USER -> {label} ? $_USER -> {label} : 'не определён']}  
[Печать]  

				

				
[MS Excel]  
[F1: Справка]  
[Выход]  

				

			
		
		$top_banner
		

EOH

}

################################################################################

sub draw_form_field_image {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s =~ s/\"/\"\;/gsm; #"
	return <

 

EOS

}

################################################################################

sub draw_form_field_htmleditor {

	my ($options, $data) = @_;

	return '' if $options -> {off};

	push @{$_REQUEST{__include_js}}, 'rte/fckeditor';

	my $s = $$data{$$options{name}};

	$s =~ s{\"}{\\\"}gsm;
	$s =~ s{\'}{\\\'}gsm;
	$s =~ s{[\n\r]+}{\\n}gsm;

	return <

		
EOS
}

1;
./Zanas/Presentation/Mozilla_3.pm
################################################################################

sub Mozilla_3_draw_page {

	unless ($_REQUEST {'_frame'} or $_REQUEST {'error'}) {

		my $url = create_url () . '&_frame=1';

		return <
			
				
				
				
				
			
		
EOH

	}


	my ($page) = @_;

	my $body = '';

	if (1) {

		my ($selector, $renderrer);

		if ($_REQUEST {error}) {

			my $message = js_escape ($_REQUEST {error});

			my $html = <
					
					
					
				
EOH

			return $html;

		}
		else {

			if ($_REQUEST {id}) {
				$selector  = 'get_item_of_' . $page -> {type};
				$renderrer = 'draw_item_of_' . $page -> {type};
			}
			elsif ($_REQUEST {dbf}) {
				$selector  = 'select_' . $page -> {type};
				$renderrer = 'dbf_write_' . $page -> {type};
			}
			else {
				$selector  = 'select_' . $page -> {type};
				$renderrer = 'draw_' . $page -> {type};
			}

			$body = call_for_role ($renderrer, call_for_role ($selector));

		}


	} else {

		$body = "


Тип данных '$$page{type}' не определён. Сообщите администратору.";

	}

	if ($_REQUEST{dbf}) {
		return $body;
	}
	elsif ($_REQUEST{lpt}) {

		$body =~ s{^.*?\]*lpt\=\"?1\"?[^\>]*\>}{}sm; #"

		return <
				
					
				
				
					$body
				
			
EOH

	}

	$_USER -> {role} eq 'admin' and $_REQUEST{id} or my $lpt = $body =~ s{]*lpt\=\"?1\"?[^\>]*\>}{\}gsm; #"

	my $menu = draw_menu ($page -> {menu}, $page -> {highlighted_type});

	return <
			
				
				
			
			

				@{[
					draw_auth_toolbar ({lpt => $lpt})
				]}

				$menu
				$body
			
		
EOH

}

################################################################################

sub Mozilla_3_draw_menu {

	my ($types, $cursor) = @_;

	@$types or return '';

	my ($tr2, $tr3) = ('', '');

	foreach my $type (@$types)	{

		my ($abra, $aket) = $$type{name} eq $cursor ? ('', '') : ('', '');
		my $tcolor = $$type{name} eq $cursor ? 'efefef' : 'd5d5d5';

		$tr2 .= <
			
EOH

		my $bgcolor = $$type{name} eq $cursor ? '596084' : 'd5d5d5';

		$tr3 .= <
			
EOH

	}

	return <
			
				$tr2
				
				$tr3
				
  $abra$$type{label}$aket  

				

			

				

		
EOH
}

################################################################################

sub Mozilla_3_draw_hr {

	my %options = @_;

	$options {height} ||= 1;
	$options {class}  ||= bgr8;

	return <
			
		
EOH

}

################################################################################

sub Mozilla_3_draw_text_cell {

	my ($data) = @_;

	return '' if $data -> {off};

	my $txt = $data -> {label};

	$txt ||= ' ';

	$txt = "$txt";

	if ($data -> {href}) {
		$data -> {href} =~ /sid\=\d/ or $data -> {href} .= "\&sid=$_REQUEST{sid}";
		my $target = $data -> {target} ? "target='$$data{target}'" : '';
		$txt = qq { $txt };
	}

	return qq {$txt};

}

################################################################################

sub Mozilla_3_draw_tr {

	my ($options, @tds) = @_;

	return qq {@tds};

}

################################################################################

sub Mozilla_3_draw_one_cell_table {

	my ($options, $body) = @_;

	return <
				

					$body
				
		
EOH

}

################################################################################

sub Mozilla_3_draw_table {

	my ($headers, $ths) = ([], '');

	unless (ref $_[0] eq CODE) {
		$headers = shift;
	}

	if (@$headers) {
		$ths = '' . (join '', map { ref $_ eq HASH ? ($$_{off} ? '' : "$$_{label}\ ") : "$_\ " } @$headers);
	}

	my ($tr_callback, $list) = @_;

	my $trs = '';

	foreach our $i (@$list) {
		$trs .= '';
		$trs .= &$tr_callback ($item);
	}

	return <
			$ths
			$trs
		
EOH

}

################################################################################

sub Mozilla_3_draw_path {

	$_REQUEST{lpt} and return '';

	my ($options, $list) = @_;

	$options -> {id_param} ||= 'id';

	$path = '';

	foreach my $item (@$list) {

		$path and $path .= ' / ';

		$id_param = $item -> {id_param};
		$id_param ||= $options -> {id_param};

		$path .= <$$item{name}
EOH

	}

	return draw_hr (height => 10) . <
			
				
					

						

							

						
						

							

							
 $path 
							

								
							
							

						
						

							

						
						

							

						
					
				
			
		
EOH

}

################################################################################

sub Mozilla_3_draw_window_title {

	my ($options) = @_;

	return '' if $options -> {off};

	return <   $$options{label}
EOH

}

################################################################################

sub Mozilla_3_draw_toolbar {

	my ($options, @buttons) = @_;

	return '' if $options -> {off};

	my $colspan = 2 * @buttons + 3;

	return <
			

				
				
					
				
				
					
				
				
					 
					@buttons
					 
					
				
				
					
				
				
					
				
			
		
EOH

}

################################################################################

sub Mozilla_3_draw_toolbar_button {

	my ($options) = @_;

	return < [$$options{label}]
		
EOH

}

################################################################################

sub Mozilla_3_draw_toolbar_input_text {

	my ($options) = @_;

	return <$$options{label}: 
		
EOH

}

################################################################################

sub Mozilla_3_draw_toolbar_pager {

	my ($options) = @_;

	my $start = $_REQUEST {start} + 0;

	my $label = '';

	if ($start > 0) {
		$url = create_url (start => $start - $conf -> {portion});
		$label .= qq { << };
	}

	$label .= ($start + 1) . ' - ' . ($start + $$options{cnt}) . ' из ' . $$options{total};

	if ($start + $$options{cnt} < $$options{total}) {
		$url = create_url (start => $start + $conf -> {portion});
		$label .= qq { >> };
	}

	return <$label
		
EOH

}

################################################################################

sub Mozilla_3_js_escape {
	my ($s) = @_;
	$s =~ y/\"/\'/;
	$s =~ s/([^\w])/\\$1/gsm;
	return "'$s'";
}

################################################################################

sub Mozilla_3_draw_row_button {

	my ($options) = @_;

	return '' if $options -> {off};

	if ($options -> {confirm}) {
		my $salt = rand;
		my $msg = js_escape ($options -> {confirm});
		$options -> {onclick} = qq [if (confirm ($msg)) {window.open('$$options{href}&_salt=$salt&sid=$_REQUEST{sid}', '_top')}];
		$options -> {href} = '#';

	} else {
		$options -> {href} .= "&sid=$_REQUEST{sid}";
	}

	my $target = $options -> {href} eq '#' ? '' : 'target="_top"';

	return qq {\ [$$options{label}]\ };

}

################################################################################

sub Mozilla_3_draw_row_buttons {

	my ($options, $buttons) = @_;

	return '' . (join '', map {draw_row_button ($_)} @$buttons) . '';

}

################################################################################

sub Mozilla_3_draw_form {

	my ($options, $data, $fields) = @_;

	my $action = $options -> {action};
	$action ||= 'update';

	my $type = $options -> {type};
	$type ||= $_REQUEST{type};

	my $id = $options -> {id};
	$id ||= $_REQUEST{id};

	my $trs = '';
	my $n = 0;

	foreach my $field (@$fields) {

		next if $field -> {off};

		my $type = $field -> {type};
		$type ||= 'string';

		my $html = &{"draw_form_field_$type"} ($field, $data);

#		my ($c1, $c2) = $n++ % 2 ? (5, 4) : (4, 0);

		my $bgcolor = $n++ % 2 ? 'efefef' : 'ffffff';

		$trs .= $type eq 'hidden' ? $html : <
				$$field{label}: 
				$html
EOH

	}

	my $path = $data -> {path} ? draw_path ({}, $data -> {path}) : '';

	my $bottom_toolbar =
		$options -> {bottom_toolbar} ? $options -> {bottom_toolbar} :
		$options -> {back} ? draw_back_next_toolbar ($options) :
		draw_ok_esc_toolbar ($options);

	return <
			

				
				
				
				
				$trs
			
		
		$bottom_toolbar
EOH

}

################################################################################

sub Mozilla_3_draw_form_field_string {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s =~ s/\"/\"\;/gsm; #"
	my $size = $options -> {size} ? "size=$$options{size} maxlength=$$options{size}" : "size=80";
	return qq {};
}

################################################################################

sub Mozilla_3_draw_form_field_hgroup {
	my ($options, $data) = @_;
	return join '  ', map {$_ -> {label} . ': ' . &{'draw_form_field_' . $_ -> {type}}($_, $data)} @{$options -> {items}};
}

################################################################################

sub Mozilla_3_draw_form_field_text {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s =~ s/\"/\"\;/gsm; #"
	return qq {$s};
}

################################################################################

sub Mozilla_3_draw_form_field_hidden {
	my ($options, $data) = @_;
	my $s = $$data{$$options{name}};
	$s ||= $$options{value};
	$s =~ s/\"/\"\;/gsm; #"
	return qq {};
}

################################################################################

sub Mozilla_3_draw_form_field_password {
	my ($options, $data) = @_;
	return qq {};
}

################################################################################

sub Mozilla_3_draw_form_field_static {
	my ($options, $data) = @_;
	return $$data{$$options{name}};
}

################################################################################

sub Mozilla_3_draw_form_field_checkbox {

	my ($options, $data) = @_;

	my $s = $$data{$$options{name}};

	$s =~ s/\"/\"\;/gsm; #"

	my $checked = $s ? 'checked' : '';

	return qq {};

}

################################################################################

sub Mozilla_3_draw_form_field_checkboxes {

	my ($options, $data) = @_;

	my $html = '';

	foreach my $value (@{$options -> {values}}) {
		my $checked = $data -> {$options -> {name}} == $value -> {id} ? 'checked' : '';
		$html .= qq { $$value{label} 
};
	}

	return $html;

}

################################################################################

sub Mozilla_3_draw_form_field_radio {

	my ($options, $data) = @_;

	my $html = '';

	foreach my $value (@{$options -> {values}}) {
		my $checked = $data -> {$options -> {name}} == $value -> {id} ? 'checked' : '';
		$html .= qq { $$value{label} 
};
	}

	return $html;

}

################################################################################

sub Mozilla_3_draw_form_field_select {

	my ($options, $data) = @_;

	my $html = '';

	foreach my $value (@{$options -> {values}}) {
		my $selected = $data -> {$options -> {name}} == $value -> {id} ? 'selected' : '';
		$html .= qq {$$value{label}};
	}

	return <
			$html
		
EOH

}

################################################################################

sub Mozilla_3_draw_ok_esc_toolbar {

	my ($options) = @_;

	my $esc = $options -> {esc};
	$esc ||= "/?type=$_REQUEST{type}";

	draw_centered_toolbar ($options, [
		{icon => 'ok',     label => 'применить', href => '#', onclick => 'document.form.submit()'},
		{icon => 'cancel', label => 'вернуться', href => "$esc&sid=$_REQUEST{sid}"},
	])

}

################################################################################

sub Mozilla_3_draw_back_next_toolbar {

	my ($options) = @_;

	my $type = $options -> {type};
	$type ||= $_REQUEST {type};

	my $back = $options -> {back};
	$back ||= "/?type=$type";

	draw_centered_toolbar ($options, [
		{icon => 'back', label => '<< назад', href => $back},
		{icon => 'next', label => 'продолжить >>', href => '#', onclick => 'document.form.submit()'},
	])

}

################################################################################

sub Mozilla_3_draw_centered_toolbar_button {

	my ($options) = @_;

	if ($options -> {href} !~ /^java/ and $options -> {href} !~ /\&sid=/ and $options -> {href} ne '#') {
		$options -> {href} .= "\&sid=$_REQUEST{sid}";
	}

	my $target = $options -> {href} eq '#' ? '' : 'target="_top"';

	return <-->
		 [$$options{label}] 
		
EOH

}

################################################################################

sub Mozilla_3_draw_centered_toolbar {

	$_REQUEST{lpt} and return '';

	my ($options, $list) = @_;

	my $colspan = 3 * (1 + @$list) + 1;

	return <
			
				
					
									@{[ map {draw_centered_toolbar_button ($_)} @$list]}
									
						
					
				
			
		
	

EOH

}

################################################################################

sub Mozilla_3_draw_auth_toolbar {

	my $options = shift;

	my $calendar = <@{[ $_CALENDAR -> draw () ]}
EOH

	return <
			
			
		

		

				@{[ $_USER ? <[Выход]  
EOEXIT
			

			

				
  
				
Пользователь: @{[ $_USER ? $_USER -> {name} : 'Пользователь неопределён']}  $calendar
		
		

EOH

}

################################################################################

sub Mozilla_3_draw_calendar {

	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);

	$year += 1900;

	return "Сегодня: $mday $month_names[$mon] $year";


#	$html  = ' <<';
#	$html .= ' <' if $_CALENDAR -> granularity < 12;
#	$html .= ' ';

#	if ($_CALENDAR -> granularity < 12) {

#		if ($_CALENDAR -> granularity == 1) {
#			$html .= $month_names [$_CALENDAR -> number];
#		}
#		else {
#			$html .= (1 + $_CALENDAR -> number) . ' ';
#			my ($g) = grep {$_ -> {id} == $_CALENDAR -> granularity} @$periods;
#			$html .= $g -> {label};
#		}

#		$html .= ' ';

#	}

#	$html .= $_CALENDAR -> year . ' ';
#	$html .= ' >' if $_CALENDAR -> granularity < 12;
#	$html .= ' >>';

#	return $html;

}

1;

./Zanas/static
./Zanas/static/navigation.js.pm
var typeAheadInfo = {last:0,
	accumString:"",
	delay:500,
	timeout:null,
	reset:function() {this.last=0; this.accumString=""}
};

function nop() {}

function typeAhead() { // borrowed from http://www.oreillynet.com/javascript/2003/09/03/examples/jsdhtmlcb_bonus2_example.html
   if (window.event && !window.event.ctrlKey) {
      var now = new Date();
      if (typeAheadInfo.accumString == "" || now - typeAheadInfo.last < typeAheadInfo.delay) {
	 var evt = window.event;
	 var selectElem = evt.srcElement;
	 var charCode = evt.keyCode;
	 var newChar =  String.fromCharCode(charCode).toUpperCase();
	 typeAheadInfo.accumString += newChar;
	 var selectOptions = selectElem.options;
	 var txt, nearest;
	 for (var i = 0; i < selectOptions.length; i++) {
	    txt = selectOptions[i].text.toUpperCase();
	    nearest = (typeAheadInfo.accumString > txt.substr(0, typeAheadInfo.accumString.length)) ? i : nearest;
	    if (txt.indexOf(typeAheadInfo.accumString) == 0) {
	       clearTimeout(typeAheadInfo.timeout);
	       typeAheadInfo.last = now;
	       typeAheadInfo.timeout = setTimeout("typeAheadInfo.reset()", typeAheadInfo.delay);
	       selectElem.selectedIndex = i;
	       evt.cancelBubble = true;
	       evt.returnValue = false;
	       return false;
	    }
	 }
	 if (nearest != null) {
	    selectElem.selectedIndex = nearest;
	 }
      } else {
	 clearTimeout(typeAheadInfo.timeout);
      }
      typeAheadInfo.reset();
   }
   return true;
}

function activate_link (href, target) {

	if (href.indexOf ('javascript:') == 0) {
		var code = href.substr (11).replace (/%20/g, ' ');
		eval (code);
	}
	else {

		href = href + '&_salt=' + Math.random ();
		if (target == null || target == '') target = '_self';
		window.open (href, target, 'toolbar=no,resizable=yes');

	}

}

function open_popup_menu (type) {

	var oPopup = window.createPopup ();
	var div = document.getElementById ('vert_menu_' + type);
	var table = document.getElementById ('vert_menu_table_' + type);

	var w = table.offsetWidth;
	var h = table.offsetHeight;

	oPopup.document.body.innerHTML = div.innerHTML;
	oPopup.show (-9, 17, w, h, document.getElementById ('main_menu_' + type));

}


function setVisible (id, isVisible) {
	document.getElementById (id).style.display = isVisible ? 'block' : 'none'
};

function blur_all_inputs () {
	var inputs = document.body.getElementsByTagName ('input');
	if (!inputs) return 1;
	for (var i = 0; i < inputs.length; i++) inputs [i].blur ();
	return 0;
}

function focus_on_first_input (td) {
	if (!td) return blur_all_inputs ();
	var inputs = td.getElementsByTagName ('input');
	if (!inputs || !inputs.length) return blur_all_inputs ();
	inputs [0].focus ();
	return 0;
}

function handle_basic_navigation_keys () {

	if (scrollable_table && !scrollable_table_is_blocked) {

		if (
			(window.event.keyCode >= 65 && window.event.keyCode <= 90)
			|| (window.event.keyCode >= 48 && window.event.keyCode <= 57)
			|| (window.event.keyCode >= 96 && window.event.keyCode <= 105)
			|| window.event.keyCode == 107 || window.event.keyCode == 109
			|| window.event.keyCode == 219 || window.event.keyCode == 221
			|| window.event.keyCode == 186 || window.event.keyCode == 222
			|| window.event.keyCode == 188 || window.event.keyCode == 190 || window.event.keyCode == 191
		) {

			if (!window.event.altKey && !window.event.ctrlKey && document.toolbar_form && !q_is_focused) {

				var input = null;

				var children = scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].getElementsByTagName ('input');
				if (children != null && children.length > 0) {
					input = children [0];
				}
				else if (document.toolbar_form && document.toolbar_form.q) {
					input = document.toolbar_form.q;
				}

				if (input) {
					input.value = '';
					input.focus ();
					return;
				}

			}

		}

		if (window.event.keyCode == 40 && scrollable_table_row < scrollable_rows.length - 1) {

			var effective_scrollable_cell = Math.min (scrollable_table_row_cell, scrollable_rows [scrollable_table_row].cells.length - 1);
			scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].className = scrollable_table_row_cell_old_style;
			scrollable_table_row ++;
			effective_scrollable_cell = Math.min (scrollable_table_row_cell, scrollable_rows [scrollable_table_row].cells.length - 1);
			scrollable_table_row_cell_old_style = scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].className;
			scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].className = 'txt6';
			scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].scrollIntoView (false);
			focus_on_first_input (scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell]);
			return false;

		}

		if (window.event.keyCode == 38 && scrollable_table_row > 0) {

			var effective_scrollable_cell = Math.min (scrollable_table_row_cell, scrollable_rows [scrollable_table_row].cells.length - 1);
			scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].className = scrollable_table_row_cell_old_style;
			scrollable_table_row --;
			effective_scrollable_cell = Math.min (scrollable_table_row_cell, scrollable_rows [scrollable_table_row].cells.length - 1);
			scrollable_table_row_cell_old_style = scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].className;
			scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].className = 'txt6';
			scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell].scrollIntoView ();
			focus_on_first_input (scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell]);
			return false;

		}

		if (window.event.keyCode == 37 && scrollable_table_row_cell > 0) {
			effective_scrollable_cell = Math.min (scrollable_table_row_cell, scrollable_rows [scrollable_table_row].cells.length - 1);
			if (effective_scrollable_cell > 0) {
				scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].className = scrollable_table_row_cell_old_style;
				scrollable_table_row_cell --;
				scrollable_table_row_cell_old_style = scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].className;
				scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].className = 'txt6';
				focus_on_first_input (scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell]);
				return false;
			}
		}

		if (window.event.keyCode == 39 && scrollable_table_row_cell < scrollable_rows [scrollable_table_row].cells.length - 1) {

			scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].className = scrollable_table_row_cell_old_style;
			scrollable_table_row_cell ++;
			scrollable_table_row_cell_old_style = scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].className;
			scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].className = 'txt6';
			focus_on_first_input (scrollable_rows [scrollable_table_row].cells [effective_scrollable_cell]);
			return false;

		}

		if (window.event.keyCode == 32) {

			var children = scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].getElementsByTagName ('input');
			if (children != null && children.length > 0) children [0].checked = !children [0].checked;
		//	return false;

		}

		if (window.event.keyCode == 13) {

			var children = scrollable_rows [scrollable_table_row].cells [scrollable_table_row_cell].getElementsByTagName ('a');
			if (children != null && children.length > 0) activate_link (children [0].href, children [0].target);
			return false;

		}

	}


}


./Zanas/static/zanas.css.pm
BODY {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #d5d5d5
}
TD, TH {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana
}
.bgr0 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.bgr1 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #485F70 /*#596084*/ /*#5f7452*/
}
.bgr2 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #293869
}
.bgr3 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #aab3d1
}
.bgr4 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.bgr5 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dededc
}
.bgr6 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #888888
}
.bgr7 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #b0b0b0
}
.bgr8 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #d5d5d5
}
.bgr9 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dde5ef
}
.bgr13 {
	FONT-SIZE: 11px; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffe0e0
}
.outter {
	BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #2d2d2d 1px solid; BORDER-LEFT: #2d2d2d 1px solid; BORDER-BOTTOM: #ffffff 1px solid; HEIGHT: 100%
}
.serv {
	BORDER-RIGHT: #2d2d2d 1px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #2d2d2d 1px solid; BACKGROUND-COLOR: #d0cfcf
}
.inner {
	BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #2d2d2d 1px solid; BORDER-LEFT: #2d2d2d 1px solid; WIDTH: 100%; BORDER-BOTTOM: #ffffff 1px solid; HEIGHT: 100%
}
.color0 {
	FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana
}
.color1 {
	FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana
}
.color2 {
	FONT-SIZE: 11px; COLOR: #5e5e5e; FONT-FAMILY: Verdana
}
.color3 {
	FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana
}
.color4 {
	FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana
}
.header0 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #5f7452
}
.header1 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #293869
}
.header2 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #888888
}
.header3 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #b0b0b0
}
.header4 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.header5 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.header6 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dededc
}
.header7 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.header8 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.header9 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dededc
}
.header10 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.header11 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.header12 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dededc
}
.header13 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #888888
}
.header14 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #b0b0b0
}
.header15 {
	FONT-WEIGHT: bold; FONT-SIZE: 9pt; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #8e8e8e
}
.txt0 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #5f7452
}
.txt1 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #293869
}
.txt2 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #888888
}
.txt3 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #b0b0b0
}
.txt4 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.txt5 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.txt6 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dededc
}
.txt7 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.txt8 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.txt9 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #dededc
}
.txt10 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #c8c8c8; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.txt11 {
	FONT-WEIGHT: normal; FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
.txt12 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #efefef
}
.txt13 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #ffffff
}
A {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #b0b0b0; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #b0b0b0; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #b0b0b0; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #b0b0b0; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #b0b0b0; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}

A.lnk0 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk0:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk0:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk0:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk0:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}

A.lnk1 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #596084; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk1:link {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #596084; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk1:active {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #596084; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk1:hover {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #596084; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk1:visited {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #596084; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}

A.lnk2 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk2:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk2:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk2:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk2:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk3 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk3:link {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk3:active {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk3:hover {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk3:visited {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk4 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk4:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk4:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk4:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk4:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk5 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk5:link {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk5:active {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk5:hover {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk5:visited {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk6 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk6:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk6:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk6:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk6:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk7 {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk7:link {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk7:active {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk7:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #5e5e5e; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk7:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #5e5e5e; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk8 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk8:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk8:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk8:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk8:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk9 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk9:link {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk9:active {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk9:hover {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk9:visited {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #ab300f; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk10 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk10:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk10:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk10:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk10:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk11 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk11:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk11:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk11:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk11:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk11:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk12 {
	FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk12:link {
	FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk12:active {
	FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk12:hover {
	FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk12:visited {
	FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk13 {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ff0000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk13:link {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ff0000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk13:active {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ff0000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk13:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ff0000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk13:active {
	FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #ff0000; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk13:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #ffffff; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk14 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #415d8c; FONT-STYLE: italic; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk14:link {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #415d8c; FONT-STYLE: italic; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk14:active {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #415d8c; FONT-STYLE: italic; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk14:hover {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #415d8c; FONT-STYLE: italic; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk14:visited {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #415d8c; FONT-STYLE: italic; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk15 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk15:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk15:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk15:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk15:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk16 {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk16:link {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk16:active {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk16:hover {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk16:visited {
	FONT-WEIGHT: bold; FONT-SIZE: 11px; COLOR: #909090; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}

A.lnk17 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk17:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk17:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk17:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}
A.lnk17:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #293869; FONT-FAMILY: Verdana; TEXT-DECORATION: none
}

A.lnk18 {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none; font-style: italic
}
A.lnk18:link {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none; font-style: italic
}
A.lnk18:active {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none; font-style: italic
}
A.lnk18:hover {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none; font-style: italic
}
A.lnk18:visited {
	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana; TEXT-DECORATION: none; font-style: italic
}

INPUT {
	FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana
}
SELECT {
	FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana
}
OPTION {
	FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana
}
TEXTAREA {
	FONT-SIZE: 11px; COLOR: #000000; FONT-FAMILY: Verdana
}

./Zanas/static/0.html.pm
./Zanas/Request
./Zanas/Request/Upload.pm
package Zanas::Request::Upload;

################################################################################

sub new {

	my $proto = shift;
	my $class = ref ($proto) || $proto;

	my $self  = {};
	$self -> {Q} = $_ [0];
	$self -> {Param} = $_ [1];
	$self -> {FH} = $self -> {Q} -> upload ($self -> {Param});
	$self -> {FN} = $self -> {Q} -> param ($self -> {Param});
	$self -> {Type} = $self -> {Q} -> uploadInfo ($self -> {FN}) -> {'Content-Type'};
	my $current_position = tell ($self -> {FH});
	seek ($self -> {FH},0,2);
	$self -> {Size} = tell ($self -> {FH});
	seek ($self -> {FH}, $current_position, 0);

	bless ($self, $class);

	return $self;
}

################################################################################

sub size {
	my $self = shift;
	return $self -> {Size};
}

################################################################################

sub fh {
	my $self = shift;
	return $self -> {FH};
}

################################################################################

sub filename {
	my $self = shift;
	return $self -> {FN};
}

################################################################################

sub type {
	my $self = shift;
	return $self -> {Type};
}

1;