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

Diff for /loncom/interface/lonparmset.pm between versions 1.327 and 1.328

version 1.327, 2006/08/09 20:37:52 version 1.328, 2006/08/09 20:40:16
Line 3349  sub components { Line 3349  sub components {
     $what,$middle,$uname,$udom,$issection,$realmdescription);      $what,$middle,$uname,$udom,$issection,$realmdescription);
 }  }
   
   my %standard_parms;
   sub load_parameter_names {
       open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
       while (my $configline=<$config>) {
    if ($configline !~ /\S/ || $configline=~/^\#/) { next; }
    chomp($configline);
    my ($short,$plain)=split(/:/,$configline);
    my (undef,$name,$type)=split(/\&/,$short,3);
    if ($type eq 'display') {
       $standard_parms{$name} = $plain;
    }
       }
       close($config);
       $standard_parms{'int_pos'}      = 'Positive Integer';
       $standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
       %standard_parms=&Apache::lonlocal::texthash(%standard_parms);
   }
   
 sub standard_parameter_names {  sub standard_parameter_names {
     my ($name)=@_;      my ($name)=@_;
     my %standard_parms=&Apache::lonlocal::texthash('duedate' => 'Due Date',      if (!%standard_parms) {
    'answerdate' => 'Answer Date',   &load_parameter_names();
    'opendate' => 'Open Date',      }
    'maxtries' => 'Max. Number of Tries',  
    'weight' => 'Weight',  
    'date_start' => 'Starting Date',  
    'date_end' => 'Ending Date',  
                                                    'interval' => 'Time Interval Length',  
                                                    'tol' => 'Numerical Tolerance',  
                                                    'sig' => 'Significant Digits',  
                                                    'contentopen' => 'Content Opening Date',  
                                                    'contentclose' => 'Content Closing Date',  
                                                    'discussend' => 'End of Discussion Time',  
                                                    'discusshide' => 'Discussion Hidden',  
                                                    'problemstatus' => 'Problem Status Visible',  
    'int_pos' => 'Positive Integer',  
    'int_zero_pos' => 'Positive Integer or Zero',  
    'hinttries' => 'Number of Tries till Hints appear',  
                                                    'numbubbles' => 'Number of Bubbles in Exam Mode');  
     if ($standard_parms{$name}) {      if ($standard_parms{$name}) {
  return $standard_parms{$name};    return $standard_parms{$name}; 
     } else {       } else { 
Removed from v.1.327  
changed lines
  Added in v.1.328

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