Contenido Project

sections.html

385	386
244	244	foreach my $prop ( @props ) {
245	245	my $attr = $prop->{attr};
246	246	my $value = ref $fields && exists $fields->{$attr} ? $fields->{$attr} : undef;
247		if ( $prop->{db_type} eq 'float' ) {
248		for ( $value ) {
249		s/\,/\./;
250		s/^\s+//;
251		s/\s+$//;
	247	if ( exists $prop->{db_type} ) {
	248	if ( $prop->{db_type} eq 'float' ) {
	249	for ( $value ) {
	250	s/\,/\./;
	251	s/^\s+//;
	252	s/\s+$//;
	253	}
	254	if ( $value eq '' ) {
	255	$value = undef;
	256	}
	257	} elsif ( $prop->{db_type} eq 'integer' \|\| $prop->{db_type} eq 'smallint' ) {
	258	$value =~ s/\D//sg if $value;
	259	if ( $value eq '' ) {
	260	$value = undef;
	261	}
252	262	}
253	263	}
254	264	if ( $prop->{type} eq 'checkbox' ) {
…	…
291	301	}
292	302	$m->redirect("sections.html?id=".$id.($return_params ? '&'.$return_params : ''));
293	303	}
	304	if ( $ARGS{move} \|\| $ARGS{link} ) {
	305	my $return_params = join ('&', map { $_.'='.$filter_params{$_} } grep { $_ ne 's' } keys %filter_params );
	306	if ( exists $ARGS{tree} && $ARGS{tree} && $ARGS{tree} != $owner->id ) {
	307	my %updated;
	308	while ( my ($field, $value) = each %ARGS ) {
	309	if ( $field =~ /^update_(\d+)_(\w+)$/ ) {
	310	my $oid = $1;
	311	my $attr = $2;
	312	$updated{$oid}{$attr} = $value;
	313	}
	314	}
	315	my %classes = map { $_->{class} => 1 } values %updated;
	316	my $parent_new = $keeper->get_section_by_id( $ARGS{tree} );
	317	my $document_access = $user->section_accesses($user, $parent_new->id);
	318	if ( $document_access == 2 ) {
	319	foreach my $update_class ( keys %classes ) {
	320	my @ids;
	321	while ( my ($oid, $attr) = each %updated) {
	322	push @ids, $oid if $attr->{class} eq $update_class;
	323	}
	324	my @objects = $keeper->get_documents (
	325	id => \@ids,
	326	class => $update_class
	327	) if @ids;
	328	my ($prop) = grep { $_->{attr} eq 'sections' } $update_class->new( $keeper )->structure;
	329	if ( ref $prop && exists $prop->{db_type} && exists $prop->{db_field} ) {
	330	foreach my $object ( @objects ) {
	331	if ( $prop->{db_type} eq 'integer[]' ) {
	332	my @sections = grep { $_ != $parent_new->id } $object->sections;
	333	if ( @sections && $sections[0] == $owner->id ) {
	334	unshift @sections, $parent_new->id;
	335	} else {
	336	push @sections, $parent_new->id;
	337	}
	338	@sections = grep { $_ == $owner->id } @sections if $ARGS{move};
	339	$object->sections( @sections );
	340	} else {
	341	$object->sections( $parent_new->id );
	342	}
	343	$object->store;
	344	}
	345	}
	346	}
	347	}
	348	}
	349	$m->redirect("sections.html?id=".$id.($return_params ? '&'.$return_params : ''));
	350	}
294	351
295	352	my %filter=();
296	353	my $nothing_found = 0;
…	…
320	377	$filter{$search_by} = int($search);
321	378	} elsif ( ref $prop && ($prop->{type} eq 'pickup' \|\| $prop->{type} eq 'lookup') && $search =~ /\D/ ) {
322	379	my $lookup_opts = $prop->{lookup_opts};
323		if ( ref $lookup_opts && exists $lookup_opts->{class} ) {
	380	if ( ref $lookup_opts && (exists $lookup_opts->{class} \|\| exists $lookup_opts->{table}) ) {
324	381	my $search_field = exists $lookup_opts->{search_by} ? $lookup_opts->{search_by} : 'name';
325	382	my @ids = $keeper->get_documents (
326	383	ids => 1,
327		class => $lookup_opts->{class},
	384	exists $lookup_opts->{class} ? (class => $lookup_opts->{class}) : (table => $lookup_opts->{table}),
328	385	ilike => 1,
329	386	$search_field => '%'.$search.'%',
330	387	);
…	…
372	429	@documents = $keeper->get_documents(%filter, %order, limit=>$n, offset=>$first);
373	430	}
374	431	}
375
376	432	# набор колонок таблицы документов...
377	433	my @columns = $sorted ? ({attr => '_sort_', name => 'N'}) : ();
378	434

Repository List / Contenido / utf8 / core / comps / contenido / sections.html @ HEAD

sections.html

Небольшая справка по веткам