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

Diff for /loncom/interface/lonparmset.pm between versions 1.82 and 1.103

version 1.82, 2003/01/19 11:55:14 version 1.103, 2003/06/19 21:49:53
Line 56  package Apache::lonparmset; Line 56  package Apache::lonparmset;
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
   use Apache::lonhtmlcommon();
 use Apache::loncommon;  use Apache::loncommon;
 use GDBM_File;  use GDBM_File;
 use Apache::lonhomework;  use Apache::lonhomework;
Line 284  sub plink { Line 285  sub plink {
   
   
 sub startpage {  sub startpage {
     my ($r,$id,$udom,$csec,$uname)=@_;      my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
     $r->content_type('text/html');  
     $r->send_http_header;  
    
     my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',      my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','',
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
     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 $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
     $r->print(<<ENDHEAD);      $r->print(<<ENDHEAD);
 <html>  <html>
 <head>  <head>
Line 306  sub startpage { Line 305  sub startpage {
         parmwin.close();          parmwin.close();
     }      }
   
     function pjump(type,dis,value,marker,ret,call) {      $pjump_def
         document.parmform.pres_marker.value='';  
         parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)  
                  +"&value="+escape(value)+"&marker="+escape(marker)  
                  +"&return="+escape(ret)  
                  +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",  
                  "height=350,width=350,scrollbars=no,menubar=no");  
   
     }  
   
     function psub() {      function psub() {
         pclose();          pclose();
Line 350  sub startpage { Line 341  sub startpage {
 $selscript  $selscript
 </head>  </head>
 $bodytag  $bodytag
   
 <form method="post" action="/adm/parmset" name="envform">  <form method="post" action="/adm/parmset" name="envform">
 <h3>Course Environment</h3>  <h3>Course Environment</h3>
 <input type="submit" name="crsenv" value="Set Course Environment">  <input type="submit" name="crsenv" value="Set Course Environment">
 </form>  </form>
   <hr />
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h3>Course Assessments</h3>  <h3>Course Assessments</h3>
   
   <a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a
   simpler interface to set open, due, or answer open dates for problems or
   sequences.<br />&nbsp;<br />
   ENDHEAD
   
       if (!$have_assesments) {
    $r->print('<font color="red">There are no assesment parameters in this course to set.</font><br />');
       } else {
    $r->print(<<ENDHEAD);
 <b>  <b>
 Section/Group:  Section/Group:
 <input type="text" value="$csec" size="6" name="csec">  <input type="text" value="$csec" size="6" name="csec">
Line 371  $chooseopt Line 374  $chooseopt
 <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">
 ENDHEAD  ENDHEAD
       }
 }  }
   
 sub print_row {  sub print_row {
Line 692  sub assessparms { Line 695  sub assessparms {
  my $url=$ENV{'form.url'};   my $url=$ENV{'form.url'};
  $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;   $url=~s-^http://($ENV{'SERVER_NAME'}|$ENV{'HTTP_HOST'})--;
  $pssymb=&Apache::lonnet::symbread($url);   $pssymb=&Apache::lonnet::symbread($url);
  @pscat='all';   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
     } elsif ($ENV{'form.symb'}) {      } elsif ($ENV{'form.symb'}) {
  $pssymb=$ENV{'form.symb'};   $pssymb=$ENV{'form.symb'};
  @pscat='all';   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
     } else {      } else {
Line 725  sub assessparms { Line 728  sub assessparms {
  "<font color=red>Unknown user '$uname' at domain '$udom'</font>";   "<font color=red>Unknown user '$uname' at domain '$udom'</font>";
     $uname='';      $uname='';
         } else {          } else {
     $csec=&Apache::lonnet::usection($udom,$uname,      $csec=&Apache::lonnet::getsection($udom,$uname,
     $ENV{'request.course.id'});        $ENV{'request.course.id'});
     if ($csec eq '-1') {      if ($csec eq '-1') {
  $message="<font color=red>".   $message="<font color=red>".
     "User '$uname' at domain '$udom' not ".      "User '$uname' at domain '$udom' not ".
Line 766  sub assessparms { Line 769  sub assessparms {
   
     $mapp{'0.0'} = '';      $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';      $symbp{'0.0'} = '';
   
 # ---------------------------------------------------------- Anything to store?  # ---------------------------------------------------------- Anything to store?
     if ($ENV{'form.pres_marker'}) {      if ($ENV{'form.pres_marker'}) {
  my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});   my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
Line 882  sub assessparms { Line 886  sub assessparms {
     if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}      if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);}
 # ------------------------------------------------------------------ Start page  # ------------------------------------------------------------------ Start page
   
     &startpage($r,$id,$udom,$csec,$uname);      my $have_assesments=1;
       if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
   
       &startpage($r,$id,$udom,$csec,$uname,$have_assesments);
   
       if (!$have_assesments) { return ''; }
 #    if ($ENV{'form.url'}) {  #    if ($ENV{'form.url'}) {
 # $r->print('<input type="hidden" value="'.$ENV{'form.url'}.  # $r->print('<input type="hidden" value="'.$ENV{'form.url'}.
 #  '" name="url"><input type="hidden" name="command" value="set">');  #  '" name="url"><input type="hidden" name="command" value="set">');
Line 897  sub assessparms { Line 906  sub assessparms {
   
     $r->print('<h2>'.$message.'</h2><table>');      $r->print('<h2>'.$message.'</h2><table>');
                                                   
     $r->print('<tr><td><hr /></td></tr>');  
   
     my $submitmessage;      my $submitmessage;
     if (($prevvisit) || ($pschp) || ($pssymb)) {  
         $submitmessage = "Update Display";  
     } else {  
         $submitmessage = "Display";  
     }  
     if (!$pssymb) {      if (!$pssymb) {
         $r->print('<tr><td>Select Parameter Level</td><td>');          $r->print('<tr><td>Select Parameter Level</td><td colspan="2">');
         $r->print('<select name="parmlev">');          $r->print('<select name="parmlev">');
         foreach (reverse sort keys %alllevs) {          foreach (reverse sort keys %alllevs) {
             $r->print('<option value="'.$alllevs{$_}.'"');              $r->print('<option value="'.$alllevs{$_}.'"');
Line 916  sub assessparms { Line 918  sub assessparms {
             $r->print('>'.$_.'</option>');              $r->print('>'.$_.'</option>');
         }          }
         $r->print("</select></td>\n");          $r->print("</select></td>\n");
       
         $r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');  
   
         $r->print('</tr><tr><td><hr /></td>');          $r->print('</tr>');
   
         $r->print('<tr><td>Select Enclosing Map or Folder</td>');          $r->print('<tr><td>Select Enclosing Map or Folder</td>');
         $r->print('<td colspan="2"><select name="pschp">');          $r->print('<td colspan="2"><select name="pschp">');
Line 940  sub assessparms { Line 940  sub assessparms {
   
     $r->print('<tr><td colspan="3"><hr /><input type="checkbox"');      $r->print('<tr><td colspan="3"><hr /><input type="checkbox"');
     if ($showoptions eq 'show') {$r->print(" checked ");}      if ($showoptions eq 'show') {$r->print(" checked ");}
     $r->print(' name="showoptions" value="show" onclick="form.submit();">Show More Options<hr /></td></tr>');      $r->print(' name="showoptions" value="show">Show More Options<hr /></td></tr>');
 #    $r->print("<tr><td>Show: $showoptions</td></tr>");  #    $r->print("<tr><td>Show: $showoptions</td></tr>");
 #    $r->print("<tr><td>pscat: @pscat</td></tr>");  #    $r->print("<tr><td>pscat: @pscat</td></tr>");
 #    $r->print("<tr><td>psprt: @psprt</td></tr>");  #    $r->print("<tr><td>psprt: @psprt</td></tr>");
Line 1025  sub assessparms { Line 1025  sub assessparms {
         }          }
   
     }      }
     $r->print('</table>');      $r->print('</table><br />');
       if (($prevvisit) || ($pschp) || ($pssymb)) {
           $submitmessage = "Update Course Assessment Parameter Display";
       } else {
           $submitmessage = "Set Course Assessment Parameters";
       }
       $r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');
   
 #    my @temp_psprt;  #    my @temp_psprt;
 #    foreach my $t (@psprt) {  #    foreach my $t (@psprt) {
Line 1048  sub assessparms { Line 1054  sub assessparms {
         my $csuname=$ENV{'user.name'};          my $csuname=$ENV{'user.name'};
         my $csudom=$ENV{'user.domain'};          my $csudom=$ENV{'user.domain'};
   
   
         if ($parmlev eq 'full' || $parmlev eq 'brief') {          if ($parmlev eq 'full' || $parmlev eq 'brief') {
   
            my $coursespan=$csec?8:5;             my $coursespan=$csec?8:5;
            $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>');
Line 1070  ENDTABLETWO Line 1074  ENDTABLETWO
            }             }
            $r->print(<<ENDTABLEHEADFOUR);             $r->print(<<ENDTABLEHEADFOUR);
 </tr><tr><th>Assessment URL and Title</th><th>Type</th>  </tr><tr><th>Assessment URL and Title</th><th>Type</th>
 <th>Enclosing Map or Folder</th><th>Part No.</th><th>Parameter Name</th>  <th>Enclosing Map or Folder</th><th>Part</th><th>Parameter Name</th>
 <th>default</th><th>from Enclosing Map or Folder</th>  <th>default</th><th>from Enclosing Map or Folder</th>
 <th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>  <th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>
 ENDTABLEHEADFOUR  ENDTABLEHEADFOUR
Line 1438  sub crsenv { Line 1442  sub crsenv {
     ('url'            => '<b>Top Level Map</b> '.      ('url'            => '<b>Top Level Map</b> '.
                                  '<a href="javascript:openbrowser'.                                   '<a href="javascript:openbrowser'.
                                  "('envform','url','sequence')\">".                                   "('envform','url','sequence')\">".
                                  'Browse</a><br /><font color=red> '.                                   'Select Map</a><br /><font color=red> '.
                                  'Modification may make assessment data '.                                   'Modification may make assessment data '.
                                  'inaccessible</font>',                                   'inaccessible</font>',
              'description'    => '<b>Course Description</b>',               'description'    => '<b>Course Description</b>',
Line 1447  sub crsenv { Line 1451  sub crsenv {
              'default_xml_style' => '<b>Default XML Style File</b> '.               'default_xml_style' => '<b>Default XML Style File</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','default_xml_style'".                      "('envform','default_xml_style'".
                     ",'sty')\">Browse</a><br>",                      ",'sty')\">Select Style File</a><br>",
              'question.email' => '<b>Feedback Addresses for Resource Content '.               'question.email' => '<b>Feedback Addresses for Resource Content '.
                                  'Questions</b><br />(<tt>user:domain,'.                                   'Questions</b><br />(<tt>user:domain,'.
                                  'user:domain(section;section;...;*;...),...</tt>)',                                   'user:domain(section;section;...;*;...),...</tt>)',
Line 1458  sub crsenv { Line 1462  sub crsenv {
              'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.               'hideemptyrows'  => '<b>Hide Empty Rows in Spreadsheets</b><br />'.
                                  '("<tt>yes</tt>" for default hiding)',                                   '("<tt>yes</tt>" for default hiding)',
              'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.               'pageseparators'  => '<b>Visibly Separate Items on Pages</b><br />'.
                                  '("<tt>yes</tt>" for visible separation)',                                   '("<tt>yes</tt>" for visible separation, '.
                                    'changes will not show until next login)',
              'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.               'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
                                   'Roles</b><br />"<tt>st</tt>": '.                                    'Roles</b><br />"<tt>st</tt>": '.
                                   'student, "<tt>ta</tt>": '.                                    'student, "<tt>ta</tt>": '.
Line 1472  sub crsenv { Line 1477  sub crsenv {
                  => '<b>Default Course Spreadsheet</b> '.                   => '<b>Default Course Spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_classcalc'".                      "('envform','spreadsheet_default_classcalc'".
                     ",'spreadsheet')\">Browse</a><br />",                      ",'spreadsheet')\">Select Spreadsheet File</a><br />",
              'spreadsheet_default_studentcalc'                'spreadsheet_default_studentcalc' 
                  => '<b>Default Student Spreadsheet</b> '.                   => '<b>Default Student Spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_calc'".                      "('envform','spreadsheet_default_calc'".
                     ",'spreadsheet')\">Browse</a><br />",                      ",'spreadsheet')\">Select Spreadsheet File</a><br />",
              'spreadsheet_default_assesscalc'                'spreadsheet_default_assesscalc' 
                  => '<b>Default Assessment Spreadsheet</b> '.                   => '<b>Default Assessment Spreadsheet</b> '.
                     '<a href="javascript:openbrowser'.                      '<a href="javascript:openbrowser'.
                     "('envform','spreadsheet_default_assesscalc'".                      "('envform','spreadsheet_default_assesscalc'".
                     ",'spreadsheet')\">Browse</a><br />",                      ",'spreadsheet')\">Select Spreadsheet File</a><br />",
      'allow_limited_html_in_feedback'       'allow_limited_html_in_feedback'
          => '<b>Allow limited HTML in discussion posts</b><br />'.           => '<b>Allow limited HTML in discussion posts</b><br />'.
             '(Set value to yes to allow)'              '(Set value to yes to allow)',
        'rndseed'
            => '<b>Randomization algorithm used</b> <br />'.
                       '<font color="red">Modifying this will make problems '.
                       'have different numbers and answers</font>',
                'problem_stream_switch'
                    => '<b>Allow problems to be splitted over pages</b><br />'.
                       ' (<tt><b>yes</b> if allow anything else if not</tt>)'
              );               );
  foreach (keys(%values)) {   foreach (keys(%values)) {
     unless ($descriptions{$_}) {      unless ($descriptions{$_}) {
Line 1562  ENDENV Line 1574  ENDENV
   
 =pod  =pod
   
 =item handler  =item * handler
   
 Main handler.  Calls &assessparms and &crsenv subroutines.  Main handler.  Calls &assessparms and &crsenv subroutines.
   
Line 1570  Main handler.  Calls &assessparms and &c Line 1582  Main handler.  Calls &assessparms and &c
   
 ##################################################  ##################################################
 ##################################################  ##################################################
       use Data::Dumper;
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
   
Line 1579  sub handler { Line 1592  sub handler {
  return OK;   return OK;
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
   
       $r->content_type('text/html');
       $r->send_http_header;
 # ----------------------------------------------------- Needs to be in a course  # ----------------------------------------------------- Needs to be in a course
   
     if (($ENV{'request.course.id'}) &&       if (($ENV{'request.course.id'}) && 
Removed from v.1.82  
changed lines
  Added in v.1.103

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