--- loncom/interface/lonevaluate.pm 2001/01/03 16:20:59 1.1 +++ loncom/interface/lonevaluate.pm 2001/12/12 23:46:22 1.3 @@ -1,6 +1,30 @@ # The LearningOnline Network # Evaluate # +# $Id: lonevaluate.pm,v 1.3 2001/12/12 23:46:22 www Exp $ +# +# Copyright Michigan State University Board of Trustees +# +# This file is part of the LearningOnline Network with CAPA (LON-CAPA). +# +# LON-CAPA is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# LON-CAPA is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with LON-CAPA; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# /home/httpd/html/adm/gpl.txt +# +# http://www.lon-capa.org/ +# # (Internal Server Error Handler # # (Login Screen @@ -9,11 +33,12 @@ # # 3/1/1 Gerd Kortemeyer) # -# 3/1 Gerd Kortemeyer +# 3/1,12/6,12/12 Gerd Kortemeyer # package Apache::lonevaluate; use strict; +use Apache::lonnet; use Apache::Constants qw(:common); sub handler { @@ -22,15 +47,81 @@ sub handler { $r->send_http_header; return OK if $r->header_only; -# --------------------------------------------------- Print login screen header + my $feedurl=$ENV{'form.postdata'}; + $feedurl=~s/^http\:\/\///; + $feedurl=~s/^$ENV{'SERVER_NAME'}//; + $feedurl=~s/^$ENV{'HTTP_HOST'}//; + + $feedurl=&Apache::lonnet::declutter($feedurl); + my $symb=&Apache::lonnet::symbread($feedurl); + + my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//); + + my $prefix=$ENV{'user.name.'}.'@'.$ENV{'user.domain'}.'___'. + $feedurl.'___'; + + my @items=('correct','helpful','depth','clear','technical','comments'); + + my @retrieve=map{ $prefix.$_ } @items; + + if ($ENV{'form.submiteval'} eq 'true') { +# ------------------------------------------------ User is submitting something + } +# ------------------------------------------------------- Print out eval screen + my $standardoptions=(<- + + + + + +ENDOPTIONS + + my $dialold=''; + my $oldcomments=''; + $r->print(< The LearningOnline Network with CAPA -

Evaluate

- +

Evaluate Resource

+$feedurl

+Please rank the following criteria: +

+ + +The material appears to be correct +
+
+The material is helpful +
+
+The material is covered with sufficient depth +
+
+The material is presented in a clear way +
+
+The resource is technically correct +(loads fast enough, does not produce errors, links work, etc) +
+
+Any comments? +
+$dialold +
ENDDOCUMENT