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

Diff for /loncom/interface/lonparmset.pm between versions 1.505.2.1 and 1.506

version 1.505.2.1, 2011/10/07 15:25:40 version 1.506, 2011/01/13 17:44:30
Line 302  use Apache::lonlocal; Line 302  use Apache::lonlocal;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
 use Apache::longroup;  use Apache::longroup;
 use Apache::lonrss;  use Apache::lonrss;
   use HTML::Entities;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
   
Line 890  sub startpage { Line 891  sub startpage {
                        {'add_entries' => \%loaditems,});                         {'add_entries' => \%loaditems,});
     my $breadcrumbs =      my $breadcrumbs =
     &Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');      &Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
       my $escfilter=&Apache::lonhtmlcommon::entity_encode($env{'form.filter'});
       my $escpart=&Apache::lonhtmlcommon::entity_encode($env{'form.part'});
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 $start_page  $start_page
 $breadcrumbs  $breadcrumbs
Line 898  $breadcrumbs Line 901  $breadcrumbs
 <input type="hidden" value="" name="pres_type" />  <input type="hidden" value="" name="pres_type" />
 <input type="hidden" value="" name="pres_marker" />  <input type="hidden" value="" name="pres_marker" />
 <input type="hidden" value="1" name="prevvisit" />  <input type="hidden" value="1" name="prevvisit" />
   <input type="hidden" value="$escfilter" name="filter" />
   <input type="hidden" value="$escpart" name="part" />
 ENDHEAD  ENDHEAD
 }  }
   
Line 930  sub print_row { Line 935  sub print_row {
   
     if ($parmlev eq 'full') {      if ($parmlev eq 'full') {
         $r->print('<td style="background-color:'.$defbgtwo.';" align="center">'          $r->print('<td style="background-color:'.$defbgtwo.';" align="center">'
                   .$$part{$which}.'</td>');                    .($$part{$which} eq '0'?'0 ('.&mt('default').')':$$part{$which}).'</td>');
     } else {      } else {
         $parm=~s|\[.*\]\s||g;          $parm=~s|\[.*\]\s||g;
     }      }
Line 1748  sub mapmenu { Line 1753  sub mapmenu {
         # Info about selectable folders/maps          # Info about selectable folders/maps
         $r->print(          $r->print(
             '<div class="LC_info">'              '<div class="LC_info">'
            .&mt('You can only select maps and folders which have modifiable settings.')             .&mt('You can only select those maps and folders which can be currently parameterized.')
            .' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder')           # .' '.&Apache::loncommon::help_open_topic('...') # Later: Add further help
            .'</div>'             .'</div>'
         );          );
   
   
         $r->print(&Apache::loncommon::start_data_table());          $r->print(&Apache::loncommon::start_data_table());
   
         # Display row: "All Maps or Folders"          # Display row: "All Maps or Folders"
Line 2019  sub assessparms { Line 2025  sub assessparms {
   
     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');      my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
     my $pschp=$env{'form.pschp'};      my $pschp=$env{'form.pschp'};
   
   
     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');      my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }      if (!@psprt) { $psprt[0]='0'; }
       if (($env{'form.part'}) && ($psprt[0] ne 'all')) { $psprt[0]=$env{'form.part'}; }
   
     my $pssymb='';      my $pssymb='';
     my $parmlev='';      my $parmlev='';
Line 2330  COURSECONTENTSCRIPT Line 2339  COURSECONTENTSCRIPT
         my $csudom=$env{'user.domain'};          my $csudom=$env{'user.domain'};
   
         if ($parmlev eq 'full') {          if ($parmlev eq 'full') {
   #
   # This produces the cascading table output of parameters
   #
                my $coursespan=$csec?8:5;                 my $coursespan=$csec?8:5;
                my $userspan=3;                 my $userspan=3;
                if ($cgroup ne '') {                 if ($cgroup ne '') {
Line 2337  COURSECONTENTSCRIPT Line 2349  COURSECONTENTSCRIPT
                }                 }
   
                $r->print('<p><table border="2">');                 $r->print('<p><table border="2">');
   #
   # This produces the headers
   #
                $r->print('<tr><td colspan="5"></td>');                 $r->print('<tr><td colspan="5"></td>');
                $r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');                 $r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');
                if ($uname) {                 if ($uname) {
Line 2400  ENDTABLEHEADFOUR Line 2415  ENDTABLEHEADFOUR
                }                 }
   
                $r->print('</tr>');                 $r->print('</tr>');
   #
   # Done with the headers
   # 
                my $defbgone='';                 my $defbgone='';
                my $defbgtwo='';                 my $defbgtwo='';
                my $defbgthree = '';                 my $defbgthree = '';
Line 2440  ENDTABLEHEADFOUR Line 2457  ENDTABLEHEADFOUR
                     my %default=();                      my %default=();
                     my $uri=&Apache::lonnet::declutter($uris{$rid});                      my $uri=&Apache::lonnet::declutter($uris{$rid});
   
                       my $filter=$env{'form.filter'};
   
                     foreach (&keysplit($keyp{$rid})) {                      foreach (&keysplit($keyp{$rid})) {
                         my $tempkeyp = $_;                          my $tempkeyp = $_;
                         if (grep $_ eq $tempkeyp, @catmarker) {                          if (grep $_ eq $tempkeyp, @catmarker) {
                             my $parmname=&Apache::lonnet::metadata($uri,$_.'.name');
   # We may only want certain parameters listed
                             if ($filter) {
                                unless ($filter=~/\Q$parmname\E/) { next; }
                             }
                             $name{$_}=$parmname;
                           $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');                            $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
                           $name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');  
                           my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');                            my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');
                           if ($allparms{$name{$_}} ne '') {                            if ($allparms{$name{$_}} ne '') {
                               my $identifier;                                my $identifier;
Line 3280  ENDOVER Line 3305  ENDOVER
   
     my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');      my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
     my $pschp=$env{'form.pschp'};      my $pschp=$env{'form.pschp'};
   
     my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');      my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
     if (!@psprt) { $psprt[0]='0'; }      if (!@psprt) { $psprt[0]='0'; }
   
Line 4613  sub handler { Line 4639  sub handler {
                                              'pres_marker',                                               'pres_marker',
                                              'pres_value',                                               'pres_value',
                                              'pres_type',                                               'pres_type',
                                                'filter','part',
                                              'udom','uname','symb','serial','timebase']);                                               'udom','uname','symb','serial','timebase']);
   
   
Removed from v.1.505.2.1  
changed lines
  Added in v.1.506

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