#!/usr/bin/perl

require 'html-sheets.pl';

$base_url="/concentrators";
$fas ="http://www.fas.harvard.edu";

$current_url   = "$base_url/cgi-bin/links.cgi";

$small_image  = "$base_url/images/8060/out.jpg";
$banner_image = "$base_url/images/head_links.jpg";

$doc_title    = "links";
$banner_alt   = "[$doc_title]";

$links = [["$fas/~musicdpt/","harvard music department","official page"],
          ["$fas/~musicdpt/ugradinfo.html","undergraduate requirements"]

          ];
              

print "Content-type:text/html\n\n";

&music_headers;
print <<EOF;
<tr><td colspan=2>
<font face="helvetica, arial" size=-1>
<br>
EOF
  $i=0;
  while ($$links[$i][0]) {
    print qq[<a href="$$links[$i][0]">$$links[$i][1]</a>];
    if ($$links[$i][2]) {
      print ", $$links[$i][2]";
    }
    print "<br>\n";
    $i++
  }
print <<EO_TEXT;

<br>

</font></td></tr></table>
<p>
EO_TEXT

  &text_navbar;
  &html_footer;