Final commits for enhanced Ack changes

diff --git a/src/www-spong.pl b/src/www-spong.pl
index 94dff38a866d666d4aae782b4d8a22419e95655c..0124e54e29238aeedd56593c3569e0c4e1a72b14 100755 (executable)
--- a/src/www-spong.pl
+++ b/src/www-spong.pl
@@ -12,7 +12,7 @@
 # (3) Re-did as a client which gets info from the spong-server (07/24/1997)
 # (4) Did a whole bunch of stuff (Ed Hill, 06/18/1998)
 #
-# $Id: www-spong.pl,v 1.20 2001/04/17 02:58:12 sljohnson Exp $
+# $Id: www-spong.pl,v 1.21 2003/01/29 23:00:12 sljohnson Exp $
 
 use Sys::Hostname;
 use Getopt::Long;
@@ -226,7 +226,13 @@ sub ovinteractive {
    print "<frameset cols=\"240,*\" border=5 frameboard=no>";
    print "<frame src=\"$main::WWWSPONG/ovcommands/\" marginwidth=5 ";
    print "marginheight=5 noshade>\n";
-   print "<frame src=\"$main::WWWSPONG/igrp-summary/\" marginwidth=10 ";
+
+   if ($main::WWW_OVERVIEW == 1) {
+      print "<frame src=\"$main::WWWSPONG/igrp-overview/\" marginwidth=10 ";
+   } else {
+      print "<frame src=\"$main::WWWSPONG/igrp-summary/\" marginwidth=10 ";
+   }
+
    print "marginheight=5 noshade name=\"right\" border=1>\n";
    print "</frameset>\n";
    print "<noframe>\n";
@@ -281,7 +287,7 @@ sub commands {
    }
    print "<hr>\n";
 
-   print "<a href=\"$main::WWWACK\">Ack</a> || \n"; 
+   print "<a href=\"$main::WWWACK/$group\">Ack</a> || \n"; 
    print "<a href=\"$me/isummary/$group\">Summary</a> || \n"; 
    print "<a href=\"$me/ihistory/$group\">History</a> || \n"; 
    print "<a href=\"$me/help\">Help</a>\n";