loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.395 and 1.434

version 1.395, 2008/05/28 23:05:07	version 1.434, 2009/02/19 10:19:49
Line 44 This module sets coursewide and assessme	Line 44 This module sets coursewide and assessme

=head1 INTERNAL SUBROUTINES	=head1 INTERNAL SUBROUTINES

=over 4	=over

=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 LONCAPA qw(:DEFAULT :match);


##################################################
##################################################

=pod	=pod

=item parmval	=item parmval()

Figure out a cascading parameter.	Figure out a cascading parameter.

Line 98 Returns: A list, the first item is the	Line 73 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 print_usergroups()

	=item parm_control_group()

	=item 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:

	=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?



	=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

	Returns: nothing

	Variables used (guessed by Jeremy):

	=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

	=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

	=item can_modify_catsettings()

	=item assign_course_categories()

	=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 check_cloners() :

	Checks if new users included in list of allowed cloners
	are valid users. Replaces supplied list with
	cleaned list containing only users with valid usernames
	and domains.

	Inputs: $clonelist, $oldcloner
	where $clonelist is ref to array of requested cloners,
	and $oldcloner is ref to array of currently allowed
	cloners.

	Returns: string - comma separated list of requested
	cloners (username:domain) who do not exist in system.

	=item change_clone() :

	Modifies the list of courses a user can clone (stored
	in the user's environment.db file), called when a
	change is made to the list of users allowed to clone
	a course.

	Inputs: $action,$cloner
	where $action is add or drop, and $cloner is identity of
	user for whom cloning ability is to be changed in course.


	=item check_cloners()

	=item change_clone()

	=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 and &crsenv subroutines.


	=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 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 302 sub reset_caches {	Line 550 sub reset_caches {
}	}
}	}



