|
version 1.350.2.1, 2006/12/14 20:08:15
|
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 qw(:DEFAULT :match); |
|
| |
|
| # --- 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; |
my $useropt; |
| if ($uname ne '' && $udom ne '') { |
if ($uname ne '' && $udom ne '') { |
| $useropt = &Apache::lonnet::get_userresdata($uname,$udom); |
$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 152 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 167 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 ($csec ne '') { |
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 ($cgroup ne '') { |
if ($cgroup ne '') { |
|
Line 210 sub parmval_by_symb {
|
Line 421 sub parmval_by_symb {
|
| # ---------------------------------------------------------- fifth, check user |
# ---------------------------------------------------------- fifth, check user |
| |
|
| if ($uname ne '') { |
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'} |
| && !defined($rules{$id})) { |
&& !defined($rules{$id})) { |
| 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'}; |
| %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs); |
%rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs); |
| $rulesid=$env{'request.course.id'}; |
$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 305 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 334 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 366 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 407 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 420 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 436 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=' '; |
.' alt="'.&mt('Change').'"' |
| } |
.' title="'.&mt('Change').'" style="border:0;" />'; |
| |
} else { |
| |
$result=' '; |
| |
} |
| } 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 593 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 606 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 625 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 645 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 721 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 758 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).' '. |
&valout($sessionval,$sessionvaltype).' '. |
| '</font></td>'); |
'</font></td>'); |
| } |
} |
|
Line 803 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 { |
| |
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 { |
} else { |
| $r->print(&valout($$outpar[$which],$$typeoutpar[$which])); |
$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 829 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 843 sub print_usergroups {
|
Line 1144 sub print_usergroups {
|
| } |
} |
| $output .= '</td>'; |
$output .= '</td>'; |
| } else { |
} else { |
| $output .= '<td bgcolor='.$bgcolor.'> </td>'; |
$output .= '<td style="background-color:'.$bgcolor.';"> </td>'; |
| } |
} |
| return ($coursereply,$output,$grp_parm,$resultgroup); |
return ($coursereply,$output,$grp_parm,$resultgroup); |
| } |
} |
|
Line 872 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 925 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 1012 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 All</a><br /> |
|
| <a href="javascript:checkstandard()">Select Common Only</a> |
# return a hash. Like a look-up table |
| </td><td> |
sub lookUpTableParameter { |
| <a href="javascript:checkdates()">Add Problem Dates</a> |
|
| <a href="javascript:checkcontdates()">Add Content Dates</a><br /> |
return ( |
| <a href="javascript:checkdisset()">Add Discussion Settings</a> |
'opendate' => 'time_settings', |
| <a href="javascript:checkvisi()">Add Visibilities</a><br /> |
'duedate' => 'time_settings', |
| <a href="javascript:checkparts()">Add Part Parameters</a> |
'answerdate' => 'time_settings', |
| </td><td> |
'interval' => 'time_settings', |
| <a href="javascript:checkall(false, \'pscat\')">Unselect 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").': '. |
| |
'<label><input type="radio" name="userroles" value="st"'.$chkroles{'st'}.' onclick="setCourseadv(this.form,this);" />'. |
| |
$stuonly.'</label> '. |
| |
'<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 .= ';'.(' ' 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 .= ' or '; |
if (%sectionhash && %grouphash && $parmlev ne 'full' && $currsec eq '') { |
| |
$sections .= ' '.&mt('or').' '; |
| $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 1163 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 1198 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" /> '.$icon.' ' |
| |
.&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( |
| |
'/> '.$icon.' ' |
| |
.$$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.' ' |
| |
.$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 1299 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 1326 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 1401 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 1413 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 1422 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 1460 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 1531 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) = ¶meter_release_vars(); |
| |
$got_chostname = 1; |
| |
} |
| |
$needsnewer = ¶meter_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 1603 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 1716 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 1731 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 1748 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 1765 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 1801 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 1820 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 1895 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 1909 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').'; (<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</b>: %n student name %c course id %a assignment note, numbers after the % limit the field size', |
|
| '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 2365 sub readdata {
|
Line 2986 sub readdata {
|
| my $classlist=&Apache::loncoursedata::get_classlist(); |
my $classlist=&Apache::loncoursedata::get_classlist(); |
| foreach (keys %$classlist) { |
foreach (keys %$classlist) { |
| if ($_=~/^($match_username)\:($match_domain)$/) { |
if ($_=~/^($match_username)\:($match_domain)$/) { |
| 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)=¶meter_release_vars(); |
| } |
$got_chostname = 1; |
| } |
} |
| } |
$needsnewer = ¶meter_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); |
| } |
} |
| } |
} |
| |
|
|
Line 2489 sub extractuser {
|
Line 3159 sub extractuser {
|
| return ($key=~/^$env{'request.course.id'}.\[useropt\:($match_username)\:($match_domain)\]\./); |
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\:($match_username)\:($match_domain)/) { |
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)=¶meter_release_vars(); |
| |
$got_chostname = 1; |
| |
} |
| |
my $needsnewer=¶meter_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">'. |
| |
' </td>'; |
| |
} elsif ($colsleft == 1) { |
| |
$result .= '<td class="LC_left_item"> </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 = §ionmenu(\@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>'); |
| §ionmenu($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 /> with ID: [_2] <br /> 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 /> ', |
| } |
$resid.' <br /> ',$map)); |
| |
} |
| |
$r->print(' <br /> '.&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\:($match_username)\:($match_domain)/) { |
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 |
sub header { |
| are valid users. Replaces supplied list with |
return &Apache::loncommon::start_page('Content and Problem Settings'); |
| 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 { |
|
| my ($clonelist,$oldcloner) = @_; |
|
| 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' , |
| { text => 'Set/Modify Resource Parameters - Overview Mode', |
#help => 'Parameter_Helper', |
| action => 'newoverview', |
|
| permission => $parm_permission, |
|
| help => 'Parameter_Overview', |
|
| }, |
}, |
| { text => 'Set/Modify Resource Parameters - Table Mode', |
{ linktext => $linktext{'newoverview'}, |
| action => 'settable', |
url => '/adm/parmset?action=newoverview', |
| permission => $parm_permission, |
permission => $parm_permission->{'newoverview'}, |
| help => 'Table_Mode', |
linktitle => $linktitle{'newoverview'}, |
| |
icon => 'edit-find.png', |
| |
#help => 'Parameter_Overview', |
| }, |
}, |
| { divider => 'Existing Parameter Settings for Your Resources', |
{ linktext => $linktext{'settable'}, |
| }, |
url => '/adm/parmset?action=settable', |
| { text => 'Modify Resource Parameters - Overview Mode', |
permission => $parm_permission->{'settable'}, |
| action => 'setoverview', |
linktitle => $linktitle{'settable'}, |
| permission => $parm_permission, |
icon => 'edit-copy.png', |
| help => 'Parameter_Overview', |
#help => 'Table_Mode', |
| }, |
}]}, |
| { text => 'Parameter Change Log and Course Blog Posting/User Notification', |
{ categorytitle => 'Existing Parameter Settings for Resources', |
| action => 'parameterchangelog', |
items => [ |
| permission => $parm_permission, |
{ linktext => $linktext{'setoverview'}, |
| |
url => '/adm/parmset?action=setoverview', |
| |
permission => $parm_permission->{'setoverview'}, |
| |
linktitle => $linktitle{'setoverview'}, |
| |
icon => 'preferences-desktop-wallpaper.png', |
| |
#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 $row_class; |
|
| my $output; |
my $output; |
| my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'}; |
my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'}; |
| my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; |
my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'}; |
|
Line 3198 sub output_row {
|
Line 4220 sub output_row {
|
| $values = ''; |
$values = ''; |
| } |
} |
| if (!($options =~ /deleted/)) { |
if (!($options =~ /deleted/)) { |
| $output = &Apache::loncommon::start_data_table_row(); |
|
| $output .= '<td><span class="LC_metadata"><strong>'.$field_text.':</strong></span></td>'; |
|
| # $output .= '<td><strong>'.$field_text.':</strong></td>'; |
|
| $output .= '<td><span class="LC_metadata"><input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /></span></td>'; |
|
| $output .= &Apache::loncommon::end_data_table_row(); |
|
| 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 .= &Apache::loncommon::continue_data_table_row(); |
$output .= &Apache::loncommon::continue_data_table_row(); |
| $output .= '<td colspan="2">'.(' ' x 5).'<span class="LC_metadata"><label><input type="checkbox" name="'. |
$output .= '<td>'.(' ' x 5).'<label> |
| $field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'. |
<input type="checkbox" name="'. |
| &mt($opt->[1]).'</label></span> </td>'; |
$field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'. |
| $output .= &Apache::loncommon::end_data_table_row(); |
&mt($opt->[1]).'</label></td>'; |
| } |
$output .= &Apache::loncommon::end_data_table_row(); |
| |
} |
| |
$output .= &Apache::loncommon::continue_data_table_row(); |
| |
$output .= '<td>'.(' ' 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>'.(' ' 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>'.(' ' 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')); |
| |
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata', |
| |
text=>"Add Metadata Field"}); |
| &Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
| ({href=>"/adm/parmset?action=setrestrictmeta", |
({href=>"/adm/parmset?action=setrestrictmeta", |
| text=>"Restrict Metadata"}, |
text=>"Restrict Metadata"}, |
|
Line 3241 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; |
| 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); |
| &Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields); |
&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 3278 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 3303 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 3332 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 3370 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 3393 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'}); |
| my $row_alt = 1; |
|
| $output .= &Apache::loncommon::start_data_table(); |
$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') { |
| $row_alt = $row_alt ? 0 : 1; |
$output.= &output_row($r, $field, $metadata_fields{$field}); |
| $output.= &output_row($r, $field, $metadata_fields{$field}); |
|
| } |
|
| } |
} |
| my $added_flag = 1; |
|
| foreach my $field (sort(keys(%$added_metadata_fields))) { |
|
| $row_alt = $row_alt ? 0 : 1; |
|
| $output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag, $row_alt); |
|
| } |
} |
| $output .= &Apache::loncommon::end_data_table(); |
my $buttons = (<<ENDButtons); |
| $r->print(<<ENDenv); |
<input type="submit" name="restrictmeta" value="$lt{'save'}" /> |
| <form method="post" action="/adm/parmset?action=setrestrictmeta" name="form"> |
|
| $output |
|
| <input type="submit" name="restrictmeta" value="Update Metadata Restrictions" /> |
|
| </form><br /> |
</form><br /> |
| <form method="post" action="/adm/parmset?action=addmetadata" name="form1"> |
<form method="post" action="/adm/parmset?action=addmetadata" name="form1"> |
| <input type="submit" name="restrictmeta" value="Add a Metadata Field" /> |
<input type="submit" name="restrictmeta" value="$lt{'addm'}" /> |
| </form> |
</form> |
| <br /> |
<br /> |
| <form method="post" action="/adm/parmset?action=ordermetadata" name="form2"> |
<form method="post" action="/adm/parmset?action=ordermetadata" name="form2"> |
| <input type="submit" name="restrictmeta" value="Order Metadata Fields" /> |
<input type="submit" name="restrictmeta" value="$lt{'ordm'}" /> |
| |
ENDButtons |
| |
my $added_flag = 1; |
| |
foreach my $field (sort(keys(%$added_metadata_fields))) { |
| |
$output.= &output_row($r,$field,$$added_metadata_fields{$field},$added_flag); |
| |
} |
| |
$output .= &Apache::loncommon::end_data_table(); |
| |
$r->print(<<ENDenv); |
| |
<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form"> |
| |
$output |
| |
$buttons |
| </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 3440 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 3457 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 3481 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 3618 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); |
| $r->print(&Apache::loncommon::display_filter(). |
$r->print(&Apache::loncommon::display_filter('parmslog').' '."\n". |
| '<label>'.&Apache::lonhtmlcommon::checkbox('includetypes',$env{'form.includetypes'},'1'). |
'<input type="submit" value="'.&mt('Display').'" />'. |
| ' '.&mt('Include parameter types').'</label>'. |
'</form></fieldset></div><br clear="all" />'); |
| '<input type="submit" value="'.&mt('Display').'" /></form>'); |
my $readonly = 1; |
| |
if ($parm_permission->{'edit'}) { |
| |
undef($readonly); |
| |
} |
| 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; |
| my $folder=''; |
my $folder=''; |
| if ($env{'form.displayfilter'} eq 'currentfolder') { |
if ($env{'form.displayfilter'} eq 'currentfolder') { |
| my $last=''; |
my $last=''; |
| if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db', |
| &GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
| $last=$hash{'last_known'}; |
$last=$hash{'last_known'}; |
| untie(%hash); |
untie(%hash); |
| } |
} |
| if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); } |
if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); } |
| } |
} |
| foreach my $id (sort { $parmlog{$b}{'exe_time'}<=>$parmlog{$a}{'exe_time'} } (keys(%parmlog))) { |
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(); |
} |
| my $makenewrow=0; |
my $row_start=&Apache::loncommon::start_data_table_row(); |
| my %istype=(); |
my $makenewrow=0; |
| my $output; |
my %istype=(); |
| foreach my $changed (reverse(sort(@changes))) { |
my $output; |
| |
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 ($env{'form.displayfilter'} eq 'currentfolder') { |
if ($env{'request.course.sec'} ne '') { |
| if ($folder) { |
next if (($issection ne '') && (!(($issection eq $env{'request.course.sec'}) || |
| if ($middle!~/^\Q$folder\E/) { next; } |
($numgroups && (grep(/^\Q$issection\E$/,@groups)))))); |
| } |
if ($uname ne '') { |
| } |
my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'}); |
| if ($typeflag) { |
next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'})); |
| $istype{$parmname}=$value; |
} |
| if (!$env{'form.includetypes'}) { next; } |
} |
| } |
if ($env{'form.displayfilter'} eq 'currentfolder') { |
| $count++; |
if ($folder) { |
| if ($makenewrow) { |
if ($middle!~/^\Q$folder\E/) { next; } |
| $output .= $row_start; |
} |
| } else { |
} |
| $makenewrow=1; |
if ($typeflag) { |
| } |
$istype{$parmname}=$value; |
| $output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'. |
if (!$env{'form.includetypes'}) { next; } |
| &standard_parameter_names($parmname).'</td><td>'. |
} |
| ($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>'; |
$count++; |
| my $stillactive=0; |
if ($makenewrow) { |
| if ($parmlog{$id}{'delflag'}) { |
$output .= $row_start; |
| $output .= &mt('Deleted'); |
} else { |
| } else { |
$makenewrow=1; |
| if ($typeflag) { |
} |
| $output .= &mt('Type: [_1]',&standard_parameter_names($value)); |
my $parmitem = &standard_parameter_names($parmname); |
| } else { |
$output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'. |
| my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what), |
&mt($parmitem).'</td><td>'. |
| $uname,$udom,$issection,$issection,$courseopt); |
($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>'; |
| if (&isdateparm($istype{$parmname})) { |
my $stillactive=0; |
| $output .= &Apache::lonlocal::locallocaltime($value); |
if ($parmlog{$id}{'delflag'}) { |
| } else { |
$output .= &mt('Deleted'); |
| $output .= $value; |
} else { |
| } |
if ($typeflag) { |
| if ($value ne $all[$level]) { |
my $parmitem = &standard_parameter_names($value); |
| $output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>'; |
$parmitem = &mt($parmitem); |
| } else { |
$output .= &mt('Type: [_1]',$parmitem); |
| $stillactive=1; |
} else { |
| } |
my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what), |
| } |
$uname,$udom,$issection,$issection,$courseopt); |
| } |
my $showvalue = $value; |
| $output .= '</td><td>'; |
if ($istype{$parmname} eq '') { |
| if ($stillactive) { |
my $type = &standard_parameter_types($parmname); |
| my $title=&mt('Changed [_1]',&standard_parameter_names($parmname)); |
if ($type ne '') { |
| my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$realmdescription, |
if (&isdateparm($type)) { |
| (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value)); |
$showvalue = |
| if (($uname) && ($udom)) { |
&Apache::lonlocal::locallocaltime($value); |
| $output .= |
} |
| &Apache::loncommon::messagewrapper('Notify User', |
} |
| $uname,$udom,$title, |
} else { |
| $description); |
if (&isdateparm($istype{$parmname})) { |
| } else { |
$showvalue = |
| $output .= |
&Apache::lonlocal::locallocaltime($value); |
| &Apache::lonrss::course_blog_link($id,$title, |
} |
| $description); |
} |
| } |
$output .= $showvalue; |
| } |
if ($value ne $all[$level]) { |
| $output .= '</td>'.&Apache::loncommon::end_data_table_row(); |
$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') { |
if ($env{'form.displayfilter'} eq 'containing') { |
| my $wholeentry=$about_me_link.':'. |
my $wholeentry=$about_me_link.':'. |
| $parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'. |
$parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'. |
| $output; |
$output; |
| if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; } |
if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; } |
| } |
} |
| if ($count) { |
if ($count) { |
| $r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td> |
$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 |
|
| |
|
| |
|
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonparmset.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface