[BACK]Return to lonevaluate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface
File:  [LON-CAPA] / loncom / interface / lonevaluate.pm
Revision 1.2: download - view: text, annotated - select for diffs
Thu Dec 6 22:07:30 2001 UTC (22 years, 5 months ago) by www
Branches: MAIN
CVS tags: HEAD
Humble beginnings

    1: # The LearningOnline Network
    2: # Evaluate
    3: #
    4: # $Id: lonevaluate.pm,v 1.2 2001/12/06 22:07:30 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: # (Internal Server Error Handler
   29: #
   30: # (Login Screen
   31: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
   32: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
   33: #
   34: # 3/1/1 Gerd Kortemeyer)
   35: #
   36: # 3/1,12/6 Gerd Kortemeyer
   37: #
   38: package Apache::lonevaluate;
   39: 
   40: use strict;
   41: use Apache::Constants qw(:common);
   42: 
   43: sub handler {
   44:     my $r = shift;
   45:     $r->content_type('text/html');
   46:     $r->send_http_header;
   47:     return OK if $r->header_only;
   48: 
   49: # --------------------------------------------------- Print login screen header
   50:   
   51:     my $standardoptions=(<<ENDOPTIONS);
   52: <option value=0>-</option>
   53: <option value=1>Strongly Disagree</option>
   54: <option value=2>Disagree</option>
   55: <option value=3>Neutral</option>
   56: <option value=4>Agree</option>
   57: <option value=5>Strongly Agree</option>
   58: ENDOPTIONS
   59: 
   60:     my $dialold='';
   61:     my $oldcomments='';
   62: 
   63:     $r->print(<<ENDDOCUMENT);
   64: <html>
   65: <head>
   66: <title>The LearningOnline Network with CAPA</title>
   67: </head>
   68: <body bgcolor="#FFFFFF">
   69: <h1>Evaluate Resource</h1>
   70: Please rank the following criteria:
   71: <form method=post>
   72: <input type=hidden name=submiteval value=true>
   73: The material appears to be correct
   74: <br><select name=correct>
   75: $standardoptions
   76: </select>
   77: <hr>
   78: The material is helpful
   79: <br><select name=helpful>
   80: $standardoptions
   81: </select>
   82: <hr>
   83: The material is covered with sufficient depth
   84: <br><select name=depth>
   85: $standardoptions
   86: </select>
   87: <hr>
   88: The material is presented in a clear way
   89: <br><select name=clear>
   90: $standardoptions
   91: </select>
   92: <hr>
   93: The resource is technically correct 
   94: (loads fast enough, does not produce errors, links work, etc) 
   95: <br><select name=depth>
   96: $standardoptions
   97: </select>
   98: <hr>
   99: Any comments?
  100: <br><textarea name=comments cols=40 rows=5>$oldcomments</textarea>
  101: $dialold
  102: </form>
  103: </body>
  104: </html>
  105: ENDDOCUMENT
  106:     return OK;
  107: } 
  108: 
  109: 1;
  110: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>