Diff for /loncom/interface/lonparmset.pm between versions 1.342 and 1.522.2.27

version 1.342, 2006/10/13 17:40:12 version 1.522.2.27, 2020/02/12 19:54:47
Line 36  lonparmset - Handler to set parameters f Line 36  lonparmset - Handler to set parameters f
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 lonparmset provides an interface to setting course parameters.   lonparmset provides an interface to setting content parameters in a 
   course.
   
 =head1 DESCRIPTION  =head1 DESCRIPTION
   
Line 44  This module sets coursewide and assessme Line 45  This module sets coursewide and assessme
   
 =head1 INTERNAL SUBROUTINES  =head1 INTERNAL SUBROUTINES
   
 =over 4  =over
   
 =cut  
   
 ###################################################################  =item parmval()
 ###################################################################  
   
 package Apache::lonparmset;  
   
 use strict;  
 use Apache::lonnet;  
 use Apache::Constants qw(:common :http REDIRECT);  
 use Apache::lonhtmlcommon();  
 use Apache::loncommon;  
 use GDBM_File;  
 use Apache::lonhomework;  
 use Apache::lonxml;  
 use Apache::lonlocal;  
 use Apache::lonnavmaps;  
 use Apache::longroup;  
 use Apache::lonrss;  
 use LONCAPA;  
   
 # --- Caches local to lonparmset  
   
 my $parmhashid;  
 my %parmhash;  
 my $symbsid;  
 my %symbs;  
 my $rulesid;  
 my %rules;  
   
 # --- end local caches  
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item parmval  
   
 Figure out a cascading parameter.  Figure out a cascading parameter.
   
