From: <mr_...@us...> - 2004-01-13 12:26:03
|
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, |