rat/lonratparms.pm - view

File: [LON-CAPA] / rat / lonratparms.pm
Revision 1.20: download - view: text, annotated - select for diffs
Fri Apr 23 19:39:25 2004 UTC (20 years ago) by www
Branches: MAIN
CVS tags: HEAD

Bug #2944: double listing of randompick (with and without part 0)

1: # The LearningOnline Network with CAPA 2: # Set parameters inside of the RAT 3: # 4: # $Id: lonratparms.pm,v 1.20 2004/04/23 19:39:25 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: 36: sub handler { 37: my $r = shift; 38: &Apache::loncommon::content_type($r,'text/html'); 39: $r->send_http_header; 40: return OK if $r->header_only; 41: 42: # Get query string for limited number of parameters 43: 44: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, 45: ['url','parms','resid']); 46: 47: # ------------------------------------------------------------------- Read file 48: 49: my $uri=$ENV{'form.url'}.'.meta'; 50: 51: my %content; 52: my %type; 53: my %display; 54: my %value; 55: 56: # ---------------------------------------------------------- Current Parameters 57: 58: foreach (split(/\:/,$ENV{'form.parms'})) { 59: my ($ptype,$pname,$pvalue)=split(/\_\_\_/,$_); 60: unless ($type{$pname}) { $type{$pname}=$ptype; } 61: $value{$pname}=$pvalue; 62: $content{$pname}=$pvalue; 63: $type{$pname}=$ptype; 64: $display{$pname}=&mt('Custom Parameter'); 65: } 66: 67: foreach (split(/\,/,&Apache::lonnet::metadata($uri,'keys'))) { 68: if ($_=~/^parameter\_/) { 69: $content{$_}=&Apache::lonnet::metadata($uri,$_); 70: $type{$_}=&Apache::lonnet::metadata($uri,$_.'.type'); 71: $display{$_}=&Apache::lonnet::metadata($uri,$_.'.display'); 72: } 73: } 74: 75: # --------------------------------------------------- Print input screen header 76: my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); 77: my $bodytag=&Apache::loncommon::bodytag('Set Resource Parameters in Map'); 78: my %lt=&Apache::lonlocal::texthash('pa' => 'Parameter', 79: 'de' => 'Default', 80: 'va' => 'Value', 81: 'se' => 'Set'); 82: 83: $r->print(<<ENDHEADER); 84: <html> 85: <head> 86: <title>The LearningOnline Network with CAPA</title> 87: <script language="JavaScript"> 88: 89: function pclose() { 90: parmwin=window.open("/adm/rat/empty.html","LONCAPAparms", 91: "height=350,width=350,scrollbars=no,menubar=no"); 92: parmwin.close(); 93: } 94: 95: $pjump_def 96: 97: function stpr() { 98: eval("document.parameters."+document.parameters.pres_marker.value+ 99: ".value=document.parameters.pres_value.value"); 100: pclose(); 101: } 102: 103: 104: function setparms() { 105: ENDHEADER 106: $r->print('var colon=""; opener.objparms['.$ENV{'form.resid'}.']="";'); 107: map { 108: $r->print("\nif (document.parameters.def_".$_. 109: '.checked) { opener.objparms['.$ENV{'form.resid'}. 110: ']+=colon+"'.$type{$_}. 111: '___'.$_.'___"+document.parameters.'.$_.'.value; colon=":"; }'); 112: } keys %content; 113: $r->print(<<ENDDOCUMENT); 114: opener.save(); 115: window.close(); 116: } 117: </script> 118: </head> 119: $bodytag 120: <form action="javascript:setparms();" method="post" name="parameters"> 121: <input type="hidden" value='' name="pres_value"> 122: <input type="hidden" value='' name="pres_type"> 123: <input type="hidden" value='' name="pres_marker"> 124: <table border=2> 125: <tr><th>$lt{'pa'}</th><th>$lt{'de'}</th><th>$lt{'va'}</th><th>$lt{'se'}?</th></tr> 126: ENDDOCUMENT 127: ### %display=&Apache::lonlocal::texthash(%display); 128: my $enter=&mt('Enter'); 129: foreach (sort(keys(%content))) { 130: my $cur=$content{$_}; 131: # Should if(defined($value{$_})) be if(exists($value{$_})) ? 132: if (defined($value{$_})) { $cur=$value{$_}; }; 133: $r->print(<<"END"); 134: <tr><td><b>$display{$_}</b><br><tt>$_</tt></td> 135: <td> $content{$_}</td> 136: <td><input type="text" size="10" name="$_" value="$cur">  137: <a href='javascript:pjump("$type{$_}","$display{$_}",document.parameters.$_.value,"$_","parameters.pres","stpr");'>$enter</a></td> 138: <td><input type="checkbox" name="def_$_" 139: END 140: if ($value{$_}) { $r->print(' checked'); } 141: $r->print('></td></tr>'); 142: } 143: $r->print( 144: '</table><br><input type="submit" value="'.&mt('Set').'"></form></body></html>'); 145: return OK; 146: } 147: 148: 1; 149: __END__ 150: