[ic] Can not delete item
goh
goh@achieva.com.au
Mon, 2 Oct 2000 17:51:37 +1100
This is a multi-part message in MIME format.
------=_NextPart_000_000D_01C02C99.6956F9A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi, dear all interchange users
I managed to install the latest release 4.5.6 with all the optional =
modules and everything seems working fine.=20
Except that when I tried to delete an item. Can anyone out there tell me =
what is my problem? I got internal server=20
error and the error log shows the following error message:
>
127.0.0.1 c7rFf9By:goh goh [02/October/2000:16:18:35 +1100] construct =
/cgi-bin/construct/admin/item_edit.html=20
Safe: Can't locate object method "import_db" via package =
"Vend::Table::GDBM" at /usr/local/interchange/lib/Vend/
Table/Common.pm line 403.
> delete $Scratch->{ui_location};
> if($CGI->{ui_sequence_edit}) {
> my $doit;
> if($CGI->{item_id_left} =3D~ s/^(.*?),//) {
> $CGI->{item_id} =3D $1;
> $doit =3D 1;
> }
> elsif ($CGI->{item_id_left}) {
> $CGI->{item_id} =3D delete $CGI->{item_id_left};
> delete $CGI->{ui_sequence_edit};
> $doit =3D 1;
> }
> else {
> delete $CGI->{item_id};
> delete $CGI->{ui_sequence_edit};
> }
> return unless $doit;
> $Scratch->{ui_location}
> =3D $Tag->area( {
> href =3D> 'admin/item_edit',
> form =3D> qq{
> item_id=3D$CGI->{item_id}
> item_id_left=3D$CGI->{item_id_left}
> ui_sequence_edit=3D$CGI->{ui_sequence_edit}
> },
> });
> return;
> }
>=20
> return unless $CGI->{item_id};
> return unless delete $CGI->{deleterecords};
> return unless $Tag->if_mm('tables', '=3Dd');
>=20
> delete $Scratch->{ui_location};
> $Config->{NoSearch} =3D '';
> my $tab =3D $CGI->{mv_data_table} or return;
> my $db =3D $Db{$tab};
> if(! $db) {
> $Scratch->{error_message} =3D "<FONT CLASS=3Derror>Error: no =
<B>$tab</B> database.</FONT><BR>";
> $Scratch->{ui_location} =3D "admin/error";
> return;
> }
>=20
> for(grep $_, @{$CGI_array->{item_id}}) {
> $db->delete_record($_)
> or push @errors, $@;
> }
> if(@errors) {
> my $plural =3D @errors > 1 ? 's' : '';
> return "<FONT CLASS=3Derror>Error$plural:<UL><LI>" .
> join ("<LI>", @errors) .
> "</UL></FONT><BR>";
> }
> return;
>=20
>=20
127.0.0.1 c7rFf9By:goh goh [02/October/2000:16:18:35 +1100] construct =
/cgi-bin/construct/admin/item_edit.html Runtime=20
error: Can't call method "open_table" on an undefined value at =
/usr/local/interchange/lib/Vend/Data.pm line 799.
>=20
Thank You
Goh, L.K
------=_NextPart_000_000D_01C02C99.6956F9A0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4134.600" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi, dear all interchange =
users</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV class=3DMsoNormal><SPAN lang=3DEN-US style=3D"mso-ansi-language: =
EN-US"><FONT=20
face=3DArial size=3D2>I managed to install the latest release 4.5.6 with =
all the=20
optional modules and everything seems working fine. </FONT></SPAN></DIV>
<DIV class=3DMsoNormal><SPAN lang=3DEN-US=20
style=3D"mso-ansi-language: EN-US"></SPAN><SPAN lang=3DEN-US=20
style=3D"mso-ansi-language: EN-US"><FONT face=3DArial size=3D2>Except =
that when I=20
tried to delete an item. Can anyone out there tell me what is my =
problem? I got=20
internal server </FONT></SPAN></DIV>
<DIV class=3DMsoNormal><SPAN lang=3DEN-US style=3D"mso-ansi-language: =
EN-US"><FONT=20
face=3DArial><FONT size=3D2>error and the error log shows the following =
error=20
message:</FONT></FONT></SPAN></DIV>
<DIV class=3DMsoNormal><SPAN lang=3DEN-US style=3D"mso-ansi-language: =
EN-US"><FONT=20
face=3DArial><FONT size=3D2></FONT></FONT></SPAN> </DIV>
<DIV class=3DMsoNormal><SPAN lang=3DEN-US style=3D"mso-ansi-language: =
EN-US"><FONT=20
face=3DArial><FONT size=3D2><?xml:namespace prefix =3D o ns =3D=20
"urn:schemas-microsoft-com:office:office" /><o:p><FONT =
size=3D2>></DIV>
<DIV>127.0.0.1 c7rFf9By:goh goh [02/October/2000:16:18:35 +1100] =
construct=20
/cgi-bin/construct/admin/item_edit.html </DIV>
<DIV>Safe: Can't locate object method "import_db" via package=20
"Vend::Table::GDBM" at /usr/local/interchange/lib/Vend/</DIV>
<DIV>Table/Common.pm line 403.</DIV>
<DIV>> delete $Scratch->{ui_location};</DIV>
<DIV>> if($CGI->{ui_sequence_edit}) {</DIV>
<DIV>> my $doit;</DIV>
<DIV>> if($CGI->{item_id_left} =3D~ s/^(.*?),//) {</DIV>
<DIV>> $CGI->{item_id} =3D $1;</DIV>
<DIV>> $doit =3D 1;</DIV>
<DIV>> }</DIV>
<DIV>> elsif ($CGI->{item_id_left}) {</DIV>
<DIV>> $CGI->{item_id} =3D delete $CGI->{item_id_left};</DIV>
<DIV>> delete $CGI->{ui_sequence_edit};</DIV>
<DIV>> $doit =3D 1;</DIV>
<DIV>> }</DIV>
<DIV>> else {</DIV>
<DIV>> delete $CGI->{item_id};</DIV>
<DIV>> delete $CGI->{ui_sequence_edit};</DIV>
<DIV>> }</DIV>
<DIV>> return unless $doit;</DIV>
<DIV>> $Scratch->{ui_location}</DIV>
<DIV>> =3D $Tag->area( {</DIV>
<DIV>> href =3D> 'admin/item_edit',</DIV>
<DIV>> form =3D> qq{</DIV>
<DIV>> item_id=3D$CGI->{item_id}</DIV>
<DIV>> item_id_left=3D$CGI->{item_id_left}</DIV>
<DIV>> ui_sequence_edit=3D$CGI->{ui_sequence_edit}</DIV>
<DIV>> },</DIV>
<DIV>> });</DIV>
<DIV>> return;</DIV>
<DIV>> }</DIV>
<DIV>> </DIV>
<DIV>> return unless $CGI->{item_id};</DIV>
<DIV>> return unless delete $CGI->{deleterecords};</DIV>
<DIV>> return unless $Tag->if_mm('tables', '=3Dd');</DIV>
<DIV>> </DIV>
<DIV>> delete $Scratch->{ui_location};</DIV>
<DIV>> $Config->{NoSearch} =3D '';</DIV>
<DIV>> my $tab =3D $CGI->{mv_data_table} or return;</DIV>
<DIV>> my $db =3D $Db{$tab};</DIV>
<DIV>> if(! $db) {</DIV>
<DIV>> $Scratch->{error_message} =3D "<FONT =
CLASS=3Derror>Error: no=20
<B>$tab</B> database.</FONT><BR>";</DIV>
<DIV>> $Scratch->{ui_location} =3D "admin/error";</DIV>
<DIV>> return;</DIV>
<DIV>> }</DIV>
<DIV>> </DIV>
<DIV>> for(grep $_, @{$CGI_array->{item_id}}) {</DIV>
<DIV>> $db->delete_record($_)</DIV>
<DIV>> or push @errors, $@;</DIV>
<DIV>> }</DIV>
<DIV>> if(@errors) {</DIV>
<DIV>> my $plural =3D @errors > 1 ? 's' : '';</DIV>
<DIV>> return "<FONT =
CLASS=3Derror>Error$plural:<UL><LI>"=20
.</DIV>
<DIV>> join ("<LI>", @errors) .</DIV>
<DIV>> "</UL></FONT><BR>";</DIV>
<DIV>> }</DIV>
<DIV>> return;</DIV>
<DIV>> </DIV>
<DIV>> </DIV>
<DIV>127.0.0.1 c7rFf9By:goh goh [02/October/2000:16:18:35 +1100] =
construct=20
/cgi-bin/construct/admin/item_edit.html Runtime </DIV>
<DIV>error: Can't call method "open_table" on an undefined value at=20
/usr/local/interchange/lib/Vend/Data.pm line 799.</DIV>
<DIV>> </DIV>
<DIV class=3DMsoNormal> </DIV>
<DIV class=3DMsoNormal> </DIV>
<DIV class=3DMsoNormal>Thank You</DIV>
<DIV class=3DMsoNormal> </DIV>
<DIV class=3DMsoNormal>Goh, L.K</DIV>
<DIV=20
class=3DMsoNormal></FONT></o:p></FONT></FONT></SPAN> </DIV></BODY></=
HTML>
------=_NextPart_000_000D_01C02C99.6956F9A0--