Hi,
I use the following code in my Home.pm, I used "profile_form.html" posted by STONE and I just added a submit button to the form. Now When I do "do=profile_form" I get my page an error message: Unknow tag Username....
Then I push the submit button after completing the form and I get: "Invalid Action" message.
Anyone could help to set this script to work correctly?
$COMPILE{profile_form} = <<'END_OF_SUB';
sub profile_form {
#------------------------------------------------------------------------
# Profile form
#
my($self,$msg) = @_;
return ('profile_form.html', {
msg => $self->_language('MSG_PROFILE'),
header => $self->_language('HEA_PROFILE')
});
}
END_OF_SUB
$COMPILE{profile} = <<'END_OF_SUB';
sub profile {
#------------------------------------------------------------------------
# Modify profile (custom)
#
my $self = shift;
my $user_tab = $self->{cfg}->{'user_table_use'};
my $db = $self->{sql}->table($user_tab);
my $cols = $db->cols;
my $req = {};
my $opt = {};
foreach my $c ( keys %$cols ) {
next if ( ! $self->{cgi}->{'req_'.$c} );
next if ( $c =~ /^(Username|Status|ReceiveMail|Newsletter|view_p|add_p|delete_p|modify_p|admin_p)/ );
$req->{$c} = $self->{cgi}->{"req_$c"};
}
$db->update($req, { 'Username' => $self->{user}->{Username} }) if ( $req );
foreach my $d ( keys %$cols ) {
next if ( $d =~ /^(Username|Status|ReceiveMail|Newsletter|view_p|add_p|delete_p|modify_p|admin_p)/ );
$opt->{$d} = $self->{cgi}->{"opt_$d"} if (defined $self->{cgi}->{"opt_$d"});
}
$db->update($opt, { 'Username' => $self->{user}->{Username} }) if ( $opt );
$self->auth_logging('profile change ') if ( $self->{cfg}->{log_file} );
return ('profile_form.html', {
msg => $self->_language('MSG_PROFILE_OK'),
header => $self->_language('HEA_HOME')
});
}
END_OF_SUB
Thank you
Ali
Ali
I use the following code in my Home.pm, I used "profile_form.html" posted by STONE and I just added a submit button to the form. Now When I do "do=profile_form" I get my page an error message: Unknow tag Username....
Then I push the submit button after completing the form and I get: "Invalid Action" message.
Anyone could help to set this script to work correctly?
$COMPILE{profile_form} = <<'END_OF_SUB';
sub profile_form {
#------------------------------------------------------------------------
# Profile form
#
my($self,$msg) = @_;
return ('profile_form.html', {
msg => $self->_language('MSG_PROFILE'),
header => $self->_language('HEA_PROFILE')
});
}
END_OF_SUB
$COMPILE{profile} = <<'END_OF_SUB';
sub profile {
#------------------------------------------------------------------------
# Modify profile (custom)
#
my $self = shift;
my $user_tab = $self->{cfg}->{'user_table_use'};
my $db = $self->{sql}->table($user_tab);
my $cols = $db->cols;
my $req = {};
my $opt = {};
foreach my $c ( keys %$cols ) {
next if ( ! $self->{cgi}->{'req_'.$c} );
next if ( $c =~ /^(Username|Status|ReceiveMail|Newsletter|view_p|add_p|delete_p|modify_p|admin_p)/ );
$req->{$c} = $self->{cgi}->{"req_$c"};
}
$db->update($req, { 'Username' => $self->{user}->{Username} }) if ( $req );
foreach my $d ( keys %$cols ) {
next if ( $d =~ /^(Username|Status|ReceiveMail|Newsletter|view_p|add_p|delete_p|modify_p|admin_p)/ );
$opt->{$d} = $self->{cgi}->{"opt_$d"} if (defined $self->{cgi}->{"opt_$d"});
}
$db->update($opt, { 'Username' => $self->{user}->{Username} }) if ( $opt );
$self->auth_logging('profile change ') if ( $self->{cfg}->{log_file} );
return ('profile_form.html', {
msg => $self->_language('MSG_PROFILE_OK'),
header => $self->_language('HEA_HOME')
});
}
END_OF_SUB
Thank you
Ali
Ali