File:  [LON-CAPA] / rat / lonratparms.pm
Revision 1.24: download - view: text, annotated - select for diffs
Tue Apr 4 15:32:12 2006 UTC (17 years, 11 months ago) by albertel
Branches: MAIN
CVS tags: version_2_8_X, version_2_8_2, version_2_8_1, version_2_8_0, version_2_7_X, version_2_7_99_1, version_2_7_99_0, version_2_7_1, version_2_7_0, version_2_6_X, version_2_6_99_1, version_2_6_99_0, version_2_6_3, version_2_6_2, version_2_6_1, version_2_6_0, version_2_5_X, version_2_5_99_1, version_2_5_99_0, version_2_5_2, version_2_5_1, version_2_5_0, version_2_4_X, version_2_4_99_0, version_2_4_2, version_2_4_1, version_2_4_0, version_2_3_X, version_2_3_99_0, version_2_3_2, version_2_3_1, version_2_3_0, version_2_2_X, version_2_2_99_1, version_2_2_99_0, version_2_2_2, version_2_2_1, version_2_2_0, version_2_1_99_3, version_2_1_99_2, version_2_1_99_1, version_2_1_99_0, HEAD, GCI_1
- start_page work
- some $_ elimination
- some xhtml cleanup

    1: # The LearningOnline Network with CAPA
    2: # Set parameters inside of the RAT
    3: #
    4: # $Id: lonratparms.pm,v 1.24 2006/04/04 15:32:12 albertel Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: 
   29: package Apache::lonratparms;
   30: 
   31: use strict;
   32: use Apache::Constants qw(:common);
   33: use Apache::lonhtmlcommon();
   34: use Apache::lonlocal;
   35: use Apache::lonnet;
   36: 
   37: sub handler {
   38:     my $r = shift;
   39:     &Apache::loncommon::content_type($r,'text/html');
   40:     $r->send_http_header;
   41:     return OK if $r->header_only;
   42: 
   43: # Get query string for limited number of parameters
   44: 
   45:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
   46:                                             ['url','parms','resid']);
   47: 
   48: # ------------------------------------------------------------------- Read file
   49: 
   50:   my $uri=$env{'form.url'}.'.meta';
   51:   
   52:   my %content;
   53:   my %type;
   54:   my %display;
   55:   my %value;
   56:   
   57: # ---------------------------------------------------------- Current Parameters
   58: 
   59:   foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) {
   60:       if ($_=~/^parameter\_/) {
   61:          $content{$_}=&Apache::lonnet::metadata($uri,$_);
   62:          $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
   63:          $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
   64:       }
   65:   }
   66: 
   67:   foreach (split(/\:/,$env{'form.parms'})) {
   68:       my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_);
   69:       unless ($pname) { next; }
   70:       unless ($type{$pname}) { $type{$pname}=$ptype; }
   71:       $value{$pname}=$pvalue;
   72:       $content{$pname}=$pvalue;
   73:       $type{$pname}=$ptype;
   74:       $display{$pname}=&mt('Custom Parameter');
   75:   } 
   76:   
   77: # --------------------------------------------------- Print input screen header
   78:     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
   79: 
   80:     my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter',
   81: 			               'de' => 'Default',
   82: 				       'va' => 'Value',
   83: 				       'se' => 'Set');
   84:     my $js = (<<ENDHEADER);
   85: <script type="text/javascript">
   86: 
   87:     function pclose() {
   88:         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
   89:                  "height=350,width=350,scrollbars=no,menubar=no");
   90:         parmwin.close();
   91:     }
   92: 
   93:     $pjump_def
   94: 
   95:     function stpr() {
   96:         eval("document.parameters."+document.parameters.pres_marker.value+
   97:             ".value=document.parameters.pres_value.value");
   98:         pclose();
   99:     }
  100: 
  101: 
  102: function setparms() {
  103: ENDHEADER
  104:     $js .= 'var colon=""; opener.objparms['.$env{'form.resid'}.']="";';
  105:     foreach my $key (keys(%content)) {
  106: 	$js .= "\nif (document.parameters.def_".$key.
  107:        '.checked) { opener.objparms['.$env{'form.resid'}.
  108:        ']+=colon+"'.$type{$key}.
  109:        '___'.$key.'___"+document.parameters.'.$key.'.value; colon=":"; }'; 
  110:     }
  111:     $js .= '
  112:     opener.save();
  113:     window.close();
  114: }
  115: </script>
  116: ';
  117:     my $start_page =
  118: 	&Apache::loncommon::start_page('Set Resource Parameters in Map',$js);
  119: 
  120:     $r->print(<<ENDDOCUMENT);
  121: $start_page
  122: <form action="javascript:setparms();" method="post" name="parameters">
  123: <input type="hidden" value='' name="pres_value">
  124: <input type="hidden" value='' name="pres_type">
  125: <input type="hidden" value='' name="pres_marker">
  126: <table border=2>
  127: <tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr>
  128: ENDDOCUMENT
  129: 
  130: ###    %display=&Apache::lonlocal::texthash(%display);
  131:     my $enter=&mt('Enter');
  132:     foreach my $key (sort(keys(%content))) {
  133:         my $cur=$content{$key};
  134:         # Should if(defined($value{$key})) be if(exists($value{$key})) ?
  135:         if (defined($value{$key})) { $cur=$value{$key}; };
  136:         $r->print(<<"END");
  137: <tr><td><b>$display{$key}</b><br><tt>$key</tt></td>
  138: <td>&nbsp;$content{$key}</td>
  139: <td><input type="text" size="10" name="$key" value="$cur">&nbsp;
  140: <a href='javascript:pjump("$type{$key}","$display{$key}",document.parameters.$key.value,"$key","parameters.pres","stpr");'>$enter</a></td>
  141: <td><input type="checkbox" name="def_$key" 
  142: END
  143:         if ($value{$key}) { $r->print(' checked'); }
  144:         $r->print('></td></tr>');
  145:     }
  146:     $r->print('</table><br />
  147:                <input type="submit" value="'.&mt('Set').'"></form>'.
  148: 	      &Apache::loncommon::end_page());
  149:     return OK;
  150: } 
  151: 
  152: 1;
  153: __END__
  154: 

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