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

Diff for /loncom/interface/lonparmset.pm between versions 1.217 and 1.220

version 1.217, 2005/06/07 15:21:03 version 1.220, 2005/06/13 15:35:37
Line 776  sub parmmenu { Line 776  sub parmmenu {
  checkthis('duedate','pscat');   checkthis('duedate','pscat');
   checkthis('opendate','pscat');    checkthis('opendate','pscat');
  checkthis('answerdate','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() {      function checkvisi() {
  checkthis('hiddenresource','pscat');   checkthis('hiddenresource','pscat');
Line 820  ENDSCRIPT Line 830  ENDSCRIPT
     }      }
     $r->print('      $r->print('
 </tr><tr><td>  </tr><tr><td>
 <a href="javascript:checkall(true, \'pscat\')">Select All</a>  <a href="javascript:checkall(true, \'pscat\')">Select All</a><br />
 <a href="javascript:checkstandard()">Select Standard</a>  <a href="javascript:checkstandard()">Select Common Only</a>
 </td><td>  </td><td>
 <a href="javascript:checkdates()">Select Dates</a>  <a href="javascript:checkdates()">Add Problem Dates</a>
 <a href="javascript:checkvisi()">Select Visibilities</a>  <a href="javascript:checkcontdates()">Add Content Dates</a><br />
 <a href="javascript:checkparts()">Select Part Parameters</a>  <a href="javascript:checkdisset()">Add Discussion Settings</a>
   <a href="javascript:checkvisi()">Add Visibilities</a><br />
   <a href="javascript:checkparts()">Add Part Parameters</a>
 </td><td>  </td><td>
 <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>  <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
 </td>  </td>
Line 1004  sub standardkeyorder { Line 1016  sub standardkeyorder {
     'parameter_0_ordered' => 15,      'parameter_0_ordered' => 15,
     'parameter_0_tol' => 16,      'parameter_0_tol' => 16,
     'parameter_0_sig' => 17,      'parameter_0_sig' => 17,
     'parameter_0_turnoffunit' => 18);      'parameter_0_turnoffunit' => 18,
               'parameter_0_discussend' => 19,
               'parameter_0_discusshide' => 20);
 }  }
   
 ##################################################  ##################################################
Line 2135  sub listdata { Line 2149  sub listdata {
  $r->print(   $r->print(
   &Apache::lonhtmlcommon::date_setter('overviewform',    &Apache::lonhtmlcommon::date_setter('overviewform',
       $jskey,        $jskey,
       $$resourcedata{$thiskey}).        $$resourcedata{$thiskey},
         '',1).
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'  '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
   );    );
       } elsif ($thistype eq 'string_yesno') {
    $r->print('<label><input type="radio" name="set_'.$thiskey.
     '" value="yes"');
    if ($$resourcedata{$thiskey} eq 'yes') {
       $r->print(' checked="checked"');
    }
                   $r->print(' />'.&mt('Yes').'</label> ');
    $r->print('<label><input type="radio" name="set_'.$thiskey.
     '" value="no"');
    if ($$resourcedata{$thiskey} eq 'no') {
       $r->print(' checked="checked"');
    }
                   $r->print(' />'.&mt('No').'</label>');
     } else {      } else {
  $r->print('<input type="text" name="set_'.$thiskey.'" value="'.   $r->print('<input type="text" name="set_'.$thiskey.'" value="'.
   $$resourcedata{$thiskey}.'">');    $$resourcedata{$thiskey}.'">');
Line 2477  ENDMAINFORMHEAD Line 2505  ENDMAINFORMHEAD
             permission => $parm_permission,              permission => $parm_permission,
             help => 'Cascading_Parameters',              help => 'Cascading_Parameters',
             },              },
 #          { text => 'Set Parameter Default Preferences',            { text => 'Set Parameter Setting Default Actions',
 #            help => 'Course_View_Class_List',              action => 'setdefaults',
 #            action => 'setdefaults',              permission => $parm_permission,
 #            permission => $parm_permission,              },
 #            },  
           );            );
     my $menu_html = '';      my $menu_html = '';
     foreach my $menu_item (@menu) {      foreach my $menu_item (@menu) {
Line 2506  ENDMAINFORMHEAD Line 2533  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(<<ENDDEFHEAD);
   $html
   <head>
   <title>LON-CAPA Parameters</title>
   </head>
   $bodytag
   $breadcrumbs
   <form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
   ENDDEFHEAD
       my %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
       if ($env{'form.storerules'}) {
    %rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
       }
       
       
       return;
   }
   
 ##################################################  ##################################################
 ##################################################  ##################################################
Line 2520  Main handler.  Calls &assessparms and &c Line 2572  Main handler.  Calls &assessparms and &c
 =cut  =cut
 ##################################################  ##################################################
 ##################################################  ##################################################
     use Data::Dumper;  #    use Data::Dumper;
   
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
   
Line 2587  sub handler { Line 2640  sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
     text=>"Overview Mode"});      text=>"Overview Mode"});
     &newoverview($r);      &newoverview($r);
         } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {          }  elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {
               &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
       text=>"Set Defaults"});
       &defaultsetter($r);
    } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',              &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
     text=>"Table Mode",      text=>"Table Mode",
     help => 'Course_Setting_Parameters'});      help => 'Course_Setting_Parameters'});
Removed from v.1.217  
changed lines
  Added in v.1.220

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