Gtk2-Ex-DbLinker

 view release on metacpan or  search on metacpan

examples/Forms/Sflang2.pm  view on Meta::CPAN

    $self->{sform}->update;
    $value = $self->{sform}->get_widget_value("langid");
    $self->{log}->debug("sf_langues: langid changed $value");

   $self->{data_broker}->query_DM( $self->{sf_list}->get_data_manager, 'grid_data', [$value, $self->{countryid}]);

    $self->{sf_list}->update;

}

sub update_widgets_sensitivity {
     my $self = shift;
     my $rc = $self->{sform}->get_data_manager->row_count;
        $self->{log}->debug("rc ", $rc);
        if ( $rc == 0 ) {
            $self->{dnav}->widgets_set_sensitivity(0);
        }
        else {
            $self->{dnav}->widgets_set_sensitivity(1);
        }

lib/Gtk2/Ex/DbLinker/Datasheet.pm  view on Meta::CPAN

    $self->{ds_helper}->setup_combo(
        fields  => $fields,
        name    => $fieldname,
        col_ref => $col_ref,
        model   => Gtk2::ListStore->new(@liste_def)

    );

}

sub update {
    my ($self) = @_;

    #my ($self, $data) = @_;

    #keep the value of the hash ref by ->{data} unchanged if
    # $data is undef
    #$self->{data} = $data if ($data);
    my $treeview_type = "treeview";
    my $last          = $self->{dman}->row_count;
    $self->{log}->debug( "datasheet query: " . $last . " rows" );

lib/Gtk2/Ex/DbLinker/Form.pm  view on Meta::CPAN

	$data = Rdb::Transaction::Manager->get_transaction(query=> [no_seller => {eq => $current_seller }]);

	$dman = Gtk2::Ex::DbLinker::RdbDataManager->new(data => $data, meta=> Rdb::Transaction->meta);

And keep a reference of this for latter

      $self->{linking_data} = $dman;

If you want to link a new row in the table product with the current seller, create a method that is passed and array of primary key values for the current seller and the new product.

	sub update_linking_table {
	   	my ( $self, $keysref) = @_;
   		my @keys = keys %{$keysref};
		my $f =  $self->{main_form};
		my $dman = $self->{main_abo}->{linking_data};
		$dman->new_row;
		foreach my $k (@keys){
			my $value = ${$keysref}{$k};
			$dman->set_field($k, $value );
		}
		$dman->save;

 view all matches for this distribution
 view release on metacpan -  search on metacpan