koi8/plugins/users/comps/contenido/users/autohandler


	1	<%init>
	2
	3	$r->content_type('text/html');
	4	$m->call_next();
	5
	6	</%init>

koi8/plugins/users/comps/contenido/users/components/__section_tree__.msn


	1	%# vim:syn=mason:
	2	% users_index_tree( $sect, 0, \$line, $level, $mode, $profile, $width_limit, $root );
	3	<%args>
	4
	5	$root => 1
	6	$level => 3
	7	$mode => 1
	8	$width_limit => undef
	9
	10	</%args>
	11	<%init>
	12	my $profile = $m->comp('/contenido/components/context.msn', name => 'profile');
	13
	14	sub users_index_tree
	15	{
	16	my ($sect, $offset, $line_ref, $count_offset, $viewmode, $profile, $width_limit, $root) = @_;
	17	my $section_access = $user->section_accesses($user, $sect->{id});
	18
	19	my $spacer = '';
	20	for(my $c=1; $c<$offset; $c++)
	21	{
	22	$spacer = $spacer.(($c == $offset-1) ? '  »  ' : '     ');
	23	}
	24	if( $sect->{id} && ($sect->{id} != 1) && ($offset != 0) && $section_access > 0)
	25	{
	26	$$line_ref++;
	27
	28	my $href = 'sections.html?id='.$sect->id;
	29
	30	my $sname = $sect->name();
	31	$sname = substr($sname, 0, $width_limit - $offset).' ...' if defined $width_limit && $offset + length($sname) > $width_limit;
	32	my $html_sect = (!$sect->status ? '<span class="hiddensect">' : '').($section_access ? '<a href="'.$href.'">' : '').$sname.' ' . ($section_access ? '</a>' : '') . ' '.(!$sect->status ? '  (��)</span>' : $sect->status == 3 ? ' (��)' : '');
	33	my $style = ($offset == 1) ? ($viewmode ? ' style="font-size:110%;"':' style="font-size:95%;"') : '';
	34
	35	$m->out(<<EOT);
	36	<tr>
	37	<td align="right"> ${$line_ref} <a href="section.html?id=$sect->{id}&move=up&ret=$root"><img src="/contenido/i/ico-up-9x10.gif" border=0 alt="�� "></a> <a href="section.html?id=$sect->{id}&move=down&ret=$root"><img src="/contenido/i/ico-down-9x10.gif" border=0 alt="�� "></a></td>
	38	<td><table cellpadding="0" cellspacing="0" border="0">
	39	<tr valign="top">
	40	<td width="10"> </td>
	41	<td>$spacer</td>
	42	<td nowrap $style>$html_sect</td>
	43	</tr>
	44	</table>
	45	</td>
	46	EOT
	47
	48	if ($viewmode)
	49	{
	50	my $fhref = '/contenido/?set_context=filter-'.$sect->id();
	51	$m->out(qq^\n<td align="center" nowrap><a href="$fhref">��.��</a>^);
	52	$m->out(qq^   <a href="document.html?sect_id=$sect->{id}">��.��</a>^) if $section_access == 2;
	53	$m->out("</td>");
	54	}
	55
	56	$m->out('</tr>');
	57	}
	58
	59	my $childs = $sect->{childs} \|\| [];
	60	if( ref($childs) && @$childs && $offset < $count_offset )
	61	{
	62	$offset++;
	63	foreach my $child (@$childs)
	64	{
	65	next if ( $child->class() ne 'users::Section' );
	66	next if (! $request->{cCLASSES}->{$child->class()});
	67	users_index_tree( $child, $offset, $line_ref, $count_offset, $viewmode, $profile, $width_limit, $root );
	68	}
	69	$offset--;
	70	}
	71	}
	72
	73	my $sect = $keeper->get_tree(light=>1, root=>$root);
	74	return undef unless ref $sect;
	75
	76	$user->get_accesses();
	77
	78	my $line = 0;
	79	$request->{cCLASSES} = {};
	80	$request->{cCLASSES}->{'users::Section'} = 1;
	81	if (ref($request->{tab}->{sections}))
	82	{
	83	map { $request->{cCLASSES}->{$_} = 1 } (@{ $request->{tab}->{sections} });
	84	}
	85	return undef if (scalar(keys(%{ $request->{cCLASSES} })) == 0);
	86
	87	</%init>

koi8/plugins/users/comps/contenido/users/components/find_user.msn


	1	<script type="text/javascript">
	2	<!--
	3	function StartSearch () {
	4	var oForm = document.forms['user_search'];
	5	var oFormStart = document.forms['start_search'];
	6	% my $i = 0;
	7	% foreach my $field ( @fields ) {
	8	<% $i++ ? '} else if' : 'if' %> ( oForm.<% $field %>.value ) {
	9	oFormStart.search.value = oForm.<% $field %>.value;
	10	oFormStart.search_by.value = oForm.<% $field %>.name;
	11	% }
	12	% if ($i) {
	13	}
	14	% }
	15	if ( oFormStart.search.value && oFormStart.search_by.value ) {
	16	oFormStart.submit();
	17	}
	18	}
	19	//-->
	20	</script>
	21	<fieldset>
	22	<legend>�� </legend>
	23	<form id="start_search" name="start_search" action="<% $url %>" method="get">
	24	<input type="hidden" name="search" value="">
	25	<input type="hidden" name="search_by" value="">
	26	</form>
	27	<form id="user_search" name="user_search" action="<% $url %>" method="get">
	28	<table cellspacing="2" cellpadding="0" border="0" class="tform">
	29	<tr><td height="3"></td></tr>
	30	% foreach my $field ( @fields ) {
	31	<tr><td align="right"><b><% $props{$field} %>: </b></td>
	32	<td><input type="text" name="<% $field %>" size="40" value="<% $search_by && $search_by eq $field ? $search : '' %>"></td></tr>
	33	% }
	34
	35	<tr><td align="right"> </td>
	36	<td align="right"><input type="button" size="40" value="��" onclick="StartSearch();">
	37	<a href="<% $url %>">�� </a>
	38	</td></tr>
	39	<tr><td height="5"></td></tr>
	40	</table>
	41	</form>
	42	</fieldset>
	43	<%args>
	44
	45	$url => 'index.html'
	46	$search => undef
	47	$search_by => undef
	48
	49	</%args>
	50	<%init>
	51
	52	my @fields;
	53	my @properties;
	54	my %props;
	55	my $class = $state->{users}->profile_document_class;
	56	my $object = $class->new ($keeper);
	57	if ( ref $object ) {
	58	@fields = $object->search_fields;
	59	@fields = qw( login email nickname name ) unless @fields;
	60	@properties = $object->structure();
	61	%props = map { $_->{attr} => $_->{rusname} } @properties;
	62	} else {
	63	@fields = qw( login email nickname name );
	64	%props = (
	65	'login' => { '��' },
	66	'email' => { 'E-mail' },
	67	'nickname' => { '��' },
	68	'name' => { '�.�.�.' },
	69	);
	70	}
	71
	72	</%init>

koi8/plugins/users/comps/contenido/users/components/subsection.msn


	1	<fieldset>
	2	<legend>��</legend>
	3
	4	<table width="100%" border="0" cellpadding="3" cellspacing="0" class="tlistdocs">
	5	<tr bgcolor="#efefef">
	6	<th align="center" width="1%">N</th>
	7	<th>��</th>
	8
	9	<& "/contenido/users/components/__section_tree__.msn", root=>$section->id, level=>3, mode=>0, width_limit => 30 &>
	10
	11	</table>
	12	% if ($section_access == 2)
	13	% {
	14	<div style="font-size:70%;font-family:Tahoma;margin:5px 4px 10px 4px;"><b><a href="section.html?sect_id=<% $section->id %>">�� »</a></b></div>
	15	% }
	16	<div style="font-size:70%;font-family:Tahoma;margin:5px 4px 10px 4px;"><b><a href="./?set_context=filter-<% $section->id %>">�� »</a></b></div>
	17	</fieldset>
	18
	19
	20	<%ARGS>
	21
	22	$section => undef
	23
	24	</%ARGS>
	25	<%INIT>
	26	return undef if (! ref($section));
	27	my $section_access = $user->section_accesses($user, $section->id);
	28	</%INIT>

koi8/plugins/users/comps/contenido/users/components/tasks.msn


	1	<%init>
	2
	3	return (
	4	{
	5	'attr' => 'structure',
	6	'rusname' => '�� ',
	7	'component' => 'structure.msn',
	8	},
	9	{
	10	'attr' => 'project',
	11	'rusname' => '�� ',
	12	'component' => 'project.msn',
	13	},
	14	{
	15	'attr' => 'finder',
	16	'rusname' => '�� ',
	17	'component' => 'finder.msn',
	18	},
	19	{
	20	'attr' => 'users',
	21	'rusname' => '�� ',
	22	'component' => 'users.msn',
	23	},
	24	{
	25	'attr' => 'cache',
	26	'rusname' => '�� ',
	27	'component' => 'cache.msn',
	28	},
	29	);
	30
	31	</%init>

koi8/plugins/users/comps/contenido/users/dhandler


	1	%#<pre><% Dumper ($m->dhandler_arg) %></pre>
	2	<& $call, %ARGS &>
	3	<%init>
	4
	5	my $call;
	6	if ( $m->dhandler_arg =~ /section.html/ ) {
	7	$call = '../section.html';
	8	} elsif ( $m->dhandler_arg =~ /confirm.html/ ) {
	9	$call = '../confirm.html';
	10	} elsif ( $r->uri eq '/contenido/users/' ) {
	11	$call = '/contenido/users/index.html';
	12	} else {
	13	&abort404;
	14	}
	15
	16	</%init>

