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

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

version 1.431, 2009/02/15 15:14:34 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 = &standard_parameter_names($tempkey);          $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
         if ($displaykey eq '') {                                                    : $tempkey)
             if ($$allparms{$tempkey}=~/\S/) {                    .'</label></td>');
                 $displaykey = $$allparms{$tempkey};  
             } else {  
                 $displaykey = $tempkey;  
             }  
         }  
         $r->print(' />'.$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.431  
changed lines
  Added in v.1.432

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