[Stud-cvs] stud admin_booking,1.25,1.26

[<mr_...@us...>]

Update of /cvsroot/stud/stud
In directory sc8-pr-cvs1:/tmp/cvs-serv25089

Modified Files:
	admin_booking 
Log Message:
RFE:874373. Added mail-link to all club responsibles on top admin page

Index: admin_booking
===================================================================
RCS file: /cvsroot/stud/stud/admin_booking,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** admin_booking	11 Jan 2004 12:04:07 -0000	1.25
--- admin_booking	13 Jan 2004 12:26:00 -0000	1.26
***************
*** 240,243 ****
--- 240,244 ----
  sub main_menu () {
    my ($clubs);
+   my $clubRespMail = "";
    
    $clubs = $db->get_clubs_hash();
***************
*** 264,267 ****
--- 265,272 ----
  				-labels => {$_ => ""} ),
        "</td></tr>\n";
+     my $val = $db->get_club_info($_);
+     if ($$val{'responsible_email'}) {
+       $clubRespMail .= ($clubRespMail ? "," : "").$$val{'responsible_email'};
+     }
    }
      print
***************
*** 276,279 ****
--- 281,285 ----
    
    print
+     "<a href=\"mailto:", $clubRespMail, "\">Send mail to all club responsibles</a>",
      &render_toolbox("", "", 0, 0, 0, 0, 0, 0),
      $page_footer,