Line 108  Returns:  A list, the first item is the Line 72  Returns:  A list, the first item is the
 2 - Map or Folder level for specific student  2 - Map or Folder level for specific student
 1 - resource level for specific student  1 - resource level for specific student
   
   =item parmval_by_symb()
   
   =item reset_caches()
   
   =item cacheparmhash() 
   
   =item parmhash()
   
   =item symbcache()
   
   =item preset_defaults()
   
   =item date_sanity_info()
   
   =item storeparm()
   
   Store a parameter by symb
   
       Takes
       - symb
       - name of parameter
       - level
       - new value
       - new type
       - username
       - userdomain
   
   =item log_parmset()
   
   =item storeparm_by_symb_inner()
   
   =item valout()
   
   Format a value for output.
   
   Inputs:  $value, $type, $editable
   
   Returns: $value, formatted for output.  If $type indicates it is a date,
   localtime($value) is returned.
   $editable will return an icon to click on
   
   =item plink()
   
   Produces a link anchor.
   
   Inputs: $type,$dis,$value,$marker,$return,$call
   
   Returns: scalar with html code for a link which will envoke the 
   javascript function 'pjump'.
   
   =item page_js()
   
   =item startpage()
   
   =item print_row()
   
   =item print_td()
   
   =item check_other_groups()
   
   =item parm_control_group()
   
   =item extractResourceInformation() : 
   
    extractResourceInformation extracts lots of information about all of the the course's resources into a variety of hashes.
   
   Input: See list below
   
   =over 4
   
   =item * B<env{'user.name'}> : Current username
   
   =item * B<env{'user.domain'}> : Domain of current user.
   
   =item * B<env{"request.course.fn"}> : Course
   
   =back
   
   Outputs: See list below
   
   =over 4
   
   =item * B<ids> (out) : An array that will contain all of the ids in the course.
   
   =item * B<typep>(out) : hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.
   
   =item * B<keyp> (out) : hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id
   
   =item * B<allparms> (out) : hash, name of parameter->display value (what is the display value?)
   
   =item * B<allparts> (out) : hash, part identification->text representation of part, where the text representation is "[Part $part]"
   
   =item * B<allmaps> (out) : hash, ???
   
   =item * B<mapp> : ??
   
   =item * B<symbp> : hash, id->full sym?
   
   =item * B<maptitles>
   
   =item * B<uris>
   
   =item * B<keyorder>
   
   =item * B<defkeytype>
   
   =back
   
   =item isdateparm()
   
   =item parmmenu()
   
   =item partmenu()
   
   =item usermenu()
   
   =item displaymenu()
   
   =item mapmenu()
   
   =item levelmenu()
   
   =item sectionmenu()
   
   =item keysplit()
   
   =item keysinorder()
   
   =item keysinorder_bytype()
   
   =item keysindisplayorder()
   
   =item standardkeyorder()
   
   =item assessparms() : 
   
   Show assessment data and parameters.  This is a large routine that should
   be simplified and shortened... someday.
   
   Inputs: $r - the Apache request object.
     
   Returns: nothing
   
   Variables used (guessed by Jeremy):
   
   =over
   
   =item * B<pscat>: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type.
   
   =item * B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?
   
   =item * B<@catmarker> contains list of all possible parameters including part #s
   
   =item * B<$fullkeyp> contains the full part/id # for the extraction of proper parameters
   
   =item * B<$tempkeyp> contains part 0 only (no ids - ie, subparts)
           When storing information, store as part 0
           When requesting information, request from full part
   
   =back
   
   =item tablestart()
   
   =item tableend()
   
   =item extractuser()
   
   =item parse_listdata_key()
   
   =item listdata()
   
   =item date_interval_selector()
   
   =item get_date_interval_from_form()
   
   =item default_selector()
   
   =item string_selector()
   
   =item dateshift()
   
   =item newoverview()
   
   =item secgroup_lister()
   
   =item overview()
   
   =item clean_parameters()
   
   =item date_shift_one()
   
   =item date_shift_two()
   
   =item parse_key()
   
   =item header()
   
   Output html header for page
   
   =item print_main_menu()
   
   =item output_row()
   
   Set portfolio metadata
   
   =item order_meta_fields()
   
   =item addmetafield()
   
   =item setrestrictmeta()
   
   =item get_added_meta_fieldnames()
   
   =item get_deleted_meta_fieldnames()
   
   =item defaultsetter()
   
   =item components()
   
   =item load_parameter_names()
   
   =item parm_change_log()
   
   =item handler() : 
   
   Main handler.  Calls &assessparms subroutine.
   
   =back
   
 =cut  =cut
   
 ##################################################  ###################################################################
   ###################################################################
   
   package Apache::lonparmset;
   
   use strict;
   use Apache::lonnet;
   use Apache::Constants qw(:common :http REDIRECT);
   use Apache::lonhtmlcommon();
   use Apache::loncommon;
   use GDBM_File;
   use Apache::lonhomework;
   use Apache::lonxml;
   use Apache::lonlocal;
   use Apache::lonnavmaps;
   use Apache::longroup;
   use Apache::lonrss;
   use HTML::Entities;
   use LONCAPA qw(:DEFAULT :match);
   
   
 sub parmval {  sub parmval {
     my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;      my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
     return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,      return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,
Line 119  sub parmval { Line 332  sub parmval {
   
 sub parmval_by_symb {  sub parmval_by_symb {
     my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;      my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
 # load caches  
     &cacheparmhash();  
   
     my $useropt=&Apache::lonnet::get_userresdata($uname,$udom);      my $useropt;
       if ($uname ne '' && $udom ne '') {
       $useropt = &Apache::lonnet::get_userresdata($uname,$udom);
       }
   
     my $result='';      my $result='';
     my @outpar=();      my @outpar=();
 # ----------------------------------------------------- Cascading lookup scheme  # ----------------------------------------------------- Cascading lookup scheme
     my $map=(&Apache::lonnet::decode_symb($symb))[0];          my $map=(&Apache::lonnet::decode_symb($symb))[0];
     $map = &Apache::lonnet::deversion($map);      $map = &Apache::lonnet::deversion($map);
   
     my $symbparm=$symb.'.'.$what;      my $symbparm=$symb.'.'.$what;
Line 149  sub parmval_by_symb { Line 363  sub parmval_by_symb {
 # --------------------------------------------------------- first, check course  # --------------------------------------------------------- first, check course
   
     if (defined($$courseopt{$courselevel})) {      if (defined($$courseopt{$courselevel})) {
  $outpar[14]=$$courseopt{$courselevel};      $outpar[14]=$$courseopt{$courselevel};
  $result=14;      $result=14;
     }      }
   
     if (defined($$courseopt{$courselevelm})) {      if (defined($$courseopt{$courselevelm})) {
  $outpar[13]=$$courseopt{$courselevelm};      $outpar[13]=$$courseopt{$courselevelm};
  $result=13;      $result=13;
     }      }
   
 # ------------------------------------------------------- second, check default  # ------------------------------------------------------- second, check default
Line 164  sub parmval_by_symb { Line 378  sub parmval_by_symb {
   
 # ------------------------------------------------------ third, check map parms  # ------------------------------------------------------ third, check map parms
   
     my $thisparm=$parmhash{$symbparm};      my $thisparm=&parmhash($symbparm);
     if (defined($thisparm)) { $outpar[11]=$thisparm; $result=11; }      if (defined($thisparm)) { $outpar[11]=$thisparm; $result=11; }
   
     if (defined($$courseopt{$courselevelr})) {      if (defined($$courseopt{$courselevelr})) {
  $outpar[10]=$$courseopt{$courselevelr};      $outpar[10]=$$courseopt{$courselevelr};
  $result=10;      $result=10;
     }      }
   
 # ------------------------------------------------------ fourth, back to course  # ------------------------------------------------------ fourth, back to course
     if (defined($csec)) {      if ($csec ne '') {
         if (defined($$courseopt{$seclevel})) {          if (defined($$courseopt{$seclevel})) {
     $outpar[9]=$$courseopt{$seclevel};          $outpar[9]=$$courseopt{$seclevel};
     $result=9;          $result=9;
  }      }
         if (defined($$courseopt{$seclevelm})) {          if (defined($$courseopt{$seclevelm})) {
     $outpar[8]=$$courseopt{$seclevelm};          $outpar[8]=$$courseopt{$seclevelm};
     $result=8;          $result=8;
  }      }
   
         if (defined($$courseopt{$seclevelr})) {          if (defined($$courseopt{$seclevelr})) {
     $outpar[7]=$$courseopt{$seclevelr};          $outpar[7]=$$courseopt{$seclevelr};
     $result=7;          $result=7;
  }      }
     }      }
 # ------------------------------------------------------ fifth, check course group  # ------------------------------------------------------ fifth, check course group
     if (defined($cgroup)) {      if ($cgroup ne '') {
         if (defined($$courseopt{$grplevel})) {          if (defined($$courseopt{$grplevel})) {
             $outpar[6]=$$courseopt{$grplevel};              $outpar[6]=$$courseopt{$grplevel};
             $result=6;              $result=6;
Line 206  sub parmval_by_symb { Line 420  sub parmval_by_symb {
   
 # ---------------------------------------------------------- fifth, check user  # ---------------------------------------------------------- fifth, check user
   
     if (defined($uname)) {      if ($uname ne '') {
  if (defined($$useropt{$courselevel})) {      if (defined($$useropt{$courselevel})) {
     $outpar[3]=$$useropt{$courselevel};          $outpar[3]=$$useropt{$courselevel};
     $result=3;          $result=3;
  }      }
   
  if (defined($$useropt{$courselevelm})) {      if (defined($$useropt{$courselevelm})) {
     $outpar[2]=$$useropt{$courselevelm};          $outpar[2]=$$useropt{$courselevelm};
     $result=2;          $result=2;
  }      }
   
  if (defined($$useropt{$courselevelr})) {      if (defined($$useropt{$courselevelr})) {
     $outpar[1]=$$useropt{$courselevelr};          $outpar[1]=$$useropt{$courselevelr};
     $result=1;          $result=1;
  }      }
     }      }
     return ($result,@outpar);      return ($result,@outpar);
 }  }
   
 sub resetparmhash {  
     $parmhashid='';  
   # --- Caches local to lonparmset
   
   
   sub reset_caches {
       &resetparmhash();
       &resetsymbcache();
       &resetrulescache();
 }  }
   
 sub cacheparmhash {  {
       my $parmhashid;
       my %parmhash;
       sub resetparmhash {
       undef($parmhashid);
       undef(%parmhash);
       }
   
       sub cacheparmhash {
     if ($parmhashid eq  $env{'request.course.fn'}) { return; }      if ($parmhashid eq  $env{'request.course.fn'}) { return; }
     my %parmhashfile;      my %parmhashfile;
     if (tie(%parmhashfile,'GDBM_File',      if (tie(%parmhashfile,'GDBM_File',
       $env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {          $env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {
  %parmhash=%parmhashfile;          %parmhash=%parmhashfile;
  untie %parmhashfile;          untie(%parmhashfile);
  $parmhashid=$env{'request.course.fn'};          $parmhashid=$env{'request.course.fn'};
       }
     }      }
 }  
   
 sub resetsymbcache {      sub parmhash {
     $symbsid='';      my ($id) = @_;
 }      &cacheparmhash();
       return $parmhash{$id};
       }
    }
   
 sub symbcache {  {
       my $symbsid;
       my %symbs;
       sub resetsymbcache {
       undef($symbsid);
       undef(%symbs);
       }
   
       sub symbcache {
     my $id=shift;      my $id=shift;
     if ($symbsid ne $env{'request.course.id'}) {      if ($symbsid ne $env{'request.course.id'}) {
  %symbs=();          undef(%symbs);
     }      }
     unless ($symbs{$id}) {      if (!$symbs{$id}) {
  my $navmap = Apache::lonnavmaps::navmap->new();          my $navmap = Apache::lonnavmaps::navmap->new();
  if ($id=~/\./) {          if ($id=~/\./) {
     my $resource=$navmap->getById($id);          my $resource=$navmap->getById($id);
     $symbs{$id}=$resource->symb();          $symbs{$id}=$resource->symb();
  } else {          } else {
     my $resource=$navmap->getByMapPc($id);          my $resource=$navmap->getByMapPc($id);
     $symbs{$id}=&Apache::lonnet::declutter($resource->src());          $symbs{$id}=&Apache::lonnet::declutter($resource->src());
  }          }
  $symbsid=$env{'request.course.id'};          $symbsid=$env{'request.course.id'};
     }      }
     return $symbs{$id};      return $symbs{$id};
 }      }
    }
   
 sub resetrulescache {  {
     $rulesid='';      my $rulesid;
 }      my %rules;
       sub resetrulescache {
       undef($rulesid);
       undef(%rules);
       }
   
 sub rulescache {      sub rulescache {
     my $id=shift;      my $id=shift;
     if ($rulesid ne $env{'request.course.id'}) {      if ($rulesid ne $env{'request.course.id'}
  %rules=();          && !defined($rules{$id})) {
     }          my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     unless (defined($rules{$id})) {          my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
  my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};          %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
  my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};          $rulesid=$env{'request.course.id'};
  %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);  
  $rulesid=$env{'request.course.id'};  
     }      }
     return $rules{$id};      return $rules{$id};
       }
 }  }
   
   
   
 sub preset_defaults {  sub preset_defaults {
     my $type=shift;      my $type=shift;
     if (&rulescache($type.'_action') eq 'default') {      if (&rulescache($type.'_action') eq 'default') {
 # yes, there is something  # yes, there is something
  return (&rulescache($type.'_hours'),      return (&rulescache($type.'_hours'),
  &rulescache($type.'_min'),          &rulescache($type.'_min'),
  &rulescache($type.'_sec'),          &rulescache($type.'_sec'),
  &rulescache($type.'_value'));          &rulescache($type.'_value'));
     } else {      } else {
 # nothing there or something else  # nothing there or something else
  return ('','','','','');      return ('','','','','');
     }      }
 }  }
   
 ##################################################  
   
   
 sub date_sanity_info {  sub date_sanity_info {
    my $checkdate=shift;     my $checkdate=shift;
Line 304  sub date_sanity_info { Line 551  sub date_sanity_info {
    my $crsprefix='course.'.$env{'request.course.id'}.'.';     my $crsprefix='course.'.$env{'request.course.id'}.'.';
    if ($env{$crsprefix.'default_enrollment_end_date'}) {     if ($env{$crsprefix.'default_enrollment_end_date'}) {
       if ($checkdate>$env{$crsprefix.'default_enrollment_end_date'}) {        if ($checkdate>$env{$crsprefix.'default_enrollment_end_date'}) {
          $result.='<br />'.&mt('After course enrollment end!');           $result.='<div class="LC_warning">'
                    .&mt('After course enrollment end!')
                    .'</div>';
       }        }
    }     }
    if ($env{$crsprefix.'default_enrollment_start_date'}) {     if ($env{$crsprefix.'default_enrollment_start_date'}) {
       if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {        if ($checkdate<$env{$crsprefix.'default_enrollment_start_date'}) {
          $result.='<br />'.&mt('Before course enrollment start!');           $result.='<div class="LC_warning">'
                    .&mt('Before course enrollment start!')
                    .'</div>';
       }        }
    }     }
   # Preparation for additional warnings about dates in the past/future.
   # An improved, more context sensitive version is recommended,
   # e.g. warn for due and answer dates which are defined before the corresponding open date, etc.
   #   if ($checkdate<time) {
   #      $result.='<div class="LC_info">'
   #              .'('.&mt('in the past').')'
   #              .'</div>';
   #      }
   #   if ($checkdate>time) {
   #      $result.='<div class="LC_info">'
   #              .'('.&mt('in the future').')'
   #              .'</div>';
   #      }
    return $result;     return $result;
 }  }
 ##################################################  ##################################################
Line 333  sub storeparm { Line 597  sub storeparm {
     &storeparm_by_symb(&symbcache($sresid),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,'',$cgroup);      &storeparm_by_symb(&symbcache($sresid),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,'',$cgroup);
 }  }
   
 #  
 # Store a parameter by symb  
 #  
 # Takes  
 # - symb  
 # - name of parameter  
 # - level  
 # - new value  
 # - new type  
 # - username  
 # - userdomain  
   
 my %recstack;  my %recstack;
 sub storeparm_by_symb {  sub storeparm_by_symb {
     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag,$cgroup)=@_;      my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag,$cgroup)=@_;
     unless ($recflag) {      unless ($recflag) {
 # first time call  # first time call
  %recstack=();      %recstack=();
  $recflag=1;      $recflag=1;
     }      }
 # store parameter  # store parameter
     &storeparm_by_symb_inner      &storeparm_by_symb_inner
  ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup);      ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup);
 # don't do anything if parameter was reset  # don't do anything if parameter was reset
     unless ($nval) { return; }      unless ($nval) { return; }
     my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);      my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);
Line 365  sub storeparm_by_symb { Line 617  sub storeparm_by_symb {
     foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {      foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {
 # don't backfire  # don't backfire
        unless ((!$triggered) || ($recstack{$triggered})) {         unless ((!$triggered) || ($recstack{$triggered})) {
    my $action=&rulescache($triggered.'_action');         my $action=&rulescache($triggered.'_action');
    my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);         my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
 # set triggered parameter on same level  # set triggered parameter on same level
    my $newspnam=$prefix.$triggered;         my $newspnam=$prefix.$triggered;
    my $newvalue='';         my $newvalue='';
    my $active=1;         my $active=1;
    if ($action=~/^when\_setting/) {         if ($action=~/^when\_setting/) {
 # are there restrictions?  # are there restrictions?
        if (&rulescache($triggered.'_triggervalue')=~/\w/) {             if (&rulescache($triggered.'_triggervalue')=~/\w/) {
    $active=0;             $active=0;
    foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {             foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
        if (lc($possiblevalue) eq lc($nval)) { $active=1; }                 if (lc($possiblevalue) eq lc($nval)) { $active=1; }
    }             }
        }             }
        $newvalue=&rulescache($triggered.'_value');             $newvalue=&rulescache($triggered.'_value');
    } else {         } else {
        my $totalsecs=((&rulescache($triggered.'_days')*24+&rulescache($triggered.'_hours'))*60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');             my $totalsecs=((&rulescache($triggered.'_days')*24+&rulescache($triggered.'_hours'))*60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');
        if ($action=~/^later\_than/) {             if ($action=~/^later\_than/) {
    $newvalue=$nval+$totalsecs;             $newvalue=$nval+$totalsecs;
        } else {             } else {
    $newvalue=$nval-$totalsecs;             $newvalue=$nval-$totalsecs;
        }             }
    }         }
    if ($active) {         if ($active) {
        &storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),             &storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),
    $uname,$udom,$csec,$recflag,$cgroup);                     $uname,$udom,$csec,$recflag,$cgroup);
    }         }
        }         }
     }      }
     return '';      return '';
 }  }
   
 sub log_parmset {  sub log_parmset {
     return &Apache::lonnet::instructor_log('parameterlog',@_);      return &Apache::lonnet::write_log('course','parameterlog',@_);
 }  }
   
 sub storeparm_by_symb_inner {  sub storeparm_by_symb_inner {
Line 406  sub storeparm_by_symb_inner { Line 658  sub storeparm_by_symb_inner {
     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;      my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
 # ---------------------------------------------------------- Construct prefixes  # ---------------------------------------------------------- Construct prefixes
     $spnam=~s/\_([^\_]+)$/\.$1/;      $spnam=~s/\_([^\_]+)$/\.$1/;
     my $map=(&Apache::lonnet::decode_symb($symb))[0];          my $map=(&Apache::lonnet::decode_symb($symb))[0];
     $map = &Apache::lonnet::deversion($map);      $map = &Apache::lonnet::deversion($map);
   
     my $symbparm=$symb.'.'.$spnam;      my $symbparm=$symb.'.'.$spnam;
Line 419  sub storeparm_by_symb_inner { Line 671  sub storeparm_by_symb_inner {
     my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;      my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;
     my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;      my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
     my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;      my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;
       
     my $courselevel=$env{'request.course.id'}.'.'.$spnam;      my $courselevel=$env{'request.course.id'}.'.'.$spnam;
     my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;      my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
     my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;      my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;
       
     my $storeunder='';      my $storeunder='';
     if (($snum==14) || ($snum==3)) { $storeunder=$courselevel; }      if (($snum==14) || ($snum==3)) { $storeunder=$courselevel; }
     if (($snum==13) || ($snum==2)) { $storeunder=$courselevelm; }      if (($snum==13) || ($snum==2)) { $storeunder=$courselevelm; }
Line 435  sub storeparm_by_symb_inner { Line 687  sub storeparm_by_symb_inner {
     if ($snum==5) { $storeunder=$grplevelm; }      if ($snum==5) { $storeunder=$grplevelm; }
     if ($snum==4) { $storeunder=$grplevelr; }      if ($snum==4) { $storeunder=$grplevelr; }
   
       
     my $delete;      my $delete;
     if ($nval eq '') { $delete=1;}      if ($nval eq '') { $delete=1;}
     my %storecontent = ($storeunder         => $nval,      my %storecontent = ($storeunder         => $nval,
  $storeunder.'.type' => $ntype);              $storeunder.'.type' => $ntype);
     my $reply='';      my $reply='';
     if ($snum>3) {      if ($snum>3) {
 # ---------------------------------------------------------------- Store Course  # ---------------------------------------------------------------- Store Course
 #  #
  my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
  my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
 # Expire sheets  # Expire sheets
  &Apache::lonnet::expirespread('','','studentcalc');      &Apache::lonnet::expirespread('','','studentcalc');
  if (($snum==10) || ($snum==7) || ($snum==4)) {      if (($snum==10) || ($snum==7) || ($snum==4)) {
     &Apache::lonnet::expirespread('','','assesscalc',$symb);          &Apache::lonnet::expirespread('','','assesscalc',$symb);
  } elsif (($snum==11) || ($snum==8) || ($snum==5)) {      } elsif (($snum==11) || ($snum==8) || ($snum==5)) {
     &Apache::lonnet::expirespread('','','assesscalc',$map);          &Apache::lonnet::expirespread('','','assesscalc',$map);
  } else {      } else {
     &Apache::lonnet::expirespread('','','assesscalc');          &Apache::lonnet::expirespread('','','assesscalc');
  }      }
 # Store parameter  # Store parameter
  if ($delete) {      if ($delete) {
     $reply=&Apache::lonnet::del          $reply=&Apache::lonnet::del
  ('resourcedata',[keys(%storecontent)],$cdom,$cnum);          ('resourcedata',[keys(%storecontent)],$cdom,$cnum);
             &log_parmset(\%storecontent,1);              &log_parmset(\%storecontent,1);
  } else {      } else {
     $reply=&Apache::lonnet::cput          $reply=&Apache::lonnet::cput
  ('resourcedata',\%storecontent,$cdom,$cnum);          ('resourcedata',\%storecontent,$cdom,$cnum);
     &log_parmset(\%storecontent);          &log_parmset(\%storecontent);
  }      }
  &Apache::lonnet::devalidatecourseresdata($cnum,$cdom);      &Apache::lonnet::devalidatecourseresdata($cnum,$cdom);
     } else {      } else {
 # ------------------------------------------------------------------ Store User  # ------------------------------------------------------------------ Store User
 #  #
 # Expire sheets  # Expire sheets
  &Apache::lonnet::expirespread($uname,$udom,'studentcalc');      &Apache::lonnet::expirespread($uname,$udom,'studentcalc');
  if ($snum==1) {      if ($snum==1) {
     &Apache::lonnet::expirespread          &Apache::lonnet::expirespread
  ($uname,$udom,'assesscalc',$symb);          ($uname,$udom,'assesscalc',$symb);
  } elsif ($snum==2) {      } elsif ($snum==2) {
     &Apache::lonnet::expirespread          &Apache::lonnet::expirespread
  ($uname,$udom,'assesscalc',$map);          ($uname,$udom,'assesscalc',$map);
  } else {      } else {
     &Apache::lonnet::expirespread($uname,$udom,'assesscalc');          &Apache::lonnet::expirespread($uname,$udom,'assesscalc');
  }      }
 # Store parameter  # Store parameter
  if ($delete) {      if ($delete) {
     $reply=&Apache::lonnet::del          $reply=&Apache::lonnet::del
  ('resourcedata',[keys(%storecontent)],$udom,$uname);          ('resourcedata',[keys(%storecontent)],$udom,$uname);
     &log_parmset(\%storecontent,1,$uname,$udom);          &log_parmset(\%storecontent,1,$uname,$udom);
  } else {      } else {
     $reply=&Apache::lonnet::cput          $reply=&Apache::lonnet::cput
  ('resourcedata',\%storecontent,$udom,$uname);          ('resourcedata',\%storecontent,$udom,$uname);
     &log_parmset(\%storecontent,0,$uname,$udom);          &log_parmset(\%storecontent,0,$uname,$udom);
  }  
  &Apache::lonnet::devalidateuserresdata($uname,$udom);  
     }      }
           &Apache::lonnet::devalidateuserresdata($uname,$udom);
       }
   
     if ($reply=~/^error\:(.*)/) {      if ($reply=~/^error\:(.*)/) {
  return "<span class=\"LC_error\">Write Error: $1</span>";      return "<span class=\"LC_error\">Write Error: $1</span>";
     }      }
     return '';      return '';
 }  }
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item valout  
   
 Format a value for output.  
   
 Inputs:  $value, $type, $editable  
   
 Returns: $value, formatted for output.  If $type indicates it is a date,  
 localtime($value) is returned.  
 $editable will return an icon to click on  
   
 =cut  
   
 ##################################################  
 ##################################################  
 sub valout {  sub valout {
     my ($value,$type,$editable)=@_;      my ($value,$type,$editable)=@_;
     my $result = '';      my $result = '';
     # Values of zero are valid.      # Values of zero are valid.
     if (! $value && $value ne '0') {      if (! $value && $value ne '0') {
  if ($editable) {          if ($editable) {
     $result = '<span class="LC_clickhere">*</span>';              $result =
  } else {                  '<img src="/res/adm/pages/editmap.png"'
     $result='&nbsp;';                 .' alt="'.&mt('Change').'"'
  }                 .' title="'.&mt('Change').'" style="border:0;" />';
           } else {
               $result='&nbsp;';
           }
     } else {      } else {
         if ($type eq 'date_interval') {          if ($type eq 'date_interval') {
             my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);              my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);
               my @timer;
             $year=$year-70;              $year=$year-70;
             $mday--;              $mday--;
             if ($year) {              if ($year) {
  $result.=$year.' yrs ';  #               $result.=&mt('[quant,_1,yr]',$year).' ';
                   push(@timer,&mt('[quant,_1,yr]',$year));
             }              }
             if ($mon) {              if ($mon) {
  $result.=$mon.' mths ';  #               $result.=&mt('[quant,_1,mth]',$mon).' ';
                   push(@timer,&mt('[quant,_1,mth]',$mon));
             }              }
             if ($mday) {              if ($mday) {
  $result.=$mday.' days ';  #               $result.=&mt('[quant,_1,day]',$mday).' ';
                   push(@timer,&mt('[quant,_1,day]',$mday));
             }              }
             if ($hour) {              if ($hour) {
  $result.=$hour.' hrs ';  #               $result.=&mt('[quant,_1,hr]',$hour).' ';
                   push(@timer,&mt('[quant,_1,hr]',$hour));
             }              }
             if ($min) {              if ($min) {
  $result.=$min.' mins ';  #               $result.=&mt('[quant,_1,min]',$min).' ';
                   push(@timer,&mt('[quant,_1,min]',$min));
             }              }
             if ($sec) {              if ($sec) {
  $result.=$sec.' secs ';  #               $result.=&mt('[quant,_1,sec]',$sec).' ';
                   push(@timer,&mt('[quant,_1,sec]',$sec));
               }
   #           $result=~s/\s+$//;
               if (!@timer) { # Special case: all entries 0 -> display "0 secs" intead of empty field to keep this field editable
                   push(@timer,&mt('[quant,_1,sec]',0));
             }              }
             $result=~s/\s+$//;              $result.=join(", ",@timer);
         } elsif (&isdateparm($type)) {          } elsif (&isdateparm($type)) {
             $result = localtime($value).&date_sanity_info($value);              $result = &Apache::lonlocal::locallocaltime($value).
           &date_sanity_info($value);
         } else {          } else {
             $result = $value;              $result = $value;
               $result=~s/\,/\, /gs;
           $result = &HTML::Entities::encode($result,'"<>&');
         }          }
     }      }
     return $result;      return $result;
 }  }
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item plink  
   
 Produces a link anchor.  
   
 Inputs: $type,$dis,$value,$marker,$return,$call  
   
 Returns: scalar with html code for a link which will envoke the   
 javascript function 'pjump'.  
   
 =cut  
   
 ##################################################  
 ##################################################  
 sub plink {  sub plink {
     my ($type,$dis,$value,$marker,$return,$call)=@_;      my ($type,$dis,$value,$marker,$return,$call)=@_;
     my $winvalue=$value;      my $winvalue=$value;
     unless ($winvalue) {      unless ($winvalue) {
  if (&isdateparm($type)) {      if (&isdateparm($type)) {
             $winvalue=$env{'form.recent_'.$type};              $winvalue=$env{'form.recent_'.$type};
         } else {          } else {
             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};              $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
Line 592  sub plink { Line 826  sub plink {
     my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);      my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
     my ($hour,$min,$sec,$val)=&preset_defaults($parmname);      my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
     unless (defined($winvalue)) { $winvalue=$val; }      unless (defined($winvalue)) { $winvalue=$val; }
     return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.      my $valout = &valout($value,$type,1);
  '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"      my $unencmarker = $marker;
     .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.      foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,
  &valout($value,$type,1).'</a></td></tr></table>';                \$hour, \$min, \$sec) {
       $$item = &HTML::Entities::encode($$item,'"<>&');
       $$item =~ s/\'/\\\'/g;
       }
       return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$unencmarker.'" /></td></tr><tr><td align="center">'.
       '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
           .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
           $valout.'</a></td></tr></table>';
 }  }
   
 sub page_js {  sub page_js {
Line 605  sub page_js { Line 846  sub page_js {
   
     return(<<ENDJS);      return(<<ENDJS);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
     function pclose() {  
         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
         parmwin.close();  
     }  
   
     $pjump_def      $pjump_def
   
     function psub() {      function psub() {
         pclose();  
         if (document.parmform.pres_marker.value!='') {          if (document.parmform.pres_marker.value!='') {
             document.parmform.action+='#'+document.parmform.pres_marker.value;              document.parmform.action+='#'+document.parmform.pres_marker.value;
             var typedef=new Array();              var typedef=new Array();
Line 624  sub page_js { Line 859  sub page_js {
             if (typedef[0]=='date') {              if (typedef[0]=='date') {
                 eval('document.parmform.recent_'+                  eval('document.parmform.recent_'+
                      document.parmform.pres_type.value+                       document.parmform.pres_type.value+
      '.value=document.parmform.pres_value.value;');               '.value=document.parmform.pres_value.value;');
             } else {              } else {
                 eval('document.parmform.recent_'+typedef[0]+                  eval('document.parmform.recent_'+typedef[0]+
      '.value=document.parmform.pres_value.value;');               '.value=document.parmform.pres_value.value;');
             }              }
    }         }
             document.parmform.submit();              document.parmform.submit();
         } else {          } else {
             document.parmform.pres_value.value='';              document.parmform.pres_value.value='';
Line 644  sub page_js { Line 879  sub page_js {
         var newWin = window.open(url, wdwName, options);          var newWin = window.open(url, wdwName, options);
         newWin.focus();          newWin.focus();
     }      }
   // ]]>
 </script>  </script>
 $selscript  $selscript
 ENDJS  ENDJS
   
 }  }
   
   sub showhide_js {
       return <<"COURSECONTENTSCRIPT";
   
   function showHide_courseContent() {
       var parmlevValue=document.getElementById("parmlev").value;
       if (parmlevValue == 'general') {
           document.getElementById('mapmenu').style.display="none";
       } else {
           if ((parmlevValue == "full") || (parmlevValue == "map")) {
               document.getElementById('mapmenu').style.display ="";
           } else {
               document.getElementById('mapmenu').style.display="none";
           }
       }
       return;
   }
   
   COURSECONTENTSCRIPT
   }
   
 sub startpage {  sub startpage {
     my ($r) = @_;      my ($r,$psymb) = @_;
   
     my %loaditems = ('onunload' => "pclose()",      my %loaditems = (
      'onload'   => "group_or_section('cgroup')",);                        'onload'   => "group_or_section('cgroup')",
                       );
       if (!$psymb) {
           $loaditems{'onload'} = "showHide_courseContent(); group_or_section('cgroup'); resize_scrollbox('mapmenuscroll','1','1');";
       }
   
     my $start_page =       if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
  &Apache::loncommon::start_page('Set/Modify Course Parameters',           && (!$env{'form.dis'})) || ($env{'form.symb'})) {
        &page_js(),      &Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
        {'add_entries' => \%loaditems,});          text=>"Problem Parameters"});
     my $breadcrumbs =       } else {
  &Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');      &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
          text=>"Table Mode",
          help => 'Course_Setting_Parameters'});
       }
       my $js = &page_js().'
   <script type="text/javascript">
   // <![CDATA[
   '.
               &Apache::lonhtmlcommon::resize_scrollbox_js('params').'
   // ]]>
   </script>
   ';
       my $start_page =
       &Apache::loncommon::start_page('Set/Modify Course Parameters',$js,
                          {'add_entries' => \%loaditems,});
       my $breadcrumbs =
       &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($start_page.$breadcrumbs);
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 $start_page  
 $breadcrumbs  
 <form method="post" action="/adm/parmset?action=settable" name="parmform">  <form method="post" action="/adm/parmset?action=settable" name="parmform">
 <input type="hidden" value='' name="pres_value" />  <input type="hidden" value="" name="pres_value" />
 <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
 }  }
   
   
 sub print_row {  sub print_row {
     my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,      my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
  $defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups)=@_;      $defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups,$noeditgrp,
       $readonly)=@_;
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);      my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
 # 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},$uname,$udom,$csec,$cgroup,$courseopt);        $rid,$$default{$which},$uname,$udom,$csec,$cgroup,$courseopt);
 # 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',$rid,                                            $$name{$which}.'.type',$rid,
  $$defaulttype{$which},$uname,$udom,$csec,$cgroup,$courseopt);           $$defaulttype{$which},$uname,$udom,$csec,$cgroup,$courseopt);
 # cascade down manually  # cascade down manually
     my $cascadetype=$$defaulttype{$which};      my $cascadetype=$$defaulttype{$which};
     for (my $i=14;$i>0;$i--) {      for (my $i=14;$i>0;$i--) {
  if ($typeoutpar[$i]) {        if ($typeoutpar[$i]) {
             $cascadetype=$typeoutpar[$i];              $cascadetype=$typeoutpar[$i];
  } else {      } else {
             $typeoutpar[$i]=$cascadetype;              $typeoutpar[$i]=$cascadetype;
         }          }
     }      }
     my $parm=$$display{$which};      my $parm=$$display{$which};
   
     if ($parmlev eq 'full') {      if ($parmlev eq 'full') {
         $r->print('<td bgcolor='.$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;
     }      }
     my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');      my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
     if ($automatic) {      if ($automatic) {
  $parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';      $parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';
     }      }
     $r->print('<td bgcolor='.$defbgone.'>'.$parm.'</td>');      $r->print('<td>'.$parm.'</td>');
      
     my $thismarker=$which;      my $thismarker=$which;
     $thismarker=~s/^parameter\_//;      $thismarker=~s/^parameter\_//;
     my $mprefix=$rid.'&'.$thismarker.'&';      my $mprefix=$rid.'&'.$thismarker.'&';
Line 720  sub print_row { Line 1001  sub print_row {
     if ($parmlev eq 'general') {      if ($parmlev eq 'general') {
   
         if ($uname) {          if ($uname) {
             &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
         } elsif ($cgroup) {          } elsif ($cgroup) {
             &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
         } elsif ($csec) {          } elsif ($csec) {
             &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);               &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
         } else {          } else {
             &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);               &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
         }          }
     } elsif ($parmlev eq 'map') {      } elsif ($parmlev eq 'map') {
   
         if ($uname) {          if ($uname) {
             &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
         } elsif ($cgroup) {          } elsif ($cgroup) {
             &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
         } elsif ($csec) {          } elsif ($csec) {
             &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
         } else {          } else {
             &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
         }          }
     } else {      } else {
         if ($uname) {          if ($uname) {
             if (@{$usersgroups} > 1) {              if (@{$usersgroups} > 1) {
                 my ($coursereply,$grp_parm,$controlgrp);                  my ($coursereply,$grp_parm,$controlgrp);
                 ($coursereply,$othergrp,$grp_parm,$controlgrp) =                  ($coursereply,$othergrp,$grp_parm,$controlgrp) =
                     &print_usergroups($r,$$part{$which}.'.'.$$name{$which},                      &check_other_groups($$part{$which}.'.'.$$name{$which},
                        $rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);                         $rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);
                 if ($coursereply && $result > 3) {                  if ($coursereply && $result > 3) {
                     if (defined($controlgrp)) {                      if (defined($controlgrp)) {
Line 757  sub print_row { Line 1038  sub print_row {
             }              }
         }          }
   
         &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
   
  &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);      &print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
  &print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);      &print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
  &print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);      &print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
  &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);      &print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
   
  if ($csec) {      if ($csec) {
     &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
     &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
     &print_td($r,7,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,7,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
  }      }
   
         if ($cgroup) {          if ($cgroup) {
             &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
             &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
             &print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);              &print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
         }          }
        
  if ($uname) {      if ($uname) {
             if ($othergrp) {              if ($othergrp) {
                 $r->print($othergrp);                  $r->print($othergrp);
             }              }
     &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
     &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
     &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);          &print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
  }      }
   
     } # end of $parmlev if/else      } # end of $parmlev if/else
     $r->print('<td bgcolor="#CCCCFF" align="center">'.$effective_parm.'</td>');      $r->print('<td style="background-color:#CCCCFF;" align="center">'.$effective_parm.'</td>');
   
     if ($parmlev eq 'full') {      if ($parmlev eq 'full') {
         my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.          my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$$symbp{$rid});                                          '.'.$$name{$which},$$symbp{$rid});
         my $sessionvaltype=$typeoutpar[$result];          my $sessionvaltype=$typeoutpar[$result];
         if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }          if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
         $r->print('<td bgcolor="#999999" align="center"><font color="#FFFFFF">'.          $r->print('<td style="background-color:#999999;" align="center"><font color="#FFFFFF">'.
                   &valout($sessionval,$sessionvaltype).'&nbsp;'.                    &valout($sessionval,$sessionvaltype).'&nbsp;'.
                   '</font></td>');                    '</font></td>');
     }      }
Line 802  sub print_row { Line 1083  sub print_row {
 }  }
   
 sub print_td {  sub print_td {
     my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;      my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display,$noeditgrp,$readonly)=@_;
     $r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).      $r->print('<td style="background-color:'.(($result==$which)?'#AAFFAA':$defbg).
               ' align="center">');                ';" align="center">');
     if ($which<11 || $which > 12) {      my $nolink = 0;
  $r->print(&plink($$typeoutpar[$which],      if ($readonly) {
  $$display{$value},$$outpar[$which],          $nolink = 1;
  $mprefix."$which",'parmform.pres','psub'));  
     } else {      } else {
  $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));          if ($which == 11 || $which == 12) {
               $nolink = 1;
           } elsif (($env{'request.course.sec'} ne '') && ($which > 9)) {
               $nolink = 1;
           } elsif ($which == 4 || $which ==  5 || $which == 6) {
               if ($noeditgrp) {
                   $nolink = 1;
               }
           } elsif ($mprefix =~ /availablestudent\&$/) {
               if ($which > 3) {
                   $nolink = 1;
               }
           } elsif ($mprefix =~ /examcode\&$/) {
               unless ($which == 2) {
                   $nolink = 1;
               }
           }
       }
       if ($nolink) {
           $r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
       } else {
           $r->print(&plink($$typeoutpar[$which],
                            $$display{$value},$$outpar[$which],
                            $mprefix."$which",'parmform.pres','psub'));
     }      }
     $r->print('</td>'."\n");      $r->print('</td>'."\n");
 }  }
   
 sub print_usergroups {  sub check_other_groups {
     my ($r,$what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;      my ($what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;
     my $courseid = $env{'request.course.id'};      my $courseid = $env{'request.course.id'};
     my $output;      my $output;
     my $symb = &symbcache($rid);      my $symb = &symbcache($rid);
Line 828  sub print_usergroups { Line 1131  sub print_usergroups {
                                                                    $courseopt);                                                                     $courseopt);
     my $bgcolor = $defbg;      my $bgcolor = $defbg;
     my $grp_parm;      my $grp_parm;
     if (($coursereply) && ($cgroup ne $resultgroup)) {       if (($coursereply) && ($cgroup ne $resultgroup)) {
         if ($result > 3) {          if ($result > 3) {
             $bgcolor = '"#AAFFAA"';              $bgcolor = '#AAFFAA';
             $grp_parm = &valout($coursereply,$resulttype);  
         }          }
         $grp_parm = &valout($coursereply,$resulttype);          $grp_parm = &valout($coursereply,$resulttype);
         $output = '<td bgcolor='.$bgcolor.' align="center">';          $output = '<td style="background-color:'.$bgcolor.';" align="center">';
         if ($resultgroup && $resultlevel) {          if ($resultgroup && $resultlevel) {
             $output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm;              $output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm;
         } else {          } else {
Line 842  sub print_usergroups { Line 1144  sub print_usergroups {
         }          }
         $output .= '</td>';          $output .= '</td>';
     } else {      } else {
         $output .= '<td bgcolor='.$bgcolor.'>&nbsp;</td>';          $output .= '<td style="background-color:'.$bgcolor.';">&nbsp;</td>';
     }      }
     return ($coursereply,$output,$grp_parm,$resultgroup);      return ($coursereply,$output,$grp_parm,$resultgroup);
 }  }
Line 871  sub parm_control_group { Line 1173  sub parm_control_group {
     return($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);      return($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
 }  }
   
 =pod  
   
 =item B<extractResourceInformation>: Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.  
   
 Input: See list below:  
   
 =over 4  
   
 =item B<ids>: An array that will contain all of the ids in the course.  
   
 =item B<typep>: hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.  
   
 =item B<keyp>: hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id  
   
 =item B<allparms>: hash, name of parameter->display value (what is the display value?)  
   
 =item B<allparts>: hash, part identification->text representation of part, where the text representation is "[Part $part]"  
   
 =item B<allkeys>: hash, full key to part->display value (what's display value?)  
   
 =item B<allmaps>: hash, ???  
   
 =item B<fcat>: ???  
   
 =item B<defp>: hash, ???  
   
 =item B<mapp>: ??  
   
 =item B<symbp>: hash, id->full sym?  
   
 =back  
   
 =cut  
   
 sub extractResourceInformation {  sub extractResourceInformation {
     my $ids = shift;      my $ids = shift;
Line 924  sub extractResourceInformation { Line 1194  sub extractResourceInformation {
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap = Apache::lonnavmaps::navmap->new();
     my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);      my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
     foreach my $resource (@allres) {      foreach my $resource (@allres) {
  my $id=$resource->id();          my $id=$resource->id();
         my ($mapid,$resid)=split(/\./,$id);          my ($mapid,$resid)=split(/\./,$id);
  if ($mapid eq '0') { next; }          if ($mapid eq '0') { next; }
  $$ids[$#$ids+1]=$id;          $$ids[$#$ids+1]=$id;
  my $srcf=$resource->src();          my $srcf=$resource->src();
  $srcf=~/\.(\w+)$/;          $srcf=~/\.(\w+)$/;
  $$typep{$id}=$1;          $$typep{$id}=$1;
  $$keyp{$id}='';          $$keyp{$id}='';
         $$uris{$id}=$srcf;          $$uris{$id}=$srcf;
  foreach (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {  
     if ($_=~/^parameter\_(.*)/) {          foreach my $key (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
  my $key=$_;              next if ($key!~/^parameter_/);
   
 # Hidden parameters  # Hidden parameters
  if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm') {              next if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm');
     next;  
  }  
  my $display= &Apache::lonnet::metadata($srcf,$key.'.display');  
  my $name=&Apache::lonnet::metadata($srcf,$key.'.name');  
  my $part= &Apache::lonnet::metadata($srcf,$key.'.part');  
 #  #
 # allparms is a hash of parameter names  # allparms is a hash of parameter names
 #  #
  my $parmdis = $display;              my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
  $parmdis =~ s/\[Part.*$//g;              if (!exists($$allparms{$name}) || $$allparms{$name} =~ m/^\s*$/ ) {
                   my ($display,$parmdis);
                   $display = &standard_parameter_names($name);
                   if ($display eq '') {
                       $display= &Apache::lonnet::metadata($srcf,$key.'.display');
                       $parmdis = $display;
                       $parmdis =~ s/\s*\[Part.*$//g;
                   } else {
                       $parmdis = &mt($display);
                   }
                 $$allparms{$name}=$parmdis;                  $$allparms{$name}=$parmdis;
  $$defkeytype{$name}=&Apache::lonnet::metadata($srcf,$key.'.type');                  if (ref($defkeytype)) {
                       $$defkeytype{$name}=
                       &Apache::lonnet::metadata($srcf,$key.'.type');
                   }
               }
   
 #  #
 # allparts is a hash of all parts  # allparts is a hash of all parts
 #  #
  $$allparts{$part} = "Part: $part";              my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
               $$allparts{$part} = &mt('Part: [_1]',$part);
 #  #
 # Remember all keys going with this resource  # Remember all keys going with this resource
 #  #
  if ($$keyp{$id}) {              if ($$keyp{$id}) {
     $$keyp{$id}.=','.$key;                  $$keyp{$id}.=','.$key;
  } else {              } else {
     $$keyp{$id}=$key;                  $$keyp{$id}=$key;
  }              }   
 #  #
 # Put in order  # Put in order
 #   #
                 unless ($$keyorder{$key}) {              unless ($$keyorder{$key}) {
                     $$keyorder{$key}=$keyordercnt;                  $$keyorder{$key}=$keyordercnt;
                     $keyordercnt++;                  $keyordercnt++;
  }              }
           }
     }  
  }  
  $$mapp{$id}=          if (!exists($$mapp{$mapid})) {
     &Apache::lonnet::declutter($resource->enclosing_map_src());              $$mapp{$id}=
  $$mapp{$mapid}=$$mapp{$id};              &Apache::lonnet::declutter($resource->enclosing_map_src());
  $$allmaps{$mapid}=$$mapp{$id};              $$mapp{$mapid}=$$mapp{$id};
  if ($mapid eq '1') {              $$allmaps{$mapid}=$$mapp{$id};
     $$maptitles{$mapid}='Main Course Documents';              if ($mapid eq '1') {
  } else {                  $$maptitles{$mapid}=&mt('Main Content');
     $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));              } else {
  }                  $$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});
  $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};              }
  $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);              $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
  $$symbp{$mapid}=$$mapp{$id}.'___(all)';              $$symbp{$mapid}=$$mapp{$id}.'___(all)';
           } else {
               $$mapp{$id} = $$mapp{$mapid};
           }
           $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
     }      }
 }  }
   
   
 ##################################################  
 ##################################################  
   
 sub isdateparm {  sub isdateparm {
     my $type=shift;      my $type=shift;
     return (($type=~/^date/) && (!($type eq 'date_interval')));      return (($type=~/^date/) && (!($type eq 'date_interval')));
 }  }
   
   #
   # parmmenu displays a list of the selected parameters.
   # It also offers a link to show/hide the complete parameter list
   # from which you can select all desired parameters.
   #
 sub parmmenu {  sub parmmenu {
     my ($r,$allparms,$pscat,$keyorder)=@_;      my ($r)=@_;
     my $tempkey;  
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
     function checkall(value, checkName) {      function checkall(value, checkName) {
  for (i=0; i<document.forms.parmform.elements.length; i++) {  
           var li = "_li";
           var displayOverview = "";
           
           if (value == false) {
               displayOverview = "none"
           }
   
       for (i=0; i<document.forms.parmform.elements.length; i++) {
             ele = document.forms.parmform.elements[i];              ele = document.forms.parmform.elements[i];
             if (ele.name == checkName) {              if (ele.name == checkName) {
                 document.forms.parmform.elements[i].checked=value;                  document.forms.parmform.elements[i].checked=value;
Line 1011  sub parmmenu { Line 1307  sub parmmenu {
     }      }
   
     function checkthis(thisvalue, checkName) {      function checkthis(thisvalue, checkName) {
  for (i=0; i<document.forms.parmform.elements.length; i++) {  
   
       for (i=0; i<document.forms.parmform.elements.length; i++) {
             ele = document.forms.parmform.elements[i];              ele = document.forms.parmform.elements[i];
             if (ele.name == checkName) {              if (ele.name == checkName) {
  if (ele.value == thisvalue) {          if (ele.value == thisvalue) {
     document.forms.parmform.elements[i].checked=true;              document.forms.parmform.elements[i].checked=true;
  }          }
             }              }
         }          }
     }      }
   
     function checkdates() {      function checkdates() {
  checkthis('duedate','pscat');      checkthis('duedate','pscat');
   checkthis('opendate','pscat');       checkthis('opendate','pscat');
  checkthis('answerdate','pscat');      checkthis('answerdate','pscat');
     }      }
   
     function checkdisset() {      function checkdisset() {
  checkthis('discussend','pscat');       checkthis('discussend','pscat');
   checkthis('discusshide','pscat');       checkthis('discusshide','pscat');
        checkthis('discussvote','pscat');
     }      }
   
     function checkcontdates() {      function checkcontdates() {
  checkthis('contentopen','pscat');      checkthis('contentopen','pscat');
   checkthis('contentclose','pscat');       checkthis('contentclose','pscat');
     }      }
    
   
     function checkvisi() {      function checkvisi() {
  checkthis('hiddenresource','pscat');      checkthis('hiddenresource','pscat');
   checkthis('encrypturl','pscat');       checkthis('encrypturl','pscat');
  checkthis('problemstatus','pscat');      checkthis('problemstatus','pscat');
  checkthis('contentopen','pscat');      checkthis('contentopen','pscat');
  checkthis('opendate','pscat');      checkthis('opendate','pscat');
     }      }
   
     function checkparts() {      function checkparts() {
  checkthis('hiddenparts','pscat');      checkthis('hiddenparts','pscat');
  checkthis('display','pscat');      checkthis('display','pscat');
  checkthis('ordered','pscat');      checkthis('ordered','pscat');
     }      }
   
     function checkstandard() {      function checkstandard() {
         checkall(false,'pscat');          checkall(false,'pscat');
  checkdates();      checkdates();
  checkthis('weight','pscat');      checkthis('weight','pscat');
  checkthis('maxtries','pscat');      checkthis('maxtries','pscat');
       checkthis('type','pscat');
       checkthis('problemstatus','pscat');
     }      }
   
   // ]]>
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
     $r->print();  
     $r->print("\n<table id=\"LC_parm_overview_parm_menu\"><tr>");      $r->print('<hr />');
     my $cnt=0;      &shortCuts($r);
     foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {      $r->print('<hr />');
  $r->print("\n<td><label><input type='checkbox' name='pscat' ");  }
  $r->print('value="'.$tempkey.'"');  # return a hash
  if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {  sub categories {
     $r->print(' checked');      return ('time_settings' => 'Time Settings',
  }      'grading' => 'Grading',
  $r->print('>'.$$allparms{$tempkey}.'</label></td>');      'tries' => 'Tries',
   $cnt++;      'problem_appearance' => 'Problem Appearance',
         if ($cnt==3) {      'behaviour_of_input_fields' => 'Behaviour of Input Fields',
     $r->print("</tr>\n<tr>");      'hiding' => 'Hiding',
     $cnt=0;      'high_level_randomization' => 'High Level Randomization',
  }      'slots' => 'Slots',
     }      'file_submission' => 'File Submission',
     $r->print('      'misc' => 'Miscellaneous' ); 
 </tr><tr id=\"LC_parm_overview_parm_menu_selectors\"><td>  }
 <a href="javascript:checkall(true, \'pscat\')">Select&nbsp;All</a><br />  
 <a href="javascript:checkstandard()">Select&nbsp;Common&nbsp;Only</a>  # return a hash. Like a look-up table
 </td><td>  sub lookUpTableParameter {
 <a href="javascript:checkdates()">Add&nbsp;Problem&nbsp;Dates</a>   
 <a href="javascript:checkcontdates()">Add&nbsp;Content&nbsp;Dates</a><br />      return ( 
 <a href="javascript:checkdisset()">Add&nbsp;Discussion&nbsp;Settings</a>          'opendate' => 'time_settings',
 <a href="javascript:checkvisi()">Add&nbsp;Visibilities</a><br />          'duedate' => 'time_settings',
 <a href="javascript:checkparts()">Add&nbsp;Part&nbsp;Parameters</a>          'answerdate' => 'time_settings',
 </td><td>          'interval' => 'time_settings',
 <a href="javascript:checkall(false, \'pscat\')">Unselect&nbsp;All</a>          'contentopen' => 'time_settings',
 </td>          'contentclose' => 'time_settings',
 ');          'discussend' => 'time_settings',
     $r->print('</tr></table>');   'printstartdate' => 'time_settings',
    'printenddate' => 'time_settings',
           'weight' => 'grading',
           'handgrade' => 'grading',
           'maxtries' => 'tries',
           'hinttries' => 'tries',
           'randomizeontries' => 'tries',
           'type' => 'problem_appearance',
           'problemstatus' => 'problem_appearance',
           'display' => 'problem_appearance',
           'ordered' => 'problem_appearance',
           'numbubbles' => 'problem_appearance',
           'tol' => 'behaviour_of_input_fields',
           'sig' => 'behaviour_of_input_fields',
           'turnoffunit' => 'behaviour_of_input_fields',
           'hiddenresource' => 'hiding',
           'hiddenparts' => 'hiding',
           'discusshide' => 'hiding',
           'buttonshide' => 'hiding',
           'turnoffeditor' => 'hiding',
           'encrypturl' => 'hiding',
           'randomorder' => 'high_level_randomization',
           'randompick' => 'high_level_randomization',
           'available' => 'slots',
           'useslots' => 'slots',
           'availablestudent' => 'slots',
           'uploadedfiletypes' => 'file_submission',
           'maxfilesize' => 'file_submission',
           'cssfile' => 'misc',
           'mapalias' => 'misc',
           'acc' => 'misc',
           'maxcollaborators' => 'misc',
           'scoreformat' => 'misc',
           'lenient' => 'grading',
           'retrypartial' => 'tries',
           'discussvote'  => 'misc',
           'examcode' => 'high_level_randomization',
       );
   }
   
   sub whatIsMyCategory {
       my $name = shift;
       my $catList = shift;
       my @list;
       my %lookUpList = &lookUpTableParameter; #Initilize the lookupList
       my $cat = $lookUpList{$name};
       if (defined($cat)) {
           if (!defined($$catList{$cat})){
               push @list, ($name);
               $$catList{$cat} = \@list;
           } else {
               push @{${$catList}{$cat}}, ($name);     
           }
       } else {
           if (!defined($$catList{'misc'})){
               push @list, ($name);
               $$catList{'misc'} = \@list;
           } else {
               push @{${$catList}{'misc'}}, ($name);     
           }
       }        
   }
   
   sub keysindisplayorderCategory {
       my ($name,$keyorder)=@_;
       return sort {
           $$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b}; 
       } ( @{$name});
   }
   
   sub category_order {
       return (
           'time_settings' => 1,
           'grading' => 2,
           'tries' => 3,
           'problem_appearance' => 4,
           'hiding' => 5,
           'behaviour_of_input_fields' => 6,
           'high_level_randomization'  => 7,
           'slots' => 8,
           'file_submission' => 9,
           'misc' => 10
       );
   
   }
   
   sub parmboxes {
       my ($r,$allparms,$pscat,$keyorder)=@_;
       my $tempkey;
       my $tempparameter;
       my %categories = &categories;
       my %category_order = &category_order();
       my %categoryList = (
           'time_settings' => [],
           'grading' => [],
           'tries' => [],
           'problem_appearance' => [],
           'behaviour_of_input_fields' => [],
           'hiding' => [],
           'high_level_randomization' => [],
           'slots' => [],
           'file_submission' => [],
           'misc' => [],
       );
   
       foreach $tempparameter (keys %$allparms) {
           &whatIsMyCategory($tempparameter, \%categoryList);
       }
       #part to print the parm-list
       $r->print('<div class="LC_columnSection">'."\n");
   
       #Print parameters
       for my $key (sort { $category_order{$a} <=> $category_order{$b} } keys %categoryList) {
           next if(@{$categoryList{$key}} == 0);
           $r->print('<div class="LC_Box LC_400Box">'
                     .'<h4 class="LC_hcell">'
                     .&mt($categories{$key})
                     .'</h4>'."\n");
           foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {
               next if ($tempkey eq '');
               $r->print('<span class="LC_nobreak">'
                        .'<label><input type="checkbox" name="pscat" '
                        .'value="'.$tempkey.'" ');
               if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
                   $r->print(' checked="checked"');
               }
               $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
                                                         : $tempkey)
                        .'</label></span><br />'."\n");
           }
           $r->print("</div>\n");
       }
   
       $r->print("</div>\n");
   }
   #
   # This function offers some links on the parameter section to get with one click a group a parameters
   #
   sub shortCuts {
       my ($r)=@_;
   
       # Parameter Selection
       $r->print(
           &Apache::lonhtmlcommon::start_funclist(&mt('Parameter Selection'))
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>')
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>')
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>')
          .&Apache::lonhtmlcommon::end_funclist()
       );
   
       # Add Selection for...
       $r->print(
           &Apache::lonhtmlcommon::start_funclist(&mt('Add Selection for...'))
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>')
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>')
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>')
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>')
          .&Apache::lonhtmlcommon::add_item_funclist(
               '<a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>')
          .&Apache::lonhtmlcommon::end_funclist()
       );
 }  }
   
 sub partmenu {  sub partmenu {
     my ($r,$allparts,$psprt)=@_;      my ($r,$allparts,$psprt)=@_;
     $r->print('<select multiple name="psprt" size="8">');      my $selsize = 1+scalar(keys(%{$allparts}));
       if ($selsize > 8) {
           $selsize = 8;
       }
   
       $r->print('<select multiple="multiple" name="psprt" size="'.$selsize.'">');
     $r->print('<option value="all"');      $r->print('<option value="all"');
     $r->print(' selected') unless (@{$psprt});      $r->print(' selected="selected"') unless (@{$psprt});
     $r->print('>'.&mt('All Parts').'</option>');      $r->print('>'.&mt('All Parts').'</option>');
     my %temphash=();      my %temphash=();
     foreach (@{$psprt}) { $temphash{$_}=1; }      foreach (@{$psprt}) { $temphash{$_}=1; }
     foreach my $tempkey (sort {      foreach my $tempkey (sort {
  if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }      if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
     } keys(%{$allparts})) {      } keys(%{$allparts})) {
  unless ($tempkey =~ /\./) {      unless ($tempkey =~ /\./) {
     $r->print('<option value="'.$tempkey.'"');          $r->print('<option value="'.$tempkey.'"');
     if ($$psprt[0] eq "all" ||  $temphash{$tempkey}) {          if ($$psprt[0] eq "all" ||  $temphash{$tempkey}) {
  $r->print(' selected');          $r->print(' selected="selected"');
     }          }
     $r->print('>'.$$allparts{$tempkey}.'</option>');          $r->print('>'.$$allparts{$tempkey}.'</option>');
  }      }
     }      }
     $r->print('</select>');      $r->print('</select>');
 }  }
   
 sub usermenu {  sub usermenu {
     my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups)=@_;      my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups,$pssymb)=@_;
     my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.      my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
         &Apache::loncommon::selectstudent_link('parmform','uname','udom');                    &Apache::loncommon::selectstudent_link('parmform','uname','udom','condition').
     my $selscript=&Apache::loncommon::studentbrowser_javascript();                    &Apache::lonhtmlcommon::scripttag(<<ENDJS);
     my %lt=&Apache::lonlocal::texthash(  function setCourseadv(form,caller) {
     'se'    => "Section",      if (caller.value == 'st') {
                     'gr'    => "Group",          form.courseadv.value = 'none';
     'fu'    => "For User",      } else {
     'oi'    => "or ID",          form.courseadv.value = '';
     'ad'    => "at Domain"      }
        );      return;
   }
   ENDJS
   
       my (%chkroles,$stuonly,$courseadv);
       if ($env{'form.userroles'} eq 'any') {
           $chkroles{'any'} = ' checked="checked"';
       } else {
           $chkroles{'st'} = ' checked="checked"';
           $courseadv = 'none';
       }
       my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
       if ($crstype eq 'Community') {
           $stuonly = &mt('member only');
       } else {
           $stuonly = &mt('student only');
       }
       $chooseopt .= '<br /><span class="LC_cusr_subheading">'.
                     &mt("User's role").':&nbsp;'.
                     '<label><input type="radio" name="userroles" value="st"'.$chkroles{'st'}.' onclick="setCourseadv(this.form,this);" />'.
                     $stuonly.'</label>&nbsp;&nbsp;'.
                     '<label><input type="radio" name="userroles" value="any"'.$chkroles{'any'}.' onclick="setCourseadv(this.form,this);" />'.
                     &mt('any role').'</label><input type="hidden" id="courseadv" name="courseadv" value="'.$courseadv.'" /></span>';
     my $sections='';      my $sections='';
     my %sectionhash = &Apache::loncommon::get_sections();      my %sectionhash = &Apache::loncommon::get_sections();
   
     my $groups;      my $groups;
     my %grouphash = &Apache::longroup::coursegroups();      my %grouphash;
       if (($pssymb) || &Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
     if (%sectionhash) {          %grouphash = &Apache::longroup::coursegroups();
         $sections=$lt{'se'}.': <select name="csec"';      } elsif ($env{'request.course.groups'} ne '') {
           map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
       }
   
       my $g_s_header='';
       my $g_s_footer='';
   
       my $currsec = $env{'request.course.sec'};
       if ($currsec) {
           $sections=&mt('Section:').' '.$currsec;
           if (%grouphash) {
               $sections .= ';'.('&nbsp;' x2);
           }
       } elsif (%sectionhash && $currsec eq '') {
           $sections=&mt('Section:').' <select name="csec"';
         if (%grouphash && $parmlev ne 'full') {          if (%grouphash && $parmlev ne 'full') {
             $sections .= qq| onchange="group_or_section('csec')" |;              $sections .= qq| onchange="group_or_section('csec')" |;
         }          }
         $sections .= '>';          $sections .= '>';
  foreach my $section ('',sort keys %sectionhash) {      foreach my $section ('',sort keys %sectionhash) {
     $sections.='<option value="'.$section.'" '.          $sections.='<option value="'.$section.'" '.
  ($section eq $csec?'selected="selected"':'').'>'.$section.          ($section eq $csec?'selected="selected"':'').'>'.$section.
                                                               '</option>';                                                                '</option>';
         }          }
         $sections.='</select>';          $sections.='</select>';
     }      }
     if (%sectionhash && %grouphash && $parmlev ne 'full') {  
         $sections .= '&nbsp;or&nbsp;';      if (%sectionhash && %grouphash && $parmlev ne 'full' && $currsec eq '') {
           $sections .= '&nbsp;'.&mt('or').'&nbsp;';
         $sections .= qq|          $sections .= qq|
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function group_or_section(caller) {  function group_or_section(caller) {
    if (caller == "cgroup") {     if (caller == "cgroup") {
        if (document.parmform.cgroup.selectedIndex != 0) {         if (document.parmform.cgroup.selectedIndex != 0) {
Line 1162  function group_or_section(caller) { Line 1673  function group_or_section(caller) {
        }         }
    }     }
 }  }
   // ]]>
 </script>  </script>
 |;  |;
     } else {      } elsif ($currsec eq '') {
         $sections .= qq|          $sections .= qq|
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 function group_or_section(caller) {  function group_or_section(caller) {
     return;      return;
 }  }
   // ]]>
 </script>  </script>
 |;  |;
     }       }
   
     if (%grouphash) {      if (%grouphash) {
         $groups=$lt{'gr'}.': <select name="cgroup"';          $groups=&mt('Group:').' <select name="cgroup"';
         if (%sectionhash && $env{'form.action'} eq 'settable') {          if (%sectionhash && $env{'form.action'} eq 'settable' && $currsec eq '') {
             $groups .= qq| onchange="group_or_section('cgroup')" |;              $groups .= qq| onchange="group_or_section('cgroup')" |;
         }          }
         $groups .= '>';          $groups .= '>';
Line 1197  function group_or_section(caller) { Line 1711  function group_or_section(caller) {
         }          }
         $groups.='</select>';          $groups.='</select>';
     }      }
     $r->print(<<ENDMENU);  
 <b>      if (%sectionhash || %grouphash) {
 $sections          $r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section')));
 $groups          $r->print($sections.$groups);
 <br />          $r->print(&Apache::lonhtmlcommon::row_closure());
 $lt{'fu'}       }
 <input type="text" value="$uname" size="12" name="uname" />  
 $lt{'oi'}      $r->print(&Apache::lonhtmlcommon::row_title(&mt('User')));
 <input type="text" value="$id" size="12" name="id" />       $r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
 $lt{'ad'}                   ,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
 $chooseopt                   ,'<input type="text" value="'.$id.'" size="12" name="id" /> '
 </b>                   ,$chooseopt));
 ENDMENU  
 }  }
   
   #
   # This function shows on table Mode the available Parameters for the selected Resources
   #
 sub displaymenu {  sub displaymenu {
     my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;      my ($r,$allparms,$pscat,$keyorder,$divid)=@_;
     $r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.  
      &mt('Select Parts to View').'</th></tr><tr><td>');        $r->print(&Apache::lonhtmlcommon::start_pick_box());
     &parmmenu($r,$allparms,$pscat,$keyorder);      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));
     $r->print('</td><td>');  
     &partmenu($r,$allparts,$psprt);      &parmmenu($r);
     $r->print('</td></tr></table>');      $r->print(&Apache::loncommon::start_scrollbox('480px','440px','200px',$divid));
       &parmboxes($r,$allparms,$pscat,$keyorder);
       $r->print(&Apache::loncommon::end_scrollbox());
   
       $r->print(&Apache::lonhtmlcommon::row_closure(1));
       $r->print(&Apache::lonhtmlcommon::end_pick_box());
    
 }  }
   
 sub mapmenu {  sub mapmenu {
     my ($r,$allmaps,$pschp,$maptitles)=@_;      my ($r,$allmaps,$pschp,$maptitles,$symbp)=@_;
     $r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> ');      my %allmaps_inverted = reverse %$allmaps;
     $r->print('<select name="pschp">');      my $navmap = Apache::lonnavmaps::navmap->new();
     $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');      my $tree=[];
     foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {      my $treeinfo={};
  $r->print('<option value="'.$_.'"');      if (defined($navmap)) {
  if (($pschp eq $_)) { $r->print(' selected'); }          my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
  $r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');          my $curRes;
           my $depth = 0;
           my %parent = ();
           my $startcount = 5;
           my $lastcontainer = $startcount;
   # preparing what is to show ...
           while ($curRes = $it->next()) {
               if ($curRes == $it->BEGIN_MAP()) {
                   $depth++;
                   $parent{$depth}= $lastcontainer;
               }
               if ($curRes == $it->END_MAP()) {
                   $depth--;
                   $lastcontainer = $parent{$depth};
               }
               if (ref($curRes)) {
                   my $symb = $curRes->symb();
                   my $ressymb = $symb;
                   if (($curRes->is_sequence()) || ($curRes->is_page())) {
                       my $type = 'sequence';
                       if ($curRes->is_page()) {
                           $type = 'page';
                       }
                       my $id= $curRes->id();
                       my $srcf = $curRes->src();
                       my $resource_name = &Apache::lonnet::gettitle($srcf);
                       if(!exists($treeinfo->{$id})) {
                           push(@$tree,$id);
                           my $enclosing_map_folder = &Apache::lonnet::declutter($curRes->enclosing_map_src());        
                           $treeinfo->{$id} = {
                                       depth => $depth,
                                       type  => $type,
                                       name  => $resource_name,
                                       enclosing_map_folder => $enclosing_map_folder,
                                       };
                       }
                   }
               }
           }
       }
   # Show it ...    
       $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));
       if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
           my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
           my $whitespace =
               '<img src="'
              .&Apache::loncommon::lonhttpdurl('/adm/lonIcons/whitespace_21.gif')
              .'" alt="" />';
   
           # Info about selectable folders/maps
           $r->print(
               '<div class="LC_info">'
              .&mt('You can only select maps and folders which have modifiable settings.')
              .' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder') 
              .'</div>'
           );
   
           $r->print(&Apache::loncommon::start_scrollbox('700px','680px','400px','mapmenuscroll'));
           $r->print(&Apache::loncommon::start_data_table(undef,'mapmenuinner'));
   
           # Display row: "All Maps or Folders"
           $r->print(
               &Apache::loncommon::start_data_table_row(undef,'picklevel')
              .'<td>'
              .'<label>'
              .'<input type="radio" name="pschp"'
           );
           $r->print(' checked="checked"') if ($pschp eq 'all' || !$pschp);
           $r->print(
               ' value="all" />&nbsp;'.$icon.'&nbsp;'
              .&mt('All Maps or Folders')
              .'</label>'
              .'<hr /></td>'
              .&Apache::loncommon::end_data_table_row()
           );
   
           # Display row: "Main Content"
           if (exists($$allmaps{1})) {
               $r->print(
                   &Apache::loncommon::start_data_table_row()
                  .'<td>'
                  .'<label>'
                  .'<input type="radio" name="pschp" value="1"'
               );
               $r->print(' checked="checked"') if ($pschp eq '1');
               $r->print(
                   '/>&nbsp;'.$icon.'&nbsp;'
                  .$$maptitles{1}
                  .($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')
                  .'</label>'
                  .'</td>'
                  .&Apache::loncommon::end_data_table_row()
               );
           }
   
           # Display rows for all course maps and folders
           foreach my $id (@{$tree}) {
               my ($mapid,$resid)=split(/\./,$id);
               # Indentation
               my $depth = $treeinfo->{$id}->{'depth'};
               my $indent;
               for (my $i = 0; $i < $depth; $i++) {
                   $indent.= $whitespace;
               }
               $icon =  '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
               if ($treeinfo->{$id}->{'type'} eq 'page') {
                   $icon = '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" />';
               }
               my $symb_name = $$symbp{$id};
               my ($front, $tail) = split (/___${resid}___/, $symb_name);
               $symb_name = $tail;
               $r->print(
                   &Apache::loncommon::start_data_table_row()
                  .'<td>'
                  .'<label>'
               );
               # Only offer radio button for folders/maps which can be parameterized
               if ($allmaps_inverted{$symb_name}) {
                   $r->print(
                       '<input type ="radio" name="pschp"'
                      .' value="'.$allmaps_inverted{$symb_name}.'"'
                   );
                   $r->print(' checked="checked"') if ($allmaps_inverted{$symb_name} eq $pschp);
                   $r->print('/>');
               } else {
                   $r->print($whitespace);
               }
               $r->print(
                   $indent.$icon.'&nbsp;'
                  .$treeinfo->{$id}->{name}
                  .($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')
                  .'</label>'
                  .'</td>'
                  .&Apache::loncommon::end_data_table_row()
               );
           }
   
           $r->print(&Apache::loncommon::end_data_table().
                     '<br style="line-height:2px;" />'.
                     &Apache::loncommon::end_scrollbox());
     }      }
     $r->print("</select>");  
 }  }
   
   # Build up the select Box to choose if your parameter specification should work for the resource, map/folder or the course level
   # The value of default selection in the select box is set by the value that is given by the argument in $parmlev.
 sub levelmenu {  sub levelmenu {
     my ($r,$alllevs,$parmlev)=@_;      my ($r,$alllevs,$parmlev)=@_;
     $r->print('<b>'.&mt('Select Parameter Level').  
       &Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> ');      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels')));
     $r->print('<select name="parmlev">');      $r->print('<select id="parmlev" name="parmlev" onchange="showHide_courseContent()">');
     foreach (reverse sort keys %{$alllevs}) {      foreach (reverse sort keys %{$alllevs}) {
  $r->print('<option value="'.$$alllevs{$_}.'"');      $r->print('<option value="'.$$alllevs{$_}.'"');
  if ($parmlev eq $$alllevs{$_}) {      if ($parmlev eq $$alllevs{$_}) {
     $r->print(' selected');           $r->print(' selected="selected"');
  }      }
  $r->print('>'.$_.'</option>');      $r->print('>'.&mt($_).'</option>');
     }      }
     $r->print("</select>");      $r->print("</select>");
 }  }
   
   
 sub sectionmenu {  sub sectionmenu {
     my ($r,$selectedsections)=@_;      my ($selectedsections)=@_;
     my %sectionhash = &Apache::loncommon::get_sections();      my %sectionhash = &Apache::loncommon::get_sections();
     return if (!%sectionhash);      return '' if (!%sectionhash);
   
     $r->print('<select name="Section" multiple="true" size="8" >');      my (@possibles,$disabled);
     foreach my $s ('all',sort keys %sectionhash) {      if ($env{'request.course.sec'} ne '') {
  $r->print('    <option value="'.$s.'"');          @possibles = ($env{'request.course.sec'});
  foreach (@{$selectedsections}) {          $selectedsections = [$env{'request.course.sec'}];
     if ($s eq $_) {          $disabled = ' disabled="disabled"';
  $r->print(' selected');      } else {
  last;          @possibles = ('all',sort(keys(%sectionhash)));
     }  
  }  
  $r->print('>'.$s."</option>\n");  
     }      }
     $r->print("</select>\n");      my $output = '<select name="Section" multiple="multiple" size="8"'.$disabled.'>';
       foreach my $s (@possibles) {
           $output .= '    <option value="'.$s.'"';
           if ((@{$selectedsections}) && (grep(/^\Q$s\E$/,@{$selectedsections}))) {
               $output .= ' selected="selected"';
           }
           $output .= '>'."$s</option>\n";
       }
       $output .= "</select>\n";
       return $output;
 }  }
   
 sub groupmenu {  sub groupmenu {
     my ($r,$selectedgroups)=@_;      my ($selectedgroups)=@_;
     my %grouphash = &Apache::longroup::coursegroups();      my %grouphash;
     return if (!%grouphash);      if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
           %grouphash = &Apache::longroup::coursegroups();
       } elsif ($env{'request.course.groups'} ne '') {
           map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
       }
       return '' if (!%grouphash);
   
     $r->print('<select name="Group" multiple="true" size="8" >');      my $output = '<select name="Group" multiple="multiple" size="8">';
     foreach my $group (sort(keys(%grouphash))) {      foreach my $group (sort(keys(%grouphash))) {
  $r->print('    <option value="'.$group.'"');          $output .= '    <option value="'.$group.'"';
  foreach (@{$selectedgroups}) {          if ((@{$selectedgroups}) && (grep(/^\Q$group\E$/,\@{$selectedgroups}))) {
     if ($group eq $_) {              $output .= ' selected="selected"';
  $r->print(' selected');          }
  last;          $output .= '>'.$group."</option>\n";
     }  
  }  
  $r->print('>'.$group."</option>\n");  
     }      }
     $r->print("</select>\n");      $output .= "</select>\n";
       return $output;
 }  }
   
   
 sub keysplit {  sub keysplit {
     my $keyp=shift;      my $keyp=shift;
     return (split(/\,/,$keyp));      return (split(/\,/,$keyp));
Line 1298  sub keysplit { Line 1968  sub keysplit {
 sub keysinorder {  sub keysinorder {
     my ($name,$keyorder)=@_;      my ($name,$keyorder)=@_;
     return sort {      return sort {
  $$keyorder{$a} <=> $$keyorder{$b};      $$keyorder{$a} <=> $$keyorder{$b};
     } (keys %{$name});      } (keys %{$name});
 }  }
   
 sub keysinorder_bytype {  sub keysinorder_bytype {
     my ($name,$keyorder)=@_;      my ($name,$keyorder)=@_;
     return sort {      return sort {
  my $ta=(split('_',$a))[-1];      my $ta=(split('_',$a))[-1];
  my $tb=(split('_',$b))[-1];      my $tb=(split('_',$b))[-1];
  if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {      if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {
     return ($a cmp $b);          return ($a cmp $b);
  }      }
  $$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};      $$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};
     } (keys %{$name});      } (keys %{$name});
 }  }
   
 sub keysindisplayorder {  sub keysindisplayorder {
     my ($name,$keyorder)=@_;      my ($name,$keyorder)=@_;
     return sort {      return sort {
  $$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};      $$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};
     } (keys %{$name});      } (keys %{$name});
 }  }
   
Line 1325  sub sortmenu { Line 1995  sub sortmenu {
     my ($r,$sortorder)=@_;      my ($r,$sortorder)=@_;
     $r->print('<br /><label><input type="radio" name="sortorder" value="realmstudent"');      $r->print('<br /><label><input type="radio" name="sortorder" value="realmstudent"');
     if ($sortorder eq 'realmstudent') {      if ($sortorder eq 'realmstudent') {
        $r->print(' checked="on"');         $r->print(' checked="checked"');
     }      }
     $r->print(' />'.&mt('Sort by realm first, then student (group/section)'));      $r->print(' />'.&mt('Sort by realm first, then student (group/section)'));
     $r->print('</label><br /><label><input type="radio" name="sortorder" value="studentrealm"');      $r->print('</label><br /><label><input type="radio" name="sortorder" value="studentrealm"');
     if ($sortorder eq 'studentrealm') {      if ($sortorder eq 'studentrealm') {
        $r->print(' checked="on"');         $r->print(' checked="checked"');
     }      }
     $r->print(' />'.&mt('Sort by student (group/section) first, then realm').      $r->print(' />'.&mt('Sort by student (group/section) first, then realm').
       '</label>');            '</label>');
 }  }
   
 sub standardkeyorder {  sub standardkeyorder {
     return ('parameter_0_opendate' => 1,      return ('parameter_0_opendate' => 1,
     'parameter_0_duedate' => 2,          'parameter_0_duedate' => 2,
     'parameter_0_answerdate' => 3,          'parameter_0_answerdate' => 3,
     'parameter_0_interval' => 4,          'parameter_0_interval' => 4,
     'parameter_0_weight' => 5,          'parameter_0_weight' => 5,
     'parameter_0_maxtries' => 6,          'parameter_0_maxtries' => 6,
     'parameter_0_hinttries' => 7,          'parameter_0_hinttries' => 7,
     'parameter_0_contentopen' => 8,          'parameter_0_contentopen' => 8,
     'parameter_0_contentclose' => 9,          'parameter_0_contentclose' => 9,
     'parameter_0_type' => 10,          'parameter_0_type' => 10,
     'parameter_0_problemstatus' => 11,          'parameter_0_problemstatus' => 11,
     'parameter_0_hiddenresource' => 12,          'parameter_0_hiddenresource' => 12,
     'parameter_0_hiddenparts' => 13,          'parameter_0_hiddenparts' => 13,
     'parameter_0_display' => 14,          'parameter_0_display' => 14,
     'parameter_0_ordered' => 15,          'parameter_0_ordered' => 15,
     'parameter_0_tol' => 16,          'parameter_0_tol' => 16,
     'parameter_0_sig' => 17,          'parameter_0_sig' => 17,
     'parameter_0_turnoffunit' => 18,          'parameter_0_turnoffunit' => 18,
             'parameter_0_discussend' => 19,          'parameter_0_discussend' => 19,
             'parameter_0_discusshide' => 20);          'parameter_0_discusshide' => 20,
           'parameter_0_discussvote' => 21,
    'parameter_0_printstartdate'  =>  22,
    'parameter_0_printenddate' =>  23);
 }  }
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item assessparms  
   
 Show assessment data and parameters.  This is a large routine that should  
 be simplified and shortened... someday.  
   
 Inputs: $r  
   
 Returns: nothing  
   
 Variables used (guessed by Jeremy):  
   
 =over 4  
   
 =item B<pscat>: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type.  
   
 =item B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?  
   
 =item B<allmaps>:  
   
 =back  
   
 =cut  
   
 ##################################################  
 ##################################################  
 sub assessparms {  sub assessparms {
   
     my $r=shift;      my ($r,$parm_permission) = @_;
   
   
   # -------------------------------------------------------- Variable declaration
     my @ids=();      my @ids=();
     my %symbp=();      my %symbp=();
     my %mapp=();      my %mapp=();
Line 1400  sub assessparms { Line 2046  sub assessparms {
     my %keyp=();      my %keyp=();
     my %uris=();      my %uris=();
     my %maptitles=();      my %maptitles=();
   
 # -------------------------------------------------------- Variable declaration  
   
     my %allmaps=();      my %allmaps=();
     my %alllevs=();      my %alllevs=();
   
Line 1412  sub assessparms { Line 2055  sub assessparms {
     my $csec;      my $csec;
     my $cgroup;      my $cgroup;
     my @usersgroups = ();      my @usersgroups = ();
    
     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};      my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
   
     $alllevs{'Resource Level'}='full';      $alllevs{'Resource Level'}='full';
Line 1421  sub assessparms { Line 2064  sub assessparms {
   
     my %allparms;      my %allparms;
     my %allparts;      my %allparts;
   # ------------------------------------------------------------------------------
   
 #  #
 # Order in which these parameters will be displayed  # Order in which these parameters will be displayed
 #  #
     my %keyorder=&standardkeyorder();      my %keyorder=&standardkeyorder();
   
     @ids=();  #    @ids=();
     %symbp=();  #    %symbp=();       # These seem defined above already.
     %typep=();  #    %typep=();
   
     my $message='';      my $message='';
   
     $csec=$env{'form.csec'};      $csec=$env{'form.csec'};
       if ($env{'request.course.sec'} ne '') {
           $csec = $env{'request.course.sec'};    
       }
   
   # Check group privs.
     $cgroup=$env{'form.cgroup'};      $cgroup=$env{'form.cgroup'};
       my $noeditgrp;
       if ($cgroup ne '') {
           unless (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
               if (($env{'request.course.groups'} eq '') ||
                   (!grep(/^\Q$cgroup\E$/,split(/:/,$env{'request.course.groups'})))) {
                   $noeditgrp = 1;
               }
           }
       }
   
     if      ($udom=$env{'form.udom'}) {      if      ($udom=$env{'form.udom'}) {
     } elsif ($udom=$env{'request.role.domain'}) {      } elsif ($udom=$env{'request.role.domain'}) {
     } elsif ($udom=$env{'user.domain'}) {      } elsif ($udom=$env{'user.domain'}) {
     } else {      } else {
  $udom=$r->dir_config('lonDefDomain');          $udom=$r->dir_config('lonDefDomain');
     }      }
       
   
     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='';
    
     unless ($env{'form.parmlev'}) {      unless ($env{'form.parmlev'}) {
         $parmlev = 'map';          $parmlev = 'map';
     } else {      } else {
Line 1459  sub assessparms { Line 2122  sub assessparms {
 # ----------------------------------------------- Was this started from grades?  # ----------------------------------------------- Was this started from grades?
   
     if (($env{'form.command'} eq 'set') && ($env{'form.url'})      if (($env{'form.command'} eq 'set') && ($env{'form.url'})
  && (!$env{'form.dis'})) {      && (!$env{'form.dis'})) {
  my $url=$env{'form.url'};          my $url=$env{'form.url'};
  $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;          $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
  $pssymb=&Apache::lonnet::symbread($url);          $pssymb=&Apache::lonnet::symbread($url);
  if (!@pscat) { @pscat=('all'); }          if (!@pscat) { @pscat=('all'); }
  $pschp='';          $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
     } elsif ($env{'form.symb'}) {      } elsif ($env{'form.symb'}) {
  $pssymb=$env{'form.symb'};          $pssymb=$env{'form.symb'};
  if (!@pscat) { @pscat=('all'); }          if (!@pscat) { @pscat=('all'); }
  $pschp='';          $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
     } else {      } else {
  $env{'form.url'}='';          $env{'form.url'}='';
     }      }
   
     my $id=$env{'form.id'};      my $id=$env{'form.id'};
     if (($id) && ($udom)) {      if (($id) && ($udom)) {
  $uname=(&Apache::lonnet::idget($udom,$id))[1];          $uname=(&Apache::lonnet::idget($udom,$id))[1];
  if ($uname) {          if ($uname) {
     $id='';              $id='';
  } else {          } else {
     $message=              $message=
  '<span class="LC_error">'.&mt("Unknown ID")." '$id' ".              '<span class="LC_error">'.&mt("Unknown ID")." '$id' ".
  &mt('at domain')." '$udom'</span>";              &mt('at domain')." '$udom'</span>";
  }          }
     } else {      } else {
  $uname=$env{'form.uname'};          $uname=$env{'form.uname'};
     }      }
     unless ($udom) { $uname=''; }      unless ($udom) { $uname=''; }
     $uhome='';      $uhome='';
     if ($uname) {      if ($uname) {
  $uhome=&Apache::lonnet::homeserver($uname,$udom);          $uhome=&Apache::lonnet::homeserver($uname,$udom);
         if ($uhome eq 'no_host') {          if ($uhome eq 'no_host') {
     $message=              $message=
  '<span class="LC_error">'.&mt("Unknown user")." '$uname' ".              '<span class="LC_error">'.&mt("Unknown user")." '$uname' ".
  &mt("at domain")." '$udom'</span>";              &mt("at domain")." '$udom'</span>";
     $uname='';              $uname='';
         } else {          } else {
     $csec=&Apache::lonnet::getsection($udom,$uname,              $csec=&Apache::lonnet::getsection($udom,$uname,
       $env{'request.course.id'});                            $env{'request.course.id'});
                           if ($csec eq '-1') {
     if ($csec eq '-1') {                  my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
  $message='<span class="LC_error">'.                  if ($env{'form.userroles'} eq 'any') {
     &mt("User")." '$uname' ".&mt("at domain")." '$udom' ".                      if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
     &mt("not in this course")."</span>";                          $csec = $env{'request.course.sec'};
  $uname='';                          $message = '<span class="LC_info">';
  $csec=$env{'form.csec'};                          if ($crstype eq 'Community') {
                               $message .= &mt('User [_1] at domain [_2] has a non-member role in this community',
                                               $uname,$udom);
                           } else {
                               $message .= &mt('User [_1] at domain [_2] has a non-student role in this course',
                                               $uname,$udom);
                           }
                           $message .= '</span>';
                       } else {
                           my @possroles = ('in','ep','ta','cr');
                           if ($crstype eq 'Community') {
                               unshift(@possroles,'co');
                           } else {
                               unshift(@possroles,'cc');
                           }
                           my %not_student_roles =
                               &Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],
                                                             \@possroles,[$udom],1,1);
                           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                           my %sections_by_role;
                           foreach my $role (keys(%not_student_roles)) {
                               if ($role =~ /^\Q$cnum:$cdom:\E([^:]+):(|[^:]+)$/) {
                                   my ($rolename,$sec) = ($1,$2);
                                   if ($rolename =~ m{^cr/}) {
                                       $rolename = 'cr';
                                   }
                                   push(@{$sections_by_role{$rolename}},$sec);
                               }
                           }
                           my $numroles = scalar(keys(%sections_by_role));
                           if ($numroles) {
                               foreach my $role (@possroles) {
                                   if (ref($sections_by_role{$role}) eq 'ARRAY') {
                                       my @secs = sort { $a <=> $b } @{$sections_by_role{$role}};
                                       $csec = $secs[0]; 
                                       last;
                                   }
                               }
                           }
                           if ($csec eq '-1') {
                               $message = '<span class="LC_warning">';
                               if ($crstype eq 'Community') {
                                   $message .= &mt('User [_1] at domain [_2] does not have a role in this community',
                                                   $uname,$udom);
                               } else {
                                   $message .= &mt('User [_1] at domain [_2] does not have a role in this course',
                                                   $uname,$udom);
                               }
                               $message .= '</span>';
                               $uname='';
                               if ($env{'request.course.sec'} ne '') {
                                   $csec=$env{'request.course.sec'};
                               } else {
                                   $csec=$env{'form.csec'};
                               }
                               $cgroup=$env{'form.cgroup'};
                           } else {
                               $message = '<span class="LC_info">';
                               if ($crstype eq 'Community') {
                                   $message .= &mt('User [_1] at domain [_2] has a non-member role in this community',
                                            $uname,$udom);
                               } else {
                                   $message .= &mt('User [_1] at domain [_2] has a non-student role in this course',
                                                   $uname,$udom);
                               }
                               $message .= '</span>';
                           }
                       }
                   } else {
                       $message = '<span class="LC_warning">';
                       if ($crstype eq 'Community') {
                           $message .= &mt('User [_1] at domain [_2] does not have a member role in this community',
                                            $uname,$udom);
                       } else {
                            $message .= &mt('User [_1] at domain [_2] does not have a student role in this course',
                                            $uname,$udom);
                       }
                       $message .= '</span>';
                       $uname=''; 
                       if ($env{'request.course.sec'} ne '') {
                           $csec=$env{'request.course.sec'};
                       } else {
                           $csec=$env{'form.csec'};
                       }
                       $cgroup=$env{'form.cgroup'};
                   }
               } elsif ($env{'request.course.sec'} ne '') {
                   if ($csec ne $env{'request.course.sec'}) {
                       $message='<span class="LC_warning">'.
                                 &mt("User '[_1]' at domain '[_2]' not in section '[_3]'",
                                     $uname,$udom,$env{'request.course.sec'}).
                                 '</span>';
                       $uname='';
                       $csec=$env{'request.course.sec'};
                   }
                 $cgroup=$env{'form.cgroup'};                  $cgroup=$env{'form.cgroup'};
     } else {              }
  my %name=&Apache::lonnet::userenvironment($udom,$uname,              if ($uname ne '') {
       ('firstname','middlename','lastname','generation','id'));                  my %name=&Apache::lonnet::userenvironment($udom,$uname,
  $message="\n<p>\n".&mt("Full Name").": ".                    ('firstname','middlename','lastname','generation','id'));
     $name{'firstname'}.' '.$name{'middlename'}.' '                  $message .= "\n<p>\n".&mt('Full Name').': '
  .$name{'lastname'}.' '.$name{'generation'}.                              .$name{'firstname'}.' '.$name{'middlename'}.' '
     "<br />\n".&mt('ID').": ".$name{'id'}.'<p>';                              .$name{'lastname'}.' '.$name{'generation'}
     }                              ."<br />\n".&mt('Student/Employee ID').': '.$name{'id'}.'</p>';
             @usersgroups = &Apache::lonnet::get_users_groups(                  @usersgroups = &Apache::lonnet::get_users_groups(
                                        $udom,$uname,$env{'request.course.id'});                                     $udom,$uname,$env{'request.course.id'});
             if (@usersgroups > 0) {                  if (@usersgroups > 0) {
                 unless (grep(/^\Q$cgroup\E$/,@usersgroups)) {                      unless (grep(/^\Q$cgroup\E$/,@usersgroups)) {
                     $cgroup = $usersgroups[0];                          $cgroup = $usersgroups[0];
                       }
                   } else {
                       $cgroup = '';
                 }                  }
             }              }
         }          }
Line 1530  sub assessparms { Line 2291  sub assessparms {
     unless ($cgroup) { $cgroup=''; }      unless ($cgroup) { $cgroup=''; }
   
 # --------------------------------------------------------- Get all assessments  # --------------------------------------------------------- Get all assessments
     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,       &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
  \%mapp, \%symbp,\%maptitles,\%uris,                  \%mapp, \%symbp,\%maptitles,\%uris,
  \%keyorder);                  \%keyorder);
   
     $mapp{'0.0'} = '';      $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';      $symbp{'0.0'} = '';
   
 # ---------------------------------------------------------- Anything to store?  # ---------------------------------------------------------- Anything to store?
     if ($env{'form.pres_marker'}) {      if ($env{'form.pres_marker'} && $parm_permission->{'edit'}) {
         my @markers=split(/\&\&\&/,$env{'form.pres_marker'});          my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
         my @values=split(/\&\&\&/,$env{'form.pres_value'});          my @values=split(/\&\&\&/,$env{'form.pres_value'});
         my @types=split(/\&\&\&/,$env{'form.pres_type'});          my @types=split(/\&\&\&/,$env{'form.pres_type'});
  for (my $i=0;$i<=$#markers;$i++) {          my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     $message.=&storeparm(split(/\&/,$markers[$i]),          my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
  $values[$i],          my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
  $types[$i],          my ($got_chostname,$chostname,$cmajor,$cminor);
  $uname,$udom,$csec,$cgroup);          my $totalstored = 0;
  }          my $now = time;
           for (my $i=0;$i<=$#markers;$i++) {
               my ($needsrelease,$needsnewer,$name);
               if (($env{'request.course.sec'} ne '') && ($markers[$i] =~ /\&(7|8|9)$/)) {
                   next if ($csec ne $env{'request.course.sec'});
               }
               if ($markers[$i] =~ /\&(6|5|4)$/) {
                   next if ($noeditgrp);
               }
               if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1|2|3)$/) {
                   my (@ok_slots,@fail_slots,@del_slots);
                   my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
                   my ($level,@all) =
                       &parmval_by_symb('0.availablestudent',$pssymb,'',$uname,$udom,
                                        $csec,$cgroup,$courseopt);
                   foreach my $slot_name (split(/:/,$values[$i])) {
                       next if ($slot_name eq '');
                       if (&update_slots($slot_name,$cdom,$cnum,$pssymb,$uname,$udom) eq 'ok') {
                           push(@ok_slots,$slot_name);
   
                       } else {
                           push(@fail_slots,$slot_name);
                       }
                   }
                   if (@ok_slots) {
                       $values[$i] = join(':',@ok_slots);
                   } else {
                       $values[$i] = '';
                   }
                   if ($all[$level] ne '') {
                       my @existing = split(/:/,$all[$level]);
                       foreach my $slot_name (@existing) {
                           if (!grep(/^\Q$slot_name\E$/,split(/:/,$values[$i]))) {
                               if (&delete_slots($slot_name,$cdom,$cnum,$uname,$udom,$pssymb) eq 'ok') {
                                   push(@del_slots,$slot_name);
                               }
                           }
                       }
                   }
               } elsif ($markers[$i] =~ /_(type|lenient|retrypartial|discussvote|examcode|printstartdate|printenddate)\&\d+$/) {
                   $name = $1;
                   my $val = $values[$i];
                   if ($name eq 'examcode') {
                       if (&Apache::lonnet::validCODE($values[$i])) {
                           $val = 'valid';
                       }
                   } elsif ($name eq 'printstartdate') {
                       if ($val =~ /^\d+$/) {
                           if ($val > $now) {
                               $val = 'future';
                           }
                       }
                   } elsif ($name eq 'printenddate') {
                       if ($val =~ /^\d+$/) {
                           if ($val < $now) {
                               $val = 'past';
                           }
                       }
                   }
                   $needsrelease =
                       $Apache::lonnet::needsrelease{"parameter:$name:$val"};
                   if ($needsrelease) {
                       unless ($got_chostname) {
                           ($chostname,$cmajor,$cminor) = &parameter_release_vars();
                           $got_chostname = 1;
                       }
                       $needsnewer = &parameter_releasecheck($name,$val,
                                                             $needsrelease,
                                                             $cmajor,$cminor);
                   }
               }
               if ($needsnewer) {
                   $message .= &oldversion_warning($name,$values[$i],$chostname,$cmajor,
                                                   $cminor,$needsrelease);
               } else {
                   $message.=&storeparm(split(/\&/,$markers[$i]),
                                        $values[$i],
                                        $types[$i],
                                        $uname,$udom,$csec,$cgroup);
                   $totalstored ++;
               }
           }
 # ---------------------------------------------------------------- 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>';          if ($totalstored) {
               $message.='<p class="LC_warning">'
                        .&mt('Changes can take up to 10 minutes before being active for all students.')
                        .&Apache::loncommon::help_open_topic('Caching')
                        .'</p>';
           }
     }      }
 #----------------------------------------------- if all selected, fill in array  #----------------------------------------------- if all selected, fill in array
     if ($pscat[0] eq "all") {@pscat = (keys %allparms);}      if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
     if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') };       if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries','type','problemstatus') };
     if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}      if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
 # ------------------------------------------------------------------ Start page  # ------------------------------------------------------------------ Start page
   
     &startpage($r);      &startpage($r,$pssymb);
   
     foreach ('tolerance','date_default','date_start','date_end',      foreach ('tolerance','date_default','date_start','date_end',
      'date_interval','int','float','string') {          'date_interval','int','float','string') {
  $r->print('<input type="hidden" value="'.          $r->print('<input type="hidden" value="'.
   $env{'form.recent_'.$_}.'" name="recent_'.$_.'" />');            &HTML::Entities::encode($env{'form.recent_'.$_},'"&<>').
             '" name="recent_'.$_.'" />');
     }      }
                           
       # ----- Start Parameter Selection
   
       # Hide parm selection?
       $r->print(<<ENDPARMSELSCRIPT);
   <script type="text/javascript">
   // <![CDATA[
   function parmsel_show() {
     document.getElementById('parmsel').style.display = "";
     document.getElementById('parmsellink').style.display = "none";
   }
   // ]]>
   </script>
   ENDPARMSELSCRIPT
       
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<table border="1"><tr><td>');          my $parmselhiddenstyle=' style="display:none"';
           if($env{'form.hideparmsel'} eq 'hidden') {
              $r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
           } else  {
              $r->print('<div id="parmsel">');
           }
   
           # Step 1
           $r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification'),'parmstep1'));
           $r->print('
   <script type="text/javascript">
   // <![CDATA['.
                    &showhide_js().'
   // ]]>
   </script>
   ');
           $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
         &levelmenu($r,\%alllevs,$parmlev);          &levelmenu($r,\%alllevs,$parmlev);
  if ($parmlev ne 'general') {          $r->print(&Apache::lonhtmlcommon::row_closure());
             $r->print('<td>');          &mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
     &mapmenu($r,\%allmaps,$pschp,\%maptitles);          $r->print(&Apache::lonhtmlcommon::row_closure());
     $r->print('</td>');          $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
  }          &partmenu($r,\%allparts,\@psprt);
         $r->print('</td></tr></table>');          $r->print(&Apache::lonhtmlcommon::row_closure(1));
  &displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);          $r->print(&Apache::lonhtmlcommon::end_pick_box());
     } else {  
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);          # Step 2
  my $title = &Apache::lonnet::gettitle($pssymb);          $r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification'),'parmstep2'));
         $r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).          &displaymenu($r,\%allparms,\@pscat,\%keyorder,'parmmenuscroll');
                   '<input type="hidden" value="'.$pssymb.'" name="symb" />'.  
   '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.          # Step 3
   ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');          $r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)'),'parmstep3'));
           $r->print(&Apache::lonhtmlcommon::start_pick_box());
           &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups,$pssymb);
           $r->print(&Apache::lonhtmlcommon::row_closure(1));
           $r->print(&Apache::lonhtmlcommon::end_pick_box());
   
           # Update Display Button
           $r->print('<p>'
                .'<input type="submit" name="dis"'
                .' value="'.&mt('Update Display').'" />'
                .'<input type="hidden" name="hideparmsel" value="hidden" />'
                .'</p>');
           $r->print('</div>');
   
           # Offer link to display parameter selection again
           $r->print('<p id="parmsellink"');
           if ($env{'form.hideparmsel'} ne 'hidden') {
              $r->print($parmselhiddenstyle);
           }
           $r->print('>'
                .'<a href="javascript:parmsel_show()">'
                .&mt('Change Parameter Selection')
                .'</a>'
                .'</p>');
       } else {
           $r->print();
           # parameter screen for a single resource. 
           my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
           my $title = &Apache::lonnet::gettitle($pssymb);
           $r->print(&mt('Specific Resource: [_1] ([_2])',
                            $title,'<span class="LC_filename">'.$resource.'</span>').
                   '<input type="hidden" value="'.$pssymb.'" name="symb" />'.
                     '<br />');
           $r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
           $r->print(&Apache::lonhtmlcommon::start_pick_box());
           $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).
                     '<label>'.
                     '<input type="checkbox" name="psprt" value="all"'.
                     ($env{'form.psprt'}?' checked="checked"':'').' />'.
                     &mt('Show all parts').
                     '</label></td></tr>');
           &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups,$pssymb);
           $r->print(&Apache::lonhtmlcommon::row_closure(1));
           $r->print(&Apache::lonhtmlcommon::end_pick_box());
           $r->print('<p>'
                .'<input type="submit" name="dis"'
                .' value="'.&mt('Update Display').'" />'
                .'<input type="hidden" name="hideparmsel" value="hidden" />'
                .'</p>');
     }      }
     &usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);          
       # ----- End Parameter Selection
   
     $r->print('<p>'.$message.'</p>');      # Display Messages
       $r->print('<div>'.$message.'</div>');
   
     $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');  
   
     my @temp_pscat;      my @temp_pscat;
     map {      map {
Line 1602  sub assessparms { Line 2529  sub assessparms {
         my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;          my @catmarker=map { tr|.|_|; 'parameter_'.$_; } @pscat;
         my $csuname=$env{'user.name'};          my $csuname=$env{'user.name'};
         my $csudom=$env{'user.domain'};          my $csudom=$env{'user.domain'};
           my $readonly = 1;
           if ($parm_permission->{'edit'}) {
               undef($readonly);
           }
   
         if ($parmlev eq 'full') {          if ($parmlev eq 'full') {
            my $coursespan=$csec?8:5;  #
            my $userspan=3;  # This produces the cascading table output of parameters
            if ($cgroup ne '') {  #
               $coursespan += 3;                 my $coursespan=$csec?8:5;
            }                  my $userspan=3;
                        if ($cgroup ne '') {
            $r->print('<p><table border=2>');                    $coursespan += 3;
            $r->print('<tr><td colspan=5></td>');  
            $r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');  
            if ($uname) {  
                if (@usersgroups > 1) {  
                    $userspan ++;  
                }                 }
                $r->print('<th colspan="'.$userspan.'" rowspan="2">');  
                $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");                 $r->print(&Apache::loncommon::start_data_table());
            }  #
    my %lt=&Apache::lonlocal::texthash(  # This produces the headers
   'pie'    => "Parameter in Effect",  #
   'csv'    => "Current Session Value",                 $r->print('<tr><td colspan="5"></td>');
                                   'at'     => 'at',                 $r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');
                                   'rl'     => "Resource Level",                 if ($uname) {
   'ic'     => 'in Course',                  if (@usersgroups > 1) {
   'aut'    => "Assessment URL and Title",                         $userspan ++;
   'type'   => 'Type',                     }
   'emof'   => "Enclosing Map or Folder",                     $r->print('<th colspan="'.$userspan.'" rowspan="2">');
   'part'   => 'Part',                     $r->print(&mt("User")." $uname ".&mt('at Domain')." $udom</th>");
                                   'pn'     => 'Parameter Name',                 }
   'def'    => 'default',                 my %lt=&Apache::lonlocal::texthash(
   'femof'  => 'from Enclosing Map or Folder',                  'pie'    => "Parameter in Effect",
   'gen'    => 'general',                  'csv'    => "Current Session Value",
   'foremf' => 'for Enclosing Map or Folder',                  'rl'     => "Resource Level",
   'fr'     => 'for Resource'                  'ic'     => 'in Course',
       );                  'aut'    => "Assessment URL and Title",
            $r->print(<<ENDTABLETWO);                  'type'   => 'Type',
 <th rowspan=3>$lt{'pie'}</th>                  'emof'   => "Enclosing Map or Folder",
 <th rowspan=3>$lt{'csv'}<br />($csuname $lt{'at'} $csudom)</th>                  'part'   => 'Part',
 </tr><tr><td colspan=5></td><th colspan=2>$lt{'ic'}</th><th colspan=2>$lt{'rl'}</th>                  'pn'     => 'Parameter Name',
 <th colspan=1>$lt{'ic'}</th>                  'def'    => 'default',
                   'femof'  => 'from Enclosing Map or Folder',
                   'gen'    => 'general',
                   'foremf' => 'for Enclosing Map or Folder',
                   'fr'     => 'for Resource'
               );
                  $r->print(<<ENDTABLETWO);
   <th rowspan="3">$lt{'pie'}</th>
   <th rowspan="3">$lt{'csv'}<br />($csuname:$csudom)</th>
   </tr><tr><td colspan="5"></td><th colspan="2">$lt{'ic'}</th><th colspan="2">$lt{'rl'}</th>
   <th colspan="1">$lt{'ic'}</th>
   
 ENDTABLETWO  ENDTABLETWO
            if ($csec) {                 if ($csec) {
                 $r->print("<th colspan=3>".                     $r->print('<th colspan="3">'.
   &mt("in Section")." $csec</th>");                    &mt("in Section")." $csec</th>");
            }                 }
            if ($cgroup) {                 if ($cgroup) {
                 $r->print("<th colspan=3>".                  $r->print('<th colspan="3">'.
                           &mt("in Group")." $cgroup</th>");                  &mt("in Group")." $cgroup</th>");
            }                 }
            $r->print(<<ENDTABLEHEADFOUR);                 $r->print(<<ENDTABLEHEADFOUR);
 </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>  </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
 <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>  <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
 <th>$lt{'gen'}</th><th>$lt{'foremf'}</th>  <th>$lt{'gen'}</th><th>$lt{'foremf'}</th>
 <th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>  <th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
 ENDTABLEHEADFOUR  ENDTABLEHEADFOUR
   
            if ($csec) {                 if ($csec) {
                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');                     $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
            }                 }
   
            if ($cgroup) {  
                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');  
            }  
   
            if ($uname) {                 if ($cgroup) {
                if (@usersgroups > 1) {                  $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
                    $r->print('<th>'.&mt('Control by other group?').'</th>');  
                }                 }
                $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');  
            }  
   
            $r->print('</tr>');                 if ($uname) {
                   if (@usersgroups > 1) {
                       $r->print('<th>'.&mt('Control by other group?').'</th>');
                      }
                      $r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
                  }
   
            my $defbgone='';                 $r->print('</tr>');
            my $defbgtwo='';  #
            my $defbgthree = '';  # Done with the headers
   # 
                  my $defbgone='';
                  my $defbgtwo='';
                  my $defbgthree = '';
   
            foreach (@ids) {                 foreach (@ids) {
   
                 my $rid=$_;                  my $rid=$_;
                 my ($inmapid)=($rid=~/\.(\d+)$/);                  my ($inmapid)=($rid=~/\.(\d+)$/);
   
                 if ((!$pssymb &&                   if ((!$pssymb &&
      (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))                   (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
     ||                  ||
     ($pssymb && $pssymb eq $symbp{$rid})) {                  ($pssymb && $pssymb eq $symbp{$rid})) {
 # ------------------------------------------------------ Entry for one resource  # ------------------------------------------------------ Entry for one resource
                     if ($defbgone eq '"#E0E099"') {                      if ($defbgone eq '#E0E099') {
                         $defbgone='"#E0E0DD"';                          $defbgone='#E0E0DD';
                     } else {                      } else {
                         $defbgone='"#E0E099"';                          $defbgone='#E0E099';
                     }                      }
                     if ($defbgtwo eq '"#FFFF99"') {                      if ($defbgtwo eq '#FFFF99') {
                         $defbgtwo='"#FFFFDD"';                          $defbgtwo='#FFFFDD';
                     } else {                      } else {
                         $defbgtwo='"#FFFF99"';                          $defbgtwo='#FFFF99';
                     }                      }
                     if ($defbgthree eq '"#FFBB99"') {                      if ($defbgthree eq '#FFBB99') {
                         $defbgthree='"#FFBBDD"';                          $defbgthree='#FFBBDD';
                     } else {                      } else {
                         $defbgthree='"#FFBB99"';                          $defbgthree='#FFBB99';
                     }                      }
   
                     my $thistitle='';                      my $thistitle='';
Line 1715  ENDTABLEHEADFOUR Line 2653  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');  
                           $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');                            my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');
                             if ($allparms{$name{$_}} ne '') {
                                 my $identifier;
                                 if ($parmdis =~ /(\s*\[Part.*)$/) {
                                     $identifier = $1;
                                 }
                                 $display{$_} = $allparms{$name{$_}}.$identifier;
                             } else {
                                 $display{$_} = $parmdis;
                             }
                           unless ($display{$_}) { $display{$_}=''; }                            unless ($display{$_}) { $display{$_}=''; }
                           $display{$_}.=' ('.$name{$_}.')';                            $display{$_}.=' ('.$name{$_}.')';
                           $default{$_}=&Apache::lonnet::metadata($uri,$_);                            $default{$_}=&Apache::lonnet::metadata($uri,$_);
Line 1730  ENDTABLEHEADFOUR Line 2684  ENDTABLEHEADFOUR
                     }                      }
                     my $totalparms=scalar keys %name;                      my $totalparms=scalar keys %name;
                     if ($totalparms>0) {                      if ($totalparms>0) {
                         my $firstrow=1;                             my $firstrow=1;
  my $title=&Apache::lonnet::gettitle($symbp{$rid});                          my $title=&Apache::lonnet::gettitle($symbp{$rid});
                         $r->print('<tr><td bgcolor='.$defbgone.                          $r->print('<tr><td style="background-color:'.$defbgone.';"'.
                              ' rowspan='.$totalparms.                               ' rowspan='.$totalparms.
                              '><tt><font size=-1>'.                               '><tt><font size="-1">'.
                              join(' / ',split(/\//,$uri)).                               join(' / ',split(/\//,$uri)).
                              '</font></tt><p><b>'.                               '</font></tt><p><b>'.
                              "<a href=\"javascript:openWindow('".                               "<a href=\"javascript:openWindow('".
   &Apache::lonnet::clutter($uri).'?symb='.                            &Apache::lonnet::clutter($uri).'?symb='.
   &escape($symbp{$rid}).                            &escape($symbp{$rid}).
                              "', 'metadatafile', '450', '500', 'no', 'yes');\"".                               "', 'metadatafile', '450', '500', 'no', 'yes');\"".
                              " target=\"_self\">$title");                               " target=\"_self\">$title");
   
Line 1747  ENDTABLEHEADFOUR Line 2701  ENDTABLEHEADFOUR
                             $r->print(' ('.$thistitle.')');                              $r->print(' ('.$thistitle.')');
                         }                          }
                         $r->print('</a></b></td>');                          $r->print('</a></b></td>');
                         $r->print('<td bgcolor='.$defbgtwo.                          $r->print('<td style="background-color:'.$defbgtwo.';"'.
                                       ' rowspan='.$totalparms.'>'.$typep{$rid}.                                        ' rowspan='.$totalparms.'>'.$typep{$rid}.
                                       '</td>');                                        '</td>');
   
                         $r->print('<td bgcolor='.$defbgone.                          $r->print('<td style="background-color:'.$defbgone.';"'.
                                       ' rowspan='.$totalparms.                                        ' rowspan='.$totalparms.
                                       '>'.$maptitles{$mapp{$rid}}.'</td>');                                        '>'.$maptitles{$mapp{$rid}}.'</td>');
   
                         foreach (&keysinorder_bytype(\%name,\%keyorder)) {                          foreach (&keysinorder_bytype(\%name,\%keyorder)) {
   
                             unless ($firstrow) {                              unless ($firstrow) {
                                 $r->print('<tr>');                                  $r->print('<tr>');
                             } else {                              } else {
Line 1764  ENDTABLEHEADFOUR Line 2718  ENDTABLEHEADFOUR
                             &print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,                              &print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,
                                        \%type,\%display,$defbgone,$defbgtwo,                                         \%type,\%display,$defbgone,$defbgtwo,
                                        $defbgthree,$parmlev,$uname,$udom,$csec,                                         $defbgthree,$parmlev,$uname,$udom,$csec,
                                                             $cgroup,\@usersgroups);                                         $cgroup,\@usersgroups,$noeditgrp,$readonly);
                         }                          }
                     }                      }
                 }                  }
             } # end foreach ids              } # end foreach ids
 # -------------------------------------------------- End entry for one resource  # -------------------------------------------------- End entry for one resource
             $r->print('</table>');              $r->print(&Apache::loncommon::end_data_table);
         } # end of  full          } # end of  full
 #--------------------------------------------------- Entry for parm level map  #--------------------------------------------------- Entry for parm level map
         if ($parmlev eq 'map') {          if ($parmlev eq 'map') {
             my $defbgone = '"E0E099"';              my $defbgone = '#E0E099';
             my $defbgtwo = '"FFFF99"';              my $defbgtwo = '#FFFF99';
             my $defbgthree = '"FFBB99"';              my $defbgthree = '#FFBB99';
   
             my %maplist;              my %maplist;
   
             if ($pschp eq 'all') {              if ($pschp eq 'all') {
                 %maplist = %allmaps;                   %maplist = %allmaps;
             } else {              } else {
                 %maplist = ($pschp => $mapp{$pschp});                  %maplist = ($pschp => $mapp{$pschp});
             }              }
   
 #-------------------------------------------- for each map, gather information  #-------------------------------------------- for each map, gather information
             my $mapid;              my $mapid;
     foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {                 foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys %maplist) {
                 my $maptitle = $maplist{$mapid};                  my $maptitle = $maplist{$mapid};
   
 #-----------------------  loop through ids and get all parameter types for map  #-----------------------  loop through ids and get all parameter types for map
Line 1800  ENDTABLEHEADFOUR Line 2754  ENDTABLEHEADFOUR
                 my %default = ();                  my %default = ();
                 my $map = 0;                  my $map = 0;
   
 # $r->print("Catmarker: @catmarker<br />\n");  #        $r->print("Catmarker: @catmarker<br />\n");
                  
                 foreach (@ids) {                  foreach (@ids) {
                   ($map)=(/([\d]*?)\./);                      ($map)=(/([\d]*?)\./);
                   my $rid = $_;                        my $rid = $_;
           
 #                  $r->print("$mapid:$map:   $rid <br /> \n");  #                  $r->print("$mapid:$map:   $rid <br /> \n");
   
                   if ($map eq $mapid) {                       if ($map eq $mapid) {
                     my $uri=&Apache::lonnet::declutter($uris{$rid});                          my $uri=&Apache::lonnet::declutter($uris{$rid});
 #                    $r->print("Keys: $keyp{$rid} <br />\n");  #                    $r->print("Keys: $keyp{$rid} <br />\n");
   
 #--------------------------------------------------------------------  #--------------------------------------------------------------------
Line 1819  ENDTABLEHEADFOUR Line 2773  ENDTABLEHEADFOUR
 # When storing information, store as part 0  # When storing information, store as part 0
 # When requesting information, request from full part  # When requesting information, request from full part
 #-------------------------------------------------------------------  #-------------------------------------------------------------------
                     foreach (&keysplit($keyp{$rid})) {                          foreach (&keysplit($keyp{$rid})) {
                       my $tempkeyp = $_;                               my $tempkeyp = $_;
                       my $fullkeyp = $tempkeyp;                                my $fullkeyp = $tempkeyp;
                       $tempkeyp =~ s/_\w+_/_0_/;                                $tempkeyp =~ s/_\w+_/_0_/;
                         
                       if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {                                if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
                         $part{$tempkeyp}="0";                                  $part{$tempkeyp}="0";
                         $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');                                  $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
                         $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');                                  my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
                         unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }                                  if ($allparms{$name{$tempkeyp}} ne '') {
                         $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';                                      my $identifier;
                         $display{$tempkeyp} =~ s/_\w+_/_0_/;                                      if ($parmdis =~ /(\s*\[Part.*)$/) {
                         $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);                                          $identifier = $1;
                         $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');                                      }
                                       $display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
                                   } else {
                                       $display{$tempkeyp} = $parmdis;
                                   }
                                   unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                                   $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
                                   $display{$tempkeyp} =~ s/_\w+_/_0_/;
                                   $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
                                   $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
                                 }
                           } # end loop through keys
                       }                        }
                     } # end loop through keys  
                   }  
                 } # end loop through ids                  } # end loop through ids
                                    
 #---------------------------------------------------- print header information  #---------------------------------------------------- print header information
                 my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');                  my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
                 my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');                  my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
                 $r->print(<<ENDMAPONE);                  my $tmp="";
 <center><h4>  
 Set Defaults for All Resources in $foldermap<br />  
 <font color="red"><i>$showtitle</i></font><br />  
 Specifically for  
 ENDMAPONE  
                 if ($uname) {                  if ($uname) {
     my $person=&Apache::loncommon::plainname($uname,$udom);                      my $person=&Apache::loncommon::plainname($uname,$udom);
                     $r->print(&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".                      $tmp.=&mt("User")." <font color=\"red\"><i>$uname \($person\) </i></font> ".
                         &mt('in')." \n");                          &mt('in')." \n";
                 } else {                  } else {
                     $r->print("<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n");                      $tmp.="<font color=\"red\"><i>".&mt('all').'</i></font> '.&mt('users in')." \n";
                 }                  }
                 if ($cgroup) {                  if ($cgroup) {
                     $r->print(&mt("Group")." <font color=\"red\"><i>$cgroup".                      $tmp.=&mt("Group")." <font color=\"red\"><i>$cgroup".
                               "</i></font> ".&mt('of')." \n");                                "</i></font> ".&mt('of')." \n";
                     $csec = '';                      $csec = '';
                 } elsif ($csec) {                  } elsif ($csec) {
                     $r->print(&mt("Section")." <font color=\"red\"><i>$csec".                      $tmp.=&mt("Section")." <font color=\"red\"><i>$csec".
                               "</i></font> ".&mt('of')." \n");                                "</i></font> ".&mt('of')." \n";
                 }                  }
                 $r->print("<font color=\"red\"><i>$coursename</i></font><br />");                  $r->print('<div align="center"><h4>'
                 $r->print("</h4>\n");                           .&mt('Set Defaults for All Resources in [_1]Specifically for [_2][_3]'
                                ,$foldermap.'<br /><font color="red"><i>'.$showtitle.'</i></font><br />'
                                ,$tmp
                                ,'<font color="red"><i>'.$coursename.'</i></font>'
                                )
                            ."<br /></h4>\n"
                   );
 #---------------------------------------------------------------- print table  #---------------------------------------------------------------- print table
                 $r->print('<p><table border="2">');                  $r->print('<p>'.&Apache::loncommon::start_data_table()
                 $r->print('<tr><th>'.&mt('Parameter Name').'</th>');                           .&Apache::loncommon::start_data_table_header_row()
                 $r->print('<th>'.&mt('Default Value').'</th>');                           .'<th>'.&mt('Parameter Name').'</th>'
                 $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');                           .'<th>'.&mt('Default Value').'</th>'
                            .'<th>'.&mt('Parameter in Effect').'</th>'
                            .&Apache::loncommon::end_data_table_header_row()
                   );
   
         foreach (&keysinorder(\%name,\%keyorder)) {                  foreach (&keysinorder(\%name,\%keyorder)) {
                     $r->print('<tr>');                      $r->print(&Apache::loncommon::start_data_table_row());
                     &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,                      &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
                            \%type,\%display,$defbgone,$defbgtwo,$defbgthree,                             \%type,\%display,$defbgone,$defbgtwo,$defbgthree,
                            $parmlev,$uname,$udom,$csec,$cgroup);                             $parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
                              $readonly);
                 }                  }
                 $r->print("</table></center>");                  $r->print(&Apache::loncommon::end_data_table().'</p>'
                            .'</div>'
                   );
             } # end each map              } # end each map
         } # end of $parmlev eq map          } # end of $parmlev eq map
 #--------------------------------- Entry for parm level general (Course level)  #--------------------------------- Entry for parm level general (Course level)
         if ($parmlev eq 'general') {          if ($parmlev eq 'general') {
             my $defbgone = '"E0E099"';              my $defbgone = '#E0E099';
             my $defbgtwo = '"FFFF99"';              my $defbgtwo = '#FFFF99';
             my $defbgthree = '"FFBB99"';              my $defbgthree = '#FFBB99';
   
 #-------------------------------------------- for each map, gather information  #-------------------------------------------- for each map, gather information
             my $mapid="0.0";              my $mapid="0.0";
Line 1894  ENDMAPONE Line 2864  ENDMAPONE
             my %display = ();              my %display = ();
             my %type = ();              my %type = ();
             my %default = ();              my %default = ();
                  
             foreach (@ids) {              foreach (@ids) {
                 my $rid = $_;                  my $rid = $_;
           
                 my $uri=&Apache::lonnet::declutter($uris{$rid});                  my $uri=&Apache::lonnet::declutter($uris{$rid});
   
 #--------------------------------------------------------------------  #--------------------------------------------------------------------
Line 1908  ENDMAPONE Line 2878  ENDMAPONE
 # When requesting information, request from full part  # When requesting information, request from full part
 #-------------------------------------------------------------------  #-------------------------------------------------------------------
                 foreach (&keysplit($keyp{$rid})) {                  foreach (&keysplit($keyp{$rid})) {
                   my $tempkeyp = $_;                      my $tempkeyp = $_;
                   my $fullkeyp = $tempkeyp;                        my $fullkeyp = $tempkeyp;
                   $tempkeyp =~ s/_\w+_/_0_/;                        $tempkeyp =~ s/_\w+_/_0_/;
                   if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {                        if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
                     $part{$tempkeyp}="0";                          $part{$tempkeyp}="0";
                     $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');                          $name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
                     $display{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');                          my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');
                     unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }                          if ($allparms{$name{$tempkeyp}} ne '') {
                     $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';                              my $identifier;
                     $display{$tempkeyp} =~ s/_\w+_/_0_/;                              if ($parmdis =~ /(\s*\[Part.*)$/) {
                     $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);                                  $identifier = $1;
                     $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');                              }
                   }                              $display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
                           } else {
                               $display{$tempkeyp} = $parmdis;
                           }
                           unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
                           $display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
                           $display{$tempkeyp} =~ s/_\w+_/_0_/;
                           $default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
                           $type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
                         }
                 } # end loop through keys                  } # end loop through keys
             } # end loop through ids              } # end loop through ids
                                    
 #---------------------------------------------------- print header information  #---------------------------------------------------- print header information
     my $setdef=&mt("Set Defaults for All Resources in Course");              my $setdef=&mt("Set Defaults for All Resources in Course");
             $r->print(<<ENDMAPONE);              $r->print(<<ENDMAPONE);
 <center><h4>$setdef  <center>
   <h4>$setdef
 <font color="red"><i>$coursename</i></font><br />  <font color="red"><i>$coursename</i></font><br />
 ENDMAPONE  ENDMAPONE
             if ($uname) {              if ($uname) {
  my $person=&Apache::loncommon::plainname($uname,$udom);                  my $person=&Apache::loncommon::plainname($uname,$udom);
                 $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");                  $r->print(" ".&mt("User")."<font color=\"red\"> <i>$uname \($person\) </i></font> \n");
             } else {              } else {
                 $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");                  $r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
             }              }
               
             if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};              if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
             if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$cgroup</i></font>\n")};              if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$cgroup</i></font>\n")};
             $r->print("</h4>\n");              $r->print("</h4>\n");
 #---------------------------------------------------------------- print table  #---------------------------------------------------------------- print table
             $r->print('<p><table border="2">');              $r->print('<p>'.&Apache::loncommon::start_data_table()
             $r->print('<tr><th>'.&mt('Parameter Name').'</th>');                       .&Apache::loncommon::start_data_table_header_row()
             $r->print('<th>'.&mt('Default Value').'</th>');                       .'<th>'.&mt('Parameter Name').'</th>'
             $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');                       .'<th>'.&mt('Default Value').'</th>'
                        .'<th>'.&mt('Parameter in Effect').'</th>'
                        .&Apache::loncommon::end_data_table_header_row()
               );
   
     foreach (&keysinorder(\%name,\%keyorder)) {              foreach (&keysinorder(\%name,\%keyorder)) {
                 $r->print('<tr>');                  $r->print(&Apache::loncommon::start_data_table_row());
                 &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,                  &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
                        \%type,\%display,$defbgone,$defbgtwo,$defbgthree,                             \%type,\%display,$defbgone,$defbgtwo,$defbgthree,
                                    $parmlev,$uname,$udom,$csec,$cgroup);                             $parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
                              $readonly);
             }              }
             $r->print("</table></center>");              $r->print(&Apache::loncommon::end_data_table()
                        .'</p>'
                        .'</center>'
               );
         } # end of $parmlev eq general          } # end of $parmlev eq general
     }      }
     $r->print('</form>'.&Apache::loncommon::end_page());      $r->print('</form>');
       $r->print(&Apache::loncommon::end_page());
 } # end sub assessparms  } # end sub assessparms
   
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item crsenv  
   
 Show and set course data and parameters.  This is a large routine that should  
 be simplified and shortened... someday.  
   
 Inputs: $r  
   
 Returns: nothing  
   
 =cut  
   
 ##################################################  
 ##################################################  
 sub crsenv {  
     my $r=shift;  
     my $setoutput='';  
   
     my $breadcrumbs =   
  &Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');  
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};  
   
     #  
     # Go through list of changes  
     foreach (keys %env) {  
         next if ($_!~/^form\.(.+)\_setparmval$/);  
         my $name  = $1;  
         my $value = $env{'form.'.$name.'_value'};  
         if ($name eq 'newp') {  
             $name = $env{'form.newp_name'};  
         }  
         if ($name eq 'url') {  
             $value=~s/^\/res\///;  
             my $bkuptime=time;  
             my @tmp = &Apache::lonnet::get  
                 ('environment',['url'],$dom,$crs);  
             $setoutput.=&mt('Backing up previous URL').': '.  
                 &Apache::lonnet::put  
                 ('environment',  
                  {'top level map backup '.$bkuptime => $tmp[1] },  
                  $dom,$crs).  
                      '<br />';  
         }  
         #  
         # Deal with modified default spreadsheets  
         if ($name =~ /^spreadsheet_default_(classcalc|  
                                             studentcalc|  
                                             assesscalc)$/x) {  
             my $sheettype = $1;   
             if ($sheettype eq 'classcalc') {  
                 # no need to do anything since viewing the sheet will  
                 # cause it to be updated.   
             } elsif ($sheettype eq 'studentcalc') {  
                 # expire all the student spreadsheets  
                 &Apache::lonnet::expirespread('','','studentcalc');  
             } else {  
                 # expire all the assessment spreadsheets   
                 #    this includes non-default spreadsheets, but better to  
                 #    be safe than sorry.  
                 &Apache::lonnet::expirespread('','','assesscalc');  
                 # expire all the student spreadsheets  
                 &Apache::lonnet::expirespread('','','studentcalc');  
             }  
         }  
         #  
         # Deal with the enrollment dates  
         if ($name =~ /^default_enrollment_(start|end)_date$/) {  
             $value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');  
         }  
         # Get existing cloners  
         my @oldcloner = ();  
         if ($name eq 'cloners') {  
             my %clonenames=&Apache::lonnet::dump('environment',$dom,$crs,'cloners');  
             if ($clonenames{'cloners'} =~ /,/) {  
                 @oldcloner = split/,/,$clonenames{'cloners'};  
             } else {  
                 $oldcloner[0] = $clonenames{'cloners'};  
             }  
         }  
         #  
         # Let the user know we made the changes  
         if ($name && defined($value)) {  
             my $failed_cloners;  
             if ($name eq 'cloners') {  
                 $value =~ s/\s//g;  
                 $value =~ s/^,//;  
                 $value =~ s/,$//;  
                 # check requested clones are valid users.  
                 $failed_cloners = &check_cloners(\$value,\@oldcloner);  
             }  
             my $put_result = &Apache::lonnet::put('environment',  
                                                   {$name=>$value},$dom,$crs);  
             if ($put_result eq 'ok') {  
                 $setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>'.$value.'</b>.<br />';  
                 if ($name eq 'cloners') {  
                     &change_clone($value,\@oldcloner);  
                 }  
                 # Flush the course logs so course description is immediately updated  
                 if ($name eq 'description' && defined($value)) {  
                     &Apache::lonnet::flushcourselogs();  
                 }  
             } else {  
                 $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').  
     ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';  
             }  
             if (($name eq 'cloners') && ($failed_cloners)) {  
                 $setoutput.= &mt('Unable to include').' - <b>'.$failed_cloners.'</b>, '.  
                  &mt('reason').' - '.&mt('LON-CAPA user(s) do(es) not exist').  
                  '.<br />'.&mt('Please ').  
                  ' <a href="/adm/createuser">'.  
                  &mt('add the user(s)').'</a>, '.  
                  &mt('and then return to the ').  
                  '<a href="/admparmset?action=crsenv">'.  
                  &mt('Course Parameters page').'</a> '.  
                  &mt('to add the new user(s) to the list of possible cloners').  
                  '.<br />';  
             }  
         }  
     }  
   
     my $start_table     =&Apache::loncommon::start_data_table();  
     my $start_header_row=&Apache::loncommon::start_data_table_header_row();  
     my $end_header_row  =&Apache::loncommon::end_data_table_header_row();  
 # ------------------------- Re-init course environment entries for this session  
   
     &Apache::lonnet::coursedescription($env{'request.course.id'},  
        {'freshen_cache' => 1});  
   
 # -------------------------------------------------------- Get parameters again  
   
     my %values=&Apache::lonnet::dump('environment',$dom,$crs);  
     my $SelectStyleFile=&mt('Select Style File');  
     my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');  
     my $output='';  
     if (! exists($values{'con_lost'})) {  
         my %descriptions=  
     ('url'            => '<b>'.&mt('Top Level Map').'</b> '.  
                                  '<a href="javascript:openbrowser'.  
                                  "('envform','url','sequence')\">".  
                                  &mt('Select Map').'</a><br /><span class="LC_warning"> '.  
                                  &mt('Modification may make assessment data inaccessible').  
                                  '</span>',  
              'description'    => '<b>'.&mt('Course Description').'</b>',  
              'courseid'       => '<b>'.&mt('Course ID or number').  
                                  '</b><br />'.  
                                  '('.&mt('internal').', '.&mt('optional').')',  
              'cloners'        => '<b>'.&mt('Users allowed to clone course').'</b><br /><tt>(user:domain,user:domain)</tt><br />'.&mt('Users with active Course Coordinator role in the course automatically have the right to clone it, and can be omitted from list.'),  
              'grading'        => '<b>'.&mt('Grading').'</b><br />'.  
                                  '<tt>"standard", "external", or "spreadsheet"</tt> '.&Apache::loncommon::help_open_topic('GradingOptions'),  
              'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b> '.  
                     '<a href="javascript:openbrowser'.  
                     "('envform','default_xml_style'".  
                     ",'sty')\">$SelectStyleFile</a><br />",  
              'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').  
                                  '</b><br />(<tt>user:domain,'.  
                                  'user:domain(section;section;...;*;...),...</tt>)',  
              'comment.email'  => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'.  
                                  '(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',  
              'policy.email'   => '<b>'.&mt('Feedback Addresses for Course Policy').'</b>'.  
                                  '<br />(<tt>user:domain,user:domain(section;section;...;*;...),...</tt>)',  
              'hideemptyrows'  => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'.  
                                  '('.&mt('"[_1]" for default hiding','<tt>yes</tt>').')',  
              'pageseparators'  => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'.  
                                  '('.&mt('"[_1]" for visible separation','<tt>yes</tt>').', '.  
                                  &mt('changes will not show until next login').')',  
              'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b>'.&mt('("all":students can view all sections,"section":students can only view their own section.blank or "disabled" prevents student view.'),  
   
              'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').  
                                   '</b><br />"<tt>st</tt>": '.  
                                   &mt('student').', "<tt>ta</tt>": '.  
                                   'TA, "<tt>in</tt>": '.  
                                   &mt('instructor').';<br /><tt>'.&mt('role,role,...').'</tt>) '.  
        Apache::loncommon::help_open_topic("Course_Disable_Discussion"),  
              'plc.users.denied' =>   
                           '<b>'.&mt('Disallow live chatroom use for Users').'</b><br />'.  
                                  '(<tt>user:domain,user:domain,...</tt>)',  
   
              'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').  
                                   '</b><br />"<tt>st</tt>": '.  
                                   'student, "<tt>ta</tt>": '.  
                                   'TA, "<tt>in</tt>": '.  
                                   'instructor;<br /><tt>role,role,...</tt>) '.  
        Apache::loncommon::help_open_topic("Course_Disable_Discussion"),  
              'pch.users.denied' =>   
                           '<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.  
                                  '(<tt>user:domain,user:domain,...</tt>)',  
              'spreadsheet_default_classcalc'   
                  => '<b>'.&mt('Default Course Spreadsheet').'</b> '.  
                     '<a href="javascript:openbrowser'.  
                     "('envform','spreadsheet_default_classcalc'".  
                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",  
              'spreadsheet_default_studentcalc'   
                  => '<b>'.&mt('Default Student Spreadsheet').'</b> '.  
                     '<a href="javascript:openbrowser'.  
                     "('envform','spreadsheet_default_calc'".  
                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",  
              'spreadsheet_default_assesscalc'   
                  => '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.  
                     '<a href="javascript:openbrowser'.  
                     "('envform','spreadsheet_default_assesscalc'".  
                     ",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",  
      'allow_limited_html_in_feedback'  
          => '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.  
             '('.&mt('Set value to "[_1]" to allow',"<tt>yes</tt>").')',  
              'allow_discussion_post_editing'  
                  => '<b>'.&mt('Allow users with specified roles to edit/delete their own discussion posts').'</b><br />"<tt>st</tt>": '.  
                                   &mt('student').', "<tt>ta</tt>": '.  
                                   'TA, "<tt>in</tt>": '.  
                                   &mt('instructor').';&nbsp;(<tt>'.&mt('role:section,role:section,..., e.g., st:001,st:002,in,cc would permit students in sections 001 and 002 and instructors in any section, and course coordinators to edit their own posts.').'</tt>)<br />'.  
                     '('.&mt('or set value to "[_1]" to allow all roles',"<tt>yes</tt>").')',  
      'rndseed'  
          => '<b>'.&mt('Randomization algorithm used').'</b> <br />'.  
                     '<span class="LC_error">'.&mt('Modifying this will make problems').' '.  
                     &mt('have different numbers and answers').'</span>',  
      'receiptalg'  
          => '<b>'.&mt('Receipt algorithm used').'</b> <br />'.  
                     &mt('This controls how receipt numbers are generated.'),  
              'suppress_tries'  
                  => '<b>'.&mt('Suppress number of tries in printing').'</b><br />'.  
                     ' ('.&mt('"[_1]" to suppress, anything else to not suppress','<tt>yes</tt>').')',  
              'problem_stream_switch'  
                  => '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.  
                     ' ('.&mt('"[_1]" if allowed, anything else if not','<tt>yes</tt>').')',  
              'default_paper_size'   
                  => '<b>'.&mt('Default paper type').'</b><br />'.  
                     ' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'.   
                     ' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'.   
                     ' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',  
      'print_header_format'  
          => '<b>Print header format; substitutions:  %n student name %c course id %a assignment',  
              'anonymous_quiz'  
                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.  
                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',  
              'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',  
              'default_enrollment_end_date'   => '<b>'.&mt('Default ending date for student access.').'</b>',  
              'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.  
                                  '<br />(<tt>user:domain,user:domain,...</tt>)',  
              'languages' => '<b>'.&mt('Languages used').'</b>',  
              'disable_receipt_display'  
                  => '<b>'.&mt('Disable display of problem receipts').'</b><br />'.  
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',  
      'task_messages'  
          => '<b>'.&mt('Send message to student when clicking Done on Tasks. [_1] to send a message only to student, [_2] to send message to student and add record to user information page for instructors. Leave blank to disable.','<tt>only_student</tt>','<tt>student_and_user_notes_screen</tt>').'</b>',  
      'disablesigfigs'  
          => '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.  
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',  
      'disableexampointprint'  
          => '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.  
                     ' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',  
              'externalsyllabus'  
                  => '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',  
      'tthoptions'  
          => '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>'  
              );   
         my @Display_Order = ('url','description','courseid','cloners','grading',  
                              'externalsyllabus',  
                              'default_xml_style','pageseparators',  
                              'question.email','comment.email','policy.email',  
                              'student_classlist_view',  
                              'plc.roles.denied','plc.users.denied',  
                              'pch.roles.denied','pch.users.denied',  
                              'allow_limited_html_in_feedback',  
                              'allow_discussion_post_editing',  
                              'languages',  
      'nothideprivileged',  
                              'rndseed',  
                              'receiptalg',  
                              'problem_stream_switch',  
      'suppress_tries',  
                              'default_paper_size',  
      'print_header_format',  
                              'disable_receipt_display',  
                              'spreadsheet_default_classcalc',  
                              'spreadsheet_default_studentcalc',  
                              'spreadsheet_default_assesscalc',   
                              'hideemptyrows',  
                              'default_enrollment_start_date',  
                              'default_enrollment_end_date',  
      'tthoptions',  
      'disablesigfigs',  
      'disableexampointprint',  
      'task_messages'  
                              );  
  foreach my $parameter (sort(keys(%values))) {  
             unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {  
                 if (! $descriptions{$parameter}) {  
                     $descriptions{$parameter}=$parameter;  
                     push(@Display_Order,$parameter);  
                 }  
             }  
  }  
   
         foreach my $parameter (@Display_Order) {  
             my $description = $descriptions{$parameter};  
             # onchange is javascript to automatically check the 'Set' button.  
             my $onchange = 'onFocus="javascript:window.document.forms'.  
                 "['envform'].elements['".$parameter."_setparmval']".  
                 '.checked=true;"';  
             $output .= &Apache::loncommon::start_data_table_row().  
  '<td>'.$description.'</td>';  
             if ($parameter =~ /^default_enrollment_(start|end)_date$/) {  
                 $output .= '<td>'.  
                     &Apache::lonhtmlcommon::date_setter('envform',  
                                                         $parameter.'_value',  
                                                         $values{$parameter},  
                                                         $onchange).  
                                                         '</td>';  
             } else {  
                 $output .= '<td>'.  
                     &Apache::lonhtmlcommon::textbox($parameter.'_value',  
                                                     $values{$parameter},  
                                                     40,$onchange).'</td>';  
             }  
             $output .= '<td>'.  
                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').  
                 '</td>';  
             $output .= &Apache::loncommon::end_data_table_row()."\n";  
  }  
         my $onchange = 'onFocus="javascript:window.document.forms'.  
             '[\'envform\'].elements[\'newp_setparmval\']'.  
             '.checked=true;"';  
  $output.=&Apache::loncommon::start_data_table_row().  
     '<td><i>'.&mt('Create New Environment Variable').'</i><br />'.  
     '<input type="text" size=40 name="newp_name" '.  
                 $onchange.' /></td><td>'.  
             '<input type="text" size=40 name="newp_value" '.  
                 $onchange.' /></td><td>'.  
     '<input type="checkbox" name="newp_setparmval" /></td>'.  
     &Apache::loncommon::end_data_table_row()."\n";  
     }  
     my %lt=&Apache::lonlocal::texthash(  
     'par'   => 'Parameter',  
     'val'   => 'Value',  
     'set'   => 'Set',  
     'sce'   => 'Set Course Environment'  
        );  
   
     my $Parameter=&mt('Parameter');  
     my $Value=&mt('Value');  
     my $Set=&mt('Set');  
     my $browse_js=  
  '<script type="text/javascript" language="Javascript">'.  
  &Apache::loncommon::browser_and_searcher_javascript('parmset').  
  '</script>';  
       
     my $start_page =   
  &Apache::loncommon::start_page('Set Course Environment',  
        $browse_js);  
     my $end_page =   
  &Apache::loncommon::end_page();  
     my $end_table=&Apache::loncommon::end_data_table();  
     $r->print(<<ENDENV);  
 $start_page  
 $breadcrumbs  
 <form method="post" action="/adm/parmset?action=crsenv" name="envform">  
 $setoutput  
 $start_table  
 $start_header_row  
 <th>$lt{'par'}</th><th>$lt{'val'}</th><th>$lt{'set'}?</th>  
 $end_header_row  
 $output  
 $end_table  
 <input type="submit" name="crsenv" value="$lt{'sce'}">  
 </form>  
 $end_page  
 ENDENV  
 }  
 ##################################################  ##################################################
 # Overview mode  # Overview mode
 ##################################################  ##################################################
 my $tableopen;  my $tableopen;
   
 sub tablestart {  sub tablestart {
       my ($readonly) = @_;
     if ($tableopen) {      if ($tableopen) {
  return '';          return '';
     } else {      } else {
  $tableopen=1;          $tableopen=1;
  return &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th><th>'.          my $output = &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th>';
     &mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';          if ($readonly) {
               $output .= '<th>'.&mt('Current value').'</th>';
           } else {
               $output .= '<th>'.&mt('Delete').'</th><th>'.&mt('Set to ...').'</th>';
           }
           $output .= '</tr>';
           return $output;
     }      }
 }  }
   
 sub tableend {  sub tableend {
     if ($tableopen) {      if ($tableopen) {
  $tableopen=0;      $tableopen=0;
  return &Apache::loncommon::end_data_table();      return &Apache::loncommon::end_data_table();
     } else {      } else {
  return'';      return'';
     }      }
 }  }
   
