Revision Navigation

Revision 778

Date:

2019/06/21 13:15:43

Author:

ahitrov

Revision Log:

Temp commit for object store method

Files:

/utf8/core/lib/Contenido/Object.pm (Diff) (Checkout)

Legend:

: Added
: Removed
: Modified

utf8/core/lib/Contenido/Object.pm


491	491	#
492	492	# Если $id задан то мы считаем, что этот объект в базе есть. Если
493	493	# не задан, то мы считаем, что этого объекта в базе нет и создаем его.
	494	# Если необходимо взять контроль над INSERT-UPDATE, следует передать
	495	# hashref с параметром mode => 'update\|insert'
494	496	# ----------------------------------------------------------------------------
495	497	sub store {
496	498	my $self = shift;
…	…
500	502
501	503	return undef if ($self->keeper->state->readonly());
502	504
	505	my $params = shift // {};
	506	my $store_mode = lc($params->{method} \|\| '');
	507	$store_mode = '' if $store_mode && !($store_mode eq 'insert' \|\| $store_mode eq 'update');
	508
503	509	$self->keeper->t_connect() \|\| do { $self->keeper->error(); return undef; };
504	510	$self->{status} \|\|= 0; # Значение статуса по умолчанию = 0
505	511
…	…
570	576
571	577
572	578	my $values_string = '';
573		my $mode = 'update';
574		if ($self->id()) {
	579	my $mode = $store_mode \|\| 'update';
	580	if ($mode eq 'update' && $self->id()) {
575	581	if (@fields) {
576	582	$values_string = join(' = ?, ', @fields).' = ?';
577	583	$values_string .= ', '.join(', ', @default_pairs) if (@default_pairs);
…	…
621	627	}
622	628	$sth->finish();
623	629
624		my $id = $self->keeper->TSQL->selectrow_array("SELECT currval('".$self->class_table->db_id_sequence()."')");
625		$self->id($id);
626		return $self->t_abort("Документу присвоен неверный идентификатор") if (! defined($self->{id}) \|\| ($self->{id} <= 0));
	630	unless ( $self->id ) {
	631	my $id = $self->keeper->TSQL->selectrow_array("SELECT currval('".$self->class_table->db_id_sequence()."')");
	632	$self->id($id);
	633	return $self->t_abort("Документу присвоен неверный идентификатор") if (! defined($self->{id}) \|\| ($self->{id} <= 0));
	634	}
627	635
628	636	if (($self->keeper->store_method() ne 'toast') and $self->class_table->have_extra and !$self->{__light}) {
629	637	$self->store_extras(mode => $mode) \|\| return $self->t_abort();

Repository List / Contenido @ r778

Revision Navigation

Revision 778

Legend:

utf8/core/lib/Contenido/Object.pm

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