--- register/prgsrc/register.cgi	2001/10/13 23:19:21	1.9
+++ register/prgsrc/register.cgi	2002/01/28 17:00:56	1.10
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/10/13 23:19:21 $
+$Date: 2002/01/28 17:00:56 $
 
 =head1 REVISION
 
-$Revision: 1.9 $
+$Revision: 1.10 $
 
 =cut
 
@@ -45,7 +45,7 @@ my ($SENDMAIL) = "/usr/sbin/sendmail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2001/10/13 23:19:21 $';
+my $date='$Date: 2002/01/28 17:00:56 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -58,7 +58,7 @@ my $dbh = DBI->connect("DBI:mysql:chgk",
 	die "Can't connect to DB chgk\n";
     };
 
-print header;
+print header(-charset=>'koi8-r');
 
 
 ##################################################
@@ -259,6 +259,7 @@ SELECT Name FROM Regions WHERE RID=$args
 
 	# Frist, we print clubs
 	if ($args{'clubs'}) {
+	    $result .= ListRegionURLs(%args);
 	    $result .= ListClubs(%args);
 	}
 	$sth=$args{'dbh'}->prepare("
@@ -287,6 +288,37 @@ SELECT rid FROM Regions WHERE $clause OR
 }
 
 ############################################################
+# List the URLs of a given region
+###########################################################
+sub ListRegionURLs {
+    my %args = @_;
+    my $sth;
+    $sth = $args{'dbh'}->prepare("
+SELECT URL FROM Regions WHERE rid=$args{'rid'} and NOT ISNULL(URL)");
+
+    $sth->execute;
+	
+    if (!$sth->rows) {
+	return "";
+    }
+    
+    my $result;
+	
+    $result=<<END;
+<dl><dt>Странички:</dt>
+<dd><dl>\n
+END
+    
+    while (my ($string)=$sth->fetchrow_array) {
+	$string=htmlize($string);
+	$result .= p($string);
+    }
+    $result .= "</dl></dd></dl>\n";
+    return $result;
+}
+
+
+############################################################
 # List the clubs of a given region or a given association
 ###########################################################
 sub ListClubs {
@@ -735,7 +767,7 @@ sub AddClub {
 # Sending the letter with results
 #####################################################################
 sub SendLetter {
-   open(MAIL,"| $SENDMAIL -t -n");
+   open(MAIL,"| $SENDMAIL -t");
     print MAIL <<END;
 To: $TO
 From: $FROM