--- loncom/interface/lonparmset.pm 2005/06/07 15:21:03 1.217
+++ loncom/interface/lonparmset.pm 2005/06/17 18:11:42 1.224
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.217 2005/06/07 15:21:03 albertel Exp $
+# $Id: lonparmset.pm,v 1.224 2005/06/17 18:11:42 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -70,6 +70,8 @@ my $parmhashid;
my %parmhash;
my $symbsid;
my %symbs;
+my $rulesid;
+my %rules;
# --- end local caches
@@ -240,6 +242,24 @@ sub symbcache {
return $symbs{$id};
}
+sub resetrulescache {
+ $rulesid='';
+}
+
+sub rulescache {
+ my $id=shift;
+ if ($rulesid ne $env{'request.course.id'}) {
+ %rules=();
+ }
+ unless (defined($rules{$id})) {
+ my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+ %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
+ $rulesid=$env{'request.course.id'};
+ }
+ return $rules{$id};
+}
+
##################################################
##################################################
#
@@ -776,8 +796,18 @@ sub parmmenu {
checkthis('duedate','pscat');
checkthis('opendate','pscat');
checkthis('answerdate','pscat');
- checkthis('interval','pscat');
- }
+ }
+
+ function checkdisset() {
+ checkthis('discussend','pscat');
+ checkthis('discusshide','pscat');
+ }
+
+ function checkcontdates() {
+ checkthis('contentopen','pscat');
+ checkthis('contentclose','pscat');
+ }
+
function checkvisi() {
checkthis('hiddenresource','pscat');
@@ -820,12 +850,14 @@ ENDSCRIPT
}
$r->print('
-Select All
-Select Standard
+Select All
+Select Common Only
|
-Select Dates
-Select Visibilities
-Select Part Parameters
+Add Problem Dates
+Add Content Dates
+Add Discussion Settings
+Add Visibilities
+Add Part Parameters
|
Unselect All
|
@@ -1004,7 +1036,9 @@ sub standardkeyorder {
'parameter_0_ordered' => 15,
'parameter_0_tol' => 16,
'parameter_0_sig' => 17,
- 'parameter_0_turnoffunit' => 18);
+ 'parameter_0_turnoffunit' => 18,
+ 'parameter_0_discussend' => 19,
+ 'parameter_0_discusshide' => 20);
}
##################################################
@@ -2135,9 +2169,23 @@ sub listdata {
$r->print(
&Apache::lonhtmlcommon::date_setter('overviewform',
$jskey,
- $$resourcedata{$thiskey}).
+ $$resourcedata{$thiskey},
+ '',1).
''
);
+ } elsif ($thistype eq 'string_yesno') {
+ $r->print(' ');
+ $r->print('');
} else {
$r->print('');
@@ -2477,11 +2525,10 @@ ENDMAINFORMHEAD
permission => $parm_permission,
help => 'Cascading_Parameters',
},
-# { text => 'Set Parameter Default Preferences',
-# help => 'Course_View_Class_List',
-# action => 'setdefaults',
-# permission => $parm_permission,
-# },
+ { text => 'Set Parameter Setting Default Actions',
+ action => 'setdefaults',
+ permission => $parm_permission,
+ },
);
my $menu_html = '';
foreach my $menu_item (@menu) {
@@ -2506,7 +2553,143 @@ ENDMAINFORMHEAD
}
+##################################################
+sub defaultsetter {
+ my $r=shift;
+ my $bodytag=&Apache::loncommon::bodytag('Parameter Setting Default Actions');
+ my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+ my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Defaults');
+ my $html=&Apache::lonxml::xmlbegin();
+ $r->print(<
+LON-CAPA Parameters
+
+$bodytag
+$breadcrumbs
+\n