sub preset_defaults {	sub preset_defaults {
my $type=shift;	my $type=shift;
if (&rulescache($type.'_action') eq 'default') {	if (&rulescache($type.'_action') eq 'default') {
Line 316 sub preset_defaults {	Line 566 sub preset_defaults {
}	}
}	}

##################################################


sub date_sanity_info {	sub date_sanity_info {
my $checkdate=shift;	my $checkdate=shift;
Line 325 sub date_sanity_info {	Line 576 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 354 sub storeparm {	Line 622 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)=@_;
Line 519 sub storeparm_by_symb_inner {	Line 776 sub storeparm_by_symb_inner {
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 = '';
Line 551 sub valout {	Line 790 sub valout {
} 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 = &Apache::lonlocal::locallocaltime($value).	$result = &Apache::lonlocal::locallocaltime($value).
&date_sanity_info($value);	&date_sanity_info($value);
Line 583 sub valout {	Line 833 sub valout {
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;
Line 615 sub plink {	Line 848 sub plink {
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; }
my $valout = &valout($value,$type,1);	my $valout = &valout($value,$type,1);
	my $unencmarker = $marker;
foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,	foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,
\$hour, \$min, \$sec) {	\$hour, \$min, \$sec) {
$$item = &HTML::Entities::encode($$item,'"<>&');	$$item = &HTML::Entities::encode($$item,'"<>&');
$$item =~ s/\'/\\\'/g;	$$item =~ s/\'/\\\'/g;
}	}
return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$marker.'" /></td></tr><tr><td align="center">'.	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."','"	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.	.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
$valout.'</a></td></tr></table>';	$valout.'</a></td></tr></table>';
Line 683 sub startpage {	Line 917 sub startpage {
my %loaditems = ('onunload' => "pclose()",	my %loaditems = ('onunload' => "pclose()",
'onload' => "group_or_section('cgroup')",);	'onload' => "group_or_section('cgroup')",);

	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {
	&Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
	text=>"Problem Parameters"});
	} else {
	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
	text=>"Table Mode",
	help => 'Course_Setting_Parameters'});
	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Set/Modify Course Parameters',	&Apache::loncommon::start_page('Set/Modify Course Parameters',
&page_js(),	&page_js(),
Line 693 sub startpage {	Line 936 sub startpage {
$start_page	$start_page
$breadcrumbs	$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" />
ENDHEAD	ENDHEAD
}	}

Line 728 sub print_row {	Line 971 sub print_row {
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}.'</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\_//;
Line 814 sub print_row {	Line 1057 sub print_row {
}	}

} # 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 831 sub print_row {	Line 1074 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)=@_;
$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) {	if ($which<11 \|\| $which > 12) {
$r->print(&plink($$typeoutpar[$which],	$r->print(&plink($$typeoutpar[$which],
$$display{$value},$$outpar[$which],	$$display{$value},$$outpar[$which],
Line 858 sub print_usergroups {	Line 1101 sub print_usergroups {
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);	$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 870 sub print_usergroups {	Line 1113 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 899 sub parm_control_group {	Line 1142 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 971 sub extractResourceInformation {	Line 1182 sub extractResourceInformation {
#	#
my $name=&Apache::lonnet::metadata($srcf,$key.'.name');	my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
if (!exists($$allparms{$name}) \|\| $$allparms{$name} =~ m/^\s*$/ ) {	if (!exists($$allparms{$name}) \|\| $$allparms{$name} =~ m/^\s*$/ ) {
my $display= &Apache::lonnet::metadata($srcf,$key.'.display');	my ($display,$parmdis);
my $parmdis = $display;	$display = &standard_parameter_names($name);
$parmdis =~ s/\[Part.*$//g;	if ($display eq '') {
	$display= &Apache::lonnet::metadata($srcf,$key.'.display');
	$parmdis = $display;
	$parmdis =~ s/\s\[Part.$//g;
	} else {
	$parmdis = $display;
	}
$$allparms{$name}=$parmdis;	$$allparms{$name}=$parmdis;
if (ref($defkeytype)) {	if (ref($defkeytype)) {
$$defkeytype{$name}=	$$defkeytype{$name}=
Line 985 sub extractResourceInformation {	Line 1202 sub extractResourceInformation {
# allparts is a hash of all parts	# allparts is a hash of all parts
#	#
my $part= &Apache::lonnet::metadata($srcf,$key.'.part');	my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
$$allparts{$part} = "Part: $part";	$$allparts{$part} = &mt('Part: [_1]',$part);
#	#
# Remember all keys going with this resource	# Remember all keys going with this resource
#	#
Line 1010 sub extractResourceInformation {	Line 1227 sub extractResourceInformation {
$$mapp{$mapid}=$$mapp{$id};	$$mapp{$mapid}=$$mapp{$id};
$$allmaps{$mapid}=$$mapp{$id};	$$allmaps{$mapid}=$$mapp{$id};
if ($mapid eq '1') {	if ($mapid eq '1') {
$$maptitles{$mapid}='Main Course Documents';	$$maptitles{$mapid}=&mt('Main Course Documents');
} else {	} else {
$$maptitles{$mapid}=	$$maptitles{$mapid}=
&Apache::lonnet::gettitle($$mapp{$id});	&Apache::lonnet::gettitle($$mapp{$id});
Line 1025 sub extractResourceInformation {	Line 1242 sub extractResourceInformation {
}	}


##################################################
##################################################

sub isdateparm {	sub isdateparm {
my $type=shift;	my $type=shift;
Line 1099 sub parmmenu {	Line 1314 sub parmmenu {
</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print();	$r->print();
$r->print("\n<table id=\"LC_parm_overview_parm_menu\"><tr>");	$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>');
my $cnt=0;	my $cnt=0;
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {	foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
$r->print("\n<td><label><input type='checkbox' name='pscat' ");	$r->print("\n".'<td><label><input type="checkbox" name="pscat" ');
$r->print('value="'.$tempkey.'"');	$r->print('value="'.$tempkey.'"');
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print(' checked');	$r->print(' checked="checked"');
}	}
$r->print('>'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}	$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
: $tempkey)	: $tempkey)
.'</label></td>');	.'</label></td>');
$cnt++;	$cnt++;
if ($cnt==3) {	if ($cnt==3) {
$r->print("</tr>\n<tr>");	$r->print("</tr>\n<tr>");
$cnt=0;	$cnt=0;
}	}
}	}
$r->print('	$r->print('</tr>'
</tr><tr id=\"LC_parm_overview_parm_menu_selectors\"><td>	.'<tr id="LC_parm_overview_parm_menu_selectors">'
<a href="javascript:checkall(true, \'pscat\')">Select All</a><br />	.'<td valign="top">'
<a href="javascript:checkstandard()">Select Common Only</a>	.'<fieldset><legend><b>'.&mt('Parameter Selection').'</b></legend>'
</td><td>	.'<span class="LC_nobreak">'
<a href="javascript:checkdates()">Add Problem Dates</a>	.'• <a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>'
<a href="javascript:checkcontdates()">Add Content Dates</a><br />	.'</span>'
<a href="javascript:checkdisset()">Add Discussion Settings</a>	.'<br />'
<a href="javascript:checkvisi()">Add Visibilities</a><br />	.'<span class="LC_nobreak">'
<a href="javascript:checkparts()">Add Part Parameters</a>	.'• <a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>'
</td><td>	.'</span>'
<a href="javascript:checkall(false, \'pscat\')">Unselect All</a>	.'<br />'
</td>	.'<span class="LC_nobreak">'
');	.'• <a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>'
$r->print('</tr></table>');	.'</span>'
	.'</fieldset>'
	.'</td>'
	.'<td colspan="2" valign="top">'
	.'<fieldset><legend><b>'.&mt('Add Selection for...').'</b></legend>'
	.'<span class="LC_nobreak">'
	.'• <a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>'
	.'</span>'
	.'<span class="LC_nobreak">'
	.' • <a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>'
	.'</span>'
	# .'<br />'
	.'<span class="LC_nobreak">'
	.' • <a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>'
	.'</span>'
	.'<span class="LC_nobreak">'
	.' • <a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>'
	.'</span>'
	# .'<br />'
	.'<span class="LC_nobreak">'
	.' • <a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>'
	.'</span>'
	.'</fieldset>'
	.'</td>'
	.'</tr></table>'
	);
}	}

sub partmenu {	sub partmenu {
my ($r,$allparts,$psprt)=@_;	my ($r,$allparts,$psprt)=@_;
$r->print('<select multiple name="psprt" size="8">');	$r->print('<select multiple="multiple" name="psprt" size="8">');
$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; }
Line 1147 sub partmenu {	Line 1387 sub partmenu {
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>');
}	}
Line 1160 sub usermenu {	Line 1400 sub usermenu {
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');
my $selscript=&Apache::loncommon::studentbrowser_javascript();	my $selscript=&Apache::loncommon::studentbrowser_javascript();
my %lt=&Apache::lonlocal::texthash(
'se' => "Section",
'gr' => "Group",
'fu' => "For User",
'oi' => "or ID",
'ad' => "at Domain"
);
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 = &Apache::longroup::coursegroups();

	my $g_s_header='';
	my $g_s_footer='';

if (%sectionhash) {	if (%sectionhash) {
$sections=$lt{'se'}.': <select name="csec"';	$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')" \|;
}	}
Line 1186 sub usermenu {	Line 1423 sub usermenu {
}	}
$sections.='</select>';	$sections.='</select>';
}	}

if (%sectionhash && %grouphash && $parmlev ne 'full') {	if (%sectionhash && %grouphash && $parmlev ne 'full') {
$sections .= ' or ';	$sections .= ' '.&mt('or').' ';
$sections .= qq\|	$sections .= qq\|
<script type="text/javascript">	<script type="text/javascript">
function group_or_section(caller) {	function group_or_section(caller) {
Line 1214 function group_or_section(caller) {	Line 1452 function group_or_section(caller) {
}	}

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') {
$groups .= qq\| onchange="group_or_section('cgroup')" \|;	$groups .= qq\| onchange="group_or_section('cgroup')" \|;
}	}
Line 1236 function group_or_section(caller) {	Line 1474 function group_or_section(caller) {
}	}
$groups.='</select>';	$groups.='</select>';
}	}
$r->print(<<ENDMENU);
<b>	if (%sectionhash \|\| %grouphash) {
$sections	$g_s_header='<fieldset><legend>'.&mt('Group/Section').'</legend><div>';
$groups	$g_s_footer='</div></fieldset>';
<br />	}
$lt{'fu'}
<input type="text" value="$uname" size="12" name="uname" />	$r->print('<b>'
$lt{'oi'}	.$g_s_header
<input type="text" value="$id" size="12" name="id" />	.$sections
$lt{'ad'}	.$groups
$chooseopt	.$g_s_footer
</b>	.'<fieldset><legend>'.&mt('User').'</legend><div>'
ENDMENU	.&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
	,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
	,'<input type="text" value="'.$id.'" size="12" name="id" /> '
	,$chooseopt)
	.'</div></fieldset>'
	.'</b>'
	);
}	}

sub displaymenu {	sub displaymenu {
Line 1256 sub displaymenu {	Line 1500 sub displaymenu {
$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.	$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.
&mt('Select Parts to View').'</th></tr><tr><td>');	&mt('Select Parts to View').'</th></tr><tr><td>');
&parmmenu($r,$allparms,$pscat,$keyorder);	&parmmenu($r,$allparms,$pscat,$keyorder);
$r->print('</td><td>');	$r->print('</td><td valign="top" align="center">');
&partmenu($r,$allparts,$psprt);	&partmenu($r,$allparts,$psprt);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
}	}
Line 1268 sub mapmenu {	Line 1512 sub mapmenu {
$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');	$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {	foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
$r->print('<option value="'.$_.'"');	$r->print('<option value="'.$_.'"');
if (($pschp eq $_)) { $r->print(' selected'); }	if (($pschp eq $_)) { $r->print(' selected="selected"'); }
$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');	$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
}	}
$r->print("</select>");	$r->print("</select>");
Line 1282 sub levelmenu {	Line 1526 sub levelmenu {
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>");
}	}
Line 1295 sub sectionmenu {	Line 1539 sub sectionmenu {
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" >');	$r->print('<select name="Section" multiple="multiple" size="8">');
foreach my $s ('all',sort keys %sectionhash) {	foreach my $s ('all',sort keys %sectionhash) {
$r->print(' <option value="'.$s.'"');	$r->print(' <option value="'.$s.'"');
foreach (@{$selectedsections}) {	foreach (@{$selectedsections}) {
if ($s eq $_) {	if ($s eq $_) {
$r->print(' selected');	$r->print(' selected="selected"');
last;	last;
}	}
}	}
Line 1314 sub groupmenu {	Line 1558 sub groupmenu {
my %grouphash = &Apache::longroup::coursegroups();	my %grouphash = &Apache::longroup::coursegroups();
return if (!%grouphash);	return if (!%grouphash);

$r->print('<select name="Group" multiple="true" size="8" >');	$r->print('<select name="Group" multiple="multiple" size="8">');
foreach my $group (sort(keys(%grouphash))) {	foreach my $group (sort(keys(%grouphash))) {
$r->print(' <option value="'.$group.'"');	$r->print(' <option value="'.$group.'"');
foreach (@{$selectedgroups}) {	foreach (@{$selectedgroups}) {
if ($group eq $_) {	if ($group eq $_) {
$r->print(' selected');	$r->print(' selected="selected"');
last;	last;
}	}
}	}
Line 1364 sub sortmenu {	Line 1608 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>');
Line 1398 sub standardkeyorder {	Line 1642 sub standardkeyorder {
'parameter_0_discusshide' => 20);	'parameter_0_discusshide' => 20);
}	}

##################################################
##################################################

=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=shift;
Line 1608 sub assessparms {	Line 1823 sub assessparms {
if (!$pssymb) {	if (!$pssymb) {
$r->print('<table border="1"><tr><td>');	$r->print('<table border="1"><tr><td>');
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
	$r->print('</td>');
if ($parmlev ne 'general') {	if ($parmlev ne 'general') {
$r->print('<td>');	$r->print('<td>');
&mapmenu($r,\%allmaps,$pschp,\%maptitles);	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
$r->print('</td>');	$r->print('</td>');
}	}
$r->print('</td></tr></table>');	$r->print('</tr></table>');
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
} else {	} else {
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
Line 1650 sub assessparms {	Line 1866 sub assessparms {
$coursespan += 3;	$coursespan += 3;
}	}

$r->print('<p><table border=2>');	$r->print('<p><table border="2">');
$r->print('<tr><td colspan=5></td>');	$r->print('<tr><td colspan="5"></td>');
$r->print('<th colspan='.($coursespan).'>'.&mt('Any User').'</th>');	$r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');
if ($uname) {	if ($uname) {
if (@usersgroups > 1) {	if (@usersgroups > 1) {
$userspan ++;	$userspan ++;
Line 1678 sub assessparms {	Line 1894 sub assessparms {
'fr' => 'for Resource'	'fr' => 'for Resource'
);	);
$r->print(<<ENDTABLETWO);	$r->print(<<ENDTABLETWO);
<th rowspan=3>$lt{'pie'}</th>	<th rowspan="3">$lt{'pie'}</th>
<th rowspan=3>$lt{'csv'}<br />($csuname $lt{'at'} $csudom)</th>	<th rowspan="3">$lt{'csv'}<br />($csuname $lt{'at'} $csudom)</th>
</tr><tr><td colspan=5></td><th colspan=2>$lt{'ic'}</th><th colspan=2>$lt{'rl'}</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>	<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);
Line 1730 ENDTABLEHEADFOUR	Line 1946 ENDTABLEHEADFOUR
\|\|	\|\|
($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 1760 ENDTABLEHEADFOUR	Line 1976 ENDTABLEHEADFOUR
if (grep $_ eq $tempkeyp, @catmarker) {	if (grep $_ eq $tempkeyp, @catmarker) {
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');	$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');	$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 1772 ENDTABLEHEADFOUR	Line 1997 ENDTABLEHEADFOUR
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('".
Line 1787 ENDTABLEHEADFOUR	Line 2012 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>');

Line 1814 ENDTABLEHEADFOUR	Line 2039 ENDTABLEHEADFOUR
} # 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;

Line 1867 ENDTABLEHEADFOUR	Line 2092 ENDTABLEHEADFOUR
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');
	if ($allparms{$name{$tempkeyp}} ne '') {
	my $identifier;
	if ($parmdis =~ /(\s\[Part.)$/) {
	$identifier = $1;
	}
	$display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
	} else {
	$display{$tempkeyp} = $parmdis;
	}
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_\w+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
Line 1881 ENDTABLEHEADFOUR	Line 2115 ENDTABLEHEADFOUR
#---------------------------------------------------- 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);
}	}
$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 1954 ENDMAPONE	Line 2194 ENDMAPONE
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');
	if ($allparms{$name{$tempkeyp}} ne '') {
	my $identifier;
	if ($parmdis =~ /(\s\[Part.)$/) {
	$identifier = $1;
	}
	$display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
	} else {
	$display{$tempkeyp} = $parmdis;
	}
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_\w+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
Line 1967 ENDMAPONE	Line 2216 ENDMAPONE
#---------------------------------------------------- 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) {
Line 1981 ENDMAPONE	Line 2231 ENDMAPONE
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);
}	}
$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>'.&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 {	sub crsenv {
my $r=shift;	my $r=shift;
my $setoutput='';	my $setoutput='';

	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
	text=>"Course Environment"});
my $breadcrumbs =	my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');	&Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 2087 sub crsenv {	Line 2328 sub crsenv {
my ($name,$domain) = split(':',$user);	my ($name,$domain) = split(':',$user);
if (!defined($user) \|\| !defined($domain)) {	if (!defined($user) \|\| !defined($domain)) {
$setoutput.= '<br /> <span class="LC_error">'.	$setoutput.= '<br /> <span class="LC_error">'.
&mt("Invalid email address specified, address must be of the form username:domain what was specified was ([_1])",$user).	&mt("Invalid e-mail address specified, address must be of the form username:domain what was specified was ([_1])",$user).
'</span>';	'</span>';
undef($value);	undef($value);
} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {	} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
$setoutput.= '<br /> <span class="LC_error">'.	$setoutput.= '<br /> <span class="LC_error">'.
&mt("Invalid email address specified, user [_1] is unknown.",$name).	&mt("Invalid e-mail address specified, user [_1] is unknown.",$name).
'</span>';	'</span>';
undef($value);	undef($value);
}	}
Line 2125 sub crsenv {	Line 2366 sub crsenv {
$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>';	$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>';
if ($name =~ /^default_enrollment_(start\|end)_date$/) {	if ($name =~ /^default_enrollment_(start\|end)_date$/) {
$setoutput .= &Apache::lonlocal::locallocaltime($value);	$setoutput .= &Apache::lonlocal::locallocaltime($value);
	} elsif ($name eq 'categories') {
	$setoutput .= $env{'form.categories_display'};
} else {	} else {
$setoutput .= $value;	$setoutput .= $value;
}	}
Line 2133 sub crsenv {	Line 2376 sub crsenv {
&change_clone($value,\@oldcloner);	&change_clone($value,\@oldcloner);
}	}
# Update environment and nohist_courseids.db	# Update environment and nohist_courseids.db
if ($name eq 'description' \|\| $name eq 'cloners') {	if (($name eq 'description') \|\| ($name eq 'cloners') \|\|
	($name eq 'hidefromcat') \|\| ($name eq 'categories')) {
if ($chome eq '') {	if ($chome eq '') {
%crsinfo =	%crsinfo =
&Apache::lonnet::courseiddump($dom,'.',1,'.','.',	&Apache::lonnet::courseiddump($dom,'.',1,'.','.',
$crs,undef,undef,'Course');	$crs,undef,undef,'.');
$chome = &Apache::lonnet::homeserver($crs,$dom);	$chome = &Apache::lonnet::homeserver($crs,$dom);
}	}
}	}
Line 2150 sub crsenv {	Line 2394 sub crsenv {
$chome,'notime');	$chome,'notime');
}	}
}	}
if ($name eq 'cloners') {	if (($name eq 'cloners') \|\| ($name eq 'hidefromcat') \|\| ($name eq 'categories')) {
if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {	if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
$crsinfo{$env{'request.course.id'}}{'cloners'} = $value;	&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.'.$name => $value});
	$crsinfo{$env{'request.course.id'}}{$name} = $value;
my $putresult =	my $putresult =
&Apache::lonnet::courseidput($dom,\%crsinfo,	&Apache::lonnet::courseidput($dom,\%crsinfo,
$chome,'notime');	$chome,'notime');
Line 2208 sub crsenv {	Line 2453 sub crsenv {
my $SelectStyleFile=&mt('Select Style File');	my $SelectStyleFile=&mt('Select Style File');
my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');	my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');
my $output='';	my $output='';
	my $can_categorize;
if (! exists($values{'con_lost'})) {	if (! exists($values{'con_lost'})) {
my %descriptions=	my %descriptions=
('url' => '<b>'.&mt('Top Level Map').'</b><br />'.	('url' => '<b>'.&mt('Top Level Map').'</b><br />'.
Line 2251 sub crsenv {	Line 2497 sub crsenv {
'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b><br />'	'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b><br />'
.'('.&mt('[_1]: students can view all sections. [_2]: students can only view their own section. blank or [_3] prevents student view.','"<tt>all</tt>"','"<tt>section</tt>"','"<tt>disabled</tt>"').')',	.'('.&mt('[_1]: students can view all sections. [_2]: students can only view their own section. blank or [_3] prevents student view.','"<tt>all</tt>"','"<tt>section</tt>"','"<tt>disabled</tt>"').')',
'student_classlist_portfiles' => '<b>'.&mt('Include link to accessible portfolio files').'</b><br />'	'student_classlist_portfiles' => '<b>'.&mt('Include link to accessible portfolio files').'</b><br />'
.'('.&mt('[_1] for link to each a listing of each student\'s files.','"<tt>yes</tt>"').')',	.'('.&mt("[_1] for link to each a listing of each student's files.",'"<tt>yes</tt>"').')',
'student_classlist_opt_in' => '<b>'.&mt("Student's agreement needed for listing in student-viewable roster").'</b><br />'	'student_classlist_opt_in' => '<b>'.&mt("Student's agreement needed for listing in student-viewable roster").'</b><br />'
.'('.&mt('[_1] to require students to opt-in to listing in the roster (on the roster page).','"<tt>yes</tt>"').')',	.'('.&mt('[_1] to require students to opt-in to listing in the roster (on the roster page).','"<tt>yes</tt>"').')',
'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').'</b><br />'	'plc.roles.denied'=> '<b>'.&mt('Disallow live chatroom use for Roles').'</b><br />'
Line 2334 sub crsenv {	Line 2580 sub crsenv {
'externalsyllabus'	'externalsyllabus'
=> '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',	=> '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',
'tthoptions'	'tthoptions'
=> '<b>'.&mt('Default set of options to pass to tth/m when converting tex').'</b>',	=> '<b>'.&mt('Default set of options to pass to tth/m when converting TeX').'</b>',

'texengine'	'texengine'
=> '<b>'.&mt('Force all students in the course to use a specific math rendering engine.').'</b><br />'	=> '<b>'.&mt('Force all students in the course to use a specific math rendering engine.').'</b><br />'
.'('.&mt('[_1], [_2] (Convert to Images), [_3] (Tex-to-HTML), or blank for student\'s preference','"<tt>jsMath</tt>"','"<tt>mimetex</tt>"','"<tt>tth</tt>"').')',	.'('.&mt("[_1], [_2] (Convert to Images), [_3] (TeX to HTML), or blank for student's preference",'"<tt>jsMath</tt>"','"<tt>mimetex</tt>"','"<tt>tth</tt>"').')',
	'timezone'
	=> '<b>'.&mt('Timezone in which the course takes place').'</b>',

);	'suppress_embed_prompt'
my @Display_Order = ('url','description','courseid','cloners','grading',	=> '<b>'.&mt('Suppress prompt to upload items referenced in a web page being uploaded to portfolio, when current role is student.').'</b><br />'.
	' ('.&mt('[_1] to suppress, anything else to not suppress','"<tt>yes</tt>"').')',
	'hidefromcat'
	=> '<b>'.&mt('Exclude from course catalog').'</b><br />'.
	' ('.&mt('[_1] to exclude, anything else to include - included if assigned an institutional code, or manually catagorized','"<tt>yes</tt>"').')',
	'categories'
	=> '<b>'.&mt('Categorize course').'</b> <a href="javascript:catsbrowser()">'.
	&mt('Display Categories').'</a>',
	'datelocale'
	=> '<b>'.&mt('Locale used for course calendar').'</b>',
	);
	my @Display_Order = ('url','description','courseid','cloners');
	(my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom);
	if ($can_toggle_cat) {
	push(@Display_Order,'hidefromcat');
	}
	if ($can_categorize) {
	push(@Display_Order,'categories');
	}
	push (@Display_Order,('grading',
'externalsyllabus',	'externalsyllabus',
'default_xml_style','pageseparators',	'default_xml_style','pageseparators',
'question.email','question.email.text','comment.email','comment.email.text','policy.email','policy.email.text',	'question.email','question.email.text','comment.email',
	'comment.email.text','policy.email','policy.email.text',
'student_classlist_view',	'student_classlist_view',
'student_classlist_opt_in',	'student_classlist_opt_in',
'student_classlist_portfiles',	'student_classlist_portfiles',
Line 2353 sub crsenv {	Line 2621 sub crsenv {
'allow_limited_html_in_feedback',	'allow_limited_html_in_feedback',
'allow_discussion_post_editing',	'allow_discussion_post_editing',
'languages',	'languages',
	'timezone',
	'datelocale',
'nothideprivileged',	'nothideprivileged',
'rndseed',	'rndseed',
'receiptalg',	'receiptalg',
'problem_stream_switch',	'problem_stream_switch',
'suppress_tries',	'suppress_tries',
	'suppress_embed_prompt',
'default_paper_size',	'default_paper_size',
'print_header_format',	'print_header_format',
'disable_receipt_display',	'disable_receipt_display',
Line 2371 sub crsenv {	Line 2642 sub crsenv {
'texengine',	'texengine',
'disablesigfigs',	'disablesigfigs',
'disableexampointprint',	'disableexampointprint',
'task_messages','task_grading',	'task_messages','task_grading'));
);
foreach my $parameter (sort(keys(%values))) {	foreach my $parameter (sort(keys(%values))) {
unless (($parameter =~ m/^internal\./)\|\|($parameter =~ m/^metadata\./)) {	unless (($parameter =~ m/^internal\./)\|\|($parameter =~ m/^metadata\./) \|\|
	($parameter =~ m/^selfenroll_/) \|\| ($parameter =~ /_selfenroll$/)
	\|\| ($parameter eq 'type')) {
if (! $descriptions{$parameter}) {	if (! $descriptions{$parameter}) {
$descriptions{$parameter}=$parameter;	$descriptions{$parameter}=$parameter;
push(@Display_Order,$parameter);	push(@Display_Order,$parameter);
Line 2397 sub crsenv {	Line 2669 sub crsenv {
$values{$parameter},	$values{$parameter},
$onchange).	$onchange).
'</td>';	'</td>';
	} elsif ($parameter eq 'timezone') {
	my $includeempty = 1;
	my $timezone = &Apache::lonlocal::gettimezone();
	$output .= '<td>'.
	&Apache::loncommon::select_timezone($parameter.'_value',
	$timezone,
	$onchange,$includeempty).'</td>';
	} elsif ($parameter eq 'datelocale') {
	my $includeempty = 1;
	my $locale_obj = &Apache::lonlocal::getdatelocale();
	my $currdatelocale;
	if (ref($locale_obj)) {
	$currdatelocale = $locale_obj->id();
	}
	$output .= '<td>'.
	&Apache::loncommon::select_datelocale($parameter.'_value',
	$currdatelocale,
	$onchange,$includeempty).'</td>';
	} elsif ($parameter eq 'categories') {
	my $catdisplay;
	if ($values{'categories'} ne '') {
	my @curritems = split(/\&/,$values{'categories'});
	foreach my $item (@curritems) {
	my ($name,$parent,$pos) = split(/:/,$item);
	$catdisplay .= &unescape($name).'&';
	}
	$catdisplay =~ s/\&$//;
	}
	$output .= '<td>'.
	'<input type="hidden" name="categories_value" value="'.
	$values{'categories'}.'" />'.
	'<input type="textbox" name="categories_display" value="'.
	$catdisplay.'" readonly="readonly" size="40" /></td>';
} else {	} else {
$output .= '<td>'.	$output .= '<td>'.
&Apache::lonhtmlcommon::textbox($parameter.'_value',	&Apache::lonhtmlcommon::textbox($parameter.'_value',
Line 2413 sub crsenv {	Line 2718 sub crsenv {
'.checked=true;"';	'.checked=true;"';
$output.=&Apache::loncommon::start_data_table_row().	$output.=&Apache::loncommon::start_data_table_row().
'<td><i>'.&mt('Create New Environment Variable').'</i><br />'.	'<td><i>'.&mt('Create New Environment Variable').'</i><br />'.
'<input type="text" size=40 name="newp_name" '.	'<input type="text" size="40" name="newp_name" '.
$onchange.' /></td><td>'.	$onchange.' /></td><td>'.
'<input type="text" size=40 name="newp_value" '.	'<input type="text" size="40" name="newp_value" '.
$onchange.' /></td><td>'.	$onchange.' /></td><td>'.
'<input type="checkbox" name="newp_setparmval" /></td>'.	'<input type="checkbox" name="newp_setparmval" /></td>'.
&Apache::loncommon::end_data_table_row()."\n";	&Apache::loncommon::end_data_table_row()."\n";
Line 2430 sub crsenv {	Line 2735 sub crsenv {
my $Parameter=&mt('Parameter');	my $Parameter=&mt('Parameter');
my $Value=&mt('Value');	my $Value=&mt('Value');
my $Set=&mt('Set');	my $Set=&mt('Set');
my $browse_js=	my ($jscript,$categorize_js);
'<script type="text/javascript" language="Javascript">'.	my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');
&Apache::loncommon::browser_and_searcher_javascript('parmset').	if ($can_categorize) {
'</script>';	$categorize_js = <<ENDSCRIPT;
	function catsbrowser() {
	var catswin = null;
	var url = '/adm/parmset?action=categorizecourse';
	if (!catswin \|\| catswin.closed) {
	catswin=window.open(url,'categorieswin','height=480,width=600,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
	} else {
	catswin.focus();
	}
	}
	ENDSCRIPT
	}
	$jscript = '<script type="text/javascript" language="Javascript">'."\n".
	$browse_js."\n".$categorize_js."\n".'</script>';
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Set Course Environment',	&Apache::loncommon::start_page('Set Course Environment',
$browse_js);	$jscript);
my $end_page =	my $end_page =
&Apache::loncommon::end_page();	&Apache::loncommon::end_page();
my $end_table=&Apache::loncommon::end_data_table();	my $end_table=&Apache::loncommon::end_data_table();
Line 2458 $end_table	Line 2775 $end_table
$end_page	$end_page
ENDENV	ENDENV
}	}

	sub can_modify_catsettings {
	my ($dom) = @_;
	my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom);
	my ($can_toggle_cat,$can_categorize);
	if (ref($domconf{'coursecategories'}) eq 'HASH') {
	if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') {
	$can_toggle_cat = 1;
	}
	if ($domconf{'coursecategories'}{'categorize'} eq 'crs') {
	$can_categorize = 1;
	}
	}
	return ($can_toggle_cat,$can_categorize);
	}

	sub assign_course_categories {
	my ($r) = @_;
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $hascats = 0;
	my $cathash;
	my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
	if (ref($domconf{'coursecategories'}) eq 'HASH') {
	$cathash = $domconf{'coursecategories'}{'cats'};
	if (ref($cathash) eq 'HASH') {
	$hascats = 1;
	}
	}
	my $catwin_js;
	if ($hascats) {
	my $alert = &mt('Use \"Save\" in the main window to save course categories');
	$catwin_js = <<ENDSCRIPT;
	<script type="text/javascript">

	function updateCategories() {
	var newcategories = '';
	var unescapedcats = '';
	if (document.chgcats.usecategory.length) {
	for (var i=0; i<document.chgcats.usecategory.length; i++) {
	if (document.chgcats.usecategory[i].checked == true) {
	newcategories = newcategories + document.chgcats.usecategory[i].value + '&';
	unescapedcats = unescapedcats + document.chgcats.catname[i].value + ' & ';
	}
	}
	if (newcategories.length > 0) {
	newcategories = newcategories.slice(0,-1);
	}
	if (unescapedcats.length > 0) {
	unescapedcats = unescapedcats.slice(0,-3);
	}
	} else {
	if (document.chgcats.usecategory.checked == true) {
	newcategories = document.chgcats.usecategory.value;
	unescapedcats = document.chgcats.catname.value;
	}
	}
	opener.document.envform.categories_value.value = newcategories;
	opener.document.envform.categories_display.value = unescapedcats;
	opener.document.envform.categories_setparmval.checked = true;
	alert("$alert");
	self.close();
	return;
	}

	</script>
	ENDSCRIPT
	} else {
	my $onload;
	}
	my $start_page =
	&Apache::loncommon::start_page('Course Categories',$catwin_js,
	{'only_body' => 1,});
	my $end_page = &Apache::loncommon::end_page();
	my $categoriesform = '<h3>'.&mt('Categorize Course').'</h3>';
	if ($hascats) {
	my %currsettings =
	&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum);
	$categoriesform .= &mt('Assign one or more categories to this course.').'<br /><br />'.
	'<form name="chgcats" action="/adm/parmset" method="post">'."\n"
	.&Apache::loncommon::assign_categories_table($cathash,
	$currsettings{'categories'})."\n"
	.'<br /><input type="button" name="changes" value="'
	.&mt('Copy to main window').'" '
	.'onclick="javascript:updateCategories()" /></form><br />';
	} else {
	$categoriesform .= &mt('No categories defined for this domain');
	}
	$r->print($start_page.$categoriesform.$end_page);
	return;
	}

##################################################	##################################################
# Overview mode	# Overview mode
##################################################	##################################################
Line 2731 sub listdata {	Line 3140 sub listdata {
}	}
if ($part ne $oldpart) {	if ($part ne $oldpart) {
$r->print(&tableend().	$r->print(&tableend().
"\n<span class=\"LC_parm_part\">".&mt('Part').": $part</span>");	"\n".'<span class="LC_parm_part">'.&mt('Part').": $part</span>");
$oldpart=$part;	$oldpart=$part;
}	}
#	#
Line 2752 sub listdata {	Line 3161 sub listdata {
$$resourcedata{$thiskey},	$$resourcedata{$thiskey},
'',1,'','').	'',1,'','').
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.	'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
(($$resourcedata{$thiskey}!=0)?'<a href="/adm/parmset?&action=dateshift1&timebase='.$$resourcedata{$thiskey}.'">'.	(($$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>':'').	&mt('Shift all dates based on this date').'</a></span>':'').
&date_sanity_info($$resourcedata{$thiskey})	&date_sanity_info($$resourcedata{$thiskey})
);	);
} elsif ($thistype eq 'date_interval') {	} elsif ($thistype eq 'date_interval') {
Line 2766 sub listdata {	Line 3175 sub listdata {
$r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));	$r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));
}	}
$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.	$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
$thistype.'">');	$thistype.'" />');
$r->print('</td>'.&Apache::loncommon::end_data_table_row());	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
}	}
}	}
Line 2889 sub newoverview {	Line 3298 sub newoverview {

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=setoverview',
	text=>"Overview Mode"});
my $start_page = &Apache::loncommon::start_page('Set Parameters');	my $start_page = &Apache::loncommon::start_page('Set Parameters');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
$r->print(<<ENDOVER);	$r->print(<<ENDOVER);
Line 3049 sub overview {	Line 3460 sub overview {
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=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(<<ENDOVER);
Line 3074 ENDOVER	Line 3487 ENDOVER
my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);	my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);

$r->print(&tableend().'<p>'.	$r->print(&tableend().'<p>'.
($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form>'.	($foundkeys?'<input type="submit" value="'.&mt('Save').'" />':&mt('There are no parameters.')).'</p></form>'.
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}

Line 3083 sub clean_parameters {	Line 3496 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 3103 ENDOVER	Line 3518 ENDOVER
$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>'.
Line 3156 ENDOVER	Line 3571 ENDOVER
}	}
}	}
$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());	&Apache::loncommon::end_page());
}	}
Line 3166 sub date_shift_one {	Line 3581 sub date_shift_one {
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=dateshift1&timebase='.$env{'form.timebase'},
	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print(<<ENDOVER);
Line 3191 sub date_shift_two {	Line 3608 sub date_shift_two {
my ($r) = @_;	my ($r) = @_;
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=dateshift1&timebase='.$env{'form.timebase'},
	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print(<<ENDOVER);
Line 3245 sub parse_key {	Line 3664 sub parse_key {
return %data;	return %data;
}	}

##################################################
##################################################

=pod

=item check_cloners

Checks if new users included in list of allowed cloners
are valid users. Replaces supplied list with
cleaned list containing only users with valid usernames
and domains.

Inputs: $clonelist, $oldcloner
where $clonelist is ref to array of requested cloners,
and $oldcloner is ref to array of currently allowed
cloners.

Returns: string - comma separated list of requested
cloners (username:domain) who do not exist in system.

=item change_clone

Modifies the list of courses a user can clone (stored
in the user's environment.db file), called when a
change is made to the list of users allowed to clone
a course.

Inputs: $action,$cloner
where $action is add or drop, and $cloner is identity of
user for whom cloning ability is to be changed in course.

=cut

##################################################
##################################################

sub extract_cloners {	sub extract_cloners {
my ($clonelist,$allowclone) = @_;	my ($clonelist,$allowclone) = @_;
Line 3396 sub change_clone {	Line 3781 sub change_clone {
}	}


##################################################
##################################################

=pod

=item * header

Output html header for page

=cut

##################################################
##################################################
sub header {	sub header {
return &Apache::loncommon::start_page('Parameter Manager');	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('Parameter Manager'));
$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 3427 ENDMAINFORMHEAD	Line 3803 ENDMAINFORMHEAD
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 $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});


my @menu =	my @menu =
( { divider=>'Settings for Your Course',	( { categorytitle=>'Settings for this Course',
},	items => [
{ text => 'Set Course Environment',	{ linktext => 'Course Environment',
action => 'crsenv',	url => '/adm/parmset?action=crsenv',
permission => $parm_permission,	permission => $parm_permission,
help => 'Course_Environment',	linktitle =>'Edit environment settings for this course.' ,
},	icon => 'preferences-desktop-remote-desktop.png' ,
{ text => 'Set Portfolio Metadata',	#help => 'Course_Environment',
action => 'setrestrictmeta',	},
permission => $parm_permission,	{ linktext => 'Portfolio Metadata',
},	url => '/adm/parmset?action=setrestrictmeta',
{ text => 'Manage Course Slots',	permission => $parm_permission,
url => '/adm/slotrequest?command=showslots',	linktitle => 'Restrict metadata for this course.' ,
permission => $vgr,	icon =>'contact-new.png' ,
},	},
{ text => 'Reset Student Access Times',	{ linktext => 'Manage Course Slots',
url => '/adm/helper/resettimes.helper',	url => '/adm/slotrequest?command=showslots',
permission => $mgr,	permission => $vgr,
},	linktitle =>'Manage slots for this course.' ,
	icon => 'format-justify-fill.png' ,
{ text => 'Set Parameter Setting Default Actions',	},
action => 'setdefaults',	{ linktext => 'Reset Student Access Times',
permission => $parm_permission,	url => '/adm/helper/resettimes.helper',
},	permission => $mgr,
{ divider => 'New and Existing Parameter Settings for Your Resources',	linktitle =>'Reset access times for folders/maps, resources or the course.' ,
},	icon => 'start-here.png' ,
{ text => 'Set/Modify Resource Parameters - Helper Mode',	},
url => '/adm/helper/parameter.helper',
permission => $parm_permission,	{ linktext => 'Set Parameter Setting Default Actions',
help => 'Parameter_Helper',	url => '/adm/parmset?action=setdefaults',
},	permission => $parm_permission,
{ text => 'Set/Modify Resource Parameters - Overview Mode',	linktitle =>'Set default actions for parameters.' ,
action => 'newoverview',	icon => 'folder-new.png' ,
permission => $parm_permission,	}]},
help => 'Parameter_Overview',	{ categorytitle => 'New and Existing Parameter Settings for Resources',
},	items => [
{ text => 'Set/Modify Resource Parameters - Table Mode',	{ linktext => 'Edit Resource Parameters - Helper Mode',
action => 'settable',	url => '/adm/helper/parameter.helper',
permission => $parm_permission,	permission => $parm_permission,
help => 'Table_Mode',	linktitle =>'Set/Modify resource parameters in helper mode.' ,
},	icon => 'dialog-information.png' ,
{ divider => 'Existing Parameter Settings for Your Resources',	#help => 'Parameter_Helper',
},	},
{ text => 'Modify Resource Parameters - Overview Mode',	{ linktext => 'Edit Resource Parameters - Overview Mode',
action => 'setoverview',	url => '/adm/parmset?action=newoverview',
permission => $parm_permission,	permission => $parm_permission,
help => 'Parameter_Overview',	linktitle =>'Set/Modify resource parameters in overview mode.' ,
},	icon => 'edit-find.png' ,
{ text => 'Parameter Change Log and Course Blog Posting/User Notification',	#help => 'Parameter_Overview',
action => 'parameterchangelog',	},
permission => $parm_permission,	{ linktext => 'Edit Resource Parameters - Table Mode',
},	url => '/adm/parmset?action=settable',
	permission => $parm_permission,
	linktitle =>'Set/Modify resource parameters in table mode.' ,
	icon => 'edit-copy.png' ,
	#help => 'Table_Mode',
	}]},
	{ categorytitle => 'Existing Parameter Settings for Resources',
	items => [
	{ linktext => 'Modify Resource Parameters - Overview Mode',
	url => '/adm/parmset?action=setoverview',
	permission => $parm_permission,
	linktitle =>'Set/Modify existing resource parameters in overview mode.' ,
	icon => 'preferences-desktop-wallpaper.png' ,
	#help => 'Parameter_Overview',
	},
	{ linktext => 'Change Log',
	url => '/adm/parmset?action=parameterchangelog',
	permission => $parm_permission,
	linktitle =>'View parameter and course blog posting/user notification change log.' ,
	icon => 'emblem-system.png' ,
	}]}
);	);
my $menu_html = '';	$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
foreach my $menu_item (@menu) {
if ($menu_item->{'divider'}) {
$menu_html .= '<h3>'.&mt($menu_item->{'divider'}).'</h3>';
next;
}
next if (! $menu_item->{'permission'});
$menu_html.='<p>';
$menu_html.='<span class="LC_parm_menu_item">';
if (exists($menu_item->{'url'})) {
$menu_html.=qq{<a href="$menu_item->{'url'}">};
} else {
$menu_html.=
qq{<a href="/adm/parmset?action=$menu_item->{'action'}">};
}
$menu_html.= &mt($menu_item->{'text'}).'</a></span>';
if (exists($menu_item->{'help'})) {
$menu_html.=
&Apache::loncommon::help_open_topic($menu_item->{'help'});
}
$menu_html.='</p>'.$/;
}
$r->print($menu_html);
return;	return;
}	}
### Set portfolio metadata


sub output_row {	sub output_row {
my ($r, $field_name, $field_text, $added_flag) = @_;	my ($r, $field_name, $field_text, $added_flag) = @_;
my $output;	my $output;
Line 3518 sub output_row {	Line 3895 sub output_row {
}	}
if (!($options =~ /deleted/)) {	if (!($options =~ /deleted/)) {
my @options= ( ['active', 'Show to student'],	my @options= ( ['active', 'Show to student'],
['stuadd', 'Provide text area for students to type catalog information'],	['stuadd', 'Provide text area for students to type metadata'],
['choices','Provide choices for students to select from']);	['choices','Provide choices for students to select from']);
# ['onlyone','Student may select only one choice']);	# ['onlyone','Student may select only one choice']);
if ($added_flag) {	if ($added_flag) {
Line 3542 sub output_row {	Line 3919 sub output_row {
my $multiple_checked;	my $multiple_checked;
my $single_checked;	my $single_checked;
if ($options =~ m/onlyone/) {	if ($options =~ m/onlyone/) {
$multiple_checked = "";	$multiple_checked = '';
$single_checked = " CHECKED ";	$single_checked = ' checked="checked"';
} else {	} else {
$multiple_checked = " CHECKED ";	$multiple_checked = ' checked="checked"';
$single_checked = "";	$single_checked = '';
}	}
$output .= &Apache::loncommon::continue_data_table_row();	$output .= &Apache::loncommon::continue_data_table_row();
$output .= '<td>'.(' ' x 10).'<span class="LC_metadata">	$output .= '<td>'.(' ' x 10).'<span class="LC_metadata">
<input type="radio" name="'.$field_name.'_onlyone" value="multiple" '.$multiple_checked .'/>	<input type="radio" name="'.$field_name.'_onlyone" value="multiple"'.$multiple_checked .' />
Student may select multiple choices from list</span></td>';	'.&mt('Student may select multiple choices from list').'</span></td>';
$output .= &Apache::loncommon::end_data_table_row();	$output .= &Apache::loncommon::end_data_table_row();
$output .= &Apache::loncommon::continue_data_table_row();	$output .= &Apache::loncommon::continue_data_table_row();
$output .= '<td>'.(' ' x 10).'<span class="LC_metadata">	$output .= '<td>'.(' ' x 10).'<span class="LC_metadata">
<input type="radio" name="'.$field_name.'_onlyone" value="single" '.$single_checked.'/>	<input type="radio" name="'.$field_name.'_onlyone" value="single"'.$single_checked.' />
Student may select only one choice from list</span></td>';	'.&mt('Student may select only one choice from list').'</span></td>';
$output .= &Apache::loncommon::end_data_table_row();	$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 3643 sub order_meta_fields {	Line 4025 sub order_meta_fields {
$r->print('</table>');	$r->print('</table>');
return 'ok';	return 'ok';
}	}


sub continue {	sub continue {
my $output;	my $output;
$output .= '<form action="" method="post">';	$output .= '<form action="" method="post">';
Line 3650 sub continue {	Line 4034 sub continue {
$output .= '<input type="submit" value="Continue" />';	$output .= '<input type="submit" value="Continue" />';
return ($output);	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'};
Line 3696 sub addmetafield {	Line 4084 sub addmetafield {
}	}
$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'};
Line 3779 ENDenv	Line 4172 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 ($cid) = @_;
my %fields;	my %fields;
Line 3792 sub get_added_meta_fieldnames {	Line 4187 sub get_added_meta_fieldnames {
}	}
return \%fields;	return \%fields;
}	}



sub get_deleted_meta_fieldnames {	sub get_deleted_meta_fieldnames {
my ($cid) = @_;	my ($cid) = @_;
my %fields;	my %fields;
Line 3809 sub get_deleted_meta_fieldnames {	Line 4207 sub get_deleted_meta_fieldnames {
sub defaultsetter {	sub defaultsetter {
my ($r) = @_;	my ($r) = @_;

	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
	text=>"Set Defaults"});
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Parameter Setting Default Actions');	&Apache::loncommon::start_page('Parameter Setting Default Actions');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
Line 3960 ENDYESNO	Line 4360 ENDYESNO
$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('Save Rules')."' /></form>\n".	&mt('Save').'" /></form>'."\n".
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
return;	return;
}	}
Line 4005 sub components {	Line 4405 sub components {
}	}

my %standard_parms;	my %standard_parms;


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>) {
Line 4034 sub standard_parameter_names {	Line 4436 sub standard_parameter_names {
}	}
}	}

#
# Parameter Change Log
#


sub parm_change_log {	sub parm_change_log {
my ($r)=@_;	my ($r)=@_;
	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
	text=>"Parameter Change Log"});
$r->print(&Apache::loncommon::start_page('Parameter Change Log'));	$r->print(&Apache::loncommon::start_page('Parameter Change Log'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));

Line 4202 sub check_for_course_info {	Line 4603 sub check_for_course_info {
return 0;	return 0;
}	}

##################################################
##################################################

=pod

=item * handler

Main handler. Calls &assessparms and &crsenv subroutines.

=cut

##################################################
##################################################

sub handler {	sub handler {
my $r=shift;	my $r=shift;

&reset_caches();	&reset_caches();

if ($r->header_only) {	&Apache::loncommon::content_type($r,'text/html');
&Apache::loncommon::content_type($r,'text/html');	$r->send_http_header;
$r->send_http_header;	return OK if $r->header_only;
return OK;
}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['action','state',	['action','state',
'pres_marker',	'pres_marker',
Line 4249 sub handler {	Line 4636 sub handler {
my $exists = &check_for_course_info();	my $exists = &check_for_course_info();

if ($env{'request.course.id'} && $parm_permission && $exists) {	if ($env{'request.course.id'} && $parm_permission && $exists) {

# Start Page
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;


#	#
# Main switch on form.action and form.state, as appropriate	# Main switch on form.action and form.state, as appropriate
#	#
Line 4262 sub handler {	Line 4643 sub handler {
# the table mode	# the table mode
if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {
&Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
text=>"Problem Parameters"});
&assessparms($r);	&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 ($env{'form.action'} eq 'crsenv') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
text=>"Course Environment"});
&crsenv($r);	&crsenv($r);
} elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {	} elsif ($env{'form.action'} eq 'setoverview') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});
&overview($r);	&overview($r);
} elsif ($env{'form.action'} eq 'addmetadata' && $parm_permission) {	} elsif ($env{'form.action'} eq 'addmetadata') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
text=>"Add Metadata Field"});
&addmetafield($r);	&addmetafield($r);
} elsif ($env{'form.action'} eq 'ordermetadata' && $parm_permission) {	} elsif ($env{'form.action'} eq 'ordermetadata') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
text=>"Add Metadata Field"});
&order_meta_fields($r);	&order_meta_fields($r);
} elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {	} elsif ($env{'form.action'} eq 'setrestrictmeta') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
text=>"Restrict Metadata"});
&setrestrictmeta($r);	&setrestrictmeta($r);
} elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {	} elsif ($env{'form.action'} eq 'newoverview') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});
&newoverview($r);	&newoverview($r);
} elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {	} elsif ($env{'form.action'} eq 'setdefaults') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
text=>"Set Defaults"});
&defaultsetter($r);	&defaultsetter($r);
} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {	} elsif ($env{'form.action'} eq 'settable') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
text=>"Table Mode",
help => 'Course_Setting_Parameters'});
&assessparms($r);	&assessparms($r);
} elsif ($env{'form.action'} eq 'parameterchangelog' && $parm_permission) {	} elsif ($env{'form.action'} eq 'parameterchangelog') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
text=>"Parameter Change Log"});
&parm_change_log($r);	&parm_change_log($r);
} elsif ($env{'form.action'} eq 'cleanparameters' && $parm_permission) {	} elsif ($env{'form.action'} eq 'cleanparameters') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=cleanparameters',
text=>"Clean Parameters"});
&clean_parameters($r);	&clean_parameters($r);
} elsif ($env{'form.action'} eq 'dateshift1' && $parm_permission) {	} elsif ($env{'form.action'} eq 'dateshift1') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
text=>"Shifting Dates"});
&date_shift_one($r);	&date_shift_one($r);
} elsif ($env{'form.action'} eq 'dateshift2' && $parm_permission) {	} elsif ($env{'form.action'} eq 'dateshift2') {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
text=>"Shifting Dates"});
&date_shift_two($r);	&date_shift_two($r);
}	} elsif ($env{'form.action'} eq 'categorizecourse') {
	&assign_course_categories($r);
	}
} else {	} else {
# ----------------------------- Not in a course, or not allowed to modify parms	# ----------------------------- Not in a course, or not allowed to modify parms
if ($exists) {	if ($exists) {
Line 4339 sub handler {	Line 4692 sub handler {
1;	1;
__END__	__END__

=pod

=back

=cut

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

Removed from v.1.395
changed lines
	Added in v.1.434