Line 2363  sub readdata { Line 2985  sub readdata {
   
     my $classlist=&Apache::loncoursedata::get_classlist();      my $classlist=&Apache::loncoursedata::get_classlist();
     foreach (keys %$classlist) {      foreach (keys %$classlist) {
         # the following undefs are for 'domain', and 'username' respectively.          if ($_=~/^($match_username)\:($match_domain)$/) {
         if ($_=~/^(\w+)\:(\w+)$/) {          my ($tuname,$tudom)=($1,$2);
     my ($tuname,$tudom)=($1,$2);          my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);
     my $useropt=&Apache::lonnet::get_userresdata($tuname,$tudom);  
             foreach my $userkey (keys %{$useropt}) {              foreach my $userkey (keys %{$useropt}) {
  if ($userkey=~/^$env{'request.course.id'}/) {          if ($userkey=~/^$env{'request.course.id'}/) {
                     my $newkey=$userkey;                      my $newkey=$userkey;
     $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;              $newkey=~s/^($env{'request.course.id'}\.)/$1\[useropt\:$tuname\:$tudom\]\./;
     $$resourcedata{$newkey}=$$useropt{$userkey};              $$resourcedata{$newkey}=$$useropt{$userkey};
  }          }
     }          }
  }      }
       }
       if (wantarray) {
           return ($resourcedata,$classlist);
       } else {
           return $resourcedata;
     }      }
     return $resourcedata;  
 }  }
   
   
