Diff for /loncom/interface/lonparmset.pm between versions 1.430 and 1.432

version 1.430, 2009/02/13 20:20:30 version 1.432, 2009/02/15 17:19:39
Line 1183  sub extractResourceInformation { Line 1183  sub extractResourceInformation {
 #  #
     my $name=&Apache::lonnet::metadata($srcf,$key.'.name');      my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
     if (!exists($$allparms{$name}) || $$allparms{$name} =~ m/^\s*$/ ) {      if (!exists($$allparms{$name}) || $$allparms{$name} =~ m/^\s*$/ ) {
  my $display= &Apache::lonnet::metadata($srcf,$key.'.display');   my ($display,$parmdis);
  my $parmdis = $display;   $display = &standard_parameter_names($name);
  $parmdis =~ s/\s*\[Part.*$//g;   if ($display eq '') {
       $display= &Apache::lonnet::metadata($srcf,$key.'.display');
       $parmdis = $display;
       $parmdis =~ s/\s*\[Part.*$//g;
    } else {
       $parmdis = $display;
    }
  $$allparms{$name}=$parmdis;   $$allparms{$name}=$parmdis;
  if (ref($defkeytype)) {   if (ref($defkeytype)) {
     $$defkeytype{$name}=      $$defkeytype{$name}=
Line 1317  ENDSCRIPT Line 1323  ENDSCRIPT
  if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {   if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
     $r->print(' checked="checked"');      $r->print(' checked="checked"');
  }   }
         my $displaykey;          $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
         if ($$allparms{$tempkey}=~/\S/) {                                                    : $tempkey)
             $displaykey = $$allparms{$tempkey};                    .'</label></td>');
         } else {  
             $displaykey = $tempkey;  
         }  
         $displaykey =~ s/(\[|\])/~$1/g;  
         $r->print(' />'.&mt($displaykey).'</label></td>');  
   $cnt++;    $cnt++;
         if ($cnt==3) {          if ($cnt==3) {
     $r->print("</tr>\n<tr>");      $r->print("</tr>\n<tr>");

Removed from v.1.430  
changed lines
  Added in v.1.432


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