koi8/plugins/users/comps/contenido/users/document.html


	1	%# vim:syn=mason
	2	<& "/contenido/components/header.msn" &>
	3
	4	<& "/contenido/components/naviline.msn", sect_id => $owner->id &>
	5
	6	% if ($error) {
	7	<div align="center" style="font-size:110%; color:red;">
	8	<% $error %>
	9	</div>
	10	<br><br>
	11	% }
	12
	13	% if (!ref($document)) {
	14	% if ($id) {
	15	<div align="center" style="font-size:110%; color:red;">
	16	�� <% $id %> ��
	17	</div>
	18	<br><br>
	19	% } elsif ($class) {
	20	<!-- �� -->
	21	<table width="50%" border="0"><tr><td>
	22	<fieldset>
	23	<legend>�� </legend>
	24	<& "/contenido/components/new_objects_form.msn", proto => 'documents', sect_id => $owner->id &>
	25	</fieldset>
	26	</td></tr></table>
	27	% } else {
	28	<div align="center" style="font-size:110%; color:red;">
	29	�� !!! (�� id � class ��)
	30	</div>
	31	<br><br>
	32	% }
	33
	34	% } else {
	35
	36	<& "/contenido/components/obj_list_js.msn", object => $document &>
	37	<& "/contenido/components/object_form.msn",
	38	object => $document,
	39	proto => 'documents',
	40	sect_id => $owner->id,
	41	clone => $clone &>
	42	% if (ref($document) && ($document->id))
	43	% {
	44
	45	<!-- �� -->
	46
	47	<br>
	48
	49	<table width="100%" cellspacing="5" cellpadding="0" border="0">
	50	<tr>
	51	<td width=50% valign=top>\
	52	<& "/contenido/components/document_sections.msn", document => $document &>\
	53	<& "/contenido/components/user_sections.msn", luser => $document &>\
	54	% if ( $m->comp_exists ("/contenido/components/pbase_rubrics.msn") ) {
	55	<& "/contenido/components/pbase_rubrics.msn", document => $document &>\
	56	% }
	57	</td>
	58	<td width=50% valign=top>
	59	% if ( $m->comp_exists ("/contenido/components/pbase_links.msn") ) {
	60	<& "/contenido/components/pbase_links.msn", document => $document &>\
	61	% }
	62	<iframe id="links" src="document_links.html?id=<% $document->id() %>&class=<% $document->class() %>" width="100%" height="700" frameborder="0"></iframe>
	63
	64	</td>
	65	</tr>
	66	</table>
	67
	68	<!-- / �� -->
	69
	70	% }
	71	% }
	72
	73	</body>
	74	</html>
	75	<%ARGS>
	76	$class => undef
	77	$sect_id => undef
	78	$s_alias => undef
	79	$id => undef
	80	$delete => undef
	81	$save => undef
	82	$clone => undef
	83	$activate => undef
	84	$deactivate => undef
	85	</%ARGS>
	86	<%INIT>
	87	my $error='';
	88
	89	my $filter = $m->comp('/contenido/components/context.msn', name => 'filter');
	90
	91	my $document;
	92	my $new;
	93
	94	if ($id && ($id !~ /\D/) && ($id > 0)) {
	95	$document = $keeper->get_document_by_id($id, class=>$class);
	96	if ( $clone && exists $document->{'attributes'}->{'dtime'} ) {
	97	$document->dtime(undef);
	98	}
	99	} elsif ( ($class) && (length($class)>0) && (! ref($document)) ) {
	100	$document = new $class ($keeper);
	101	$new = 1;
	102	my @properties = $document->structure();
	103	foreach my $prop ( @properties ) {
	104	my $attr = $prop->{attr};
	105	### !!! �� , ��
	106	if ( exists $ARGS{$attr} && ! grep { $prop->{attr} eq $_ } qw( class sect_id id delete save clone s_alias activate deactivate ) ) {
	107	$document->$attr($ARGS{$attr});
	108	}
	109	}
	110	}
	111
	112	if (ref($document) && $document->id() && $document->section()) {
	113	my $document_access = $user->section_accesses($user, $document->section);
	114	if ($document_access != 2) {
	115	$m->clear_buffer;
	116	$m->abort(403);
	117	}
	118	}
	119
	120	if ($s_alias) {
	121	$sect_id = $project->s_alias->{$s_alias};
	122	}
	123
	124	if ( (! $sect_id) && (ref($document)) && ($document->id) ) {
	125	$sect_id = $document->section();
	126	}
	127	my $owner = $keeper->get_section_by_id ($sect_id \|\| $Contenido::Section::ROOT \|\| 1);
	128
	129	if (! ref($owner)) {
	130	$owner = $keeper->get_section_by_id ($Contenido::Section::ROOT \|\| 1);
	131	}
	132	if (! ref($owner)) {
	133	warn "Contenido Die: �� \n";
	134	return undef;
	135	}
	136
	137
	138	# ��...
	139	if (defined($id) && ($id > 0) && ($delete == 1)) {
	140	$document->delete();
	141
	142	$r->header_out("Location", "sections.html?id=".$owner->id);
	143	$r->status(302);
	144	$r->send_http_header();
	145	$m->abort();
	146	}
	147
	148	# ��...
	149	if (defined($id) && ($id > 0) && ($activate == 1)) {
	150	$document->status(1);
	151	$document->store;
	152
	153	$r->header_out("Location", "sections.html?id=".$owner->id);
	154	$r->status(302);
	155	$r->send_http_header();
	156	$m->abort();
	157	}
	158
	159	# ��...
	160	if (defined($id) && ($id > 0) && ($deactivate == 1)) {
	161	$document->status(0);
	162	$document->store;
	163
	164	$r->header_out("Location", "sections.html?id=".$owner->id);
	165	$r->status(302);
	166	$r->send_http_header();
	167	$m->abort();
	168	}
	169
	170	# �� ...
	171	# ��, �� ...
	172	elsif ( $save == 1 )
	173	{
	174	my $clonesource;
	175	if ( $clone ) {
	176	$clonesource = $keeper->get_document_by_id ($clone,
	177	class => $document->class,
	178	);
	179	}
	180	if ($m->comp('/contenido/components/set_properties.msn', object => $document, SETS => \%ARGS) != 1)
	181	{
	182	# ��, �� ...
	183	warn "Contenido Warning: �� !\n";
	184	}
	185	if ( $clone ) {
	186	$m->comp('/contenido/components/clone_attachments.msn', object => $document, source => $clonesource );
	187	}
	188
	189	$document->sections( $owner->id, $filter > 0 ? ($filter) : ()) if $new;
	190
	191	unless ($document->store()) {
	192	# ��, �� ...
	193	$error="�� ($keeper->{last_error})";
	194	} else {
	195
	196	if ($ARGS{_save_and_leave})
	197	{
	198	$r->header_out("Location", "sections.html?id=".$owner->id);
	199	$r->status(302);
	200	$r->send_http_header();
	201	$m->abort();
	202	}
	203	elsif ($ARGS{_save_and_again})
	204	{
	205	$r->header_out("Location", "document.html?class=".$document->class()."&sect_id=".$owner->id);
	206	$r->status(302);
	207	$r->send_http_header();
	208	$m->abort();
	209	}
	210
	211
	212	$r->header_out("Location", "document.html?id=".$document->id()."&class=".$document->class());
	213	$r->status(302);
	214	$r->send_http_header();
	215	$m->abort();
	216	}
	217	}
	218
	219	</%INIT>
	220

koi8/plugins/users/comps/contenido/users/document_filter_list.html


	1	<& "/contenido/components/title.msn" &>
	2	<div style="font:bold 13px Verdana; margin:4px;">��: <span style="color:teal;"><% $class %></span>
	3	<span style="font:11px Verdana;">(<a href="document.html?class=<% $class %>&<% $field %>=<% $id %>" target="_blank">�� </a>)</span></div>
	4	% if ( ref $docs eq 'ARRAY' && @$docs ) {
	5	% if ($total > $size) {
	6	<div style="font-size:75%; font-family:Arial; text-align:center;">
	7	<& /inc/pages_.msn, p => $p, n => $size, total => $total, params => {%ARGS} &></div>
	8	% }
	9	% my @props = sort { $a->{column} <=> $b->{column} } grep { exists $_->{column} } $docs->[0]->required_properties;
	10	<table width="100%" border="0" cellpadding="4" cellspacing="0" class="tlistdocs">
	11	<tr bgcolor="#efefef">
	12	% foreach my $prop (@props) {
	13	<th><% $prop->{rusname} %></th>
	14	% }
	15	</tr>
	16	% foreach my $doc (@$docs) {
	17	% my $color = $doc->contenido_status_style ? $doc->contenido_status_style :
	18	% $doc->status == 1 ? 'blue' :
	19	% $doc->status == 0 ? 'gray' : 'blue';
	20
	21	%# my ($stat) = grep { $_->{attr} eq 'status' } @props;
	22	%# my ($case) = grep { $_->[0] == $banner->status } @{ $stat->{cases} } if ref $stat eq 'HASH' && exists $stat->{cases};
	23	<tr>
	24	% foreach my $prop (@props) {
	25	% my $attr = $prop->{attr};
	26	% if ( $attr =~ /dtime/ ) {
	27	<td><a href="document.html?id=<% $doc->id %>&class=<% $doc->class %>"
	28	style="<% $color %>" target="_blank"><& "/contenido/components/show_dtime.msn", dtime => $doc->$attr &></a></td>
	29	% }else{
	30	<td><a href="document.html?id=<% $doc->id %>&class=<% $doc->class %>"
	31	style="<% $color %>" target="_blank"><% $doc->$attr %></a></td>
	32	% }
	33	% }
	34	</tr>
	35	% }
	36	</table>
	37	% }
	38	%#<pre><% Dumper($docs->[0]->required_properties) %></pre>
	39	<%args>
	40	$id => undef
	41	$filter => undef
	42	$field => undef
	43	$class => undef
	44	$order_by => undef
	45	$p => 1
	46	</%args>
	47	<%init>
	48
	49	my ($docs, $total);
	50	my $size = 15;
	51	if ( $id && $filter && $class ) {
	52	my %opts = ();
	53	$opts{$filter} = $id;
	54	$opts{order_by} = $order_by if $order_by;
	55	$docs = $keeper->get_documents (
	56	class => $class,
	57	return_mode => 'array_ref',
	58	offset => ($p-1)*$size,
	59	limit => $size,
	60	%opts,
	61	);
	62	$total = $keeper->get_documents (
	63	class => $class,
	64	count => 1,
	65	%opts,
	66	);
	67	} else {
	68	return;
	69	}
	70
	71	</%init>

koi8/plugins/users/comps/contenido/users/document_links.html


	1	<& "/contenido/components/title.msn" &>
	2	% if ($document) {
	3	<& "/contenido/components/document_links.msn", document => $document &>
	4	% } else {
	5	<p><font color="red">�� id=<% $id %> � class=<% $class %></font></p>
	6	% }
	7	</body>
	8	</html>
	9
	10	<%ARGS>
	11	$class => undef
	12	$id => undef
	13	</%ARGS>
	14
	15	<%INIT>
	16	return unless ($state->{available_links} and @{$state->{available_links}});
	17	my $document;
	18	if ($id && ($id !~ /\D/) && ($id > 0)) {
	19	$document = $keeper->get_document_by_id($id, class=>$class);
	20	}
	21	</%INIT>
	22