Line 2391  sub storedata { Line 3016  sub storedata {
     undef %newdata;      undef %newdata;
     my @deldata=();      my @deldata=();
     undef @deldata;      undef @deldata;
     foreach (keys %env) {      my ($got_chostname,$chostname,$cmajor,$cminor);
  if ($_=~/^form\.([a-z]+)\_(.+)$/) {      my $now = time;
     my $cmd=$1;      foreach my $key (keys(%env)) { 
     my $thiskey=$2;      if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
     my ($tuname,$tudom)=&extractuser($thiskey);          my $cmd=$1;
     my $tkey=$thiskey;          my $thiskey=$2;
           my ($tuname,$tudom)=&extractuser($thiskey);
           my $tkey=$thiskey;
             if ($tuname) {              if ($tuname) {
  $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;          $tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
     }          }
     if ($cmd eq 'set') {          if ($cmd eq 'set' || $cmd eq 'datepointer' || $cmd eq 'dateinterval') {
  my $data=$env{$_};          my ($data, $typeof, $text, $name, $valchk);
                 my $typeof=$env{'form.typeof_'.$thiskey};          if ($cmd eq 'set') {
   if ($$olddata{$thiskey} ne $data) {               $data=$env{$key};
     if ($tuname) {              $valchk = $data;
  if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,              $typeof=$env{'form.typeof_'.$thiskey};
  $tkey.'.type' => $typeof},              $text = &mt('Saved modified parameter for');
  $tudom,$tuname) eq 'ok') {              if ($typeof eq 'string_questiontype') {
     &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);                  $name = 'type';
     $r->print('<br />'.&mt('Stored modified parameter for').' '.              } elsif ($typeof eq 'string_lenient') {
       &Apache::loncommon::plainname($tuname,$tudom));                  $name = 'lenient';
  } else {              } elsif ($typeof eq 'string_discussvote') {
     $r->print('<div class="LC_error">'.                  $name = 'discussvote';
       &mt('Error storing parameters').'</div>');              } elsif ($typeof eq 'string_examcode') {
  }                  $name = 'examcode';
  &Apache::lonnet::devalidateuserresdata($tuname,$tudom);                  if (&Apache::lonnet::validCODE($data)) {
     } else {                      $valchk = 'valid';
  $newdata{$thiskey}=$data;                  }
   $newdata{$thiskey.'.type'}=$typeof;               } elsif ($typeof eq 'string_yesno') {
                    }                   if ($thiskey =~ /\.retrypartial$/) {
  }                      $name = 'retrypartial';
     } elsif ($cmd eq 'del') {                  }
  if ($tuname) {              }
     if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {          } elsif ($cmd eq 'datepointer') {
     &log_parmset({$tkey=>''},1,$tuname,$tudom);              $data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
  $r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));              $typeof=$env{'form.typeof_'.$thiskey};
     } else {              $text = &mt('Saved modified date for');
  $r->print('<div class="LC_error">'.              if ($typeof eq 'date_start') {
   &mt('Error deleting parameters').'</div>');                  if ($thiskey =~ /\.printstartdate$/) {
     }                      $name = 'printstartdate';
     &Apache::lonnet::devalidateuserresdata($tuname,$tudom);                      if (($data) && ($data > $now)) {
  } else {                          $valchk = 'future';
     push (@deldata,$thiskey,$thiskey.'.type');                      }
  }                  }
     } elsif ($cmd eq 'datepointer') {              } elsif ($typeof eq 'date_end') {
  my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});                  if ($thiskey =~ /\.printenddate$/) {
                 my $typeof=$env{'form.typeof_'.$thiskey};                      $name = 'printenddate';
  if (defined($data) and $$olddata{$thiskey} ne $data) {                       if (($data) && ($data < $now)) {
     if ($tuname) {                          $valchk = 'past';
  if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,                      }
  $tkey.'.type' => $typeof},                  }
  $tudom,$tuname) eq 'ok') {              }
     &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);          } elsif ($cmd eq 'dateinterval') {
     $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));              $data=&get_date_interval_from_form($thiskey);
  } else {              $typeof=$env{'form.typeof_'.$thiskey};
     $r->print('<div class="LC_error">'.              $text = &mt('Saved modified date for');
       &mt('Error storing parameters').'</div>');          }
  }          if ($name ne '') {
  &Apache::lonnet::devalidateuserresdata($tuname,$tudom);              my ($needsrelease,$needsnewer);
     } else {              $needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$valchk"};
  $newdata{$thiskey}=$data;              if ($needsrelease) {
  $newdata{$thiskey.'.type'}=$typeof;                   unless ($got_chostname) {
     }                      ($chostname,$cmajor,$cminor)=&parameter_release_vars();
  }                      $got_chostname = 1;
     }                  }
  }                  $needsnewer = &parameter_releasecheck($name,$valchk,
                                                         $needsrelease,
                                                         $cmajor,$cminor);
                   if ($needsnewer) {
                       $r->print('<br />'.&oldversion_warning($name,$data,
                                                              $chostname,$cmajor,
                                                              $cminor,$needsrelease));
                       next;
                   }
               }
           }
           if (defined($data) and $$olddata{$thiskey} ne $data) {
               if ($tuname) {
               if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
                                    $tkey.'.type' => $typeof},
                            $tudom,$tuname) eq 'ok') {
                   &log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
                   $r->print('<br />'.$text.' '.
                         &Apache::loncommon::plainname($tuname,$tudom));
               } else {
                   $r->print('<div class="LC_error">'.
                         &mt('Error saving parameters').'</div>');
               }
               &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
               } else {
               $newdata{$thiskey}=$data;
                $newdata{$thiskey.'.type'}=$typeof;
                      }
           }
           } elsif ($cmd eq 'del') {
           if ($tuname) {
               if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {
                   &log_parmset({$tkey=>''},1,$tuname,$tudom);
               $r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
               } else {
               $r->print('<div class="LC_error">'.
                     &mt('Error deleting parameters').'</div>');
               }
               &Apache::lonnet::devalidateuserresdata($tuname,$tudom);
           } else {
               push (@deldata,$thiskey,$thiskey.'.type');
           }
           }
       }
     }      }
 # Store all course level  # Store all course level
     my $delentries=$#deldata+1;      my $delentries=$#deldata+1;
     my @newdatakeys=keys %newdata;      my @newdatakeys=keys %newdata;
     my $putentries=$#newdatakeys+1;      my $putentries=$#newdatakeys+1;
     if ($delentries) {      if ($delentries) {
  if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {      if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
     my %loghash=map { $_ => '' } @deldata;          my %loghash=map { $_ => '' } @deldata;
     &log_parmset(\%loghash,1);          &log_parmset(\%loghash,1);
     $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));          $r->print('<h2>'.&mt('Deleted [quant,_1,parameter]',$delentries/2).'</h2>');
  } else {      } else {
     $r->print('<div class="LC_error">'.          $r->print('<div class="LC_error">'.
       &mt('Error deleting parameters').'</div>');                &mt('Error deleting parameters').'</div>');
  }      }
  &Apache::lonnet::devalidatecourseresdata($crs,$dom);      &Apache::lonnet::devalidatecourseresdata($crs,$dom);
     }      }
     if ($putentries) {      if ($putentries) {
  if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {      if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
     &log_parmset(\%newdata,0);                  &log_parmset(\%newdata,0);
     $r->print('<h3>'.&mt('Stored [_1] parameter(s)',$putentries/2).'</h3>');          $r->print('<h3>'.&mt('Saved [quant,_1,parameter]',$putentries/2).'</h3>');
  } else {      } else {
     $r->print('<div class="LC_error">'.          $r->print('<div class="LC_error">'.
       &mt('Error storing parameters').'</div>');                &mt('Error saving parameters').'</div>');
  }      }
  &Apache::lonnet::devalidatecourseresdata($crs,$dom);      &Apache::lonnet::devalidatecourseresdata($crs,$dom);
     }      }
 }  }
   
 sub extractuser {  sub extractuser {
     my $key=shift;      my $key=shift;
     return ($key=~/^$env{'request.course.id'}.\[useropt\:(\w+)\:(\w+)\]\./);      return ($key=~/^$env{'request.course.id'}.\[useropt\:($match_username)\:($match_domain)\]\./);
   }
   
   sub parse_listdata_key {
       my ($key,$listdata) = @_;
       # split into student/section affected, and
       # the realm (folder/resource part and parameter
       my ($student,$realm) =
       ($key=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)$/);
       # if course wide student would be undefined
       if (!defined($student)) {
       ($realm)=($key=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
       }
       # strip off the .type if it's not the Question type parameter
       if ($realm=~/\.type$/ && !exists($listdata->{$key.'.type'})) {
       $realm=~s/\.type//;
       }
       # split into resource+part and parameter name
       my ($res,    $parm) = ($realm=~/^(.*)\.(.*)$/);
          ($res, my $part) = ($res  =~/^(.*)\.(.*)$/);
       return ($student,$res,$part,$parm);
 }  }
   
 sub listdata {  sub listdata {
     my ($r,$resourcedata,$listdata,$sortorder)=@_;      my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly)=@_;
 # Start list output  # Start list output
   
     my $oldsection='';      my $oldsection='';
Line 2500  sub listdata { Line 3190  sub listdata {
     $tableopen=0;      $tableopen=0;
     my $foundkeys=0;      my $foundkeys=0;
     my %keyorder=&standardkeyorder();      my %keyorder=&standardkeyorder();
       my $readonlyall = $readonly;
   
       my ($secidx,%grouphash);
       if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
           $secidx = &Apache::loncoursedata::CL_SECTION();
           if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
               %grouphash = &Apache::longroup::coursegroups();
           } elsif ($env{'request.course.groups'} ne '') {
               map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
           }
       }
   
     foreach my $thiskey (sort {      foreach my $thiskey (sort {
  if ($sortorder eq 'realmstudent') {      my ($astudent,$ares,$apart,$aparm) = &parse_listdata_key($a,$listdata);
     my ($astudent,$arealm)=($a=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);      my ($bstudent,$bres,$bpart,$bparm) = &parse_listdata_key($b,$listdata);
     my ($bstudent,$brealm)=($b=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)\.[^\.]+$/);  
     if (!defined($astudent)) {      # get the numerical order for the param
  ($arealm)=($a=~/^\Q$env{'request.course.id'}\E\.(.+)$/);      $aparm=$keyorder{'parameter_0_'.$aparm};
     }      $bparm=$keyorder{'parameter_0_'.$bparm};
     if (!defined($bstudent)) {  
  ($brealm)=($b=~/^\Q$env{'request.course.id'}\E\.(.+)$/);      my $result=0;
     }  
     $arealm=~s/\.type//;      if ($sortorder eq 'realmstudent') {
     my ($ares, $aparm) = ($arealm=~/^(.*)\.(.*)$/);              if ($ares     ne $bres    ) {
     $aparm=$keyorder{'parameter_0_'.$aparm};          $result = ($ares     cmp $bres);
     $brealm=~s/\.type//;              } elsif ($astudent ne $bstudent) {
     my ($bres, $bparm) = ($brealm=~/^(.*)\.(.*)$/);          $result = ($astudent cmp $bstudent);
     $bparm=$keyorder{'parameter_0_'.$bparm};             } elsif ($apart    ne $bpart   ) {
     if ($ares eq $bres) {          $result = ($apart    cmp $bpart);
  if (defined($aparm) && defined($bparm)) {          }
     ($aparm <=> $bparm);      } else {
  } elsif (defined($aparm)) {          if      ($astudent ne $bstudent) {
     -1;          $result = ($astudent cmp $bstudent);
  } elsif (defined($bparm)) {          } elsif ($ares     ne $bres    ) {
     1;          $result = ($ares     cmp $bres);
  } else {          } elsif ($apart    ne $bpart   ) {
     ($arealm cmp $brealm) || ($astudent cmp $bstudent);          $result = ($apart    cmp $bpart);
  }          }
     } else {      }
  ($arealm cmp $brealm) || ($astudent cmp $bstudent);  
     }      if (!$result) {
  } else {              if (defined($aparm) && defined($bparm)) {
     $a cmp $b;          $result = ($aparm <=> $bparm);
  }              } elsif (defined($aparm)) {
           $result = -1;
               } elsif (defined($bparm)) {
           $result = 1;
           }
       }
   
       $result;
     } keys %{$listdata}) {      } keys %{$listdata}) {
     
  if ($$listdata{$thiskey.'.type'}) {      if ($$listdata{$thiskey.'.type'}) {
             my $thistype=$$listdata{$thiskey.'.type'};          my $thistype=$$listdata{$thiskey.'.type'};
             if ($$resourcedata{$thiskey.'.type'}) {          if ($$resourcedata{$thiskey.'.type'}) {
  $thistype=$$resourcedata{$thiskey.'.type'};              $thistype=$$resourcedata{$thiskey.'.type'};
     }          }
     my ($middle,$part,$name)=          my ($middle,$part,$name)=
  ($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);          ($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
     my $section=&mt('All Students');          my $section=&mt('All Students');
     if ($middle=~/^\[(.*)\]/) {          $readonly = $readonlyall;
  my $issection=$1;          if ($middle=~/^\[(.*)\]/) {
  if ($issection=~/^useropt\:(\w+)\:(\w+)/) {              my $issection=$1;
     $section=&mt('User').": ".&Apache::loncommon::plainname($1,$2);              if ($issection=~/^useropt\:($match_username)\:($match_domain)/) {
  } else {                  my ($stuname,$studom) = ($1,$2);
     $section=&mt('Group/Section').': '.$issection;                  if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
  }                      if (ref($classlist) eq 'HASH') {
  $middle=~s/^\[(.*)\]//;                          if (ref($classlist->{$stuname.':'.$studom}) eq 'ARRAY') {
     }                              next unless ($classlist->{$stuname.':'.$studom}->[$secidx] eq $env{'request.course.sec'});
     $middle=~s/\.+$//;                          }
     $middle=~s/^\.+//;                      }
     my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';                  }
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {                  $section=&mt('User').": ".&Apache::loncommon::plainname($1,$2);
  $realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><span class="LC_parm_folder">('.$1.')</span></span>';              } else {
     } elsif ($middle) {                  if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
  my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);                      if (exists($grouphash{$issection})) {
  $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';                          $section=&mt('Group').': '.$issection;
     }                      } elsif ($issection eq $env{'request.course.sec'}) {
     if ($sortorder eq 'realmstudent') {                          $section = &mt('Section').': '.$issection;
  if ($realm ne $oldrealm) {                      } else {
     $r->print(&tableend()."\n<hr /><h1>$realm</h1>");                          next;
     $oldrealm=$realm;                      }
     $oldsection='';                  } else {
  }                      $section=&mt('Group/Section').': '.$issection;
  if ($section ne $oldsection) {                  }
     $r->print(&tableend()."\n<h2>$section</h2>");              }
     $oldsection=$section;              $middle=~s/^\[(.*)\]//;
     $oldpart='';          } elsif (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
  }              $readonly = 1;
     } else {          }
  if ($section ne $oldsection) {          $middle=~s/\.+$//;
     $r->print(&tableend()."\n<hr /><h1>$section</h1>");          $middle=~s/^\.+//;
     $oldsection=$section;          my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
     $oldrealm='';  
  }          if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  if ($realm ne $oldrealm) {          $realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><span class="LC_parm_folder">('.$1.')</span></span>';
     $r->print(&tableend()."\n<h2>$realm</h2>");          } elsif ($middle) {
     $oldrealm=$realm;          my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
     $oldpart='';          $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';
  }          }
     }          if ($sortorder eq 'realmstudent') {
     if ($part ne $oldpart) {          if ($realm ne $oldrealm) {
  $r->print(&tableend().              $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
   "\n<span class=\"LC_parm_part\">".&mt('Part').": $part</span>");              $oldrealm=$realm;
  $oldpart=$part;              $oldsection='';
     }          }
           if ($section ne $oldsection) {
               $r->print(&tableend()."\n<h2>$section</h2>");
               $oldsection=$section;
               $oldpart='';
           }
           } else {
           if ($section ne $oldsection) {
               $r->print(&tableend()."\n<hr /><h1>$section</h1>");
               $oldsection=$section;
               $oldrealm='';
           }
           if ($realm ne $oldrealm) {
               $r->print(&tableend()."\n<h2>$realm</h2>");
               $oldrealm=$realm;
               $oldpart='';
           }
           }
           if ($part ne $oldpart) {
           $r->print(&tableend().
                 "\n".'<span class="LC_parm_part">'.&mt('Part').": $part</span>");
           $oldpart=$part;
           }
 #  #
 # Ready to print  # Ready to print
 #  #
     $r->print(&tablestart().              my $parmitem = &standard_parameter_names($name);
       &Apache::loncommon::start_data_table_row().          $r->print(&tablestart($readonly).
       '<td><b>'.&standard_parameter_names($name).                &Apache::loncommon::start_data_table_row().
       '</b></td><td><input type="checkbox" name="del_'.                '<td><b>'.&mt($parmitem).
       $thiskey.'" /></td><td>');                '</b></td>');
     $foundkeys++;          unless ($readonly) {
     if (&isdateparm($thistype)) {              $r->print('<td><input type="checkbox" name="del_'.
  my $jskey='key_'.$pointer;                        $thiskey.'" /></td>');
  $pointer++;          }
  $r->print(          $r->print('<td>');
   &Apache::lonhtmlcommon::date_setter('parmform',          $foundkeys++;
       $jskey,          if (&isdateparm($thistype)) {
       $$resourcedata{$thiskey},              my $jskey='key_'.$pointer;
       '',1,'','').              my $state;
               $pointer++;
               if ($readonly) {
                   $state = 'disabled';
               }
               $r->print(
                   &Apache::lonhtmlcommon::date_setter('parmform',
                                                       $jskey,
                                                       $$resourcedata{$thiskey},
                                                       '',1,$state));
               unless ($readonly) {
                   $r->print(
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.  '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
   (($$resourcedata{$thiskey}!=0)?'<span class="LC_nobreak"><a href="/adm/parmset?&action=dateshift1&timebase='.$$resourcedata{$thiskey}.'">'.
   &mt('Shift all dates based on this date').'</a></span>':'').
 &date_sanity_info($$resourcedata{$thiskey})  &date_sanity_info($$resourcedata{$thiskey})
   );                );
     } elsif ($thistype eq 'string_yesno') {              }
  my $showval;          } elsif ($thistype eq 'date_interval') {
  if (defined($$resourcedata{$thiskey})) {              $r->print(&date_interval_selector($thiskey,
     $showval=$$resourcedata{$thiskey};                        $$resourcedata{$thiskey},$readonly));
  }          } elsif ($thistype =~ m/^string/) {
  $r->print('<label><input type="radio" name="set_'.$thiskey.              $r->print(&string_selector($thistype,$thiskey,
   '" value="yes"');                        $$resourcedata{$thiskey},$name,$readonly));
  if ($showval eq 'yes') {          } else {
     $r->print(' checked="checked"');              $r->print(&default_selector($thiskey,$$resourcedata{$thiskey},$readonly));
  }          }
                 $r->print(' />'.&mt('Yes').'</label> ');          unless ($readonly) {
  $r->print('<label><input type="radio" name="set_'.$thiskey.              $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
   '" value="no"');                        $thistype.'" />');
  if ($showval eq 'no') {          }
     $r->print(' checked="checked"');          $r->print('</td>'.&Apache::loncommon::end_data_table_row());
  }      }
                 $r->print(' />'.&mt('No').'</label>');  
     } else {  
  my $showval;  
  if (defined($$resourcedata{$thiskey})) {  
     $showval=$$resourcedata{$thiskey};  
  }  
  $r->print('<input type="text" name="set_'.$thiskey.'" value="'.  
   $showval.'">');  
     }  
     $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.  
       $thistype.'">');  
     $r->print('</td>'.&Apache::loncommon::end_data_table_row());  
  }  
     }      }
     return $foundkeys;      return $foundkeys;
 }  }
   
   
   sub date_interval_selector {
       my ($thiskey, $showval, $readonly) = @_;
       my $result;
       foreach my $which (['days', 86400, 31],
                  ['hours', 3600, 23],
                  ['minutes', 60, 59],
                  ['seconds',  1, 59]) {
       my ($name, $factor, $max) = @{ $which };
       my $amount = int($showval/$factor);
       $showval  %= $factor;
       my %select = ((map {$_ => $_} (0..$max)),
                 'select_form_order' => [0..$max]);
       $result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
                              \%select,'',$readonly);
       $result .= ' '.&mt($name);
       }
       unless ($readonly) {
           $result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';
       }
       return $result;
   
   }
   
   sub get_date_interval_from_form {
       my ($key) = @_;
       my $seconds = 0;
       foreach my $which (['days', 86400],
                  ['hours', 3600],
                  ['minutes', 60],
                  ['seconds',  1]) {
       my ($name, $factor) = @{ $which };
       if (defined($env{'form.'.$name.'_'.$key})) {
           $seconds += $env{'form.'.$name.'_'.$key} * $factor;
       }
       }
       return $seconds;
   }
   
   
   sub default_selector {
       my ($thiskey, $showval, $readonly) = @_;
       my $disabled;
       if ($readonly) {
           $disabled = ' disabled="disabled"';
       }
       return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'"'.$disabled.' />';
   }
   
   my %strings =
       (
        'string_yesno'
                => [[ 'yes', 'Yes' ],
            [ 'no', 'No' ]],
        'string_problemstatus'
                => [[ 'yes', 'Yes' ],
            [ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],
            [ 'no', 'No, don\'t show correct/incorrect feedback.' ],
            [ 'no_feedback_ever', 'No, show no feedback at all.' ]],
        'string_questiontype'
                => [[ 'problem', 'Standard Problem'],
                    [ 'survey', 'Survey'],
                    [ 'anonsurveycred', 'Anonymous Survey (credit for submission)'],
                    [ 'exam', 'Exam'],
                    [ 'anonsurvey', 'Anonymous Survey'],
                    [ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
                    [ 'practice', 'Practice'],
                    [ 'surveycred', 'Survey (credit for submission)']],
        'string_lenient'
                => [['yes', 'Yes' ],
                    [ 'no', 'No' ],
                    [ 'default', 'Default - only bubblesheet grading is lenient' ]],
        'string_discussvote'
                => [['yes','Yes'],
                    ['notended','Yes, unless discussion ended'],
                    ['no','No']],
        );
   
   sub standard_string_options {
       my ($string_type) = @_;
       if (ref($strings{$string_type}) eq 'ARRAY') {
           return $strings{$string_type};
       }
       return;
   }
   
   sub string_selector {
       my ($thistype, $thiskey, $showval, $name, $readonly) = @_;
   
       if (!exists($strings{$thistype})) {
       return &default_selector($thiskey,$showval,$readonly);
       }
   
       my %skiptype;
       if (($thistype eq 'string_questiontype') || 
           ($thistype eq 'string_lenient') ||
           ($thistype eq 'string_discussvote') ||
           ($name eq 'retrypartial')) {
           my ($got_chostname,$chostname,$cmajor,$cminor); 
           foreach my $possibilities (@{ $strings{$thistype} }) {
               next unless (ref($possibilities) eq 'ARRAY');
               my ($parmval, $description) = @{ $possibilities };
               my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval"};
               if ($needsrelease) {
                   unless ($got_chostname) {
                       ($chostname,$cmajor,$cminor)=&parameter_release_vars();
                       $got_chostname = 1;
                   }
                   my $needsnewer=&parameter_releasecheck($name,$parmval,$needsrelease,
                                                          $cmajor,$cminor);
                   if ($needsnewer) {
                       $skiptype{$parmval} = 1;
                   }
               }
           }
       }
    
       my ($result,$disabled);
   
       if ($readonly) {
           $disabled = ' disabled="disabled"';
       }
       my $numinrow = 3;
       if ($thistype eq 'string_problemstatus') {
           $numinrow = 2;
       } elsif ($thistype eq 'string_questiontype') {
           if (keys(%skiptype) > 0) {
                $numinrow = 4;
           }
       }
       my $rem;
       if (ref($strings{$thistype}) eq 'ARRAY') {
           my $i=0;
           foreach my $possibilities (@{ $strings{$thistype} }) {
               next unless (ref($possibilities) eq 'ARRAY');
               my ($name, $description) = @{ $possibilities };
               next if ($skiptype{$name}); 
               $rem = $i%($numinrow);
               if ($rem == 0) {
                   if ($i > 0) {
                       $result .= '</tr>';
                   }
                   $result .= '<tr>';
               }
               $result .= '<td class="LC_left_item">'.
                          '<span class="LC_nobreak"><label>'.
                          '<input type="radio" name="set_'.$thiskey.
                          '" value="'.$name.'"'.$disabled;
               if ($showval eq $name) {
                   $result .= ' checked="checked"';
               }
               $result .= ' />'.&mt($description).'</label></span></td>';
               $i++;
           }
           $rem = @{ $strings{$thistype} }%($numinrow);
           my $colsleft = $numinrow - $rem;
           if ($colsleft > 1 ) {
               $result .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
                          '&nbsp;</td>';
           } elsif ($colsleft == 1) {
               $result .= '<td class="LC_left_item">&nbsp;</td>';
           }
           $result .= '</tr>';
       }
       if ($result) {
           $result = '<table border="0">'.$result.'</table>';
       }
       return $result;
   }
   
   #
   # Shift all start and end dates by $shift
   #
   
   sub dateshift {
       my ($shift,$numchanges)=@_;
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $sec = $env{'request.course.sec'};
       my $secgrpregex;
       if ($sec ne '') {
           my @groups;
           if ($env{'request.course.groups'} ne '') {
               @groups = split(/:/,$env{'request.course.groups'});
           }
           if (@groups) {
               $secgrpregex = '(?:'.join('|',($sec,@groups)).')';
           } else {
               $secgrpregex = $sec;
           }
       }
       my %data=&Apache::lonnet::dump('resourcedata',$dom,$crs);
   # ugly retro fix for broken version of types
       foreach my $key (keys %data) {
           if ($key=~/\wtype$/) {
               my $newkey=$key;
               $newkey=~s/type$/\.type/;
               $data{$newkey}=$data{$key};
               delete $data{$key};
           }
       }
       my %storecontent=();
   # go through all parameters and look for dates
       foreach my $key (keys %data) {
          if ($data{$key.'.type'}=~/^date_(start|end)$/) {
             if ($sec ne '') {
                 next unless ($key =~ /^$env{'request.course.id'}\.\[$secgrpregex\]\./);
             }
             my $newdate=$data{$key}+$shift;
             $$numchanges ++;
             $storecontent{$key}=$newdate;
          }
       }
       my $reply=&Apache::lonnet::cput
                   ('resourcedata',\%storecontent,$dom,$crs);
       if ($reply eq 'ok') {
          &log_parmset(\%storecontent);
       }
       &Apache::lonnet::devalidatecourseresdata($crs,$dom);
       return $reply;
   }
   
 sub newoverview {  sub newoverview {
     my ($r) = @_;      my ($r,$parm_permission) = @_;
   
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $start_page = &Apache::loncommon::start_page('Set Parameters');      my $readonly = 1;
       if ($parm_permission->{'edit'}) {
           undef($readonly);
       }
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
           text=>"Overview Mode"});
   
       my %loaditems = (
                         'onload'   => "showHide_courseContent(); resize_scrollbox('mapmenuscroll','1','1');",
                       );
       my $js = '
   <script type="text/javascript">
   // <![CDATA[
   '.
               &Apache::lonhtmlcommon::resize_scrollbox_js('params')."\n".
               &showhide_js()."\n".
   '// ]]>
   </script>
   ';
       my $start_page = &Apache::loncommon::start_page('Set Parameters',$js,
                                                       {'add_entries' => \%loaditems,});
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
       $r->print($start_page.$breadcrumbs);
     $r->print(<<ENDOVER);      $r->print(<<ENDOVER);
 $start_page  
 $breadcrumbs  
 <form method="post" action="/adm/parmset?action=newoverview" name="parmform">  <form method="post" action="/adm/parmset?action=newoverview" name="parmform">
 ENDOVER  ENDOVER
     my @ids=();      my @ids=();
Line 2676  ENDOVER Line 3648  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'; }
   
     my @selected_sections =       my @selected_sections =
  &Apache::loncommon::get_env_multiple('form.Section');      &Apache::loncommon::get_env_multiple('form.Section');
     @selected_sections = ('all') if (! @selected_sections);      @selected_sections = ('all') if (! @selected_sections);
     foreach (@selected_sections) {      foreach my $sec (@selected_sections) {
         if ($_ eq 'all') {          if ($sec eq 'all') {
             @selected_sections = ('all');              @selected_sections = ('all');
         }          }
     }      }
       if ($env{'request.course.sec'} ne '') {
           @selected_sections = ($env{'request.course.sec'});
       }
     my @selected_groups =      my @selected_groups =
         &Apache::loncommon::get_env_multiple('form.Group');          &Apache::loncommon::get_env_multiple('form.Group');
   
     my $pssymb='';      my $pssymb='';
     my $parmlev='';      my $parmlev='';
    
     unless ($env{'form.parmlev'}) {      unless ($env{'form.parmlev'}) {
         $parmlev = 'map';          $parmlev = 'map';
     } else {      } else {
         $parmlev = $env{'form.parmlev'};          $parmlev = $env{'form.parmlev'};
     }      }
   
     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,       &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
  \%mapp, \%symbp,\%maptitles,\%uris,                  \%mapp, \%symbp,\%maptitles,\%uris,
  \%keyorder,\%defkeytype);                  \%keyorder,\%defkeytype);
   
       if (grep {$_ eq 'all'} (@psprt)) {
           @psprt = keys(%allparts);
       }
 # Menu to select levels, etc  # Menu to select levels, etc
   
     $r->print('<table id="LC_parm_overview_scope">      $r->print('<div class="LC_Box">');
                <tr><td class="LC_parm_overview_level_menu">');      #$r->print('<h2 class="LC_hcell">Step 1</h2>');
       $r->print('<div>');
       $r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
     &levelmenu($r,\%alllevs,$parmlev);      &levelmenu($r,\%alllevs,$parmlev);
     if ($parmlev ne 'general') {      if ($parmlev ne 'general') {
  $r->print('<td class="LC_parm_overview_map_menu">');          $r->print(&Apache::lonhtmlcommon::row_closure());
  &mapmenu($r,\%allmaps,$pschp,\%maptitles);          &mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);
  $r->print('</td>');      }
     }      $r->print(&Apache::lonhtmlcommon::row_closure(1));
     $r->print('</td></tr></table>');      $r->print(&Apache::lonhtmlcommon::end_pick_box());
       $r->print('</div></div>');
     $r->print('<table id="LC_parm_overview_controls">  
                <tr><td class="LC_parm_overview_parm_selectors">');        $r->print('<div class="LC_Box">');
     &parmmenu($r,\%allparms,\@pscat,\%keyorder);      $r->print('<div>');
     $r->print('</td><td class="LC_parm_overview_restrictions">      &displaymenu($r,\%allparms,\@pscat,\%keyorder);
                 <table class="LC_parm_overview_restrictions">'.      $r->print(&Apache::lonhtmlcommon::start_pick_box());
               '<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').      $r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
               '</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');      my $sectionselector = &sectionmenu(\@selected_sections);
       my $groupselector = &groupmenu(\@selected_groups);
       $r->print('<table>'.
                 '<tr><th>'.&mt('Parts').'</th>');
       if ($sectionselector) {
           $r->print('<th>'.&mt('Section(s)').'</th>');
       }
       if ($groupselector) {
           $r->print('<th>'.&mt('Group(s)').'</th>');
       }
       $r->print('</tr><tr><td>');
     &partmenu($r,\%allparts,\@psprt);      &partmenu($r,\%allparts,\@psprt);
     $r->print('</td><td>');      $r->print('</td>');
     &sectionmenu($r,\@selected_sections);      if ($sectionselector) {
     $r->print('</td><td>');          $r->print('<td>'.$sectionselector.'</td>');
     &groupmenu($r,\@selected_groups);      }
     $r->print('</td></tr></table>');      if ($groupselector) {
     $r->print('</td></tr></table>');          $r->print('<td>'.$groupselector.'</td>');
        }
       $r->print('</tr></table>');
       $r->print(&Apache::lonhtmlcommon::row_closure(1));
       $r->print(&Apache::lonhtmlcommon::end_pick_box());
       $r->print('</div></div>');
   
       $r->print('<div class="LC_Box">');
       $r->print('<div>');
     my $sortorder=$env{'form.sortorder'};      my $sortorder=$env{'form.sortorder'};
     unless ($sortorder) { $sortorder='realmstudent'; }      unless ($sortorder) { $sortorder='realmstudent'; }
     &sortmenu($r,$sortorder);      &sortmenu($r,$sortorder);
       $r->print('</div></div>');
   
     $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');      $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
   
