This test sub works.... beleive it or not.
Now how do I modify thes 2 lines (#### lines)
I want to show value from sample database and color column for user ID, which comes from url (ie UserID=10, which would pick up right owner of the data, and then we would be able to select the color for example)?
sub just_test {
#-----------------------------------------------------------------------------
#test sub
my $self = shift;
my $test = $self->{cgi}->{from}|| $self->{user}->{'Username'};
######my $test2 = ;###### Modify this line
'Content-type' => 'text/html',
print $self->{in}->header;
print $test; # This here prints Current Username or value passed from url
######print $test2;###### Modify this line
return ('home.html',{
header => $self->_language('HEA_HOME'),
msg => ''
});
}
END_OF_SUB
Now how do I modify thes 2 lines (#### lines)
I want to show value from sample database and color column for user ID, which comes from url (ie UserID=10, which would pick up right owner of the data, and then we would be able to select the color for example)?
Quote:
$COMPILE{just_test} = <<'END_OF_SUB'; sub just_test {
#-----------------------------------------------------------------------------
#test sub
my $self = shift;
my $test = $self->{cgi}->{from}|| $self->{user}->{'Username'};
######my $test2 = ;###### Modify this line
'Content-type' => 'text/html',
print $self->{in}->header;
print $test; # This here prints Current Username or value passed from url
######print $test2;###### Modify this line
return ('home.html',{
header => $self->_language('HEA_HOME'),
msg => ''
});
}
END_OF_SUB