[BACK]Return to lonratparms.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat
File:  [LON-CAPA] / rat / lonratparms.pm
Revision 1.29: download - view: text, annotated - select for diffs
Thu Dec 8 22:11:48 2011 UTC (12 years, 4 months ago) by www
Branches: MAIN
CVS tags: version_2_12_X, version_2_11_X, version_2_11_4_uiuc, version_2_11_4_msu, version_2_11_4, version_2_11_3_uiuc, version_2_11_3_msu, version_2_11_3, version_2_11_2_uiuc, version_2_11_2_msu, version_2_11_2_educog, version_2_11_2, version_2_11_1, version_2_11_0_RC3, version_2_11_0_RC2, version_2_11_0_RC1, version_2_11_0, HEAD, BZ4492-merge, BZ4492-feature_horizontal_radioresponse, BZ4492-feature_Support_horizontal_radioresponse
Modal window

    1: # The LearningOnline Network with CAPA
    2: # Set parameters inside of the RAT
    3: #
    4: # $Id: lonratparms.pm,v 1.29 2011/12/08 22:11:48 www 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:     $pjump_def
   88: 
   89:     function stpr() {
   90:         eval("document.parameters."+document.parameters.pres_marker.value+
   91:             ".value=document.parameters.pres_value.value");
   92:         modalWindow.close();
   93:     }
   94: 
   95: 
   96: function setparms() {
   97: ENDHEADER
   98:     $js .= 'var colon=""; opener.objparms['.$env{'form.resid'}.']="";';
   99:     foreach my $key (keys(%content)) {
  100: 	$js .= "\nif (document.parameters.def_".$key.
  101:        '.checked) { opener.objparms['.$env{'form.resid'}.
  102:        ']+=colon+"'.$type{$key}.
  103:        '___'.$key.'___"+document.parameters.'.$key.'.value; colon=":"; }'; 
  104:     }
  105:     $js .= '
  106:     opener.save();
  107:     window.close();
  108: }
  109: </script>
  110: ';
  111:     my $start_page =
  112: 	&Apache::loncommon::start_page('Set Resource Parameters in Map',$js);
  113: 
  114:     $r->print(<<ENDDOCUMENT);
  115: $start_page
  116: <form action="javascript:setparms();" method="post" name="parameters">
  117: <input type="hidden" value="" name="pres_value" />
  118: <input type="hidden" value="" name="pres_type" />
  119: <input type="hidden" value="" name="pres_marker" />
  120: <table border="2">
  121: <tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}</th></tr>
  122: ENDDOCUMENT
  123: 
  124: ###    %display=&Apache::lonlocal::texthash(%display);
  125:     my $enter=&mt('Enter');
  126:     foreach my $key (sort(keys(%content))) {
  127:         my $cur=$content{$key};
  128:         # Should if(defined($value{$key})) be if(exists($value{$key})) ?
  129:         if (defined($value{$key})) { $cur=$value{$key}; };
  130:         $r->print(<<"END");
  131: <tr><td><b>$display{$key}</b><br /><tt>$key</tt></td>
  132: <td>&nbsp;$content{$key}</td>
  133: <td><input type="text" size="10" name="$key" value="$cur" />&nbsp;
  134: <a href='javascript:pjump("$type{$key}","$display{$key}",document.parameters.$key.value,"$key","parameters.pres","stpr");'>$enter</a></td>
  135: <td><input type="checkbox" name="def_$key" 
  136: END
  137:         if ($value{$key}) { $r->print(' checked="checked"'); }
  138:         $r->print(' /></td></tr>');
  139:     }
  140:     $r->print('</table><br />
  141:                <input type="submit" value="'.&mt('Set').'" /></form>'.
  142: 	      &Apache::loncommon::end_page());
  143:     return OK;
  144: } 
  145: 
  146: 1;
  147: __END__
  148: 
  149: 
  150: 
  151: =head1 NAME
  152: 
  153: Apache::lonratparams
  154: 
  155: =head1 SYNOPSIS
  156: 
  157: Handler to set resource parameters inside of
  158: the RAT based on metadata.
  159: 
  160: This is part of the LearningOnline Network with CAPA project
  161: described at http://www.lon-capa.org.
  162: 
  163: =head1 HANDLER SUBROUTINE
  164: 
  165: handler()
  166: 
  167: =head1 OTHER SUBROUTINES
  168: 
  169: =over
  170: 
  171: =item *
  172: 
  173: none
  174: 
  175: =back
  176: 
  177: =cut
  178:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>