Line 2748  ENDOVER Line 3747  ENDOVER
   
     if (($env{'form.store'}) || ($env{'form.dis'})) {      if (($env{'form.store'}) || ($env{'form.dis'})) {
   
  if ($env{'form.store'}) { &storedata($r,$crs,$dom); }          if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
   
 # Read modified data  # Read modified data
   
  my $resourcedata=&readdata($crs,$dom);          my $resourcedata=&readdata($crs,$dom);
   
 # List data  # List data
   
  &listdata($r,$resourcedata,$listdata,$sortorder);          &listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly);
       }
       $r->print(&tableend());
       unless ($readonly) {
           $r->print(((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Save').'" /></p>':''));
     }      }
     $r->print(&tableend().      $r->print('</form>');
      ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').      $r->print(&Apache::loncommon::end_page());
       '</form>'.&Apache::loncommon::end_page());  
 }  }
   
 sub secgroup_lister {  sub secgroup_lister {
Line 2799  sub secgroup_lister { Line 3801  sub secgroup_lister {
 }  }
   
 sub overview {  sub overview {
     my ($r) = @_;      my ($r,$parm_permission) = @_;
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $readonly = 1;
       if ($parm_permission->{'edit'}) {
           undef($readonly);
       }
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
       text=>"Overview Mode"});
     my $start_page=&Apache::loncommon::start_page('Modify Parameters');      my $start_page=&Apache::loncommon::start_page('Modify Parameters');
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
     $r->print(<<ENDOVER);      $r->print($start_page.$breadcrumbs);
 $start_page      $r->print('<form method="post" action="/adm/parmset?action=setoverview" name="parmform">');
 $breadcrumbs  
 <form method="post" action="/adm/parmset?action=setoverview" name="parmform">  
 ENDOVER  
 # Store modified  
   
     &storedata($r,$crs,$dom);  # Store modified
       unless ($readonly) {
           &storedata($r,$crs,$dom);
       }
   
 # Read modified data  # Read modified data
   
     my $resourcedata=&readdata($crs,$dom);      my ($resourcedata,$classlist)=&readdata($crs,$dom);
   
   
     my $sortorder=$env{'form.sortorder'};      my $sortorder=$env{'form.sortorder'};
     unless ($sortorder) { $sortorder='realmstudent'; }      unless ($sortorder) { $sortorder='realmstudent'; }
     &sortmenu($r,$sortorder);      &sortmenu($r,$sortorder);
   
       my $submitbutton = '<input type="submit" value="'.&mt('Save').'" />';
   
       if ($readonly) {
           $r->print('<p>'.$submitbutton.'</p>');
       }
   
   
 # List data  # List data
   
     my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);      my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder,'overview',$classlist,$readonly);
   
     $r->print(&tableend().'<p>'.      $r->print(&tableend().'<p>');
  ($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form>'.      if ($foundkeys) {
       &Apache::loncommon::end_page());          unless ($readonly) {
               $r->print('<p>'.$submitbutton.'</p>');
           }
       } else {
           $r->print('<p class="LC_info">'.&mt('There are no parameters.').'</p>');
       }
       $r->print('</form>'.&Apache::loncommon::end_page());
 }  }
   
 sub clean_parameters {  sub clean_parameters {
Line 2837  sub clean_parameters { Line 3856  sub clean_parameters {
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
   
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=cleanparameters',
           text=>"Clean Parameters"});
     my $start_page=&Apache::loncommon::start_page('Clean Parameters');      my $start_page=&Apache::loncommon::start_page('Clean Parameters');
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Clean');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Clean');
     $r->print(<<ENDOVER);      $r->print(<<ENDOVER);
Line 2855  ENDOVER Line 3876  ENDOVER
 # List data  # List data
   
     $r->print('<h3>'.      $r->print('<h3>'.
       &mt('These parameters refer to resources that do not exist.').            &mt('These parameters refer to resources that do not exist.').
       '</h3>'.            '</h3>'.
       '<input type="submit" value="'.&mt('Delete Checked Parameters').'" />'.'<br />'.            '<input type="submit" value="'.&mt('Delete Selected').'" />'.'<br />'.
       '<br />');            '<br />');
     $r->print(&Apache::loncommon::start_data_table().      $r->print(&Apache::loncommon::start_data_table().
       '<tr>'.            '<tr>'.
       '<th>'.&mt('Delete').'</th>'.            '<th>'.&mt('Delete').'</th>'.
       '<th>'.&mt('Parameter').'</th>'.            '<th>'.&mt('Parameter').'</th>'.
       '</tr>');            '</tr>');
     foreach my $thiskey (sort(keys(%{$resourcedata}))) {      foreach my $thiskey (sort(keys(%{$resourcedata}))) {
  next if (!exists($resourcedata->{$thiskey.'.type'})      next if (!exists($resourcedata->{$thiskey.'.type'})
  && $thiskey=~/\.type$/);           && $thiskey=~/\.type$/);
  my %data = &parse_key($thiskey);      my %data = &parse_key($thiskey);
  if (exists($data{'realm_exists'})      if (1) { #exists($data{'realm_exists'})
     && !$data{'realm_exists'}) {          #&& !$data{'realm_exists'}) {
     $r->print(&Apache::loncommon::start_data_table_row().          $r->print(&Apache::loncommon::start_data_table_row().
       '<tr>'.                '<tr>'.
       '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'      );                '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'              );
       
     $r->print('<td>');          $r->print('<td>');
     $r->print(&mt('Parameter: "[_1]" with value: "[_2]"',          my $display_value = $resourcedata->{$thiskey};
   &standard_parameter_names($data{'parameter_name'}),          if (&isdateparm($resourcedata->{$thiskey.'.type'})) {
   $resourcedata->{$thiskey}));          $display_value =
     $r->print('<br />');              &Apache::lonlocal::locallocaltime($display_value);
     if ($data{'scope_type'} eq 'all') {          }
  $r->print(&mt('All users'));              my $parmitem = &standard_parameter_names($data{'parameter_name'});
     } elsif ($data{'scope_type'} eq 'user') {              $parmitem = &mt($parmitem);
  $r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));          $r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
     } elsif ($data{'scope_type'} eq 'section') {                $parmitem,$resourcedata->{$thiskey}));
  $r->print(&mt('Section: [_1]',$data{'scope'}));          $r->print('<br />');
     } elsif ($data{'scope_type'} eq 'group') {          if ($data{'scope_type'} eq 'all') {
  $r->print(&mt('Group: [_1]',$data{'scope'}));          $r->print(&mt('All users'));
     }          } elsif ($data{'scope_type'} eq 'user') {
     $r->print('<br />');          $r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));
     if ($data{'realm_type'} eq 'all') {          } elsif ($data{'scope_type'} eq 'secgroup') {
  $r->print(&mt('All Resources'));          $r->print(&mt('Group/Section: [_1]',$data{'scope'}));
     } elsif ($data{'realm_type'} eq 'folder') {          }
  $r->print(&mt('Folder: [_1]'),$data{'realm'});          $r->print('<br />');
     } elsif ($data{'realm_type'} eq 'symb') {          if ($data{'realm_type'} eq 'all') {
  my ($map,$resid,$url) =          $r->print(&mt('All Resources'));
     &Apache::lonnet::decode_symb($data{'realm'});          } elsif ($data{'realm_type'} eq 'folder') {
  $r->print(&mt('Resource: [_1] <br />&nbsp;&nbsp;&nbsp;with ID: [_2] <br />&nbsp;&nbsp;&nbsp;in folder [_3]',          $r->print(&mt('Folder: [_1]'),$data{'realm'});
       $url,$resid,$map));          } elsif ($data{'realm_type'} eq 'symb') {
     }          my ($map,$resid,$url) =
     $r->print(&mt('Part: [_1]',$data{'parameter_part'}));              &Apache::lonnet::decode_symb($data{'realm'});
     $r->print('</td></tr>');          $r->print(&mt('Resource: [_1]with ID: [_2]in folder [_3]',
                     $url.' <br />&nbsp;&nbsp;&nbsp;',
  }                    $resid.' <br />&nbsp;&nbsp;&nbsp;',$map));
           }
           $r->print(' <br />&nbsp;&nbsp;&nbsp;'.&mt('Part: [_1]',$data{'parameter_part'}));
           $r->print('</td></tr>');
   
       }
     }      }
     $r->print(&Apache::loncommon::end_data_table().'<p>'.      $r->print(&Apache::loncommon::end_data_table().'<p>'.
       '<input type="submit" value="'.&mt('Delete Checked Parameters').'" />'.            '<input type="submit" value="'.&mt('Delete Selected').'" />'.
       '</p></form>'.            '</p></form>');
       &Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
   }
   
   sub date_shift_one {
       my ($r) = @_;
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $sec = $env{'request.course.sec'};
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
           text=>"Shifting Dates"});
       my $submit_text = &mt('Shift all dates accordingly');
       if ($sec ne '') {
           my @groups;
           if ($env{'request.course.groups'} ne '') {
               @groups = split(/:/,$env{'request.course.groups'});
           }
           if (@groups) {
               $submit_text = &mt("Shift dates set just for your section/group(s), accordingly");
           } else {
               $submit_text = &mt("Shift dates set just for your section, accordingly");
           }
       }
       my $start_page=&Apache::loncommon::start_page('Shift Dates');
       my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
       $r->print($start_page.$breadcrumbs);
       $r->print('<form name="shiftform" method="post" action="">'.
                 '<table><tr><td>'.&mt('Currently set date:').'</td><td>'.
                 &Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.
                 '<tr><td>'.&mt('Shifted date:').'</td><td>'.
                       &Apache::lonhtmlcommon::date_setter('shiftform',
                                                           'timeshifted',
                                                           $env{'form.timebase'},,
                                                           '').
                 '</td></tr></table>'.
                 '<input type="hidden" name="action" value="dateshift2" />'.
                 '<input type="hidden" name="timebase" value="'.$env{'form.timebase'}.'" />'.
                 '<input type="submit" value="'.$submit_text.'" /></form>');
       $r->print(&Apache::loncommon::end_page());
   }
   
   sub date_shift_two {
       my ($r) = @_;
       my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
       my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
       my $sec = $env{'request.course.sec'};
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
           text=>"Shifting Dates"});
       my $start_page=&Apache::loncommon::start_page('Shift Dates');
       my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
       $r->print($start_page.$breadcrumbs);
       my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
       $r->print('<h2>'.&mt('Shift Dates').'</h2>');
       if ($sec ne '') {
           my @groups;
           if ($env{'request.course.groups'} ne '') {
               @groups = split(/:/,$env{'request.course.groups'});
           }
           if (@groups) {
               $r->print('<p>'.
                         &mt("Shift dates set just for your section/group(s), such that [_1] becomes [_2]",
                             &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
                             &Apache::lonlocal::locallocaltime($timeshifted)).
                         '</p>');
           } else {
               $r->print('<p>'.
                         &mt("Shift dates set just for your section, such that [_1] becomes [_2]",
                             &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
                             &Apache::lonlocal::locallocaltime($timeshifted)).
                         '</p>');
           }
       } else {
           $r->print('<p>'.&mt('Shifting all dates such that [_1] becomes [_2]',
                               &Apache::lonlocal::locallocaltime($env{'form.timebase'}),
                               &Apache::lonlocal::locallocaltime($timeshifted)).
                     '</p>');
       }
       my $delta=$timeshifted-$env{'form.timebase'};
       my $numchanges = 0;
       my $result = &dateshift($delta,\$numchanges);
       if ($result eq 'ok') {
           $r->print(
               &Apache::lonhtmlcommon::confirm_success(&mt('Completed shifting of [quant,_1,date setting]',
                                                       $numchanges)));
       } elsif ($result eq 'con_delayed') {
           $r->print(
               &Apache::lonhtmlcommon::confirm_success(&mt('Queued shifting of [quant,_1,date setting]',
                                                           $numchanges)));
       } else {
           $r->print(
               &Apache::lonhtmlcommon::confirm_success(&mt('An error occurred attempting to shift dates'),1));
       }
       $r->print(
           '<br /><br />'.
           &Apache::lonhtmlcommon::actionbox(
               ['<a href="/adm/parmset">'.&mt('Content and Problem Settings').'</a>']));
       $r->print(&Apache::loncommon::end_page());
 }  }
   
 sub parse_key {  sub parse_key {
     my ($key) = @_;      my ($key) = @_;
     my %data;      my %data;
     my ($middle,$part,$name)=      my ($middle,$part,$name)=
  ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);      ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
     $data{'scope_type'} = 'all';      $data{'scope_type'} = 'all';
     if ($middle=~/^\[(.*)\]/) {      if ($middle=~/^\[(.*)\]/) {
         $data{'scope'} = $1;             $data{'scope'} = $1;
  if ($data{'scope'}=~/^useropt\:(\w+)\:(\w+)/) {      if ($data{'scope'}=~/^useropt\:($match_username)\:($match_domain)/) {
     $data{'scope_type'} = 'user';          $data{'scope_type'} = 'user';
     $data{'scope'} = [$1,$2];          $data{'scope'} = [$1,$2];
  } else {      } else {
     #FIXME check for group scope          $data{'scope_type'} = 'secgroup';
     $data{'scope_type'} = 'section';      }
  }      $middle=~s/^\[(.*)\]//;
  $middle=~s/^\[(.*)\]//;  
     }      }
     $middle=~s/\.+$//;      $middle=~s/\.+$//;
     $middle=~s/^\.+//;      $middle=~s/^\.+//;
     $data{'realm_type'}='all';      $data{'realm_type'}='all';
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {      if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  $data{'realm'} = $1;      $data{'realm'} = $1;
  $data{'realm_type'} = 'folder';      $data{'realm_type'} = 'folder';
  $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});      $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
  ($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'});      ($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'});
  &Apache::lonnet::logthis($1." siad ". $data{'realm_exists'} );  
     } elsif ($middle) {      } elsif ($middle) {
  $data{'realm'} = $middle;      $data{'realm'} = $middle;
  $data{'realm_type'} = 'symb';      $data{'realm_type'} = 'symb';
  $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});      $data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
  my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});      my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});
  $data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);      $data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);
     }      }
       
     $data{'parameter_part'} = $part;      $data{'parameter_part'} = $part;
     $data{'parameter_name'} = $name;      $data{'parameter_name'} = $name;
   
     return %data;      return %data;
 }  }
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item check_cloners  
   
 Checks if new users included in list of allowed cloners  
 are valid users.  Replaces supplied list with   
 cleaned list containing only users with valid usernames  
 and domains.  
   
 Inputs: $clonelist, $oldcloner   
 where $clonelist is ref to array of requested cloners,  
 and $oldcloner is ref to array of currently allowed  
 cloners.  
   
 Returns: string - comma separated list of requested  
 cloners (username:domain) who do not exist in system.  
   
 =item change_clone  
   
 Modifies the list of courses a user can clone (stored  
 in the user's environment.db file), called when a  
 change is made to the list of users allowed to clone  
 a course.  
   
 Inputs: $action,$cloner  
 where $action is add or drop, and $cloner is identity of   
 user for whom cloning ability is to be changed in course.   
   
 =cut  
                                                                                               
 ##################################################  
 ##################################################  
   
 sub extract_cloners {  
     my ($clonelist,$allowclone) = @_;  
     if ($clonelist =~ /,/) {  
         @{$allowclone} = split/,/,$clonelist;  
     } else {  
         $$allowclone[0] = $clonelist;  
     }  
 }  
   
   
 sub check_cloners {  sub header {
     my ($clonelist,$oldcloner) = @_;      return &Apache::loncommon::start_page('Content and Problem Settings');
     my ($clean_clonelist,$disallowed);  
     my @allowclone = ();  
     &extract_cloners($$clonelist,\@allowclone);  
     foreach my $currclone (@allowclone) {  
         if (!grep/^$currclone$/,@$oldcloner) {  
             my ($uname,$udom) = split/:/,$currclone;  
             if ($uname && $udom) {  
                 if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {  
                     $disallowed .= $currclone.',';     
                 } else {  
                     $clean_clonelist .= $currclone.',';  
                 }  
             }  
         } else {  
             $clean_clonelist .= $currclone.',';  
         }  
     }  
     if ($disallowed) {  
         $disallowed =~ s/,$//;  
     }  
     if ($clean_clonelist) {  
         $clean_clonelist =~ s/,$//;  
     }  
     $$clonelist = $clean_clonelist;  
     return $disallowed;  
 }    
   
 sub change_clone {  
     my ($clonelist,$oldcloner) = @_;  
     my ($uname,$udom);  
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
     my $clone_crs = $cnum.':'.$cdom;  
       
     if ($cnum && $cdom) {  
         my @allowclone;  
         &extract_cloners($clonelist,\@allowclone);  
         foreach my $currclone (@allowclone) {  
             if (!grep/^$currclone$/,@$oldcloner) {  
                 ($uname,$udom) = split/:/,$currclone;  
                 if ($uname && $udom) {  
                     unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {  
                         my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');  
                         if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) {  
                             if ($currclonecrs{'cloneable'} eq '') {  
                                 $currclonecrs{'cloneable'} = $clone_crs;  
                             } else {  
                                 $currclonecrs{'cloneable'} .= ','.$clone_crs;  
                             }  
                             &Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname);  
                         }  
                     }  
                 }  
             }  
         }  
         foreach my $oldclone (@$oldcloner) {  
             if (!grep/^$oldclone$/,@allowclone) {  
                 ($uname,$udom) = split/:/,$oldclone;  
                 if ($uname && $udom) {  
                     unless (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {  
                         my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');  
                         my %newclonecrs = ();  
                         if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) {  
                             if ($currclonecrs{'cloneable'} =~ /,/) {  
                                 my @currclonecrs = split/,/,$currclonecrs{'cloneable'};  
                                 foreach (@currclonecrs) {  
                                     unless ($_ eq $clone_crs) {  
                                         $newclonecrs{'cloneable'} .= $_.',';  
                                     }  
                                 }  
                                 $newclonecrs{'cloneable'} =~ s/,$//;  
                             } else {  
                                 $newclonecrs{'cloneable'} = '';  
                             }  
                             &Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname);  
                         }  
                     }  
                 }  
             }  
         }  
     }  
 }  }
   
   
 ##################################################  
 ##################################################  
   
 =pod  
   
 =item * header  
   
 Output html header for page  
   
 =cut  
   
 ##################################################  
 ##################################################  
 sub header {  
     return &Apache::loncommon::start_page('Parameter Manager');  
 }  
 ##################################################  
 ##################################################  
 sub print_main_menu {  sub print_main_menu {
     my ($r,$parm_permission)=@_;      my ($r,$parm_permission)=@_;
     #      #
       $r->print(&header());
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Content and Problem Settings'));
       my $crstype = &Apache::loncommon::course_type();
       my $lc_crstype = lc($crstype);
   
     $r->print(<<ENDMAINFORMHEAD);      $r->print(<<ENDMAINFORMHEAD);
 <form method="post" enctype="multipart/form-data"  <form method="post" enctype="multipart/form-data"
       action="/adm/parmset" name="studentform">        action="/adm/parmset" name="studentform">
Line 3111  ENDMAINFORMHEAD Line 4092  ENDMAINFORMHEAD
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});      my $vgr  = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
       my $mgr  = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
       my $dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'});
       my $vcb = &Apache::lonnet::allowed('vcb',$env{'request.course.id'});
       my $vpa = &Apache::lonnet::allowed('vpa',$env{'request.course.id'});
       if ((!$dcm) && ($env{'request.course.sec'} ne '')) {
           $dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
                                           '/'.$env{'request.course.sec'});
       }
       if ((!$vcb) && ($env{'request.course.sec'} ne '')) {
           $vcb = &Apache::lonnet::allowed('vcb',$env{'request.course.id'}.
                                           '/'.$env{'request.course.sec'});
       }
       my (%linktext,%linktitle,%url);
       if ($parm_permission->{'edit'}) {
           %linktext = (
                        newoverview     => 'Edit Resource Parameters - Overview Mode',
                        settable        => 'Edit Resource Parameters - Table Mode',
                        setoverview     => 'Modify Resource Parameters - Overview Mode',
                       );
           %linktitle = (
                        newoverview     => 'Set/Modify resource parameters in overview mode.',
                        settable        => 'Set/Modify resource parameters in table mode.',
                        setoverview     => 'Set/Modify existing resource parameters in overview mode.',
                        );
       } else {
           %linktext = (
                        newoverview     => 'View Resource Parameters - Overview Mode',
                        settable        => 'View Resource Parameters - Table Mode',
                        setoverview     => 'View Resource Parameters - Overview Mode',
                      );
           %linktitle = (
                        newoverview     => 'Display resource parameters in overview mode.',
                        settable        => 'Display resource parameters in table mode.',
                        setoverview     => 'Display existing resource parameters in overview mode.',
                        );
       }
       if ($mgr) {
           $linktext{'resettimes'} = 'Reset Student Access Times';
           $linktitle{'resettimes'} = "Reset access times for folders/maps, resources or the $lc_crstype.";
           $url{'resettimes'} = '/adm/helper/resettimes.helper';
       } elsif ($vgr) {
           $linktext{'resettimes'} = 'Display Student Access Times',
           $linktitle{'resettimes'} = "Display access times for folders/maps, resources or the $lc_crstype.",
           $url{'resettimes'} = '/adm/accesstimes';
       }
     my @menu =      my @menu =
         ( { divider=>'Settings for Your Course',          ( { categorytitle=>"Content Settings for this $crstype",
   },          items => [
           { text => 'Set Course Environment',            { linktext => 'Portfolio Metadata',
     action => 'crsenv',              url => '/adm/parmset?action=setrestrictmeta',
             permission => $parm_permission,              permission => $parm_permission->{'setrestrictmeta'},
             help => 'Course_Environment',              linktitle => "Restrict metadata for this $lc_crstype." ,
               icon =>'contact-new.png'   ,
             },              },
           { text => 'Set Portfolio Metadata',            { linktext => $linktext{'resettimes'},
     action => 'setrestrictmeta',              url => $url{'resettimes'},
             permission => $parm_permission,              permission => ($vgr || $mgr),
               linktitle => $linktitle{'resettimes'},
               icon => 'start-here.png',
             },              },
   { text => 'Manage Course Slots',            { linktext => 'Blocking Communication/Resource Access',
     url => '/adm/slotrequest?command=showslots',              url => '/adm/setblock',
     permission => $vgr,              permission => ($vcb || $dcm),
               linktitle => 'Configure blocking of communication/collaboration and access to resources during an exam',
               icon => 'comblock.png',
             },              },
           { text => 'Set Parameter Setting Default Actions',            { linktext => 'Set Parameter Setting Default Actions',
             action => 'setdefaults',              url => '/adm/parmset?action=setdefaults',
             permission => $parm_permission,              permission => $parm_permission->{'setdefaults'},
             },                        linktitle =>'Set default actions for parameters.'  ,
   { divider => 'New and Existing Parameter Settings for Your Resources',              icon => 'folder-new.png'  ,
     },              }]},
           { text => 'Set/Modify Resource Parameters - Helper Mode',        { categorytitle => 'New and Existing Parameter Settings for Resources',
           items => [
             { linktext => 'Edit Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',              url => '/adm/helper/parameter.helper',
             permission => $parm_permission,              permission => $parm_permission->{'helper'},
             help => 'Parameter_Helper',              linktitle =>'Set/Modify resource parameters in helper mode.'  ,
               icon => 'dialog-information.png'  ,
               #help => 'Parameter_Helper',
             },              },
    { text => 'Set/Modify Resource Parameters - Overview Mode',            { linktext => $linktext{'newoverview'},
             action => 'newoverview',              url => '/adm/parmset?action=newoverview',
             permission => $parm_permission,              permission => $parm_permission->{'newoverview'},
             help => 'Parameter_Overview',              linktitle => $linktitle{'newoverview'},
               icon => 'edit-find.png',
               #help => 'Parameter_Overview',
             },              },
           { text => 'Set/Modify Resource Parameters - Table Mode',            { linktext => $linktext{'settable'},
             action => 'settable',              url => '/adm/parmset?action=settable',
             permission => $parm_permission,              permission => $parm_permission->{'settable'},
             help => 'Table_Mode',              linktitle => $linktitle{'settable'},
             },              icon => 'edit-copy.png',
            { divider => 'Existing Parameter Settings for Your Resources',              #help => 'Table_Mode',
   },              }]},
   { text => 'Modify Resource Parameters - Overview Mode',             { categorytitle => 'Existing Parameter Settings for Resources',
             action => 'setoverview',           items => [
             permission => $parm_permission,            { linktext => $linktext{'setoverview'},
             help => 'Parameter_Overview',              url => '/adm/parmset?action=setoverview',
      },                        permission => $parm_permission->{'setoverview'},
   { text => 'Parameter Change Log and Course Blog Posting/User Notification',              linktitle => $linktitle{'setoverview'},
             action => 'parameterchangelog',              icon => 'preferences-desktop-wallpaper.png',
             permission => $parm_permission,              #help => 'Parameter_Overview',
             },              },
             { linktext => 'Change Log',
               url => '/adm/parmset?action=parameterchangelog',
               permission => $parm_permission->{'parameterchangelog'},
               linktitle =>"View parameter and $lc_crstype blog posting/user notification change log."  ,
               icon => 'document-properties.png',
               }]}
           );            );
     my $menu_html = '';      $r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
     foreach my $menu_item (@menu) {      $r->print('</form>'.&Apache::loncommon::end_page());
  if ($menu_item->{'divider'}) {  
     $menu_html .= '<h3>'.&mt($menu_item->{'divider'}).'</h3>';  
     next;  
  }  
         next if (! $menu_item->{'permission'});  
         $menu_html.='<p>';  
         $menu_html.='<span class="LC_parm_menu_item">';  
         if (exists($menu_item->{'url'})) {  
             $menu_html.=qq{<a href="$menu_item->{'url'}">};  
         } else {  
             $menu_html.=  
                 qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};  
         }  
         $menu_html.= &mt($menu_item->{'text'}).'</a></span>';  
         if (exists($menu_item->{'help'})) {  
             $menu_html.=  
                 &Apache::loncommon::help_open_topic($menu_item->{'help'});  
         }  
         $menu_html.='</p>'.$/;  
     }  
     $r->print($menu_html);  
     return;      return;
 }  }
 ### Set portfolio metadata  
   
   
 sub output_row {  sub output_row {
     my ($r, $field_name, $field_text, $added_flag) = @_;      my ($r, $field_name, $field_text, $added_flag) = @_;
     my $output;      my $output;
Line 3197  sub output_row { Line 4220  sub output_row {
         $values = '';          $values = '';
     }      }
     if (!($options =~ /deleted/)) {      if (!($options =~ /deleted/)) {
         $output.='<strong>'.$field_text.':</strong>';  
         $output.='<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /><br />';  
   
         my @options= ( ['active', 'Show to student'],          my @options= ( ['active', 'Show to student'],
    ['onlyone','Student may select only one choice'],                      ['stuadd', 'Provide text area for students to type metadata'],
    ['stuadd', 'Student may type choices']);                      ['choices','Provide choices for students to select from']);
   #           ['onlyone','Student may select only one choice']);
         if ($added_flag) {          if ($added_flag) {
             push @options,['deleted', 'Delete Metadata Field'];              push @options,['deleted', 'Delete Metadata Field'];
         }          }
          $output = &Apache::loncommon::start_data_table_row();
           $output .= '<td><strong>'.$field_text.':</strong></td>';
           $output .= &Apache::loncommon::end_data_table_row();
         foreach my $opt (@options) {          foreach my $opt (@options) {
     my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;          my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;
     $output.=('&nbsp;'x5).'<label><input type="checkbox" name="'.          $output .= &Apache::loncommon::continue_data_table_row();
         $field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.          $output .= '<td>'.('&nbsp;' x 5).'<label>
         &mt($opt->[1]).'</label> <br />';                     <input type="checkbox" name="'.
  }                     $field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.
                      &mt($opt->[1]).'</label></td>';
           $output .= &Apache::loncommon::end_data_table_row();
       }
           $output .= &Apache::loncommon::continue_data_table_row();
           $output .= '<td>'.('&nbsp;' x 10).'<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /></td>';
           $output .= &Apache::loncommon::end_data_table_row();
           my $multiple_checked;
           my $single_checked;
           if ($options =~ m/onlyone/) {
               $multiple_checked = '';
               $single_checked = ' checked="checked"';
           } else {
               $multiple_checked = ' checked="checked"';
               $single_checked = '';
           }
       $output .= &Apache::loncommon::continue_data_table_row();
       $output .= '<td>'.('&nbsp;' x 10).'
                   <input type="radio" name="'.$field_name.'_onlyone" value="multiple"'.$multiple_checked .' />
                   '.&mt('Student may select multiple choices from list').'</td>';
       $output .= &Apache::loncommon::end_data_table_row();
       $output .= &Apache::loncommon::continue_data_table_row();
       $output .= '<td>'.('&nbsp;' x 10).'
                   <input type="radio" name="'.$field_name.'_onlyone"  value="single"'.$single_checked.' />
                   '.&mt('Student may select only one choice from list').'</td>';
       $output .= &Apache::loncommon::end_data_table_row();
     }      }
     return ($output);      return ($output);
 }  }
   
   
   
 sub order_meta_fields {  sub order_meta_fields {
     my ($r)=@_;      my ($r)=@_;
     my $idx = 1;      my $idx = 1;
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     $r->print(&Apache::loncommon::start_page('Order Metadata Fields'));      $r->print(&Apache::loncommon::start_page('Order Metadata Fields'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata Fields'));      &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
           text=>"Add Metadata Field"});
       &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>"/adm/parmset?action=setrestrictmeta",
                 text=>"Restrict Metadata"},
                {text=>"Order Metadata"});
       $r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));
     if ($env{'form.storeorder'}) {      if ($env{'form.storeorder'}) {
         my $newpos = $env{'form.newpos'} - 1;          my $newpos = $env{'form.newpos'} - 1;
         my $currentpos = $env{'form.currentpos'} - 1;          my $currentpos = $env{'form.currentpos'} - 1;
Line 3231  sub order_meta_fields { Line 4289  sub order_meta_fields {
         if ($newpos > $currentpos) {          if ($newpos > $currentpos) {
         # moving stuff up          # moving stuff up
             for ($i=0;$i<$currentpos;$i++) {              for ($i=0;$i<$currentpos;$i++) {
         $neworder[$i]=$oldorder[$i];              $neworder[$i]=$oldorder[$i];
             }              }
             for ($i=$currentpos;$i<$newpos;$i++) {              for ($i=$currentpos;$i<$newpos;$i++) {
         $neworder[$i]=$oldorder[$i+1];              $neworder[$i]=$oldorder[$i+1];
             }              }
             $neworder[$newpos]=$oldorder[$currentpos];              $neworder[$newpos]=$oldorder[$currentpos];
             for ($i=$newpos+1;$i<=$#oldorder;$i++) {              for ($i=$newpos+1;$i<=$#oldorder;$i++) {
         $neworder[$i]=$oldorder[$i];              $neworder[$i]=$oldorder[$i];
             }              }
         } else {          } else {
         # moving stuff down          # moving stuff down
        for ($i=0;$i<$newpos;$i++) {              for ($i=0;$i<$newpos;$i++) {
            $neworder[$i]=$oldorder[$i];                  $neworder[$i]=$oldorder[$i];
        }              }
        $neworder[$newpos]=$oldorder[$currentpos];              $neworder[$newpos]=$oldorder[$currentpos];
        for ($i=$newpos+1;$i<$currentpos+1;$i++) {              for ($i=$newpos+1;$i<$currentpos+1;$i++) {
            $neworder[$i]=$oldorder[$i-1];                  $neworder[$i]=$oldorder[$i-1];
        }              }
        for ($i=$currentpos+1;$i<=$#oldorder;$i++) {              for ($i=$currentpos+1;$i<=$#oldorder;$i++) {
            $neworder[$i]=$oldorder[$i];                  $neworder[$i]=$oldorder[$i];
        }              }
         }          }
  my $ordered_fields = join ",", @neworder;      my $ordered_fields = join ",", @neworder;
  &Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields);          my $put_result = &Apache::lonnet::put('environment',
                              {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
       &Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields});
     }      }
     my $fields = &get_added_meta_fieldnames();      my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
     my $ordered_fields;      my $ordered_fields;
     my @fields_in_order = split /,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'};      my @fields_in_order = split /,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'};
     if (!@fields_in_order) {      if (!@fields_in_order) {
Line 3266  sub order_meta_fields { Line 4326  sub order_meta_fields {
             $ordered_fields = join ",", @fields_in_order;              $ordered_fields = join ",", @fields_in_order;
         }          }
         my $put_result = &Apache::lonnet::put('environment',          my $put_result = &Apache::lonnet::put('environment',
                             {'metadata.addedorder'=>$ordered_fields},$dom,$crs);                               {'metadata.addedorder'=>$ordered_fields},$dom,$crs);
     }       }
     $r->print('<table>');      $r->print('<table>');
     my $num_fields = scalar(@fields_in_order);      my $num_fields = scalar(@fields_in_order);
     foreach my $key (@fields_in_order) {      foreach my $key (@fields_in_order) {
         $r->print('<tr><td>');          $r->print('<tr><td>');
         $r->print('<form method="post" action="">');          $r->print('<form method="post" action="">');
         $r->print('<select name="newpos" onChange="this.form.submit()">');          $r->print('<select name="newpos" onchange="this.form.submit()">');
         for (my $i = 1;$i le $num_fields;$i ++) {          for (my $i = 1;$i le $num_fields;$i ++) {
             if ($i eq $idx) {              if ($i eq $idx) {
                 $r->print('<option value="'.$i.'"  SELECTED>('.$i.')</option>');                  $r->print('<option value="'.$i.'"  SELECTED>('.$i.')</option>');
Line 3291  sub order_meta_fields { Line 4351  sub order_meta_fields {
     $r->print('</table>');      $r->print('</table>');
     return 'ok';      return 'ok';
 }  }
   
   
   sub continue {
       my $output;
       $output .= '<form action="" method="post">';
       $output .= '<input type="hidden" name="action" value="setrestrictmeta" />';
       $output .= '<input type="submit" value="'.&mt('Continue').'" />';
       return ($output);
   }
   
   
 sub addmetafield {  sub addmetafield {
     my ($r)=@_;      my ($r)=@_;
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
           text=>"Add Metadata Field"});
     $r->print(&Apache::loncommon::start_page('Add Metadata Field'));      $r->print(&Apache::loncommon::start_page('Add Metadata Field'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     if (exists($env{'form.undelete'})) {      if (exists($env{'form.undelete'})) {
         my @meta_fields = &Apache::loncommon::get_env_multiple('form.undelete');          my @meta_fields = &Apache::loncommon::get_env_multiple('form.undeletefield');
         foreach my $meta_field(@meta_fields) {          foreach my $meta_field(@meta_fields) {
             my $options = $env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.options'};              my $options = $env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.options'};
             $options =~ s/deleted//;              $options =~ s/deleted//;
             $options =~ s/,,/,/;              $options =~ s/,,/,/;
             my $put_result = &Apache::lonnet::put('environment',              my $put_result = &Apache::lonnet::put('environment',
                                         {'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);                                          {'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);
                                           
             $r->print('Undeleted Metadata Field <strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}."</strong> with result ".$put_result.'<br />');              $r->print(&mt('Undeleted Metadata Field [_1] with result [_2]',
                             '<strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}.
                             '</strong>',$put_result).
                         '<br />');
         }          }
         $r->print('<form action="" method="post">');          $r->print(&continue());
         $r->print('<input type="hidden" name="action" value="setrestrictmeta" />');  
         $r->print('<input type="submit" value="Continue" />');  
     } elsif (exists($env{'form.fieldname'})) {      } elsif (exists($env{'form.fieldname'})) {
         my $meta_field = $env{'form.fieldname'};          my $meta_field = $env{'form.fieldname'};
         my $display_field = $env{'form.fieldname'};          my $display_field = $env{'form.fieldname'};
Line 3320  sub addmetafield { Line 4394  sub addmetafield {
                             {'metadata.'.$meta_field.'.values'=>"",                              {'metadata.'.$meta_field.'.values'=>"",
                              'metadata.'.$meta_field.'.added'=>"$display_field",                               'metadata.'.$meta_field.'.added'=>"$display_field",
                              'metadata.'.$meta_field.'.options'=>""},$dom,$crs);                               'metadata.'.$meta_field.'.options'=>""},$dom,$crs);
         $r->print('Added new Metadata Field '.$env{'form.fieldname'}." with result ".$put_result);          $r->print(&mt('Added new Metadata Field [_1] with result [_2]',
                         '<strong>'.$env{'form.fieldname'}.'</strong>',$put_result).
                     '<br />');
           $r->print(&continue());
     } else {      } else {
         my $fields = &get_deleted_meta_fieldnames();          my $fields = &get_deleted_meta_fieldnames($env{'request.course.id'});
         if ($fields) {          if ($fields) {
             $r->print('You may undelete previously deleted fields.<br />Check those you wish to undelete and click Undelete.<br />');              $r->print(&mt('You may undelete previously deleted fields.').
                         '<br />'.
                         &mt('Check those you wish to undelete and click Undelete.').
                         '<br />');
             $r->print('<form method="post" action="">');              $r->print('<form method="post" action="">');
             foreach my $key(keys(%$fields)) {              foreach my $key(keys(%$fields)) {
                 $r->print('<input type="checkbox" name="undelete" value="'.$key.'" />'.$$fields{$key}.'<br /');                  $r->print('<input type="checkbox" name="undeletefield" value="'.$key.'" />'.$$fields{$key}.'<br /');
             }              }
             $r->print('<input type="submit" name="undelete" value="Undelete" />');              $r->print('<input type="submit" name="undelete" value="Undelete" />');
             $r->print('</form>');              $r->print('</form>');
         }          }
         $r->print('<hr /><strong>Or</strong> you may enter a new metadata field name.<form method="post" action="/adm/parmset?action=addmetadata"');          $r->print('<hr />'.
                     &mt('[_1]Or[_2] you may enter a new metadata field name.',
                         '<strong>','</strong>').
                    '<form method="post" action="/adm/parmset?action=addmetadata">');
         $r->print('<input type="text" name="fieldname" /><br />');          $r->print('<input type="text" name="fieldname" /><br />');
         $r->print('<input type="submit" value="Add Metadata Field" />');          $r->print('<input type="submit" value="'.&mt('Add Metadata Field').'" />');
         $r->print('</form>');  
     }      }
       $r->print('</form>');
 }  }
   
   
   
 sub setrestrictmeta {  sub setrestrictmeta {
     my ($r)=@_;      my ($r)=@_;
     my $next_meta;      my $next_meta;
     my $output;      my $output;
     my $item_num;      my $item_num;
     my $put_result;      my $put_result;
       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
           text=>"Restrict Metadata"});
     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));      $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};      my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
     my $save_field = '';      my $save_field = '';
       my %lt = &Apache::lonlocal::texthash(
                                              addm => 'Add Metadata Field',
                                              ordm => 'Order Metadata Fields',
                                              save => 'Save',
                                           );
     if ($env{'form.restrictmeta'}) {      if ($env{'form.restrictmeta'}) {
         foreach my $field (sort(keys(%env))) {          foreach my $field (sort(keys(%env))) {
             if ($field=~m/^form.(.+)_(.+)$/) {              if ($field=~m/^form.(.+)_(.+)$/) {
Line 3358  sub setrestrictmeta { Line 4451  sub setrestrictmeta {
                 my $meta_key = $2;                  my $meta_key = $2;
                 if ($save_field ne $meta_field) {                  if ($save_field ne $meta_field) {
                     $save_field = $meta_field;                      $save_field = $meta_field;
                if ($env{'form.'.$meta_field.'_stuadd'}) {                      if ($env{'form.'.$meta_field.'_stuadd'}) {
                    $options.='stuadd,';                          $options.='stuadd,';
                }                       }
                if ($env{'form.'.$meta_field.'_onlyone'}) {                      if ($env{'form.'.$meta_field.'_choices'}) {
                    $options.='onlyone,';                          $options.='choices,';
                }                       }
                if ($env{'form.'.$meta_field.'_active'}) {                      if ($env{'form.'.$meta_field.'_onlyone'} eq 'single') {
                    $options.='active,';                          $options.='onlyone,';
                }                      }
                if ($env{'form.'.$meta_field.'_deleted'}) {                      if ($env{'form.'.$meta_field.'_active'}) {
                    $options.='deleted,';                          $options.='active,';
                }                      }
                                      if ($env{'form.'.$meta_field.'_deleted'}) {
                           $options.='deleted,';
                       }
                     my $name = $save_field;                      my $name = $save_field;
                      $put_result = &Apache::lonnet::put('environment',                       $put_result = &Apache::lonnet::put('environment',
                                                   {'metadata.'.$meta_field.'.options'=>$options,                                                    {'metadata.'.$meta_field.'.options'=>$options,
Line 3381  sub setrestrictmeta { Line 4476  sub setrestrictmeta {
         }          }
     }      }
     &Apache::lonnet::coursedescription($env{'request.course.id'},      &Apache::lonnet::coursedescription($env{'request.course.id'},
        {'freshen_cache' => 1});                         {'freshen_cache' => 1});
     # Get the default metadata fields      # Get the default metadata fields
     my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');      my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
     # Now get possible added metadata fields      # Now get possible added metadata fields
     my $added_metadata_fields = &get_added_meta_fieldnames(\%metadata_fields);      my $added_metadata_fields = &get_added_meta_fieldnames($env{'request.course.id'});
       $output .= &Apache::loncommon::start_data_table();
     foreach my $field (sort(keys(%metadata_fields))) {      foreach my $field (sort(keys(%metadata_fields))) {
         if ($field ne 'courserestricted') {          if ($field ne 'courserestricted') {
     $output.= &output_row($r, $field, $metadata_fields{$field});          $output.= &output_row($r, $field, $metadata_fields{$field});
  }      }
     }      }
       my $buttons = (<<ENDButtons);
           <input type="submit" name="restrictmeta" value="$lt{'save'}" />
           </form><br />
           <form method="post" action="/adm/parmset?action=addmetadata" name="form1">
           <input type="submit" name="restrictmeta" value="$lt{'addm'}" />
           </form>
           <br />
           <form method="post" action="/adm/parmset?action=ordermetadata" name="form2">
           <input type="submit" name="restrictmeta" value="$lt{'ordm'}" />
   ENDButtons
     my $added_flag = 1;      my $added_flag = 1;
     foreach my $field (sort(keys(%$added_metadata_fields))) {      foreach my $field (sort(keys(%$added_metadata_fields))) {
         $output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag);          $output.= &output_row($r,$field,$$added_metadata_fields{$field},$added_flag);
     }      }
     $r->print(<<ENDenv);             $output .= &Apache::loncommon::end_data_table();
       $r->print(<<ENDenv);
         <form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">          <form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">
         <p>  
         $output          $output
         <input type="submit" name="restrictmeta" value="Update Metadata Restrictions">          $buttons
         </form><br />  
         <form method="post" action="/adm/parmset?action=addmetadata" name="form">  
         <input type="submit" name="restrictmeta" value="Add a Metadata Field">  
         </form>  
         </form><br />  
         <form method="post" action="/adm/parmset?action=ordermetadata" name="form">  
         <input type="submit" name="restrictmeta" value="Order Metadata Fields">  
         </form>          </form>
 ENDenv  ENDenv
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return 'ok';      return 'ok';
 }  }
 ##################################################  
   
   
 sub get_added_meta_fieldnames {  sub get_added_meta_fieldnames {
       my ($cid) = @_;
     my %fields;      my %fields;
     foreach my $key(%env) {      foreach my $key(%env) {
         if ($key =~ m/\.metadata\.(.+)\.added$/) {          if ($key =~ m/\Q$cid\E\.metadata\.(.+)\.added$/) {
             my $field_name = $1;              my $field_name = $1;
             my ($display_field_name) = $env{$key};              my ($display_field_name) = $env{$key};
             $fields{$field_name} = $display_field_name;              $fields{$field_name} = $display_field_name;
Line 3424  sub get_added_meta_fieldnames { Line 4526  sub get_added_meta_fieldnames {
     }      }
     return \%fields;      return \%fields;
 }  }
   
   
   
 sub get_deleted_meta_fieldnames {  sub get_deleted_meta_fieldnames {
       my ($cid) = @_;
     my %fields;      my %fields;
     my ($default_fields) = @_;  
     foreach my $key(%env) {      foreach my $key(%env) {
         if ($key =~ m/\.metadata\.(.+)\.added$/) {          if ($key =~ m/\Q$cid\E\.metadata\.(.+)\.added$/) {
             my $field_name = $1;              my $field_name = $1;
             if ($env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/) {              if ($env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/) {
                 my ($display_field_name) = $env{$key};                  my ($display_field_name) = $env{$key};
Line 3441  sub get_deleted_meta_fieldnames { Line 4546  sub get_deleted_meta_fieldnames {
 sub defaultsetter {  sub defaultsetter {
     my ($r) = @_;      my ($r) = @_;
   
     my $start_page =       &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
  &Apache::loncommon::start_page('Parameter Setting Default Actions');          text=>"Set Defaults"});
       my $start_page =
       &Apache::loncommon::start_page('Parameter Setting Default Actions');
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');      my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
     $r->print(<<ENDDEFHEAD);      $r->print($start_page.$breadcrumbs);
 $start_page      $r->print('<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">');
 $breadcrumbs  
 <form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">  
 ENDDEFHEAD  
   
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 3465  ENDDEFHEAD Line 4569  ENDDEFHEAD
     my %keyorder=&standardkeyorder();      my %keyorder=&standardkeyorder();
     my %defkeytype=();      my %defkeytype=();
   
     &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,       &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
  \%mapp, \%symbp,\%maptitles,\%uris,                  \%mapp, \%symbp,\%maptitles,\%uris,
  \%keyorder,\%defkeytype);                  \%keyorder,\%defkeytype);
     if ($env{'form.storerules'}) {      if ($env{'form.storerules'}) {
  my %newrules=();      my %newrules=();
  my @delrules=();      my @delrules=();
  my %triggers=();      my %triggers=();
  foreach my $key (keys(%env)) {      foreach my $key (keys(%env)) {
             if ($key=~/^form\.(\w+)\_action$/) {              if ($key=~/^form\.(\w+)\_action$/) {
  my $tempkey=$1;          my $tempkey=$1;
  my $action=$env{$key};          my $action=$env{$key};
                 if ($action) {                  if ($action) {
     $newrules{$tempkey.'_action'}=$action;              $newrules{$tempkey.'_action'}=$action;
     if ($action ne 'default') {              if ($action ne 'default') {
  my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);              my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
  $triggers{$whichparm}.=$tempkey.':';              $triggers{$whichparm}.=$tempkey.':';
     }              }
     $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};              $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
     if (&isdateparm($defkeytype{$tempkey})) {              if (&isdateparm($defkeytype{$tempkey})) {
  $newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};              $newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
  $newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};              $newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
  $newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};              $newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
  $newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};              $newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
     } else {              } else {
  $newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};              $newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
  $newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};              $newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
     }              }
  } else {          } else {
     push(@delrules,$tempkey.'_action');              push(@delrules,$tempkey.'_action');
     push(@delrules,$tempkey.'_type');              push(@delrules,$tempkey.'_type');
     push(@delrules,$tempkey.'_hours');              push(@delrules,$tempkey.'_hours');
     push(@delrules,$tempkey.'_min');              push(@delrules,$tempkey.'_min');
     push(@delrules,$tempkey.'_sec');              push(@delrules,$tempkey.'_sec');
     push(@delrules,$tempkey.'_value');              push(@delrules,$tempkey.'_value');
  }          }
     }          }
  }      }
  foreach my $key (keys %allparms) {      foreach my $key (keys %allparms) {
     $newrules{$key.'_triggers'}=$triggers{$key};          $newrules{$key.'_triggers'}=$triggers{$key};
  }      }
  &Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);      &Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);
  &Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);      &Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
  &resetrulescache();      &resetrulescache();
     }      }
     my %lt=&Apache::lonlocal::texthash('days' => 'Days',      my %lt=&Apache::lonlocal::texthash('days' => 'Days',
        'hours' => 'Hours',                         'hours' => 'Hours',
        'min' => 'Minutes',                         'min' => 'Minutes',
        'sec' => 'Seconds',                         'sec' => 'Seconds',
        'yes' => 'Yes',                         'yes' => 'Yes',
        'no' => 'No');                         'no' => 'No');
     my @standardoptions=('','default');      my @standardoptions=('','default');
     my @standarddisplay=('',&mt('Default value when manually setting'));      my @standarddisplay=('',&mt('Default value when manually setting'));
     my @dateoptions=('','default');      my @dateoptions=('','default');
     my @datedisplay=('',&mt('Default value when manually setting'));      my @datedisplay=('',&mt('Default value when manually setting'));
     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {      foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
  unless ($tempkey) { next; }      unless ($tempkey) { next; }
  push @standardoptions,'when_setting_'.$tempkey;      push @standardoptions,'when_setting_'.$tempkey;
  push @standarddisplay,&mt('Automatically set when setting ').$tempkey;      push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
  if (&isdateparm($defkeytype{$tempkey})) {      if (&isdateparm($defkeytype{$tempkey})) {
     push @dateoptions,'later_than_'.$tempkey;          push @dateoptions,'later_than_'.$tempkey;
     push @datedisplay,&mt('Automatically set later than ').$tempkey;          push @datedisplay,&mt('Automatically set later than ').$tempkey;
     push @dateoptions,'earlier_than_'.$tempkey;          push @dateoptions,'earlier_than_'.$tempkey;
     push @datedisplay,&mt('Automatically set earlier than ').$tempkey;          push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
  }       }
     }      }
 $r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.  $r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
   &mt('Automatic setting rules apply to table mode interfaces only.'));        &mt('Automatic setting rules apply to table mode interfaces only.'));
     $r->print("\n".&Apache::loncommon::start_data_table().      $r->print("\n".&Apache::loncommon::start_data_table().
       &Apache::loncommon::start_data_table_header_row().            &Apache::loncommon::start_data_table_header_row().
       "<th>".&mt('Rule for parameter').'</th><th>'.            "<th>".&mt('Rule for parameter').'</th><th>'.
       &mt('Action').'</th><th>'.&mt('Value').'</th>'.            &mt('Action').'</th><th>'.&mt('Value').'</th>'.
       &Apache::loncommon::end_data_table_header_row());            &Apache::loncommon::end_data_table_header_row());
     foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {      foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
  unless ($tempkey) { next; }      unless ($tempkey) { next; }
  $r->print("\n".&Apache::loncommon::start_data_table_row().      $r->print("\n".&Apache::loncommon::start_data_table_row().
   "<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');            "<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
  my $action=&rulescache($tempkey.'_action');      my $action=&rulescache($tempkey.'_action');
  $r->print('<select name="'.$tempkey.'_action">');      $r->print('<select name="'.$tempkey.'_action">');
  if (&isdateparm($defkeytype{$tempkey})) {      if (&isdateparm($defkeytype{$tempkey})) {
     for (my $i=0;$i<=$#dateoptions;$i++) {          for (my $i=0;$i<=$#dateoptions;$i++) {
  if ($dateoptions[$i]=~/\_$tempkey$/) { next; }          if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
  $r->print("\n<option value='$dateoptions[$i]'".          $r->print("\n<option value='$dateoptions[$i]'".
   ($dateoptions[$i] eq $action?' selected="selected"':'').                ($dateoptions[$i] eq $action?' selected="selected"':'').
   ">$datedisplay[$i]</option>");                ">$datedisplay[$i]</option>");
     }          }
  } else {      } else {
     for (my $i=0;$i<=$#standardoptions;$i++) {          for (my $i=0;$i<=$#standardoptions;$i++) {
  if ($standardoptions[$i]=~/\_$tempkey$/) { next; }          if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
  $r->print("\n<option value='$standardoptions[$i]'".          $r->print("\n<option value='$standardoptions[$i]'".
   ($standardoptions[$i] eq $action?' selected="selected"':'').                ($standardoptions[$i] eq $action?' selected="selected"':'').
   ">$standarddisplay[$i]</option>");                ">$standarddisplay[$i]</option>");
     }          }
  }      }
  $r->print('</select>');      $r->print('</select>');
  unless (&isdateparm($defkeytype{$tempkey})) {      unless (&isdateparm($defkeytype{$tempkey})) {
     $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').          $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
       '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');                '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
  }      }
  $r->print("\n</td><td>\n");      $r->print("\n</td><td>\n");
   
         if (&isdateparm($defkeytype{$tempkey})) {          if (&isdateparm($defkeytype{$tempkey})) {
     my $days=&rulescache($tempkey.'_days');          my $days=&rulescache($tempkey.'_days');
     my $hours=&rulescache($tempkey.'_hours');          my $hours=&rulescache($tempkey.'_hours');
     my $min=&rulescache($tempkey.'_min');          my $min=&rulescache($tempkey.'_min');
     my $sec=&rulescache($tempkey.'_sec');          my $sec=&rulescache($tempkey.'_sec');
     $r->print(<<ENDINPUTDATE);          $r->print(<<ENDINPUTDATE);
 <input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />  <input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
 <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />  <input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
 <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />  <input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
 <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}  <input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
 ENDINPUTDATE  ENDINPUTDATE
  } elsif ($defkeytype{$tempkey} eq 'string_yesno') {      } elsif ($defkeytype{$tempkey} eq 'string_yesno') {
             my $yeschecked='';              my $yeschecked='';
             my $nochecked='';              my $nochecked='';
             if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; }              if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked=' checked="checked"'; }
             if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }              if (&rulescache($tempkey.'_value') eq 'no') { $nochecked=' checked="checked"'; }
   
     $r->print(<<ENDYESNO);          $r->print(<<ENDYESNO);
 <label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />  <label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br />
 <label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>  <label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label>
 ENDYESNO  ENDYESNO
         } else {          } else {
     $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');          $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
  }      }
         $r->print('</td>'.&Apache::loncommon::end_data_table_row());          $r->print('</td>'.&Apache::loncommon::end_data_table_row());
     }      }
     $r->print(&Apache::loncommon::end_data_table().      $r->print(&Apache::loncommon::end_data_table().
       "\n<input type='submit' name='storerules' value='".            "\n".'<input type="submit" name="storerules" value="'.
       &mt('Store Rules')."' /></form>\n".            &mt('Save').'" /></form>'."\n");
       &Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return;      return;
 }  }
   
Line 3602  sub components { Line 4706  sub components {
     my ($key,$uname,$udom,$exeuser,$exedomain,$typeflag)=@_;      my ($key,$uname,$udom,$exeuser,$exedomain,$typeflag)=@_;
   
     if ($typeflag) {      if ($typeflag) {
  $key=~s/\.type$//;      $key=~s/\.type$//;
     }      }
   
     my ($middle,$part,$name)=      my ($middle,$part,$name)=
  ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);      ($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
     my $issection;      my $issection;
   
     my $section=&mt('All Students');      my $section=&mt('All Students');
     if ($middle=~/^\[(.*)\]/) {      if ($middle=~/^\[(.*)\]/) {
  $issection=$1;      $issection=$1;
  $section=&mt('Group/Section').': '.$issection;      $section=&mt('Group/Section').': '.$issection;
  $middle=~s/^\[(.*)\]//;      $middle=~s/^\[(.*)\]//;
     }      }
     $middle=~s/\.+$//;      $middle=~s/\.+$//;
     $middle=~s/^\.+//;      $middle=~s/^\.+//;
     if ($uname) {      if ($uname) {
  $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);      $section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
  $issection='';      $issection='';
     }      }
     my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';      my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
     my $realmdescription=&mt('all resources');       my $realmdescription=&mt('all resources');
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {      if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  $realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <span class="LC_parm_folder"><br />('.$1.')</span></span>';      $realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <span class="LC_parm_folder"><br />('.$1.')</span></span>';
   $realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);       $realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
    } elsif ($middle) {     } elsif ($middle) {
  my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);      my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
  $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';      $realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';
  $realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);      $realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
     }      }
     my $what=$part.'.'.$name;      my $what=$part.'.'.$name;
     return ($realm,$section,$name,$part,      return ($realm,$section,$name,$part,
     $what,$middle,$uname,$udom,$issection,$realmdescription);          $what,$middle,$uname,$udom,$issection,$realmdescription);
 }  }
   
 my %standard_parms;  my %standard_parms;
   my %standard_parms_types;
   
 sub load_parameter_names {  sub load_parameter_names {
     open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");      open(my $config,"<","$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
     while (my $configline=<$config>) {      while (my $configline=<$config>) {
  if ($configline !~ /\S/ || $configline=~/^\#/) { next; }      if ($configline !~ /\S/ || $configline=~/^\#/) { next; }
  chomp($configline);      chomp($configline);
  my ($short,$plain)=split(/:/,$configline);      my ($short,$plain)=split(/:/,$configline);
  my (undef,$name,$type)=split(/\&/,$short,3);      my (undef,$name,$type)=split(/\&/,$short,3);
  if ($type eq 'display') {      if ($type eq 'display') {
     $standard_parms{$name} = $plain;          $standard_parms{$name} = $plain;
  }          } elsif ($type eq 'type') {
               $standard_parms_types{$name} = $plain;
           }
     }      }
     close($config);      close($config);
     $standard_parms{'int_pos'}      = 'Positive Integer';      $standard_parms{'int_pos'}      = 'Positive Integer';
     $standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';      $standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
     %standard_parms=&Apache::lonlocal::texthash(%standard_parms);      $standard_parms{'scoreformat'}  = 'Format for display of score';
 }  }
   
 sub standard_parameter_names {  sub standard_parameter_names {
     my ($name)=@_;      my ($name)=@_;
     if (!%standard_parms) {      if (!%standard_parms) {
  &load_parameter_names();      &load_parameter_names();
     }      }
     if ($standard_parms{$name}) {      if ($standard_parms{$name}) {
  return $standard_parms{$name};       return $standard_parms{$name};
     } else {       } else {
  return $name;       return $name;
     }      }
 }  }
   
 #  sub standard_parameter_types {
 # Parameter Change Log      my ($name)=@_;
 #      if (!%standard_parms_types) {
           &load_parameter_names();
       }
       if ($standard_parms_types{$name}) {
           return $standard_parms_types{$name};
       }
       return;
   }
   
 sub parm_change_log {  sub parm_change_log {
     my ($r)=@_;      my ($r,$parm_permission)=@_;
     $r->print(&Apache::loncommon::start_page('Parameter Change Log'));      &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
       text=>"Parameter Change Log"});
       my $js = '<script type="text/javascript">'."\n".
                '// <![CDATA['."\n".
                &Apache::loncommon::display_filter_js('parmslog')."\n".
                '// ]]>'."\n".
                '</script>'."\n";
       $r->print(&Apache::loncommon::start_page('Parameter Change Log',$js));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));
   
     my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',      my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
       $env{'course.'.$env{'request.course.id'}.'.domain'},                        $env{'course.'.$env{'request.course.id'}.'.domain'},
       $env{'course.'.$env{'request.course.id'}.'.num'});                        $env{'course.'.$env{'request.course.id'}.'.num'});
   
     if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }      if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }
   
     $r->print('<form action="/adm/parmset?action=parameterchangelog"      $r->print('<div class="LC_left_float">'.
                 '<fieldset><legend>'.&mt('Display of Changes').'</legend>'.
                 '<form action="/adm/parmset?action=parameterchangelog"
                      method="post" name="parameterlog">');                       method="post" name="parameterlog">');
       
     my %saveable_parameters = ('show' => 'scalar',);      my %saveable_parameters = ('show' => 'scalar',);
     &Apache::loncommon::store_course_settings('parameter_log',      &Apache::loncommon::store_course_settings('parameter_log',
                                               \%saveable_parameters);                                                \%saveable_parameters);
     &Apache::loncommon::restore_course_settings('parameter_log',      &Apache::loncommon::restore_course_settings('parameter_log',
                                                 \%saveable_parameters);                                                  \%saveable_parameters);
     if (!$env{'form.show'}) { $env{'form.show'}=10; }      $r->print(&Apache::loncommon::display_filter('parmslog').'&nbsp;'."\n".
                 '<input type="submit" value="'.&mt('Display').'" />'.
     my $countselect =                '</form></fieldset></div><br clear="all" />');
  &Apache::lonmeta::selectbox('show',$env{'form.show'},undef,      my $readonly = 1;
     (&mt('all'),10,20,50,100,1000,10000));      if ($parm_permission->{'edit'}) {
           undef($readonly);
     $r->print('<nobr>'.&mt('[_1] Records',$countselect).'</nobr>'.      }
               '<label>'.&Apache::lonhtmlcommon::checkbox('includetypes',$env{'form.includetypes'},'1').  
       ' '.&mt('Include parameter types').'</label>'.  
       '<input type="submit" value="'.&mt('Display').'" /></form>');  
   
     my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},      my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
      $env{'course.'.$env{'request.course.id'}.'.domain'});                               $env{'course.'.$env{'request.course.id'}.'.domain'});
     $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().      $r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
       '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.            '<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.
       &mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th><th>'.&mt('Announce').'</th>'.            &mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th>');
       &Apache::loncommon::end_data_table_header_row());      unless ($readonly) {
           $r->print('<th>'.&mt('Announce').'</th>');
       }
       $r->print(&Apache::loncommon::end_data_table_header_row());
     my $shown=0;      my $shown=0;
     foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) {      my $folder='';
       if ($env{'form.displayfilter'} eq 'currentfolder') {
       my $last='';
       if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
           &GDBM_READER(),0640)) {
           $last=$hash{'last_known'};
           untie(%hash);
       }
       if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }
       }
       my $numgroups = 0;
       my @groups;
       if ($env{'request.course.groups'} ne '') {
           @groups = split(/:/,$env{'request.course.groups'});
           $numgroups = scalar(@groups);
       }
       foreach my $id (sort
               {
               if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {
                   return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}
               }
               my $aid = (split('00000',$a))[-1];
               my $bid = (split('00000',$b))[-1];
               return $bid<=>$aid;
               } (keys(%parmlog))) {
         my @changes=keys(%{$parmlog{$id}{'logentry'}});          my @changes=keys(%{$parmlog{$id}{'logentry'}});
  my $count = 0;      my $count = 0;
  my $time =      my $time =
     &Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});          &Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});
  my $plainname =       my $plainname =
     &Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},          &Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},
   $parmlog{$id}{'exe_udom'});                        $parmlog{$id}{'exe_udom'});
  my $about_me_link =       my $about_me_link =
     &Apache::loncommon::aboutmewrapper($plainname,          &Apache::loncommon::aboutmewrapper($plainname,
        $parmlog{$id}{'exe_uname'},                             $parmlog{$id}{'exe_uname'},
        $parmlog{$id}{'exe_udom'});                             $parmlog{$id}{'exe_udom'});
  my $send_msg_link='';      my $send_msg_link='';
  if ((($parmlog{$id}{'exe_uname'} ne $env{'user.name'})       if ((!$readonly) && 
      || ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {          (($parmlog{$id}{'exe_uname'} ne $env{'user.name'})
     $send_msg_link ='<br />'.           || ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
  &Apache::loncommon::messagewrapper(&mt('Send message'),          $send_msg_link ='<br />'.
    $parmlog{$id}{'exe_uname'},          &Apache::loncommon::messagewrapper(&mt('Send message'),
    $parmlog{$id}{'exe_udom'});                             $parmlog{$id}{'exe_uname'},
  }                             $parmlog{$id}{'exe_udom'});
  my $row_start=&Apache::loncommon::start_data_table_row();      }
  $r->print($row_start);      my $row_start=&Apache::loncommon::start_data_table_row();
  my $makenewrow=0;      my $makenewrow=0;
  my %istype=();      my %istype=();
  my $output;      my $output;
  foreach my $changed (reverse(sort(@changes))) {      foreach my $changed (reverse(sort(@changes))) {
             my $value=$parmlog{$id}{'logentry'}{$changed};              my $value=$parmlog{$id}{'logentry'}{$changed};
     my $typeflag = ($changed =~/\.type$/ &&          my $typeflag = ($changed =~/\.type$/ &&
     !exists($parmlog{$id}{'logentry'}{$changed.'.type'}));                  !exists($parmlog{$id}{'logentry'}{$changed.'.type'}));
             my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=              my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=
  &components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag);          &components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag);
     if ($typeflag) {          if ($env{'request.course.sec'} ne '') {
  $istype{$parmname}=$value;               next if (($issection ne '') && (!(($issection eq $env{'request.course.sec'}) ||
  if (!$env{'form.includetypes'}) { next; }                                                 ($numgroups && (grep(/^\Q$issection\E$/,@groups))))));
     }              if ($uname ne '') {
     $count++;                  my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'});
     if ($makenewrow) {                  next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'}));
  $output .= $row_start;              }
     } else {          }
  $makenewrow=1;          if ($env{'form.displayfilter'} eq 'currentfolder') {
     }          if ($folder) {
     $output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'.              if ($middle!~/^\Q$folder\E/) { next; }
       &standard_parameter_names($parmname).'</td><td>'.          }
       ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>';          }
     my $stillactive=0;          if ($typeflag) {
     if ($parmlog{$id}{'delflag'}) {          $istype{$parmname}=$value;
  $output .= &mt('Deleted');          if (!$env{'form.includetypes'}) { next; }
     } else {          }
  if ($typeflag) {          $count++;
     $output .= &mt('Type: [_1]',&standard_parameter_names($value));          if ($makenewrow) {
  } else {          $output .= $row_start;
     my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),          } else {
       $uname,$udom,$issection,$issection,$courseopt);          $makenewrow=1;
     if (&isdateparm($istype{$parmname})) {          }
  $output .= &Apache::lonlocal::locallocaltime($value);              my $parmitem = &standard_parameter_names($parmname);
     } else {          $output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'.
  $output .= $value;                &mt($parmitem).'</td><td>'.
     }                ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>';
     if ($value ne $all[$level]) {          my $stillactive=0;
  $output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>';          if ($parmlog{$id}{'delflag'}) {
     } else {          $output .= &mt('Deleted');
  $stillactive=1;          } else {
     }          if ($typeflag) {
  }                      my $parmitem = &standard_parameter_names($value); 
     }                      $parmitem = &mt($parmitem);
     $output .= '</td><td>';              $output .= &mt('Type: [_1]',$parmitem);
     if ($stillactive) {          } else {
  my $title=&mt('Changed [_1]',&standard_parameter_names($parmname));              my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),
                 my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$realmdescription,                                $uname,$udom,$issection,$issection,$courseopt);
     (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));                      my $showvalue = $value;
  if (($uname) && ($udom)) {                      if ($istype{$parmname} eq '') {
     $output .=                           my $type = &standard_parameter_types($parmname);
  &Apache::loncommon::messagewrapper('Notify User',                          if ($type ne '') {
    $uname,$udom,$title,                              if (&isdateparm($type)) {
    $description);                                  $showvalue =
  } else {                                      &Apache::lonlocal::locallocaltime($value);
     $output .=                               }
  &Apache::lonrss::course_blog_link($id,$title,                          }
   $description);                      } else {
  }                  if (&isdateparm($istype{$parmname})) {
     }                  $showvalue = 
     $output .= '</td>'.&Apache::loncommon::end_data_table_row();                                  &Apache::lonlocal::locallocaltime($value);
  }                  }
  $r->print('<td rowspan="'.$count.'">'.$time.'</td>                      }
                       $output .= $showvalue;
               if ($value ne $all[$level]) {
               $output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>';
               } else {
               $stillactive=1;
               }
           }
           }
           $output .= '</td>';
   
               unless ($readonly) {
                   $output .= '<td>';
                   if ($stillactive) {
                       my $parmitem = &standard_parameter_names($parmname);
                       $parmitem = &mt($parmitem);
                       my $title=&mt('Changed [_1]',$parmitem);
                       my $description=&mt('Changed [_1] for [_2] to [_3]',
                           $parmitem,$realmdescription,
                           (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
                       if (($uname) && ($udom)) {
                           $output .=
                               &Apache::loncommon::messagewrapper('Notify User',
                                                                  $uname,$udom,$title,
                                                                  $description);
                       } else {
                           $output .=
                               &Apache::lonrss::course_blog_link($id,$title,
                                                                 $description);
                       }
                   }
                   $output .= '</td>';
               }
           $output .= &Apache::loncommon::end_data_table_row();
       }
           if ($env{'form.displayfilter'} eq 'containing') {
           my $wholeentry=$about_me_link.':'.
           $parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'.
           $output;
           if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
       }
           if ($count) {
           $r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>
                        <td rowspan="'.$count.'">'.$about_me_link.                         <td rowspan="'.$count.'">'.$about_me_link.
   '<br /><tt>'.$parmlog{$id}{'exe_uname'}.            '<br /><tt>'.$parmlog{$id}{'exe_uname'}.
           ':'.$parmlog{$id}{'exe_udom'}.'</tt>'.                        ':'.$parmlog{$id}{'exe_udom'}.'</tt>'.
   $send_msg_link.'</td>'.$output);            $send_msg_link.'</td>'.$output);
           $shown++;
  $shown++;      }
  if (!($env{'form.show'} eq &mt('all')       if (!($env{'form.show'} eq &mt('all')
       || $shown<=$env{'form.show'})) { last; }            || $shown<=$env{'form.show'})) { last; }
     }      }
     $r->print(&Apache::loncommon::end_data_table());      $r->print(&Apache::loncommon::end_data_table());
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
 }  }
   
 ##################################################  sub update_slots {
 ##################################################      my ($slot_name,$cdom,$cnum,$symb,$uname,$udom) = @_;
       my %slot=&Apache::lonnet::get_slot($slot_name);
 =pod      if (!keys(%slot)) {
           return 'error: slot does not exist';
 =item * handler      }
       my $max=$slot{'maxspace'};
       if (!defined($max)) { $max=99999; }
   
       my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
                                          "^$slot_name\0");
       my ($tmp)=%consumed;
       if ($tmp=~/^error: 2 / ) {
           return 'error: unable to determine current slot status';
       }
       my $last=0;
       foreach my $key (keys(%consumed)) {
           my $num=(split('\0',$key))[1];
           if ($num > $last) { $last=$num; }
           if ($consumed{$key}->{'name'} eq $uname.':'.$udom) {
               return 'ok';
           }
       }
   
       if (scalar(keys(%consumed)) >= $max) {
           return 'error: no space left in slot';
       }
       my $wanted=$last+1;
   
       my %reservation=('name'      => $uname.':'.$udom,
                        'timestamp' => time,
                        'symb'      => $symb);
   
       my $success=&Apache::lonnet::newput('slot_reservations',
                                           {"$slot_name\0$wanted" =>
                                                \%reservation},
                                           $cdom, $cnum);
       if ($success eq 'ok') {
           my %storehash = (
                             symb    => $symb,
                             slot    => $slot_name,
                             action  => 'reserve',
                             context => 'parameter',
                           );
           &Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
                                           '',$uname,$udom,$cnum,$cdom);
   
           &Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
                                           '',$uname,$udom,$uname,$udom);
       }
       return $success;
   }
   
   sub delete_slots {
       my ($slot_name,$cdom,$cnum,$uname,$udom,$symb) = @_;
       my $delresult;
       my %consumed = &Apache::lonnet::dump('slot_reservations',$cdom,
                                            $cnum, "^$slot_name\0");
       if (&Apache::lonnet::error(%consumed)) {
           return 'error: unable to determine current slot status';
       }
       my ($tmp)=%consumed;
       if ($tmp=~/^error: 2 /) {
           return 'error: unable to determine current slot status';
       }
       foreach my $key (keys(%consumed)) {
           if ($consumed{$key}->{'name'} eq $uname.':'.$udom) {
               my $num=(split('\0',$key))[1];
               my $entry = $slot_name.'\0'.$num;
               $delresult = &Apache::lonnet::del('slot_reservations',[$entry],
                                                 $cdom,$cnum);
               if ($delresult eq 'ok') {
                   my %storehash = (
                                     symb    => $symb,
                                     slot    => $slot_name,
                                     action  => 'release',
                                     context => 'parameter',
                                   );
                   &Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
                                                   1,$uname,$udom,$cnum,$cdom);
                   &Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
                                                   1,$uname,$udom,$uname,$udom);
               }
           }
       }
       return $delresult;
   }
   
 Main handler.  Calls &assessparms and &crsenv subroutines.  sub check_for_course_info {
       my $navmap = Apache::lonnavmaps::navmap->new();
       return 1 if ($navmap);
       return 0;
   }
   
 =cut  sub parameter_release_vars { 
 ##################################################     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
 ##################################################     my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
 #    use Data::Dumper;     my $chostname = &Apache::lonnet::hostname($chome);
      my ($cmajor,$cminor) = 
          split(/\./,&Apache::lonnet::get_server_loncaparev($cdom,$chome));
      return ($chostname,$cmajor,$cminor);
   }
   
   sub parameter_releasecheck {
       my ($name,$value,$needsrelease,$cmajor,$cminor) = @_;
       my $needsnewer;
       my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
       if (($cmajor < $needsmajor) || 
           ($cmajor == $needsmajor && $cminor < $needsminor)) {
           $needsnewer = 1;
       } else {
           &Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.':'.$value});
       }
       return $needsnewer;
   }
   
   sub oldversion_warning {
       my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
       my $desc;
       my %stringtypes = (
                           type         => 'string_questiontype',
                           lenient      => 'string_lenient',
                           retrypartial => 'string_yesno',
                           discussvote  => 'string_discussvote',
                           examcode     => 'string_examcode',
                         );
       if (exists($stringtypes{$name})) {
           if ($name eq 'examcode') {
               $desc = $value;
           } elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
               foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
                   next unless (ref($possibilities) eq 'ARRAY');
                   my ($parmval, $description) = @{ $possibilities };
                   if ($parmval eq $value) {
                       $desc = $description;
                       last;
                   }
               }
           }
       } elsif (($name eq 'printstartdate') || ($name eq 'printenddate')) {
           my $now = time;
           if ($value =~ /^\d+$/) {
               if ($name eq 'printstartdate') {
                   if ($value > $now) {
                       $desc = &Apache::lonlocal::locallocaltime($value);
                   }
               } elsif ($name eq 'printenddate') {
                   if ($value < $now) {
                       $desc = &Apache::lonlocal::locallocaltime($value);
                   }
               }
           }
       }
       my $standard_name = &standard_parameter_names($name);
       return '<p class="LC_warning">'.
              &mt('[_1] was [_2]not[_3] set to [_4].',
                  $standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.
              &mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
              $cmajor.'.'.$cminor,$chostname,
              $needsrelease).
              '</p>';
   }
   
   sub get_permission {
       my %permission;
       my $allowed = 0;
       return (\%permission,$allowed) unless ($env{'request.course.id'});
       if ((&Apache::lonnet::allowed('opa',$env{'request.course.id'})) ||
           (&Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
                     $env{'request.course.sec'}))) {
           %permission= (
                          'edit'               => 1,
                          'set'                => 1,
                          'setoverview'        => 1,
                          'addmetadata'        => 1,
                          'ordermetadata'      => 1,
                          'setrestrictmeta'    => 1,
                          'newoverview'        => 1,
                          'setdefaults'        => 1,
                          'settable'           => 1,
                          'parameterchangelog' => 1,
                          'cleanparameters'    => 1,
                          'dateshift1'         => 1,
                          'dateshift2'         => 1,
                          'helper'             => 1,
            );
       } elsif ((&Apache::lonnet::allowed('vpa',$env{'request.course.id'})) ||
                (&Apache::lonnet::allowed('vpa',$env{'request.course.id'}.'/'.
                     $env{'request.course.sec'}))) {
           %permission = (
                          'set'                => 1,
                          'settable'           => 1,
                          'newoverview'        => 1,
                          'setoverview'        => 1,
                          'parameterchangelog' => 1,
                         );
       }
       foreach my $perm (values(%permission)) {
           if ($perm) { $allowed=1; last; }
       }
       return (\%permission,$allowed);
   }
   
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
   
     if ($r->header_only) {      &reset_caches();
  &Apache::loncommon::content_type($r,'text/html');  
  $r->send_http_header;      &Apache::loncommon::content_type($r,'text/html');
  return OK;      $r->send_http_header;
     }      return OK if $r->header_only;
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
     ['action','state',                          ['action','state',
                                              'pres_marker',                                               'pres_marker',
                                              'pres_value',                                               'pres_value',
                                              'pres_type',                                               'pres_type',
                                              'udom','uname','symb','serial']);                                               'filter','part',
                                                'udom','uname','symb','serial','timebase']);
   
   
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",      &Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
     text=>"Parameter Manager",                          text=>"Content and Problem Settings",
     faq=>10,                          faq=>10,
     bug=>'Instructor Interface',                          bug=>'Instructor Interface',
                                             help => 'Parameter_Manager'});                                              help =>
                                               'Parameter_Manager,Course_Environment,Parameter_Helper,Parameter_Overview,Table_Mode'});
   
 # ----------------------------------------------------- Needs to be in a course  # ----------------------------------------------------- Needs to be in a course
     my $parm_permission =      my ($parm_permission,$allowed) = &get_permission();
  (&Apache::lonnet::allowed('opa',$env{'request.course.id'}) ||      my $exists = &check_for_course_info();
  &Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.  
   $env{'request.course.sec'}));  
     if ($env{'request.course.id'} &&  $parm_permission) {  
   
         # Start Page  
         &Apache::loncommon::content_type($r,'text/html');  
         $r->send_http_header;  
   
   
         # id numbers can change on re-ordering of folders  
   
         &resetsymbcache();  
   
       if ($env{'request.course.id'} && $allowed && $exists) {
         #          #
         # Main switch on form.action and form.state, as appropriate          # Main switch on form.action and form.state, as appropriate
         #          #
         # Check first if coming from someone else headed directly for          # Check first if coming from someone else headed directly for
         #  the table mode          #  the table mode
         if ((($env{'form.command'} eq 'set') && ($env{'form.url'})          if (($parm_permission->{'set'}) &&
      && (!$env{'form.dis'})) || ($env{'form.symb'})) {              ((($env{'form.command'} eq 'set') && ($env{'form.url'})
             &Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',                 && (!$env{'form.dis'})) || ($env{'form.symb'}))) {
     text=>"Problem Parameters"});              &assessparms($r,$parm_permission);
     &assessparms($r);  
   
         } elsif (! exists($env{'form.action'})) {          } elsif (! exists($env{'form.action'})) {
             $r->print(&header());  
             $r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));  
             &print_main_menu($r,$parm_permission);              &print_main_menu($r,$parm_permission);
         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {          } elsif (!$parm_permission->{$env{'form.action'}}) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',              &print_main_menu($r,$parm_permission);
     text=>"Course Environment"});          } elsif ($env{'form.action'} eq 'setoverview') {
             &crsenv($r);               &overview($r,$parm_permission);
         } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {          } elsif ($env{'form.action'} eq 'addmetadata') {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &addmetafield($r);
     text=>"Overview Mode"});          } elsif ($env{'form.action'} eq 'ordermetadata') {
     &overview($r);              &order_meta_fields($r);
  } elsif ($env{'form.action'} eq 'addmetadata' && $parm_permission) {          } elsif ($env{'form.action'} eq 'setrestrictmeta') {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',              &setrestrictmeta($r);
     text=>"Add Metadata Field"});          } elsif ($env{'form.action'} eq 'newoverview') {
     &addmetafield($r);              &newoverview($r,$parm_permission);
  } elsif ($env{'form.action'} eq 'ordermetadata' && $parm_permission) {          } elsif ($env{'form.action'} eq 'setdefaults') {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',              &defaultsetter($r);
     text=>"Add Metadata Field"});          } elsif ($env{'form.action'} eq 'settable') {
     &order_meta_fields($r);              &assessparms($r,$parm_permission);
         } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {          } elsif ($env{'form.action'} eq 'parameterchangelog') {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',              &parm_change_log($r,$parm_permission);
     text=>"Restrict Metadata"});          } elsif ($env{'form.action'} eq 'cleanparameters') {
     &setrestrictmeta($r);              &clean_parameters($r);
         } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {          } elsif ($env{'form.action'} eq 'dateshift1') {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &date_shift_one($r);
     text=>"Overview Mode"});          } elsif ($env{'form.action'} eq 'dateshift2') {
     &newoverview($r);              &date_shift_two($r);
         }  elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {          }
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',  
     text=>"Set Defaults"});  
     &defaultsetter($r);  
  } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {  
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',  
     text=>"Table Mode",  
     help => 'Course_Setting_Parameters'});  
     &assessparms($r);  
         } elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {  
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',  
     text=>"Parameter Change Log"});  
     &parm_change_log($r);  
         } elsif ($env{'form.action'} eq 'cleanparameters' && $parm_permission) {  
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=cleanparameters',  
     text=>"Clean Parameters"});  
     &clean_parameters($r);  
  }         
     } else {      } else {
 # ----------------------------- Not in a course, or not allowed to modify parms  # ----------------------------- Not in a course, or not allowed to modify parms
  $env{'user.error.msg'}=      if ($exists) {
     "/adm/parmset:opa:0:0:Cannot modify assessment parameters";          $env{'user.error.msg'}=
  return HTTP_NOT_ACCEPTABLE;          "/adm/parmset:opa:0:0:Cannot modify assessment parameters";
       } else {
           $env{'user.error.msg'}=
           "/adm/parmset::0:1:Course environment gone, reinitialize the course";
     }      }
       return HTTP_NOT_ACCEPTABLE;
       }
       &reset_caches();
   
     return OK;      return OK;
 }  }
   
 1;  1;
 __END__  __END__
   
 =pod  
   
 =back  
   
 =cut  
   
   
   

Removed from v.1.342  
changed lines
  Added in v.1.522.2.27


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