Does anyone know the trick to send first-timers, who just created their accounts successfully, to "add" immediately but not the "Main Menu"?
Thx!!
Thx!!
Apr 20, 1999, 5:42 AM
Veteran / Moderator (8669 posts)
Apr 20, 1999, 5:42 AM
Post #2 of 10
Views: 3639
Yep.
The easiest way is if you have the $db_key set to the userid field. If so, add this to the beginning of html_home:
unless (%rec) {
&html_add_form;
return;
}
If you don't have the $db_key set to the userid field, let me know and I'll give you the other code.
------------------
JPD
The easiest way is if you have the $db_key set to the userid field. If so, add this to the beginning of html_home:
Code:
&get_record($db_userid); unless (%rec) {
&html_add_form;
return;
}
If you don't have the $db_key set to the userid field, let me know and I'll give you the other code.
------------------
JPD
Apr 20, 1999, 1:09 PM
User (324 posts)
Apr 20, 1999, 1:09 PM
Post #3 of 10
Views: 3618
My $db_key = 'ID';
I'd be interested in that other code. Thanks!
I'd be interested in that other code. Thanks!
Apr 20, 1999, 11:03 PM
Veteran / Moderator (8669 posts)
Apr 20, 1999, 11:03 PM
Post #4 of 10
Views: 3629
So users can add more than one record?
Okay. This also goes at the beginning of html_home.
my ($status, @hits) = &query("mod");
unless ($status eq 'ok') {
&html_add_form;
return;
}
Be sure to change the Userid to the exact name of your field that holds the user id.
------------------
JPD
[This message has been edited by JPDeni (edited April 22, 1999).]
Okay. This also goes at the beginning of html_home.
Code:
$in{'Userid'} = $db_userid; my ($status, @hits) = &query("mod");
unless ($status eq 'ok') {
&html_add_form;
return;
}
Be sure to change the Userid to the exact name of your field that holds the user id.
------------------
JPD
[This message has been edited by JPDeni (edited April 22, 1999).]
Apr 21, 1999, 1:03 AM
Novice (19 posts)
Apr 21, 1999, 1:03 AM
Post #5 of 10
Views: 3617
I have $db_key='ID'. Now I have your trick in the html.pl. It works great! Now there should be less confusion for first-timers.
I really appreciate your help!
I really appreciate your help!
Apr 29, 1999, 1:39 PM
User (324 posts)
Apr 29, 1999, 1:39 PM
Post #6 of 10
Views: 3612
JPDeni,
This mod does work nicely.
my ($status, @hits) = &query("mod");
unless ($status eq 'ok') { &html_add_form; return;}
However after much troubleshooting, I found that it causes errors in my database file. Some side effects are: other count routines don't count very well. And when I try to import the file into access, I can see a thick black line between records. This wierd character is causing the errors.
I've tried used Edit Plus to strip any trailing spaces, I've saved it as Unix format, I've uploaded it numerous times in ascii mode, but the db file is just messed up. I have repeated the experiment by starting with fresh 0 byte db files and it happens when I add a record with this 3 line code.
If the code is #rem'ed out, I have no problems. Is the file being written to improperly, not closed, are these the control ^m's I hear about ? Any ideas ?
BTW, if I rem out this line:
$in{'Userid'} = $db_userid;
The file corruption stops, but then the code doesn't do it's job, because it takes everyone to &html_add_form.
Any ideas ?
This mod does work nicely.
Code:
$in{'Userid'} = $db_userid; my ($status, @hits) = &query("mod");
unless ($status eq 'ok') { &html_add_form; return;}
However after much troubleshooting, I found that it causes errors in my database file. Some side effects are: other count routines don't count very well. And when I try to import the file into access, I can see a thick black line between records. This wierd character is causing the errors.
I've tried used Edit Plus to strip any trailing spaces, I've saved it as Unix format, I've uploaded it numerous times in ascii mode, but the db file is just messed up. I have repeated the experiment by starting with fresh 0 byte db files and it happens when I add a record with this 3 line code.
If the code is #rem'ed out, I have no problems. Is the file being written to improperly, not closed, are these the control ^m's I hear about ? Any ideas ?
BTW, if I rem out this line:
$in{'Userid'} = $db_userid;
The file corruption stops, but then the code doesn't do it's job, because it takes everyone to &html_add_form.
Any ideas ?
Apr 29, 1999, 4:04 PM
Veteran / Moderator (8669 posts)
Apr 29, 1999, 4:04 PM
Post #7 of 10
Views: 3629
Hmmmm. Well, if that line is causing problems, maybe if you undefine the variable afterwards it'll fix things.
my ($status, @hits) = &query("mod");
undef %in;
unless ($status eq 'ok') { &html_add_form; return;}
I've never had any trouble with the code, so I'm not sure what's going on, but from what you said it seems that the $in{'Userid'} is the problem.
BTW, I really appreciate your doing some debugging to find out what's happening and being so descriptive. It really helps me help you.
------------------
JPD
Code:
$in{'Userid'} = $db_userid; my ($status, @hits) = &query("mod");
undef %in;
unless ($status eq 'ok') { &html_add_form; return;}
I've never had any trouble with the code, so I'm not sure what's going on, but from what you said it seems that the $in{'Userid'} is the problem.
BTW, I really appreciate your doing some debugging to find out what's happening and being so descriptive. It really helps me help you.
------------------
JPD
Apr 30, 1999, 7:57 PM
User (324 posts)
Apr 30, 1999, 7:57 PM
Post #8 of 10
Views: 3623
Yep the
undef %in;
fixed it! Thanks a million again !
undef %in;
fixed it! Thanks a million again !
Apr 30, 1999, 9:41 PM
User (85 posts)
Apr 30, 1999, 9:41 PM
Post #9 of 10
Views: 3617
This mod works fine except for logging on as an admin. Then I automatically go to add every time. Any way to get to the main menu if you are an admin but go to add if you are a first time logon?
May 1, 1999, 11:41 AM
Veteran / Moderator (8669 posts)
May 1, 1999, 11:41 AM
Post #10 of 10
Views: 3609
Stick the whole thing in an "unless" statement.
$in{'Userid'} = $db_userid;
my ($status, @hits) = &query("mod");
undef %in;
unless ($status eq 'ok') {
&html_add_form;
return;
}
}
------------------
JPD
Code:
unless ($per_admin) { $in{'Userid'} = $db_userid;
my ($status, @hits) = &query("mod");
undef %in;
unless ($status eq 'ok') {
&html_add_form;
return;
}
}
------------------
JPD