[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.504 and 1.506

version 1.504, 2007/01/24 21:42:01 version 1.506, 2007/02/05 18:40:41
Line 1315  Returns a string containing a <select> e Line 1315  Returns a string containing a <select> e
   
 Args:  Args:
   $name - name of the <select> element    $name - name of the <select> element
   $value - sclara or array ref of values that should already be selected    $value - scalar or array ref of values that should already be selected
   $size - number of rows long the select element is    $size - number of rows long the select element is
   $hash - the elements should be 'option' => 'shown text'    $hash - the elements should be 'option' => 'shown text'
           (shown text should already have been &mt())            (shown text should already have been &mt())
   $order - (optional) array ref of the order to show the elments in    $order - (optional) array ref of the order to show the elements in
   
 =cut  =cut
   
Line 1336  sub multiple_select_form { Line 1336  sub multiple_select_form {
     }      }
     $output.="\n<select name='$name' size='$size' multiple='1'>";      $output.="\n<select name='$name' size='$size' multiple='1'>";
     my @order;      my @order;
     if ($order) {      if (ref($order) eq 'ARRAY')  {
         @order = ref($order) ? @$order          @order = @{$order};
                              : sort(keys(%$hash));      } else {
           @order = sort(keys(%$hash));
     }      }
     if (exists($$hash{'select_form_order'})) {      if (exists($$hash{'select_form_order'})) {
         @order = @{$$hash{'select_form_order'}};          @order = @{$$hash{'select_form_order'}};
Line 6564  sub group_term { Line 6565  sub group_term {
   
 sub icon {  sub icon {
     my ($file)=@_;      my ($file)=@_;
     my $curfext = (split(/\./,$file))[-1];      my $curfext = lc((split(/\./,$file))[-1]);
     my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif';      my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif';
     my $embstyle = &Apache::loncommon::fileembstyle($curfext);      my $embstyle = &Apache::loncommon::fileembstyle($curfext);
     if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) {      if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) {
Removed from v.1.504  
changed lines
  Added in v.1.506

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