koi8/plugins/users/comps/contenido/users/index.html


	1	<& "/contenido/components/header.msn" &>
	2	<& "/contenido/components/naviline.msn", sect_id => $owner->id &>
	3
	4	<table width="100%" cellspacing="0" cellpadding="0" border="0">
	5	<tr valign="top">
	6	<td width="35%">
	7
	8	<& /contenido/users/components/find_user.msn,
	9	search => $search, search_by => $search_by,
	10	url=>'sections.html' &>
	11
	12	<& "/contenido/users/components/subsection.msn", section => $owner &>
	13	<& "/contenido/components/class_filter.msn", class=> $class, section => $owner &>
	14
	15	% if (( $owner->id ) && ($owner->id > 0) && $owner->id != 1 )
	16	% {
	17	<& "/contenido/components/section_info.msn", section => $owner &>
	18	% }
	19
	20	</td>
	21	<td width="2%"> </td>
	22	<td width="65%">
	23
	24	% if($owner->id) {
	25
	26	<fieldset>
	27	<legend>��\
	28	% if ($class) {
	29	�� <% $class %>\
	30	% if ($use_section) {
	31	c �� \
	32	% }
	33	% } else {
	34	� ��\
	35	% }
	36	% if ($total > 0) {
	37	(��: <% $total %>, �� <% $first + 1 %> �� <% ($first + $n > $total) ? $total : $first + $n %>)
	38	% }
	39	</legend>
	40
	41	% if ($total or defined($alpha) or defined($search) ) {
	42	% if ($section_access == 2) {
	43	<& "/contenido/components/new_objects_form.msn", proto => 'documents',
	44	sect_id => $owner->id,
	45	default => ($owner->default_document_class ? $owner->default_document_class : $class) &>
	46	% }
	47	<div style="font-size:75%; font-family:Arial;">
	48	<table border="0" cellspacing="0" cellpadding="2" width="100%" style="margin:4px 0 0; border:1px solid gray;">
	49	<tr bgcolor="#e0e0e0"><th colspan="4">�� :  [<a href="?id=<% $id %>" style="font-weight:normal;">�� </a>]</th></tr>
	50	<tr><td style="font-size:75%; font-family:Arial; padding:2px 4px;">
	51	<& /inc/alpha.msn, alpha=>$alpha, params=>\%ARGS, &>
	52	</td></tr></table>
	53	% ## �� . ��
	54	% ## � �� search_fields
	55	% ########################################################
	56	%
	57	% if ( $filter{class} ) {
	58	% my $document = $filter{class}->new ($keeper);
	59	% my @fields = $document->search_fields;
	60	% if ( @fields ) {
	61	% my @props = $document->required_properties;
	62	<form action="sections.html">
	63	<table border="0" cellspacing="0" cellpadding="2" width="100%" style="margin:4px 0; border:1px solid gray;">
	64	<tr bgcolor="#e0e0e0"><th colspan="4">�� :  [<a href="?id=<% $id %>" style="font-weight:normal;">�� </a>]</th></tr><tr>
	65	<td width="1%" nowrap style="padding:2px 0 2px 4px;"><select name="search_by">
	66	% foreach my $field ( @fields ) {
	67	% my ($prop) = grep { $_->{'attr'} eq $field } @props;
	68	% my $selected = $field eq $search_by ? ' selected' : '';
	69	<option value="<% $field %>"<% $selected %>><% $prop->{'rusname'} %>
	70	% }
	71	</td><td width="0">:</td>
	72	<td width="98%"><input type="text" name="search" value="<% $search %>" style="width:100%"></td>
	73	<td width="1%" style="padding:2px 4px 2px 0;"><input type="submit" value=" » " style="border:1px solid gray;"></td>
	74	</tr></table>
	75	% if ( $id ) {
	76	<input type="hidden" name="id" value="<% $id %>">
	77	% }
	78	% if ( $class ) {
	79	<input type="hidden" name="class" value="<% $class %>">
	80	% }
	81	% if ( $use_section ) {
	82	<input type="hidden" name="use_section" value="<% $use_section %>">
	83	% }
	84	</form>
	85	% }
	86	% }
	87
	88	<& /inc/pages_.msn, p=>$p, n=>$n, total=>$total, href=>'sections.html', params=>\%ARGS, &>
	89	</div>
	90
	91	<table width="100%" border="0" cellpadding="4" cellspacing="0" class="tlistdocs">
	92	<tr bgcolor="#efefef">
	93	%
	94	% foreach (@columns) {
	95	%
	96	<th><% $_->{rusname} %></th>
	97	%
	98	% }
	99	%
	100	</tr>
	101	%
	102	% unless (@documents) {
	103	<tr><td align="center" colspan="<% scalar @columns %>">�� </td></tr>
	104	% }
	105	% foreach my $document (@documents) {
	106	%
	107	% next unless ref($document);
	108	% my $document_access = $user->section_accesses($user, $document->section);
	109	%
	110	<tr valign="top">
	111	%
	112	% for my $col (@columns) {
	113	%
	114	% if ($col->{attr} eq '_sort_') {
	115	%
	116	<td width="20px"><% $document->{sorder} %> <a href="document_move.html?id=<% $document->{id} %>&move=up&s=<% $id %>&p=<% $p %>"><img src="/contenido/i/ico-up-9x10.gif" border=0 alt="�� "></a> <a href="document_move.html?id=<% $document->{id} %>&move=down&s=<% $id %>&p=<% $p %>"><img src="/contenido/i/ico-down-9x10.gif" border=0 alt="�� "></a>\
	117	%
	118	% } elsif ($col->{attr} eq 'dtime') {
	119	%
	120	<td nowrap><& "/contenido/components/show_dtime.msn", dtime=>$document->{dtime} &>\
	121	%
	122	% if ($document->{ctime} ne $document->{mtime}) {
	123	%
	124	% my $colortime = '#c66';
	125	%
	126	<div style="color:<% $colortime %>;"><& "/contenido/components/show_dtime.msn", dtime=>$document->{mtime} &></div>\
	127	%
	128	% }
	129	%
	130	% } elsif ($col->{attr} eq 'name') {
	131	%
	132	<td><span<% $document->contenido_status_style ? ' style="' . $document->contenido_status_style . '"' : '' %> class="<% $document->status ? '':'hiddensect' %>">\
	133	%
	134	% my $name=$document->name ? $document->name : '�� N'.$document->id;
	135	% if ($document_access == 2) {
	136	%
	137	<a<% $document->contenido_status_style ? ' style="' . $document->contenido_status_style . '"' : '' %> href="document.html?id=<% $document->id %>&class=<% $document->class %>"><% $name \| h %> </a>\
	138	%
	139	% } else {
	140	%
	141	<% $name \| h %> \
	142	%
	143	% }
	144	%
	145	</span>\
	146	%
	147	% } elsif ($col->{attr} eq 'id') {
	148	%
	149	<td><span class="<% $document->status ? '':'hiddensect' %>">\
	150	%
	151	% if ($document_access == 2) {
	152	%
	153	<a href="document.html?id=<% $document->id %>&class=<% $document->class %>"><% $document->id %> </a>\
	154	%
	155	% } else {
	156	%
	157	<% $document->id %> \
	158	%
	159	% }
	160	%
	161	</span>\
	162	%
	163	% } elsif ($col->{attr} eq 'class') {
	164	%
	165	<td><% $document->class_name %> <font color="#999999">(<% $document->class %>)</font>\
	166	%
	167	% } elsif ($col->{type} eq 'datetime') {
	168	%
	169	<td nowrap><& "/contenido/components/show_dtime.msn", dtime=>$document->{$col->{attr}} &>\
	170	%
	171	% } elsif ($col->{attr} eq '_act_') {
	172	%
	173	<td>\
	174	% if ($document_access == 2) {
	175	%
	176	<a href="document.html?id=<% $document->id %>&class=<% $document->class %>" title="�� "><img
	177	src="/contenido/i/actions/edit.gif" width="15" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	178	<a href="document.html?clone=1&id=<% $document->id %>&class=<% $document->class %>" title="�� "><img
	179	src="/contenido/i/actions/copy.gif" width="15" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	180	<a href="confirm.html?id=<% $document->id %>&action=documents_deletion&from=<% $owner->id %>&class=<% $document->class %>" title="�� "><img
	181	src="/contenido/i/actions/delete.gif" width="14" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	182	% if ( $document->status != 0 ) {
	183	<a href="document.html?deactivate=1&id=<% $document->id %>&class=<% $document->class %>" title="�� "><img
	184	src="/contenido/i/actions/deactivate.gif" width="14" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	185	% }
	186	% if ( $document->status != 1 ) {
	187	<a href="document.html?activate=1&id=<% $document->id %>&class=<% $document->class %>" title="�� =1"><img
	188	src="/contenido/i/actions/activate.gif" width="14" height="17" alt="�� =1" align="absmiddle" border="0" hspace="1"></a>\
	189	% }
	190	<br>\
	191	%#<a href="document.html?id=<% $document->id %>&class=<% $document->class %>">��</a><br/>\
	192	%#<a href="confirm.html?id=<% $document->id %>&action=documents_deletion&from=<% $owner->id %>&class=<% $document->class %>">��</a>\
	193	%
	194	% } else {
	195	\
	196	% }
	197	%
	198	% } else {
	199	%
	200	% if ($col->{type} eq 'date') {
	201	% my $date=$document->{$col->{attr}};
	202	% $date=~/(\d{4}-\d{2}-\d{2})/;
	203	<td nowrap align="right"><% $1 \|\| ' ' %>\
	204	% } elsif ($col->{type} eq 'datetime') {
	205	<td nowrap align="right"><% $document->{$col->{attr}} \|\| ' ' %>\
	206	% } elsif ($col->{type} eq 'integer') {
	207	<td align="right"><% $document->{$col->{attr}} %> \
	208	% } elsif ($col->{type} eq 'lookup') {
	209	<td align="left">\
	210	% my $id = $document->{$col->{attr}};
	211	% if ($id) {
	212	% my ($doc)=$keeper->get_documents( ( ref($col->{lookup_opts}) ? %{$col->{lookup_opts}} : () ), id=>$id);
	213	% if ($doc) {
	214	<a href="document.html?id=<% $doc->id %>&class=<% $doc->class %>"><% $doc->name \|\| $doc->id %></a> \
	215	% } else {
	216	<span class="hiddensect"><% $document->{$col->{attr}} %>???</span>\
	217	% }
	218	% } else {
	219	<span class="hiddensect">NULL</span>\
	220	% }
	221	% } elsif ($col->{type} eq 'status') {
	222	% my $status_map = ref $col->{cases} eq 'ARRAY' ? $col->{cases} : $keeper->default_status();
	223	% my ($doc_status) = grep { $_->[0] eq $document->{$col->{attr}} } @$status_map;
	224	% $doc_status \|\|= [$document->{$col->{attr}}, '��'];
	225	<td nowrap><% $doc_status->[1].'('.$doc_status->[0].')' %>\
	226	% } else {
	227	<td><% defined($document->{$col->{attr}}) ? $document->{$col->{attr}} : ' ' %>\
	228	% }
	229	% }
	230	%
	231	</td>
	232	%
	233	% } #- for @columns
	234	%
	235	</tr>
	236	% } #- foreach @documents
	237	</table>
	238
	239	<div style="font-size:75%; font-family:Arial;">
	240	<& /inc/pages_.msn, p=>$p, n=>$n, total=>$total, href=>'sections.html', params=>\%ARGS, &>
	241	</div>
	242	% } else {
	243	<h4 align="center"><i>---- �� -----</i></h4>
	244	% }
	245	%
	246	% if ($section_access == 2) {
	247	<& "/contenido/components/new_objects_form.msn", proto => 'documents',
	248	sect_id => $owner->id,
	249	default => ($owner->default_document_class ? $owner->default_document_class : $class) &>
	250	% }
	251
	252	</fieldset>
	253	</td>
	254	</tr>
	255	</table>
	256
	257	% }
	258
	259	</body>
	260	</html>
	261	<%args>
	262
	263	$id => 1
	264	$p => 1
	265	$class => undef
	266	$use_section => undef
	267	$alpha => undef
	268	$alpha_search => undef
	269	$search_by => undef
	270	$search => undef
	271
	272	</%args>
	273	<%init>
	274
	275	$id = 0 if $id =~ /\D/;
	276	my $owner;
	277
	278	# ��...
	279	if ($id && ($id > 0))
	280	{
	281	$owner = $keeper->get_section_by_id($id);
	282	}
	283	if (! ref($owner))
	284	{
	285	return undef;
	286	}
	287
	288	$class = $state->{users}->profile_document_class;
	289	# �� ...
	290	my $filter = $m->comp('/contenido/components/context.msn', name => 'filter');
	291	my $profile = $m->comp('/contenido/components/context.msn', name => 'profile');
	292
	293	unless (defined $request->{section_accesses}->{$id})
	294	{
	295	$request->{section_accesses}->{$id} = $user->get_section_access($id);
	296	}
	297	my $section_access = $request->{section_accesses}->{$id};
	298
	299	my (@documents, $total);
	300
	301	my $s = $owner->id;
	302	my $sorted = $owner->_sorted();
	303	$s .= ",$filter" if ($filter > 0);
	304
	305	my %filter=();
	306	my %order = (not $class and $owner->order_by) ? (order_by => $owner->order_by) : (order => ['date','direct']);
	307	if (defined $alpha and $alpha ne '') {
	308	$filter{ilike}=1;
	309	$filter{ $alpha_search \|\| 'name' }="$alpha%";
	310	$order{order}=['name','reverse'];
	311	delete $order{order_by};
	312	}
	313
	314	$filter{class} = $owner->default_document_class if $owner->default_document_class;
	315	$filter{class}=$class if ($class);
	316	$filter{s}=$s unless ($class && !$use_section);
	317	if ( $search_by && $search ) {
	318	$filter{$search_by}='%'.$search.'%';
	319	$filter{ilike} = 1;
	320	}
	321
	322	# ��
	323	if ($owner->filters) {
	324	no strict 'vars';
	325	my $filters = eval($owner->filters);
	326	if ($@) {
	327	warn "Bad filter: " . $owner->filters . " in section " . $owner->id;
	328	} elsif (ref $filters eq 'HASH') {
	329	map { $filter{$_} = $filters->{$_} } keys %$filters;
	330	}
	331	}
	332
	333	$total = $keeper->get_documents(%filter, count=>1);
	334
	335	my $n = 40;
	336	my $first = $n * ($p - 1);
	337	($first,$p)=(0,0) if ($first>$total);
	338
	339	if ($class && !$use_section) {
	340	@documents = $keeper->get_documents(%filter, %order, limit=>$n, offset=>$first, light=>1);
	341	} elsif ($sorted) {
	342	@documents = $keeper->get_sorted_documents(%filter, limit=>$n, offset=>$first, light=>1);
	343	} else {
	344	@documents = $keeper->get_documents(%filter, %order, limit=>$n, offset=>$first, light=>1);
	345	}
	346
	347	# �� ...
	348	my @columns = $sorted ? ({attr => '_sort_', name => 'N'}) : ();
	349
	350	# �� , �� (required_properties -> column)...
	351	if ($filter{class} or @documents and $documents[0]) {
	352	push @columns,
	353	sort {$a->{column} <=> $b->{column}}
	354	grep {$_->{column}} ($filter{class} ? $filter{class}->new($keeper)->structure : $documents[0]->structure);
	355	}
	356
	357	# �� ...
	358	@columns = (@columns,
	359	{attr => '_act_', rusname => '��'},
	360	);
	361	</%init>

