RE: create bug?

[prev] [thread] [next] [Date index for 2005/02/16]

My package NAC::ScanInterface has a method

sub get_data_for_new {
  my ($self) =3D @_;
  my @columns =3D ("snmpid", "name", "ipnetmask", "fk_device", =
"fk_line", "port", "description", "speed", "snmpid_rtt", "type", "mtu", =
"ipaddr");

  my %data;
  @data{@columns} =3D $self->get(@columns);

  return %data;
}

I didn't find a better solution for this.

-Alex

-----Urspr=FCngliche Nachricht-----
Von: Perrin Harkins [mailto:perrin@xxxx.xxx]=20
Gesendet: Mittwoch, 16. Februar 2005 14:47
An: Hartmaier Alexander
Cc: DBI maillist
Betreff: Re: create bug?

Hartmaier Alexander wrote:
> [$ sub new_interface_from_scan $]
>=20
>   [-
>=20
>     $newport     =3D $_[0];
>=20
>     $monitor     =3D $_[1];
>=20
>     $retpage     =3D $_[2];
>=20
> =20
>=20
>     $obj_scanint =3D NAC::ScanInterface->retrieve($newport);
>=20
> =20
>=20
>     %data =3D $obj_scanint->get_data_for_new();;
>=20
>     $data{'fk_monitor'} =3D $monitor;
>=20
>   -]
>=20
>   [$ if ($obj_scanint->line) $]
>=20
>     [-
>=20
>       $obj_int =3D NAC::Interface->create(\%data);

What's in %data here?  Is that data showing up in the database=20
afterward?  You need to debug a little more so you can tell us where the =

failure is.

- Perrin