foreach $day (@dow) {
      $TestDate = "$year$cur_month$link_num[$day]";
      if ($Event_Hash{$TestDate} && (-s _)) {
         ### URL to display events for a single day.
         $cal_html = "$EVENT_SUM_URL?Qtype=day&";
         $cal_html .= "BegDate=$year$cur_month$link_num[$day]\">";
         s|^$day |$cal_html${day}${end_anchor} |;
         s| $day$| $cal_html${day}${end_anchor}|;
         s| $day | $cal_html${day}${end_anchor} |;
         $cal_html = "$CAL_LIST_URL_AUTH?date=$date\">";
      }
   }
   if (/</) {
      ### URL to display events for the current week
      $Wk_HTML = "$EVENT_SUM_URL?Qtype=week&" .
                 "BegDate=$year$cur_month$link_num[$First_DOW]&" .
                 "EndDate=$year$cur_month$link_num[$Last_DOW]&" .
                 "WeekNo=$CurrentWk\">";
      $output_pub[$current_line] .= "$_ $Wk_HTML" . "w$end_anchor  ";
   } else {
      $output_pub[$current_line] .= "$_    ";
   }

##</code><code>##

if ($Event_Hash{$TestDate} && (-s _)) {