Diff for /loncom/homework/edit.pm between versions 1.32 and 1.33

version 1.32, 2002/03/22 20:05:19 version 1.33, 2002/03/28 22:03:21
Line 165  sub get_insert_list { Line 165  sub get_insert_list {
     }      }
   }    }
   if (@tagnums) {    if (@tagnums) {
       my %options;
     foreach my $tagnum (@tagnums) {      foreach my $tagnum (@tagnums) {
       $result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tagnum.description"}."</option>\n";        my $descrip=$Apache::lonxml::insertlist{"$tagnum.description"};
         $options{$descrip} ="<option value=\"$tagnum\">".$descrip."</option>\n";
     }      }
       foreach my $option (sort(keys(%options))) { $result.=$options{$option}; }
     if ($result) { $result='<option selected="on"></option>'.$result; }      if ($result) { $result='<option selected="on"></option>'.$result; }
   }    }
   return $result;    return $result;

Removed from v.1.32  
changed lines
  Added in v.1.33


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>