koi8/plugins/users/comps/contenido/users/link_frame.html


	1	<frameset border="0" bordercolor="black" rows="40,*" frameborder="1">
	2	<frame src="links/title.html?class=<% $class %>" bordercolor="black" marginheight="2" marginwidth="2"
	3	name="linktitle" noresize scrolling="no" height="30">
	4	<frameset border="0" bordercolor="black" cols="50%,50%" frameborder="1">
	5	<frame src="links/source.html<% $sargs %>" bordercolor="gray" marginheight="2" marginwidth="2" name="sourcefrm" noresize scrolling="yes">
	6	<frame src="links/destination.html<% $dargs %>" bordercolor="black" marginheight="2" marginwidth="2" name="destfrm" noresize scrolling="yes">
	7	</frameset>
	8	</frameset>
	9
	10	<%args>
	11	$class => ''
	12	$source_class => ''
	13	$source_id => ''
	14	$dest_class => ''
	15	$dest_id => ''
	16	$save => 0
	17	$status => 0
	18	</%args>
	19	<%init>
	20
	21	my (@source_args, $sargs, @dest_args, $dargs);
	22	push @source_args, 'class='.$class if $class;
	23	push @source_args, 'source_class='.$source_class if $source_class;
	24	push @source_args, 'source_id='.$source_id if $source_id;
	25	push @dest_args, 'class='.$class if $class;
	26	push @dest_args, 'dest_class='.$dest_class if $dest_class;
	27	push @dest_args, 'dest_id='.$dest_id if $dest_id;
	28
	29	$sargs = @source_args ? '?'.join('&', @source_args) : undef;
	30	$dargs = @dest_args ? '?'.join('&', @dest_args) : undef;
	31
	32	</%init>

koi8/plugins/users/comps/contenido/users/links/destination.html


	1	<& "/contenido/components/title.msn", title=>'�� ' &>
	2	<style>
	3	<!--
	4	body {margin:5px;}
	5	-->
	6	</style>
	7
	8
	9	% if (ref $document) {
	10	% ### Destination is available
	11	% ######################################################
	12
	13	<script language="JavaScript">
	14	<!--
	15	function DeleteSource ()
	16	{
	17	oSelect = document.forms['sourceform'].elements[0];
	18	for (j = 0; j < oSelect.options.length; j++) {
	19	if (!oSelect.options[j].selected) {
	20	oSelect.options[j] = null;
	21	}
	22	}
	23	return true;
	24	}
	25
	26	function SelectAllSources ()
	27	{
	28	oSelect = document.forms['sourceform'].elements[0];
	29	// oSelect.setExpression('multiple', true);
	30	// document.recalc(true);
	31	for (j = 0; j < oSelect.options.length; j++) {
	32	oSelect.options[j].selected = true;
	33	}
	34	return true;
	35	}
	36
	37	function CheckSource ()
	38	{
	39	oSelect = document.forms['sourceform'].elements[0];
	40	if ( oSelect.options.length ) {
	41	return true;
	42	} else {
	43	alert ('�� ');
	44	return false;
	45	}
	46	}
	47
	48	//-->
	49	</script>
	50
	51	%
	52	% my @properties = $document->structure();
	53	% my ($prop) = grep { $_->{'attr'} eq 'status' } @properties;
	54	% my ($status) = grep { $_->[0] == $document->status } @{ $m->comp( '/contenido/components/inputs/status.msn', prop => $prop, object=>$document, name => $prop->{attr}, mode => 'get') };
	55	% $status = $status->[1];
	56	<table width="100%" border="0" align="center"><tr><td>
	57	<fieldset>
	58	<legend>��</legend>
	59	<table class="tform" width="100%">
	60	<tr valign="top"><td><b>��:</b>
	61	</td><td><a href="/contenido/document.html?id=<% $document->id %>&class=<% $document->class %>" target="_top"><% $document->name %></a>
	62	</td></tr>
	63	<tr valign="top"><td><b>��:</b>
	64	</td><td><% $document->class %>
	65	</td></tr>
	66	<tr valign="top"><td><b>��:</b>
	67	</td><td><% $status %>
	68	</td></tr>
	69	</table>
	70	</fieldset>
	71
	72	<fieldset>
	73	<legend>�� </legend>
	74	<table class="tform" width="100%">
	75	<tr><td>
	76	<form action="link_add.html" name="sourceform" target="_top" method="post" onsubmit="return CheckSource();">
	77	<select multiple name="sources" size="20" style="width:100%">
	78	</select>
	79	<p>� �� .</p>
	80	<input type="hidden" name="class" value="<% $class %>">
	81	<input type="hidden" name="dest_id" value="<% $dest_id %>">
	82	<input type="hidden" name="dest_class" value="<% $dest_class %>">
	83	<input type="button" value="�� " onclick="SelectAllSources();">
	84	<input type="button" value="�� " onclick="DeleteSource();">
	85	<input type="submit" value="�� ">
	86	</form>
	87	</td></tr>
	88	</table>
	89	</fieldset>
	90
	91	</td></tr></table>
	92
	93
	94	% }else{
	95	% ### Destination is not available
	96	% ######################################################
	97	%
	98
	99	<script language="JavaScript">
	100	<!--
	101	function AddDest (Value, Name)
	102	{
	103	// alert (Name);
	104
	105	var oSelect = parent.frames.sourcefrm.document.forms['destform'].elements[0];
	106	var Found = 0;
	107	for(j=0; j < oSelect.options.length; j++) {
	108	if (oSelect.options[j].value == Value) {
	109	Found = 1;
	110	}
	111	}
	112	if (!Found) {
	113	var oOption = document.createElement("OPTION");
	114	oOption.text=Name;
	115	oOption.value=Value;
	116	oOption.selected=true;
	117	oSelect.options.add(oOption);
	118	}
	119	return false;
	120	}
	121	//-->
	122	</script>
	123
	124	<& /contenido/components/link_browse.msn,
	125	class => $class,
	126	dest_class => $dest_class,
	127	p => $p,
	128	use_section => $use_section,
	129	alpha => $alpha,
	130	alpha_search => $alpha_search,
	131	search => $search,
	132	search_by => $search_by,
	133	restrict_class => $restrict_class,
	134	&>
	135
	136	% }
	137
	138	</body>
	139	</html>
	140	<%args>
	141
	142	$class => ''
	143	$source_class => ''
	144	$source_id => ''
	145	$dest_class => ''
	146	$dest_id => ''
	147	$save => 0
	148	$status => 0
	149
	150	$p => 1
	151	$restrict_class => undef
	152	$use_section => undef
	153	$alpha => undef
	154	$alpha_search => undef
	155	$search_by => undef
	156	$search => undef
	157
	158	</%args>
	159	<%init>
	160
	161	my $document;
	162
	163	if ($dest_id) {
	164	$document = $keeper->get_document_by_id ($dest_id,
	165	class => $dest_class,
	166	);
	167	} else {
	168	$dest_class = $class->available_destinations;
	169	}
	170
	171	</%init>

koi8/plugins/users/comps/contenido/users/links/link_add.html


	1	%#<pre><% Dumper(\%ARGS) %></pre>
	2	<%args>
	3
	4	$class => undef
	5	$source_id => undef
	6	$source_class => undef
	7	$dest_id => undef
	8	$dest_class => undef
	9	$sources => undef
	10	$destinations => undef
	11
	12	</%args>
	13	<%init>
	14
	15	abort404 unless $class;
	16
	17	my @documents;
	18	my $ret_params;
	19	if ( $source_id && $source_class && ($destinations \|\| (ref $destinations eq 'ARRAY' && @$destinations)) ) {
	20	@documents = $keeper->get_documents (
	21	in_id => $destinations,
	22	);
	23	foreach my $doc (@documents) {
	24	my $link = $class->new ($keeper);
	25	$link->source_id ($source_id);
	26	$link->source_class ($source_class);
	27	$link->dest_id ($doc->id);
	28	$link->dest_class ($doc->class);
	29	$link->store;
	30	}
	31	$ret_params = "id=$source_id&class=$source_class";
	32	} elsif ( $dest_id && $dest_class && ($sources \|\| (ref $sources eq 'ARRAY' && @$sources)) ) {
	33	@documents = $keeper->get_documents (
	34	in_id => $sources,
	35	);
	36	foreach my $doc (@documents) {
	37	my $link = $class->new ($keeper);
	38	$link->dest_id ($dest_id);
	39	$link->dest_class ($dest_class);
	40	$link->source_id ($doc->id);
	41	$link->source_class ($doc->class);
	42	$link->store;
	43	}
	44	$ret_params = "id=$dest_id&class=$dest_class";
	45	}
	46	if ($ret_params) {
	47	$m->redirect("Location", "/contenido/users/document.html?".$ret_params);
	48	}else{
	49	&abort404;
	50	}
	51
	52	</%init>

