loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.33, 2002/04/22 18:04:19
+version 1.34, 2002/04/23 21:00:01
  Line 149  BEGIN {
  ###############################################################
  ##        Home server <option> list generating code          ##
  ###############################################################
+ sub get_domains {
+     # The code below was stolen from "The Perl Cookbook", p 102, 1st ed.
+     my @domains;
+     my %seen;
+     foreach (sort values(%Apache::lonnet::hostdom)) {
+         push (@domains,$_) unless $seen{$_}++;
+     }
+     return @domains;
+ }
+ sub select_dom_form {
+     my ($defdom,$name) = @_;
+     my @domains = get_domains();
+     my $selectdomain = "<select name=\"$name\" size=\"1\">\n";
+     foreach (@domains) {
+         $selectdomain.="<option value=\"$_\" ".
+             ($_ eq $defdom ? 'selected' : '').
+                 ">$_</option>\n";
+     }
+     $selectdomain.="</select>";
+     return $selectdomain;
+ }
  sub get_home_servers {
      my $domain = shift;
      my %home_servers;