[BACK]Return to lonevaluate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonevaluate.pm between versions 1.16 and 1.17

version 1.16, 2005/02/17 08:50:20 version 1.17, 2005/04/07 06:56:23
Line 25 Line 25
 #  #
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # (Internal Server Error Handler  
 #  
 # (Login Screen  
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,  
 # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)  
 #  
 # 3/1/1 Gerd Kortemeyer)  
 #  
 # 3/1,12/6,12/12,12/21,12/22 Gerd Kortemeyer  
 #  
 package Apache::lonevaluate;  package Apache::lonevaluate;
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
Line 50  sub handler { Line 41  sub handler {
     return OK if $r->header_only;      return OK if $r->header_only;
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
     my $feedurl=$ENV{'form.postdata'};      my $feedurl=$env{'form.postdata'};
     $feedurl=~s/^http\:\/\///;      $feedurl=~s/^http\:\/\///;
     $feedurl=~s/^$ENV{'SERVER_NAME'}//;      $feedurl=~s/^$ENV{'SERVER_NAME'}//;
     $feedurl=~s/^$ENV{'HTTP_HOST'}//;      $feedurl=~s/^$ENV{'HTTP_HOST'}//;
Line 62  sub handler { Line 53  sub handler {
   
     my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//);      my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//);
   
     my $prefix=$ENV{'user.name'}.'@'.$ENV{'user.domain'}.'___'.      my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'.
  $feedurl.'___';   $feedurl.'___';
   
     my @items=('correct','helpful','depth','clear','technical','comments',      my @items=('correct','helpful','depth','clear','technical','comments',
Line 75  sub handler { Line 66  sub handler {
   
     my $already=($currenteval{$prefix.'timestamp'} ne '');      my $already=($currenteval{$prefix.'timestamp'} ne '');
   
     $ENV{'form.timestamp'}=time;      $env{'form.timestamp'}=time;
   
     my $warning='';      my $warning='';
   
     my $bodytag=&Apache::loncommon::bodytag('Evaluate Resource');      my $bodytag=&Apache::loncommon::bodytag('Evaluate Resource');
   
     if ($ENV{'form.submiteval'} eq 'true') {      if ($env{'form.submiteval'} eq 'true') {
 # ------------------------------------------------ User is submitting something  # ------------------------------------------------ User is submitting something
         my $complete=1;          my $complete=1;
  foreach my $item (@items) {   foreach my $item (@items) {
     if ($ENV{'form.'.$item}) {      if ($env{'form.'.$item}) {
  $currenteval{$prefix.$item}=$ENV{'form.'.$item};   $currenteval{$prefix.$item}=$env{'form.'.$item};
             } elsif ($item ne 'comments') {              } elsif ($item ne 'comments') {
                 $complete=0;                  $complete=0;
             }              }
Removed from v.1.16  
changed lines
  Added in v.1.17

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