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

Diff for /loncom/interface/lonparmset.pm between versions 1.186 and 1.187

version 1.186, 2005/03/17 21:08:43 version 1.187, 2005/03/17 22:12:52
Line 75  my %keyp; Line 75  my %keyp;
   
 my %maptitles;  my %maptitles;
   
 my $uname;  
 my $udom;  
 my $uhome;  
 my $csec;  
 my $coursename;  
   
 ##################################################  ##################################################
 ##################################################  ##################################################
   
Line 113  Returns:  A list, the first item is the Line 107  Returns:  A list, the first item is the
 ##################################################  ##################################################
 ##################################################  ##################################################
 sub parmval {  sub parmval {
     my ($what,$id,$def)=@_;      my ($what,$id,$def,$uname,$udom,$csec)=@_;
     my $result='';      my $result='';
     my @outpar=();      my @outpar=();
 # ----------------------------------------------------- Cascading lookup scheme  # ----------------------------------------------------- Cascading lookup scheme
Line 207  sub parmval { Line 201  sub parmval {
 # - level  # - level
 # - new value  # - new value
 # - new type  # - new type
   # - username
   # - userdomain
   
 sub storeparm {  sub storeparm {
     my ($sresid,$spnam,$snum,$nval,$ntype)=@_;      my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;
     $spnam=~s/\_([^\_]+)$/\.$1/;      $spnam=~s/\_([^\_]+)$/\.$1/;
 # ---------------------------------------------------------- Construct prefixes  # ---------------------------------------------------------- Construct prefixes
           
Line 507  ENDHEAD Line 504  ENDHEAD
   
 sub print_row {  sub print_row {
     my ($r,$which,$part,$name,$rid,$default,$defaulttype,$display,$defbgone,      my ($r,$which,$part,$name,$rid,$default,$defaulttype,$display,$defbgone,
  $defbgtwo,$parmlev)=@_;   $defbgtwo,$parmlev,$uname,$udom,$csec)=@_;
 # get the values for the parameter in cascading order  # get the values for the parameter in cascading order
 # empty levels will remain empty  # empty levels will remain empty
     my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},      my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
   $rid,$$default{$which});    $rid,$$default{$which},$uname,$udom,$csec);
 # get the type for the parameters  # get the type for the parameters
 # problem: these may not be set for all levels  # problem: these may not be set for all levels
     my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.      my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
                                           $$name{$which}.'.type',                                            $$name{$which}.'.type',
   $rid,$$defaulttype{$which});    $rid,$$defaulttype{$which},$uname,$udom,$csec);
 # cascade down manually  # cascade down manually
     my $cascadetype=$$defaulttype{$which};      my $cascadetype=$$defaulttype{$which};
     for (my $i=11;$i>0;$i--) {      for (my $i=11;$i>0;$i--) {
Line 774  sub assessparms { Line 771  sub assessparms {
     my %allmaps=();      my %allmaps=();
     my %alllevs=();      my %alllevs=();
   
       my $uname;
       my $udom;
       my $uhome;
       my $csec;
    
       my $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
   
     $alllevs{'Resource Level'}='full';      $alllevs{'Resource Level'}='full';
 #    $alllevs{'Resource Level [BRIEF]'}='brief';  
     $alllevs{'Map Level'}='map';      $alllevs{'Map Level'}='map';
     $alllevs{'Course Level'}='general';      $alllevs{'Course Level'}='general';
   
Line 811  sub assessparms { Line 814  sub assessparms {
     my $parmlev='';      my $parmlev='';
     my $trimheader='';      my $trimheader='';
     my $prevvisit=$ENV{'form.prevvisit'};      my $prevvisit=$ENV{'form.prevvisit'};
   
 #    unless ($parmlev==$ENV{'form.parmlev'}) {  
 #        $parmlev = 'full';  
 #    }  
     
     unless ($ENV{'form.parmlev'}) {      unless ($ENV{'form.parmlev'}) {
         $parmlev = 'map';          $parmlev = 'map';
Line 912  sub assessparms { Line 911  sub assessparms {
     if ($ENV{'form.pres_marker'}) {      if ($ENV{'form.pres_marker'}) {
  $message.=&storeparm(split(/\&/,$ENV{'form.pres_marker'}),   $message.=&storeparm(split(/\&/,$ENV{'form.pres_marker'}),
      $ENV{'form.pres_value'},       $ENV{'form.pres_value'},
      $ENV{'form.pres_type'});       $ENV{'form.pres_type'},
                                $uname,$udom,$csec);
 # ---------------------------------------------------------------- Done storing  # ---------------------------------------------------------------- Done storing
  $message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';   $message.='<h3>'.&mt('Changes can take up to 10 minutes before being active for all students.').&Apache::loncommon::help_open_topic('Caching').'</h3>';
     }      }
Line 937  sub assessparms { Line 937  sub assessparms {
  if ($fcat eq '') {   if ($fcat eq '') {
     $a<=>$b;      $a<=>$b;
  } else {   } else {
     my ($result,@outpar)=&parmval($fcat,$a,$defp{$a});      my ($result,@outpar)=&parmval($fcat,$a,$defp{$a},$uname,$udom,$csec);
     my $aparm=$outpar[$result];      my $aparm=$outpar[$result];
     ($result,@outpar)=&parmval($fcat,$b,$defp{$b});      ($result,@outpar)=&parmval($fcat,$b,$defp{$b},$uname,$udom,$csec);
     my $bparm=$outpar[$result];      my $bparm=$outpar[$result];
     1*$aparm<=>1*$bparm;      1*$aparm<=>1*$bparm;
  }   }
Line 1276  ENDTABLEHEADFOUR Line 1276  ENDTABLEHEADFOUR
   
                             &print_row($r,$_,\%part,\%name,$rid,\%default,                              &print_row($r,$_,\%part,\%name,$rid,\%default,
                                        \%type,\%display,$defbgone,$defbgtwo,                                         \%type,\%display,$defbgone,$defbgtwo,
                                        $parmlev);                                         $parmlev,$uname,$udom,$csec);
                         }                          }
                     }                      }
                 }                  }
Line 1384  ENDMAPONE Line 1384  ENDMAPONE
                     $r->print('<tr>');                      $r->print('<tr>');
                     &print_row($r,$_,\%part,\%name,$mapid,\%default,                      &print_row($r,$_,\%part,\%name,$mapid,\%default,
                            \%type,\%display,$defbgone,$defbgtwo,                             \%type,\%display,$defbgone,$defbgtwo,
                            $parmlev);                             $parmlev,$uname,$udom,$csec);
 #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");  #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
                 }                  }
                 $r->print("</table></center>");                  $r->print("</table></center>");
Line 1461  ENDMAPONE Line 1461  ENDMAPONE
     foreach (sort keys %name) {      foreach (sort keys %name) {
                 $r->print('<tr>');                  $r->print('<tr>');
                 &print_row($r,$_,\%part,\%name,$mapid,\%default,                  &print_row($r,$_,\%part,\%name,$mapid,\%default,
                        \%type,\%display,$defbgone,$defbgtwo,$parmlev);                         \%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec);
 #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");  #                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
             }              }
             $r->print("</table></center>");              $r->print("</table></center>");
Line 2081  sub handler { Line 2081  sub handler {
   
         &Apache::loncommon::content_type($r,'text/html');          &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;          $r->send_http_header;
    
         $coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};  
   
  if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {   if (($ENV{'form.crsenv'}) || (!$ENV{'request.course.fn'})) {
 # ---------------------------------------------- This is for course environment  # ---------------------------------------------- This is for course environment
Removed from v.1.186  
changed lines
  Added in v.1.187

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