koi8/plugins/users/comps/contenido/users/links/source.html


	1	<& "/contenido/components/title.msn", title=>'�� ' &>
	2	<style>
	3	<!--
	4	body {margin:5px;}
	5	-->
	6	</style>
	7
	8	% if (ref $document) {
	9	% ### Source is available
	10	% ######################################################
	11
	12	<script language="JavaScript">
	13	<!--
	14	function DeleteDest ()
	15	{
	16	oSelect = document.forms['destform'].elements[0];
	17	for (j = 0; j < oSelect.options.length; j++) {
	18	if (!oSelect.options[j].selected) {
	19	oSelect.options[j] = null;
	20	}
	21	}
	22	return true;
	23	}
	24
	25	function SelectAllDest ()
	26	{
	27	oSelect = document.forms['destform'].elements[0];
	28	// oSelect.setExpression('multiple', true);
	29	// document.recalc(true);
	30	for (j = 0; j < oSelect.options.length; j++) {
	31	oSelect.options[j].selected = true;
	32	}
	33	return true;
	34	}
	35
	36	function CheckDest ()
	37	{
	38	oSelect = document.forms['destform'].elements[0];
	39	if ( oSelect.options.length ) {
	40	return true;
	41	} else {
	42	alert ('�� ');
	43	return false;
	44	}
	45	}
	46
	47	//-->
	48	</script>
	49
	50	%
	51	% my @properties = $document->structure();
	52	% my ($prop) = grep { $_->{'attr'} eq 'status' } @properties;
	53	% my ($status) = grep { $_->[0] == $document->status } @{ $m->comp( '/contenido/components/inputs/status.msn', prop => $prop, object=>$document, name => $prop->{attr}, mode => 'get') };
	54	% $status = $status->[1];
	55	<table width="100%" border="0" align="center"><tr><td>
	56	<fieldset>
	57	<legend>��</legend>
	58	<table class="tform" width="100%">
	59	<tr valign="top"><td><b>��:</b>
	60	</td><td><a href="/contenido/document.html?id=<% $document->id %>&class=<% $document->class %>" target="_top"><% $document->name %></a>
	61	</td></tr>
	62	<tr valign="top"><td><b>��:</b>
	63	</td><td><% $document->class %>
	64	</td></tr>
	65	<tr valign="top"><td><b>��:</b>
	66	</td><td><% $status %>
	67	</td></tr>
	68	</table>
	69	</fieldset>
	70
	71	<fieldset>
	72	<legend>�� </legend>
	73	<table class="tform" width="100%">
	74	<tr><td>
	75	<form action="link_add.html" name="destform" target="_top" method="post" onsubmit="return CheckDest();">
	76	<select multiple name="destinations" size="20" style="width:100%">
	77	</select>
	78	<p>� �� .</p>
	79	<input type="hidden" name="class" value="<% $class %>">
	80	<input type="hidden" name="source_id" value="<% $source_id %>">
	81	<input type="hidden" name="source_class" value="<% $source_class %>">
	82	<input type="button" value="�� " onclick="SelectAllDest();">
	83	<input type="button" value="�� " onclick="DeleteDest();">
	84	<input type="submit" value="�� ">
	85	</form>
	86	</td></tr>
	87	</table>
	88	</fieldset>
	89
	90	</td></tr></table>
	91
	92	%#<pre><% Dumper(\@properties) %></pre>
	93
	94	% }else{
	95	% ### Source is not available
	96	% ######################################################
	97	%
	98
	99	<script language="JavaScript">
	100	<!--
	101	function AddSource (Value, Name)
	102	{
	103	// alert (Name);
	104
	105	var oSelect = parent.frames.destfrm.document.forms['sourceform'].elements[0];
	106	var Found = 0;
	107	for(j=0; j < oSelect.options.length; j++) {
	108	if (oSelect.options[j].value == Value) {
	109	Found = 1;
	110	}
	111	}
	112	if (!Found) {
	113	var oOption = document.createElement("OPTION");
	114	oOption.text=Name;
	115	oOption.value=Value;
	116	oOption.selected=true;
	117	oSelect.options.add(oOption);
	118	}
	119	return false;
	120	}
	121	//-->
	122	</script>
	123
	124	<& /contenido/components/link_browse.msn,
	125	class => $class,
	126	source_class => $source_class,
	127	p => $p,
	128	use_section => $use_section,
	129	alpha => $alpha,
	130	alpha_search => $alpha_search,
	131	search => $search,
	132	search_by => $search_by,
	133	restrict_class => $restrict_class,
	134	&>
	135
	136	% }
	137
	138	</body>
	139	</html>
	140	<%args>
	141	$class => ''
	142	$source_class => ''
	143	$source_id => ''
	144	$dest_class => ''
	145	$dest_id => ''
	146	$save => 0
	147	$status => 0
	148
	149	$p => 1
	150	$restrict_class => undef
	151	$use_section => undef
	152	$alpha => undef
	153	$alpha_search => undef
	154	$search_by => undef
	155	$search => undef
	156
	157	</%args>
	158	<%init>
	159
	160	my $document;
	161
	162	if ($source_id) {
	163	$document = $keeper->get_document_by_id ($source_id,
	164	class => $source_class,
	165	);
	166	} else {
	167	$source_class = $class->available_sources;
	168	}
	169
	170	</%init>

koi8/plugins/users/comps/contenido/users/links/title.html


	1	<& "/contenido/components/title.msn", title=>'�� ' &>
	2	<table width="100%" cellspacing="5" cellpadding="0" border="0">
	3	<tr><td style="font-size:110%;">
	4	<div><b>�� . ��   —
	5	<% $class->class_name %> (<span style="color:olive;"><% $class %></span>)</b></div>
	6	</td></tr>
	7	</table>
	8	</body>
	9	</html>
	10	<%args>
	11	$class => ''
	12	$source_class => ''
	13	$source_id => ''
	14	$dest_class => ''
	15	$dest_id => ''
	16	$save => 0
	17	$status => 0
	18	</%args>

