JPD,
Thank you for your many programming attributes. This mod is working for me at the admin level and I would like it to work at the user id level as well. This is how I have it working now; a user who has already "Scheduled" an appointment clicks a &html_browse_month routine which allows for a month selection, which looks like this
<a href="$db_script_link_url&BookMon=Oct&browse_appt=1"><$font2>Oct</a>, for the month of "Oct". When a month is selected, a new page is displayed, which browses by date and shows the number of appointments scheduled on that date (1 to 31 until I can figure out Feb) with a link to the view_records sub routine. At the same time I call another browse subroutine for the "Times" an appointment was scheduled by date. Also, I call another subroutine, which browses status levels of the appointments and provides a count on status levels. Following are the three browsing sub routine called for the scheduled appointment by month listing;
sub html_browse_dates {
# --------------------------------------------------------
$BookDate_number = 199;
$ConInqStat_number = 162;
$BookMon_number = 195;
for ($i = 0; $i <= $#db_cols; $i++) {
if ($db_cols[$i] eq "BookDate" ) {
$fieldnum = $i; $found = 1;
last;
}
}
sub html_browse_times {
# --------------------------------------------------------
$BookDate_number = 199;
$ConAppTime_number = 160;
$ConInqStat_number = 162;
$BookMon_number = 195;
open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB> ) {
next if /^#/;
next if /^\s*$/;
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
if ($fields[$BookMon_number] =~ /^$in{'BookMon'}/i) {
$counter_name2 = $fields[$ConInqStat_number];
$counter_name = $fields[$BookDate_number] . $fields[$ConAppTime_number];
++$count2{$counter_name2};
if ($fields[$ConInqStat_number] eq "Scheduled"){
++$count{$counter_name};
}
if (!(grep $_ eq $fields[$ConAppTime_number], @{$Times{$fields[$BookDate_number]}})) {
push (@{$Times{$fields[$BookDate_number]}}, $fields[$ConAppTime_number]);
}
if (!(grep $_ eq $fields[$BookDate_number], @Dates)) {
push (@Dates, $fields[$BookDate_number]);
}
}
}
close DB;
print "<table border=1><tr valign=top>";
foreach $BookDate (sort @Dates) {
print "<td><$font>$BookDate</font></td>";
}
print "</tr><tr>";
foreach $BookDate (sort @Dates) {
print "<td valign=top>";
$BookDate_url=&urlencode($BookDate);
foreach $ConAppTime (sort @{$Times{$BookDate}}) {
$ConAppTime_url = &urlencode($ConAppTime);
$counter_name = $BookDate . $ConAppTime;
print qq|<$font0><a href="$db_script_link_url&view_records=1&ConInqStat=Scheduled&sb=160&ConAppTime=$ConAppTime_url&BookDate=$BookDate_url">$ConAppTime</a >($count{$counter_name})</font><BR>|;
}
print "</td>";
}
print "</tr></table>";
print qq|</font>|;
}
sub html_browse_status {
# --------------------------------------------------------
$BookDate_number = 199;
$ConInqStat_number = 162;
$BookMon_number = 195;
open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB> ) {
next if /^#/;
next if /^\s*$/;
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
if ($fields[$BookMon_number] =~ /^$in{'BookMon'}/i) {
$counter_name = $fields[$BookDate_number] . $fields[$ConInqStat_number];
++$count{$counter_name};
if (!(grep $_ eq $fields[$ConInqStat_number], @{$Status{$fields[$BookDate_number]}})) {
push (@{$Status{$fields[$BookDate_number]}}, $fields[$ConInqStat_number]);
}
if (!(grep $_ eq $fields[$BookDate_number], @Dates)) {
push (@Dates, $fields[$BookDate_number]);
}
}
}
close DB;
print "<table border=1><tr valign=top>";
foreach $BookDate (sort @Dates) {
print "<td><$font>$BookDate</font></td>";
}
print "</tr><tr>";
foreach $BookDate (sort @Dates) {
print "<td valign=top>";
$BookDate_url=&urlencode($BookDate);
foreach $ConInqStat (sort @{$Status{$BookDate}}) {
$ConInqStat_url = &urlencode($ConInqStat);
$counter_name = $BookDate . $ConInqStat;
print qq|<$font0><a href="$db_script_link_url&view_records=1&sb=160&ConInqStat=$ConInqStat_url&BookDate=$BookDate_url">$ConInqStat</a>($count{$counter_ name})</font><BR>|;
}
print "</td>";
}
print "</tr></table></font>";
}
if ($found) {
open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason
: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB> ) {
next if /^#/;
next if /^\s*$/;
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
if ($fields[$BookMon_number] =~ /^$in{'BookMon'}/i) {
$counter_name3 = $fields[$ConInqStat_number];
++$count3{$counter_name3};
if ($fields[$ConInqStat_number] eq "Scheduled"){
++$count{$fields[$fieldnum]};
}
if (!(grep $_ eq $fields[$fieldnum], @selectfields)) {
push (@selectfields, $fields[$fieldnum]);
}
}
}
close DB;
@options = split (/\,/, $db_select_fields{'BookDate'});
foreach $option (sort @options) {
$date_link=&urlencode($option);
unless ($count{$option}) {
$count{$option} = '0';
}
print qq|
<a href="$db_script_link_url&ConInqStat=Scheduled&sb=160&BookDate=$date_link&view_records=1"><$font>$option</a>
($count{$option}) </font>
|;
}
}
}
After all that, when logged in as a user with view/mod own only permisions, when I hit the month link the next page displays all records instead of only the user records.
Also, it would be really nice if I could loop the browse_times sub so that it lists maybe five or so days horizontally, creates a new row and then lists 5 or so days again and so on; instead of listing all 31 days in one row. This would also apply to the browse_status subroutine.
Many thanks in advance
