view release on metacpan or  search on metacpan

lib/Apache/SdnFw/lib/Core.pm  view on Meta::CPAN

 $s->update_and_log(
 	table => tablename,
	idfield => idfield,
	object => object,
	id => id,
	existing => \%hash,
	update => \%hash);

=cut 

sub update_and_log {
	my $s = shift;
	my %args = @_;

	croak "Missing table" unless($args{table});
	croak "Missing idfield" unless($args{idfield});
	croak "Missing object" unless($args{object});
	croak "Missing id" unless($args{id});
	croak "Missing existing" unless(defined($args{existing}));
	croak "Missing update" unless(defined($args{update}));

lib/Apache/SdnFw/lib/Core.pm  view on Meta::CPAN

				}
			}
		}
	}

	$s->{dbh}->commit;

	$s->{redirect} = "$s->{ubase}/$s->{object}/display?$s->{o}{id}=$s->{in}{$s->{o}{id}}";
}

sub update_lookup_table {
	my $s = shift;
	my %args = @_;

	$args{in_regex} = $args{table} unless($args{in_regex});

	my %existing;
	my ($k1,$k2);
	if ($args{id} =~ m/^(.+):(.+)$/) {
		$k1 = $1;
		$k2 = $2;