koi8/plugins/users/comps/contenido/users/sections.html


	1	<& "/contenido/components/header.msn" &>
	2	<& "/contenido/components/naviline.msn", sect_id => $owner->id &>
	3
	4	<table width="100%" cellspacing="0" cellpadding="0" border="0">
	5	<tr valign="top">
	6	<td width="35%">
	7
	8	<& /contenido/users/components/find_user.msn,
	9	search => $search, search_by => $search_by,
	10	url=>'sections.html' &>
	11
	12	<& "/contenido/users/components/subsection.msn", section => $owner &>
	13	<& "/contenido/components/class_filter.msn", class=> $class, section => $owner &>
	14
	15	% if (( $owner->id ) && ($owner->id > 0) && $owner->id != 1 )
	16	% {
	17	<& "/contenido/components/section_info.msn", section => $owner &>
	18	% }
	19
	20	</td>
	21	<td width="2%"> </td>
	22	<td width="65%">
	23
	24	% if($owner->id) {
	25
	26	<fieldset>
	27	<legend>��\
	28	% if ($class) {
	29	�� <% $class %>\
	30	% if ($use_section) {
	31	c �� \
	32	% }
	33	% } else {
	34	� ��\
	35	% }
	36	% if ($total > 0) {
	37	(��: <% $total %>, �� <% $first + 1 %> �� <% ($first + $n > $total) ? $total : $first + $n %>)
	38	% }
	39	</legend>
	40
	41	% if ($total or defined($alpha) or defined($search) ) {
	42	% if ($section_access == 2) {
	43	<& "/contenido/components/new_objects_form.msn", proto => 'documents',
	44	sect_id => $owner->id,
	45	default => ($owner->default_document_class ? $owner->default_document_class : $class) &>
	46	% }
	47	<div style="font-size:75%; font-family:Arial;">
	48	<table border="0" cellspacing="0" cellpadding="2" width="100%" style="margin:4px 0 0; border:1px solid gray;">
	49	<tr bgcolor="#e0e0e0"><th colspan="4">�� :  [<a href="?id=<% $id %>" style="font-weight:normal;">�� </a>]</th></tr>
	50	<tr><td style="font-size:75%; font-family:Arial; padding:2px 4px;">
	51	<& /inc/alpha.msn, alpha=>$alpha, params=>\%ARGS, &>
	52	</td></tr></table>
	53	% ## �� . ��
	54	% ## � �� search_fields
	55	% ########################################################
	56	%
	57	% if ( $filter{class} ) {
	58	% my $document = $filter{class}->new ($keeper);
	59	% my @fields = $document->search_fields;
	60	% if ( @fields ) {
	61	% my @props = $document->required_properties;
	62	<form action="sections.html">
	63	<table border="0" cellspacing="0" cellpadding="2" width="100%" style="margin:4px 0; border:1px solid gray;">
	64	<tr bgcolor="#e0e0e0"><th colspan="4">�� :  [<a href="?id=<% $id %>" style="font-weight:normal;">�� </a>]</th></tr><tr>
	65	<td width="1%" nowrap style="padding:2px 0 2px 4px;"><select name="search_by">
	66	% foreach my $field ( @fields ) {
	67	% my ($prop) = grep { $_->{'attr'} eq $field } @props;
	68	% my $selected = $field eq $search_by ? ' selected' : '';
	69	<option value="<% $field %>"<% $selected %>><% $prop->{'rusname'} %>
	70	% }
	71	</td><td width="0">:</td>
	72	<td width="98%"><input type="text" name="search" value="<% $search %>" style="width:100%"></td>
	73	<td width="1%" style="padding:2px 4px 2px 0;"><input type="submit" value=" » " style="border:1px solid gray;"></td>
	74	</tr></table>
	75	% if ( $id ) {
	76	<input type="hidden" name="id" value="<% $id %>">
	77	% }
	78	% if ( $class ) {
	79	<input type="hidden" name="class" value="<% $class %>">
	80	% }
	81	% if ( $use_section ) {
	82	<input type="hidden" name="use_section" value="<% $use_section %>">
	83	% }
	84	</form>
	85	% }
	86	% }
	87
	88	<& /inc/pages_.msn, p=>$p, n=>$n, total=>$total, href=>'sections.html', params=>\%ARGS, &>
	89	</div>
	90
	91	<table width="100%" border="0" cellpadding="4" cellspacing="0" class="tlistdocs">
	92	<tr bgcolor="#efefef">
	93	%
	94	% foreach (@columns) {
	95	%
	96	<th><% $_->{rusname} %></th>
	97	%
	98	% }
	99	%
	100	</tr>
	101	%
	102	% unless (@documents) {
	103	<tr><td align="center" colspan="<% scalar @columns %>">�� </td></tr>
	104	% }
	105	% foreach my $document (@documents) {
	106	%
	107	% next unless ref($document);
	108	% my $document_access = $user->section_accesses($user, $document->section);
	109	%
	110	<tr valign="top">
	111	%
	112	% for my $col (@columns) {
	113	%
	114	% if ($col->{attr} eq '_sort_') {
	115	%
	116	<td width="20px"><% $document->{sorder} %> <a href="document_move.html?id=<% $document->{id} %>&move=up&s=<% $id %>&p=<% $p %>"><img src="/contenido/i/ico-up-9x10.gif" border=0 alt="�� "></a> <a href="document_move.html?id=<% $document->{id} %>&move=down&s=<% $id %>&p=<% $p %>"><img src="/contenido/i/ico-down-9x10.gif" border=0 alt="�� "></a>\
	117	%
	118	% } elsif ($col->{attr} eq 'dtime') {
	119	%
	120	<td nowrap><& "/contenido/components/show_dtime.msn", dtime=>$document->{dtime} &>\
	121	%
	122	% if ($document->{ctime} ne $document->{mtime}) {
	123	%
	124	% my $colortime = '#c66';
	125	%
	126	<div style="color:<% $colortime %>;"><& "/contenido/components/show_dtime.msn", dtime=>$document->{mtime} &></div>\
	127	%
	128	% }
	129	%
	130	% } elsif ($col->{attr} eq 'name') {
	131	%
	132	<td><span<% $document->contenido_status_style ? ' style="' . $document->contenido_status_style . '"' : '' %> class="<% $document->status ? '':'hiddensect' %>">\
	133	%
	134	% my $name=$document->name ? $document->name : '�� N'.$document->id;
	135	% if ($document_access == 2) {
	136	%
	137	<a<% $document->contenido_status_style ? ' style="' . $document->contenido_status_style . '"' : '' %> href="document.html?id=<% $document->id %>&class=<% $document->class %>"><% $name \| h %> </a>\
	138	%
	139	% } else {
	140	%
	141	<% $name \| h %> \
	142	%
	143	% }
	144	%
	145	</span>\
	146	%
	147	% } elsif ($col->{attr} eq 'id') {
	148	%
	149	<td><span class="<% $document->status ? '':'hiddensect' %>">\
	150	%
	151	% if ($document_access == 2) {
	152	%
	153	<a href="document.html?id=<% $document->id %>&class=<% $document->class %>"><% $document->id %> </a>\
	154	%
	155	% } else {
	156	%
	157	<% $document->id %> \
	158	%
	159	% }
	160	%
	161	</span>\
	162	%
	163	% } elsif ($col->{attr} eq 'class') {
	164	%
	165	<td><% $document->class_name %> <font color="#999999">(<% $document->class %>)</font>\
	166	%
	167	% } elsif ($col->{type} eq 'datetime') {
	168	%
	169	<td nowrap><& "/contenido/components/show_dtime.msn", dtime=>$document->{$col->{attr}} &>\
	170	%
	171	% } elsif ($col->{attr} eq '_act_') {
	172	%
	173	<td>\
	174	% if ($document_access == 2) {
	175	%
	176	<a href="document.html?id=<% $document->id %>&class=<% $document->class %>" title="�� "><img
	177	src="/contenido/i/actions/edit.gif" width="15" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	178	<a href="document.html?clone=1&id=<% $document->id %>&class=<% $document->class %>" title="�� "><img
	179	src="/contenido/i/actions/copy.gif" width="15" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	180	<a href="confirm.html?id=<% $document->id %>&action=documents_deletion&from=<% $owner->id %>&class=<% $document->class %>" title="�� "><img
	181	src="/contenido/i/actions/delete.gif" width="14" height="17" alt="�� " align="absmiddle" border="0" hspace="1"></a>\
	182	% if ( $document->status != 0 ) {
	183	<a href="document.html?deactivate=1&id=<% $document->id %>&class=<% $document->class %>" title="�� "><img
	184	src="/contenido/i/actions/deactivate.gif" width="14" height="17" alt="�� " align="absmiddle" border="0" hspa
	185	% }
	186	% if ( $document->status != 1 ) {
	187	<a href="document.html?activate=1&id=<% $document->id %>&class=<% $document->class %>" title="�� =1"><img
	188	src="/contenido/i/actions/activate.gif" width="14" height="17" alt="�� =1" align="absmiddle" border="0" hspace="1"></a>\
	189	% }
	190	<br>\
	191	%#<a href="document.html?id=<% $document->id %>&class=<% $document->class %>">��</a><br/>\
	192	%#<a href="confirm.html?id=<% $document->id %>&action=documents_deletion&from=<% $owner->id %>&class=<% $document->class %>">��</a>\
	193	%
	194	% } else {
	195	\
	196	% }
	197	%
	198	% } else {
	199	%
	200	% if ($col->{type} eq 'date') {
	201	% my $date=$document->{$col->{attr}};
	202	% $date=~/(\d{4}-\d{2}-\d{2})/;
	203	<td nowrap align="right"><% $1 \|\| ' ' %>\
	204	% } elsif ($col->{type} eq 'datetime') {
	205	<td nowrap align="right"><% $document->{$col->{attr}} \|\| ' ' %>\
	206	% } elsif ($col->{type} eq 'integer') {
	207	<td align="right"><% $document->{$col->{attr}} %> \
	208	% } elsif ($col->{type} eq 'lookup') {
	209	<td align="left">\
	210	% my $id = $document->{$col->{attr}};
	211	% if ($id) {
	212	% my ($doc)=$keeper->get_documents( ( ref($col->{lookup_opts}) ? %{$col->{lookup_opts}} : () ), id=>$id);
	213	% if ($doc) {
	214	<a href="document.html?id=<% $doc->id %>&class=<% $doc->class %>"><% $doc->name \|\| $doc->id %></a> \
	215	% } else {
	216	<span class="hiddensect"><% $document->{$col->{attr}} %>???</span>\
	217	% }
	218	% } else {
	219	<span class="hiddensect">NULL</span>\
	220	% }
	221	% } elsif ($col->{type} eq 'status') {
	222	% my $status_map = ref $col->{cases} eq 'ARRAY' ? $col->{cases} : $keeper->default_status();
	223	% my ($doc_status) = grep { $_->[0] eq $document->{$col->{attr}} } @$status_map;
	224	% $doc_status \|\|= [$document->{$col->{attr}}, '��'];
	225	<td nowrap><% $doc_status->[1].'('.$doc_status->[0].')' %>\
	226	% } else {
	227	<td><% defined($document->{$col->{attr}}) ? $document->{$col->{attr}} : ' ' %>\
	228	% }
	229	% }
	230	%
	231	</td>
	232	%
	233	% } #- for @columns
	234	%
	235	</tr>
	236	% } #- foreach @documents
	237	</table>
	238
	239	<div style="font-size:75%; font-family:Arial;">
	240	<& /inc/pages_.msn, p=>$p, n=>$n, total=>$total, href=>'sections.html', params=>\%ARGS, &>
	241	</div>
	242	% } else {
	243	<h4 align="center"><i>---- �� -----</i></h4>
	244	% }
	245	%
	246	% if ($section_access == 2) {
	247	<& "/contenido/components/new_objects_form.msn", proto => 'documents',
	248	sect_id => $owner->id,
	249	default => ($owner->default_document_class ? $owner->default_document_class : $class) &>
	250	% }
	251
	252	</fieldset>
	253	</td>
	254	</tr>
	255	</table>
	256
	257	% }
	258
	259	</body>
	260	</html>
	261	<%args>
	262
	263	$id => 1
	264	$p => 1
	265	$class => undef
	266	$use_section => undef
	267	$alpha => undef
	268	$alpha_search => undef
	269	$search_by => undef
	270	$search => undef
	271
	272	</%args>
	273	<%init>
	274
	275	$id = 0 if $id =~ /\D/;
	276	my $owner;
	277
	278	# ��...
	279	if ($id && ($id > 0))
	280	{
	281	$owner = $keeper->get_section_by_id($id);
	282	}
	283	if (! ref($owner))
	284	{
	285	return undef;
	286	}
	287
	288	$class = $state->{users}->profile_document_class;
	289	# �� ...
	290	my $filter = $m->comp('/contenido/components/context.msn', name => 'filter');
	291	my $profile = $m->comp('/contenido/components/context.msn', name => 'profile');
	292
	293	unless (defined $request->{section_accesses}->{$id})
	294	{
	295	$request->{section_accesses}->{$id} = $user->get_section_access($id);
	296	}
	297	my $section_access = $request->{section_accesses}->{$id};
	298
	299	my (@documents, $total);
	300
	301	my $s = $owner->id;
	302	my $sorted = $owner->_sorted();
	303	$s .= ",$filter" if ($filter > 0);
	304
	305	my %filter=();
	306	my %order = (not $class and $owner->order_by) ? (order_by => $owner->order_by) : (order => ['date','direct']);
	307	if (defined $alpha and $alpha ne '') {
	308	$filter{ilike}=1;
	309	$filter{ $alpha_search \|\| 'name' }="$alpha%";
	310	$order{order}=['name','reverse'];
	311	delete $order{order_by};
	312	}
	313
	314	$filter{class} = $owner->default_document_class if $owner->default_document_class;
	315	$filter{class}=$class if ($class);
	316	$filter{s}=$s unless ($class && !$use_section);
	317	if ( $search_by && $search ) {
	318	$filter{$search_by}='%'.$search.'%';
	319	$filter{ilike} = 1;
	320	}
	321
	322	# ��
	323	if ($owner->filters) {
	324	no strict 'vars';
	325	my $filters = eval($owner->filters);
	326	if ($@) {
	327	warn "Bad filter: " . $owner->filters . " in section " . $owner->id;
	328	} elsif (ref $filters eq 'HASH') {
	329	map { $filter{$_} = $filters->{$_} } keys %$filters;
	330	}
	331	}
	332
	333	$total = $keeper->get_documents(%filter, count=>1);
	334
	335	my $n = 40;
	336	my $first = $n * ($p - 1);
	337	($first,$p)=(0,0) if ($first>$total);
	338
	339	if ($class && !$use_section) {
	340	@documents = $keeper->get_documents(%filter, %order, limit=>$n, offset=>$first, light=>1);
	341	} elsif ($sorted) {
	342	@documents = $keeper->get_sorted_documents(%filter, limit=>$n, offset=>$first, light=>1);
	343	} else {
	344	@documents = $keeper->get_documents(%filter, %order, limit=>$n, offset=>$first, light=>1);
	345	}
	346
	347	# �� ...
	348	my @columns = $sorted ? ({attr => '_sort_', name => 'N'}) : ();
	349
	350	# �� , �� (required_properties -> column)...
	351	if ($filter{class} or @documents and $documents[0]) {
	352	push @columns,
	353	sort {$a->{column} <=> $b->{column}}
	354	grep {$_->{column}} ($filter{class} ? $filter{class}->new($keeper)->structure : $documents[0]->structure);
	355	}
	356
	357	# �� ...
	358	@columns = (@columns,
	359	{attr => '_act_', rusname => '��'},
	360	);
	361	</%init>

koi8/plugins/users/comps/contenido/users/store_document_sections.html


	1	<%ARGS>
	2	$id => undef
	3	$class => undef
	4	</%ARGS>
	5
	6	<%INIT>
	7	if ($id)
	8	{
	9	my $document = $keeper->get_document_by_id($id, class=>$class);
	10
	11	my %sections = ();
	12	foreach my $name (keys %ARGS)
	13	{
	14	if ($name =~ /^section_(\d+)$/)
	15	{
	16	$sections{$1} = 1;
	17	}
	18	}
	19	my @sections_in_order = ();
	20	if ($ARGS{main_section} > 0)
	21	{
	22	delete $sections{ $ARGS{main_section} };
	23	push (@sections_in_order, $ARGS{main_section});
	24	}
	25	push (@sections_in_order, keys(%sections));
	26
	27	$document->sections(@sections_in_order);
	28	$document->store();
	29
	30	$r->header_out("Location", "document.html?id=$id&class=$class");
	31	$r->status(302);
	32	$r->send_http_header();
	33	$m->abort();
	34	}
	35
	36	</%init>

koi8/plugins/users/config.tmpl


	1	#############################################################################
	2	#
	3	# �� config.mk ��
	4	# � ��
	5	#
	6	#############################################################################
	7
	8	PLUGINS += users
	9
	10	PROFILE_DOCUMENT_CLASS = MyProject::Profile
	11	REWRITE += PROFILE_DOCUMENT_CLASS
	12
	13	PROFILE_AUTH_METHOD = LDAP
	14	LDAP_LOGIN = <Full LDAP DSN>
	15	LDAP_PASSWORD = <LDAP Password>
	16	REWRITE += PROFILE_AUTH_METHOD LDAP_LOGIN LDAP_PASSWORD
	17
	18	PROFILE_AUTH_METHOD = RPC
	19	REWRITE += PROFILE_AUTH_METHOD
	20
	21
	22	########################################################################
	23	#
	24	# PROFILE_DOCUMENT_CLASS
	25	# �� users::Profile
	26	# �� . � ��
	27	# ��
	28	# PROFILE_AUTH_METHOD
	29	# �� . �� , ��
	30	# �� . ��: LDAP, RPC
	31	# LDAP_LOGIN � LDAP_PASSWORD
	32	# �� LDAP, � ��
	33	# �� .
	34	#
	35	########################################################################

