diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 43664a135..abde61941 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -1,7 +1,7 @@ 7.0.2 - fix: upgrade from 6.99.4-6.99-5 can fail if site contains groups tied to ldap with no users in it. - GroupText macro returns an error message if it can't find the group by the name the user supplies. - + - fix: Unable to remove databaselinks (Thanks to misja) 7.0.1 - fix: User profile field "Department" needs i18n diff --git a/lib/WebGUI/Operation/DatabaseLink.pm b/lib/WebGUI/Operation/DatabaseLink.pm index 395980372..e08c23357 100644 --- a/lib/WebGUI/Operation/DatabaseLink.pm +++ b/lib/WebGUI/Operation/DatabaseLink.pm @@ -98,7 +98,7 @@ user is not in group Admin (3). sub www_deleteDatabaseLink { my $session = shift; return $session->privilege->insufficient unless ($session->user->isInGroup(3)); - return $session->privilege->vitalComponent if ($session->form->process("dlid") == 0); + return $session->privilege->vitalComponent if ($session->form->process("dlid") eq '0'); my $i18n = WebGUI::International->new($session); my ($output); $output .= $i18n->get(988).'
'; @@ -124,7 +124,7 @@ Returns the user to the List Database Links screen. sub www_deleteDatabaseLinkConfirm { my $session = shift; return $session->privilege->insufficient unless ($session->user->isInGroup(3)); - return $session->privilege->vitalComponent if ($session->form->process("dlid") == 0); + return $session->privilege->vitalComponent if ($session->form->process("dlid") eq '0'); WebGUI::DatabaseLink->new($session,$session->form->process("dlid"))->delete; return www_listDatabaseLinks($session);