Hi Pugdog..long time since I've talked with you!
Thanks for the reply! I went into modify.pm and went to the subroutine
sub _modify_passed_in {
# --------------------------------------------------------
# Display link that was passed in.
#
my ($name, $category);
my $lid = $IN->param('LinkID');
my $link_db = $DB->table('Links');
my $sth = $link_db->select ( { ID => $lid, LinkOwner => $USER->{Username} });
if ($sth->rows) {
And made changes as such:
sub _modify_passed_in {
# --------------------------------------------------------
# Display link that was passed in.
#
my ($name, $category);
my $lid = $IN->param('LinkID');
my $link_db = $DB->table('Links');
if ( $USER->{'Status'} eq 'Editor') { $sth = $link_db->select ( { ID => $lid });
}
else {
$sth = $link_db->select ( { ID => $lid, LinkOwner => $USER->{Username} });
}
For whatever reason, though I get a 500 error. I'm not going to worry about validation as they are automatically validated by registered users. It's basically just for project management tasks. I thought a simple solution might be easily accessible rather than customizing the browser editor to what I want.
Thanks again for your help,
Perl Hopefull
Thanks for the reply! I went into modify.pm and went to the subroutine
Code:
sub _modify_passed_in {
# --------------------------------------------------------
# Display link that was passed in.
#
my ($name, $category);
my $lid = $IN->param('LinkID');
my $link_db = $DB->table('Links');
my $sth = $link_db->select ( { ID => $lid, LinkOwner => $USER->{Username} });
if ($sth->rows) {
And made changes as such:
Code:
sub _modify_passed_in {
# --------------------------------------------------------
# Display link that was passed in.
#
my ($name, $category);
my $lid = $IN->param('LinkID');
my $link_db = $DB->table('Links');
if ( $USER->{'Status'} eq 'Editor') { $sth = $link_db->select ( { ID => $lid });
}
else {
$sth = $link_db->select ( { ID => $lid, LinkOwner => $USER->{Username} });
}
For whatever reason, though I get a 500 error. I'm not going to worry about validation as they are automatically validated by registered users. It's basically just for project management tasks. I thought a simple solution might be easily accessible rather than customizing the browser editor to what I want.
Thanks again for your help,
Perl Hopefull