koi8/plugins/users/lib/users/Apache.pm


	1	package users::Apache;
	2
	3	use strict;
	4	use warnings 'all';
	5
	6	use users::State;
	7	use Contenido::Globals;
	8
	9
	10	sub child_init {
	11	# �� keeper �� keeper ��
	12	$keeper->{users} = users::Keeper->new($state->users);
	13	}
	14
	15	sub request_init {
	16	}
	17
	18	sub child_exit {
	19	}
	20
	21	1;

koi8/plugins/users/lib/users/Init.pm


	1	package users::Init;
	2
	3	use strict;
	4	use warnings 'all';
	5
	6	use Contenido::Globals;
	7	use users::Apache;
	8	use users::Keeper;
	9
	10
	11	# ��
	12	# users::SQL::SomeTable
	13	# users::SomeClass
	14	Contenido::Init::load_classes(qw(
	15	users::SQL::UserProfile
	16
	17	users::UserProfile
	18	users::Section
	19	));
	20
	21	sub init {
	22	push @{ $state->{'available_documents'} }, 'users::UserProfile' if $state->{users}->profile_document_class eq 'users::UserProfile';
	23	push @{ $state->{'available_sections'} }, 'users::Section';
	24	0;
	25	}
	26
	27	1;

koi8/plugins/users/lib/users/Keeper.pm


	1	package users::Keeper;
	2
	3	use strict;
	4	use warnings 'all';
	5	use base qw(Contenido::Keeper);
	6
	7	use Digest::MD5;
	8	use Contenido::Globals;
	9	use Data::Dumper;
	10
	11	# ----------------------------------------------------------------------------
	12	# ��:
	13	# ----------------------------------------------------------------------------
	14	# check_login: ��
	15	#
	16	# login => login ��
	17	# email => email ��
	18	# ----------------------------------------------------------------------------
	19	sub check_login {
	20
	21	my $self = shift;
	22	my %opts = @_;
	23
	24	return if !$opts{login} && !$opts{email};
	25	my $class = $self->state->profile_document_class;
	26	my $res = $keeper->get_documents (
	27	class => $class,
	28	$opts{login} ? (login => $opts{login}) : (),
	29	$opts{email} ? (email => lc($opts{email})) : (),
	30	count => 1,
	31	);
	32	return int($res);
	33	}
	34
	35
	36
	37	# ----------------------------------------------------------------------------
	38	# login: ��
	39	#
	40	# login => login ��
	41	# email => e-mail ��
	42	# passwd => ��
	43	# ----------------------------------------------------------------------------
	44	sub login {
	45
	46	my $self = shift;
	47	my %opts = @_;
	48
	49	return if !($opts{login} \|\| $opts{email}) && !$opts{passwd};
	50	my $passmd5 = Digest::MD5::md5_hex($opts{passwd});
	51	my $class = $self->state->profile_document_class;
	52	my $res = $keeper->get_documents (
	53	class => $class,
	54	$opts{login} ? (login => $opts{login}) : (),
	55	$opts{email} ? (email => lc($opts{email})) : (),
	56	status => [1,2,3,4,5],
	57	return_mode => 'array_ref',
	58	);
	59	$res = ref $res eq 'ARRAY' ? $res->[0] : undef;
	60	return unless ref $res;
	61	# warn "Password = ".$opts{passwd}."; Pass MD5 = $passmd5; user MD5 = ".$res->passwd."\n" if $DEBUG;
	62	if ($res->passwd eq $passmd5 ) {
	63	my $lastlogin = Contenido::DateTime->new ( postgres => $res->lastlogin );
	64	my $now = Contenido::DateTime->new;
	65	my $then = $now->clone;
	66	$then->subtract( hours => 2 );
	67	if ( DateTime->compare($then, $lastlogin) == 1 ) {
	68	$res->lastlogin( $now->ymd('-').' '.$now->hms );
	69	$res->passwd(undef);
	70	$res->store;
	71	$res->lastlogin( $lastlogin->ymd('-').' '.$lastlogin->hms );
	72	}
	73	return $res;
	74	}else{
	75	return;
	76	}
	77
	78	}
	79
	80
	81
	82	# ----------------------------------------------------------------------------
	83	# confirm: ��
	84	#
	85	# login => login ��
	86	# email => e-mail ��
	87	# md5 => MD5 ��
	88	# ----------------------------------------------------------------------------
	89	sub confirm {
	90
	91	my $self = shift;
	92	my %opts = @_;
	93
	94	return if !($opts{login} \|\| $opts{email}) && !$opts{md5};
	95	my $class = $self->state->profile_document_class;
	96	my $res = $keeper->get_documents (
	97	class => $class,
	98	$opts{login} ? (login => $opts{login}) : (),
	99	$opts{email} ? (email => lc($opts{email})) : (),
	100	return_mode => 'array_ref',
	101	);
	102	$res = ref $res eq 'ARRAY' && scalar @$res ? $res->[0] : undef;
	103	return unless ref $res;
	104	warn "MD5 = ".$opts{md5}."; user MD5 = ".$res->passwd."\n" if $DEBUG;
	105	if ($res->passwd eq $opts{md5} ) {
	106	my $now = localtime;
	107	$res->lastlogin( $now );
	108	$res->passwd(undef);
	109	$res->status(1);
	110	$res->store;
	111	return $res;
	112	}else{
	113	return;
	114	}
	115
	116	}
	117
	118
	119
	120	# ----------------------------------------------------------------------------
	121	# get_profile: ��
	122	#
	123	# id => �� ID
	124	# login => �� login
	125	# email => �� e-mail
	126	# nickname=> ��
	127	# status => ��
	128	# ----------------------------------------------------------------------------
	129	sub get_profile {
	130
	131	my $self = shift;
	132	my %opts = @_;
	133
	134	return if !$opts{login} && !$opts{id} && !$opts{email} && !$opts{nickname};
	135	my $class = $self->state->profile_document_class;
	136	my $res = $keeper->get_documents (
	137	class => $class,
	138	%opts,
	139	return_mode => 'array_ref',
	140	);
	141	$res = ref $res eq 'ARRAY' && scalar @$res ? $res->[0] : undef;
	142	return $res;
	143	}
	144
	145	1;

koi8/plugins/users/lib/users/Section.pm


	1	package users::Section;
	2
	3	use Contenido::Section;
	4	@ISA = ('Contenido::Section');
	5
	6	sub extra_properties
	7	{
	8	return (
	9	)
	10	}
	11
	12	sub class_name
	13	{
	14	return '�� ';
	15	}
	16
	17	sub class_description
	18	{
	19	return '�� ';
	20	}
	21
	22
	23	1;

koi8/plugins/users/lib/users/SQL/UserProfile.pm


	1	package users::SQL::UserProfile;
	2
	3	use base 'SQL::DocumentTable';
	4
	5	sub db_table
	6	{
	7	return 'profiles';
	8	}
	9
	10	my $available_filters = [qw(
	11
	12	_class_filter
	13	_status_filter
	14	_in_id_filter
	15	_id_filter
	16	_name_filter
	17	_class_excludes_filter
	18	_sfilter_filter
	19	_excludes_filter
	20	_datetime_filter
	21	_date_equal_filter
	22	_date_filter
	23	_previous_days_filter
	24	_s_filter
	25
	26	_type_filter
	27	_login_filter
	28	_email_filter
	29	_nickname_filter
	30	)];
	31
	32	sub available_filters {
	33	return $available_filters;
	34	}
	35
	36	my @required_properties = (
	37	{ # �� , �� ...
	38	'attr' => 'id',
	39	'type' => 'integer',
	40	'rusname' => '�� ',
	41	'hidden' => 1,
	42	'readonly' => 1,
	43	'auto' => 1,
	44	'db_field' => 'id',
	45	'db_type' => 'integer',
	46	'db_opts' => "not null default nextval('public.documents_id_seq'::text)",
	47	},
	48	{ # �� ...
	49	'attr' => 'class',
	50	'type' => 'string',
	51	'rusname' => '�� ',
	52	'hidden' => 1,
	53	'readonly' => 1,
	54	'db_field' => 'class',
	55	'db_type' => 'varchar(48)',
	56	'db_opts' => 'not null',
	57	},
	58	{ # �.�.�....
	59	'attr' => 'name',
	60	'type' => 'string',
	61	'rusname' => '�.�.�.',
	62	'column' => 2,
	63	'db_field' => 'name',
	64	'db_type' => 'varchar(255)',
	65	},
	66	{ # �� , �� ...
	67	'attr' => 'ctime',
	68	'type' => 'datetime',
	69	'rusname' => '�� ',
	70	'readonly' => 1,
	71	'auto' => 1,
	72	'hidden' => 1,
	73	'db_field' => 'ctime',
	74	'db_type' => 'timestamp',
	75	'db_opts' => 'not null default now()',
	76	'default' => 'CURRENT_TIMESTAMP',
	77	},
	78	{ # �� , �� ...
	79	'attr' => 'mtime',
	80	'type' => 'datetime',
	81	'rusname' => '�� ',
	82	'hidden' => 1,
	83	'auto' => 1,
	84	'db_field' => 'mtime',
	85	'db_type' => 'timestamp',
	86	'db_opts' => 'not null default now()',
	87	'default' => 'CURRENT_TIMESTAMP',
	88	},
	89	{ # ��
	90	'attr' => 'birth',
	91	'type' => 'date',
	92	'rusname' => '�� ',
	93	'db_field' => 'dtime',
	94	'db_type' => 'timestamp',
	95	'default' => 'CURRENT_TIMESTAMP',
	96	},
	97	{ # �� ...
	98	'attr' => 'lastlogin',
	99	'type' => 'datetime',
	100	'rusname' => '�� <sup style="color:#888;"> 1)</sup>',
	101	'column' => 1,
	102	'db_field' => 'lastlogin',
	103	'db_type' => 'timestamp',
	104	'db_opts' => 'not null default now()',
	105	'default' => 'CURRENT_TIMESTAMP',
	106	},
	107	{ # �� , �� ...
	108	'attr' => 'sections',
	109	'type' => 'sections_list',
	110	'rusname' => '��',
	111	'hidden' => 1,
	112	'db_field' => 'sections',
	113	'db_type' => 'integer[]',
	114	},
	115	{ # �� ...
	116	'attr' => 'status',
	117	'type' => 'status',
	118	'rusname' => '�� ',
	119	'db_field' => 'status',
	120	'db_type' => 'integer',
	121	},
	122	{ # ��
	123	'attr' => 'type',
	124	'type' => 'integer',
	125	'rusname' => '�� (project-oriented)',
	126	'db_field' => 'type',
	127	'db_type' => 'integer',
	128	},
	129	{ # ��...
	130	'attr' => 'nickname',
	131	'type' => 'string',
	132	'rusname' => '��',
	133	'column' => 3,
	134	'db_field' => 'nickname',
	135	'db_type' => 'text',
	136	},
	137	{ # Login...
	138	'attr' => 'login',
	139	'type' => 'string',
	140	'rusname' => '��',
	141	'column' => 4,
	142	'db_field' => 'login',
	143	'db_type' => 'text',
	144	},
	145	{ # Login method...
	146	'attr' => 'login_method',
	147	'type' => 'string',
	148	'rusname' => '�� ',
	149	'db_field' => 'login_method',
	150	'db_type' => 'text',
	151	},
	152	{ # E-mail...
	153	'attr' => 'email',
	154	'type' => 'string',
	155	'rusname' => 'E-mail (primary)',
	156	'db_field' => 'email',
	157	'db_type' => 'text',
	158	},
	159
	160	);
	161
	162	# ----------------------------------------------------------------------------
	163	# �� , �� !
	164	# �� - �� .
	165	#
	166	# attr - �� , �� ;
	167	# type - �� , �� ;
	168	# rusname - �� , �� ;
	169	# hidden - �� 1, ��
	170	# readonly - ��
	171	# db_field - ��
	172	# default - �� (�� )
	173	# ----------------------------------------------------------------------------
	174	sub required_properties
	175	{
	176	return @required_properties;
	177	}
	178
	179	########### FILTERS DESCRIPTION ####################################################################################
	180	sub _login_filter {
	181	my ($self,%opts)=@_;
	182	return undef unless ( exists($opts{login}) );
	183	if (exists $opts{ilike} && $opts{ilike} == 1) {
	184	return &SQL::Common::_generic_name_filter('d.login', $opts{login}, 0, \%opts);
	185	}else{
	186	return &SQL::Common::_generic_text_filter('d.login', $opts{login});
	187	}
	188	}
	189
	190	sub _email_filter {
	191	my ($self,%opts)=@_;
	192	return undef unless ( exists($opts{email}) );
	193	if (exists $opts{ilike} && $opts{ilike} == 1) {
	194	return &SQL::Common::_generic_name_filter('d.email', $opts{email}, 0, \%opts);
	195	}else{
	196	return &SQL::Common::_generic_text_filter('d.email', $opts{email});
	197	}
	198	}
	199
	200	sub _nickname_filter {
	201	my ($self,%opts)=@_;
	202	return undef unless ( exists($opts{nickname}) );
	203	if (exists $opts{ilike} && $opts{ilike} == 1) {
	204	return &SQL::Common::_generic_name_filter('d.nickname', $opts{nickname}, 0, \%opts);
	205	}else{
	206	return &SQL::Common::_generic_text_filter('d.nickname', $opts{nickname});
	207	}
	208	}
	209
	210	sub _type_filter {
	211	my ($self,%opts)=@_;
	212	return undef unless ( exists $opts{type} );
	213	return &SQL::Common::_generic_int_filter('d.type', $opts{type});
	214	}
	215
	216	sub _get_orders {
	217	my ($self, %opts) = @_;
	218
	219	if ($opts{order_by}) {
	220	return ' order by '.$opts{order_by};
	221	} else {
	222	return ' order by name ';
	223	}
	224	return undef;
	225	}
	226
	227
	228	1;

koi8/plugins/users/lib/users/State.pm.proto


	1	package users::State;
	2
	3	use strict;
	4	use warnings 'all';
	5	use vars qw($AUTOLOAD);
	6
	7
	8	sub new {
	9	my ($proto) = @_;
	10	my $class = ref($proto) \|\| $proto;
	11	my $self = {};
	12	bless $self, $class;
	13
	14	# ��
	15	$self->{db_type} = 'none';
	16	$self->{db_keepalive} = 0;
	17	$self->{db_host} = '';
	18	$self->{db_name} = '';
	19	$self->{db_user} = '';
	20	$self->{db_password} = '';
	21	$self->{db_port} = '';
	22	$self->{profile_document_class} = '@PROFILE_DOCUMENT_CLASS@' \|\| 'users::UserProfile';
	23
	24	$self->{data_directory} = '';
	25	$self->{images_directory} = '';
	26	$self->{binary_directory} = '';
	27	$self->{preview} = '';
	28	$self->{debug} = '';
	29	$self->{store_method} = '';
	30	$self->{cascade} = '';
	31	$self->{memcached_enable} = '';
	32
	33	$self->_init_();
	34	$self;
	35	}
	36
	37	sub info {
	38	my $self = shift;
	39	return unless ref $self;
	40
	41	for (sort keys %{$self->{attributes}}) {
	42	my $la = length $_;
	43	warn "\t$_".("\t" x (2-int($la/8))).": $self->{$_}\n";
	44	}
	45	}
	46
	47	sub _init_ {
	48	my $self = shift;
	49
	50	# ��
	51	$self->{attributes}->{$_} = 'SCALAR' for qw(
	52	db_type
	53	profile_document_class
	54	db_keepalive
	55	db_host
	56	db_port
	57	db_name
	58	db_user
	59	db_password
	60	data_directory images_directory binary_directory preview debug store_method cascade memcached_enable
	61	);
	62	}
	63
	64	sub AUTOLOAD {
	65	my $self = shift;
	66	my $attribute = $AUTOLOAD;
	67
	68	$attribute =~ s/.*:://;
	69	return unless $attribute =~ /[^A-Z]/; # �� DESTROY
	70
	71	if (!exists $self->{attributes}->{$attribute}) {
	72	warn "Contenido Error (users::State): �� , �� : ->$attribute()\n";
	73	return;
	74	}
	75
	76	$self->{$attribute} = shift @_ if $#_>=0;
	77	$self->{$attribute};
	78	}
	79
	80	1;

koi8/plugins/users/lib/users/UserProfile.pm


	1	package users::UserProfile;
	2
	3	use base "Contenido::Document";
	4	use Digest::MD5;
	5	use Contenido::Globals;
	6
	7	sub extra_properties
	8	{
	9	return (
	10	{ 'attr' => 'status', 'type' => 'status', 'rusname' => '�� ',
	11	'cases' => [
	12	[0, '�� '],
	13	[1, '�� '],
	14	[5, '�� '],
	15	],
	16	},
	17	{ 'attr' => 'visibility', 'type' => 'status', 'rusname' => '�� ',
	18	'cases' => [
	19	[0, '�� '],
	20	[1, '�� '],
	21	[2, '�� '],
	22	[3, '�� '],
	23	],
	24	},
	25	{ 'attr' => 'country', 'type' => 'string', 'rusname' => '��' },
	26	{ 'attr' => 'region', 'type' => 'string', 'rusname' => '��' },
	27	{ 'attr' => 'passwd', 'type' => 'password', 'rusname' => '��', 'rem' => '(<font color="red">�� . �� </font>)' },
	28	{ 'attr' => 'confirm', 'type' => 'string', 'rusname' => '�� ', hidden => 1 },
	29	{ 'attr' => 'secmail', 'type' => 'string', 'rusname' => 'E-mail (secondary)' },
	30	{ 'attr' => 'q1', 'type' => 'string', 'rusname' => '�� 1' },
	31	{ 'attr' => 'a1', 'type' => 'string', 'rusname' => '�� 1' },
	32	{ 'attr' => 'q2', 'type' => 'string', 'rusname' => '�� 2' },
	33	{ 'attr' => 'a2', 'type' => 'string', 'rusname' => '�� 2' },
	34	{ 'attr' => 'account', 'type' => 'string', 'rusname' => '�� ' },
	35	{ 'attr' => 'interests', 'type' => 'text', 'rusname' => '�� ', rows => 10 },
	36	{ 'attr' => 'origin', 'type' => 'text', 'rusname' => '��', rows => 4 },
	37	{ 'attr' => 'avatar', 'type' => 'image', 'rusname' => '��', preview => ['32x32','100x100','120x120','160x160'] },
	38	)
	39	}
	40
	41	sub class_name
	42	{
	43	return '�� ';
	44	}
	45
	46	sub class_description
	47	{
	48	return '�� ';
	49	}
	50
	51
	52	sub class_table
	53	{
	54	return 'users::SQL::UserProfile';
	55	}
	56
	57	sub contenido_status_style
	58	{
	59	my $self = shift;
	60	if ( $self->status == 2 ) {
	61	return 'color:green;';
	62	} elsif ( $self->status == 3 ) {
	63	return 'color:olive;';
	64	} elsif ( $self->status == 4 ) {
	65	return 'color:green;';
	66	} elsif ( $self->status == 5 ) {
	67	return 'color:red;';
	68	}
	69	}
	70
	71	sub pre_store
	72	{
	73	my $self = shift;
	74
	75	my $up = $keeper->get_document_by_id ( $self->id,
	76	class => 'users::UserProfile'
	77	);
	78	if ( (ref $up && $self->passwd && $self->passwd ne $up->passwd) \|\| (!ref $up && $self->passwd) ) {
	79	warn "Pass = ".$self->passwd."\n" if $DEBUG;
	80	my $pass = Digest::MD5::md5_hex($self->passwd);
	81	warn "Pass_hex = $pass\n" if $DEBUG;
	82	$self->passwd($pass);
	83	} elsif ( ref $up && (!$self->passwd \|\| $self->passwd eq $up->passwd ) ) {
	84	$self->passwd($up->passwd);
	85	}
	86	$self->email(lc($self->email));
	87	$self->login(lc($self->login));
	88
	89	my $default_section = $project->s_alias->{users} if ref $project->s_alias eq 'HASH' && exists $project->s_alias->{users};
	90	if ( $default_section ) {
	91	my $sections = $self->{sections};
	92	if ( ref $sections eq 'ARRAY' && scalar @$sections ) {
	93	my @new_sects = grep { $_ != $default_section } @$sections;
	94	push @new_sects, $default_section;
	95	$self->sections(@new_sects);
	96	} elsif ( $sections && !ref $sections && $sections != $default_section ) {
	97	my @new_sects = ($default_section, $sections);
	98	$self->sections(@new_sects);
	99	} else {
	100	$self->sections($default_section);
	101	}
	102	}
	103
	104	return 1;
	105	}
	106	1;

koi8/plugins/users/sql/TOAST/profiles.sql


	1	create table profiles
	2	(
	3	id integer not null primary key default nextval('public.documents_id_seq'::text),
	4	class text not null,
	5	ctime timestamp not null default now(),
	6	mtime timestamp not null default now(),
	7	dtime timestamp,
	8	lastlogin timestamp not null default now(),
	9	status smallint not null default 0,
	10	type integer,
	11	sections integer[],
	12	name text,
	13	nickname text,
	14	login text,
	15	email text,
	16	login_method text default 'local',
	17	data text
	18	);
	19	create index profiles_sections on profiles using gist ( "sections" "gist__int_ops" );
	20	create index profiles_lastlogin on profiles (lastlogin);
	21	create unique index profiles_login on profiles (login);
	22	create unique index profiles_email on profiles (email) where email is not null and email != '';

Repository List / Contenido @ r195

Revision Navigation

Revision 195

Legend:

koi8/plugins/users/comps/contenido/users/autohandler

koi8/plugins/users/comps/contenido/users/components/__section_tree__.msn

koi8/plugins/users/comps/contenido/users/components/find_user.msn

koi8/plugins/users/comps/contenido/users/components/subsection.msn

koi8/plugins/users/comps/contenido/users/components/tasks.msn

koi8/plugins/users/comps/contenido/users/dhandler

koi8/plugins/users/comps/contenido/users/document.html

koi8/plugins/users/comps/contenido/users/document_filter_list.html

koi8/plugins/users/comps/contenido/users/document_links.html

koi8/plugins/users/comps/contenido/users/index.html

koi8/plugins/users/comps/contenido/users/link_frame.html

koi8/plugins/users/comps/contenido/users/links/destination.html

koi8/plugins/users/comps/contenido/users/links/link_add.html

koi8/plugins/users/comps/contenido/users/links/source.html

koi8/plugins/users/comps/contenido/users/links/title.html

koi8/plugins/users/comps/contenido/users/sections.html

koi8/plugins/users/comps/contenido/users/store_document_sections.html

koi8/plugins/users/config.tmpl

koi8/plugins/users/lib/users/Apache.pm

koi8/plugins/users/lib/users/Init.pm

koi8/plugins/users/lib/users/Keeper.pm

koi8/plugins/users/lib/users/Section.pm

koi8/plugins/users/lib/users/SQL/UserProfile.pm

koi8/plugins/users/lib/users/State.pm.proto

koi8/plugins/users/lib/users/UserProfile.pm

koi8/plugins/users/sql/TOAST/profiles.sql