[WWcvs] ww_question_server: Fixed Bugs

[Matt L. v. a. <we...@ma...>]

Log Message:
-----------
Fixed Bugs

Modified Files:
--------------
    ww_question_server/bin/setup:
        setup.pl
    ww_question_server/lib:
        ProblemServer.pm

Revision Data
-------------
Index: setup.pl
===================================================================
RCS file: /webwork/cvs/system/ww_question_server/bin/setup/setup.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -Lbin/setup/setup.pl -Lbin/setup/setup.pl -u -r1.5 -r1.6
--- bin/setup/setup.pl
+++ bin/setup/setup.pl
@@ -266,6 +266,11 @@
     system('mv WSDL.wsdl ' . $root . '/htdocs/WSDL.wsdl');
 }
 
+print "Setting Directory Permissions\n";
+system("chmod -R 777 $root/tmp");
+system("chmod -R 777 $root/htdocs/tmp");
+print "Done\n";
+
 print "********************************\n";
 print "Your WSDL path: '" . $hostname . $files . '/'.$wsdlfilename."'\n";
 print "********************************\n";
Index: ProblemServer.pm
===================================================================
RCS file: /webwork/cvs/system/ww_question_server/lib/ProblemServer.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -Llib/ProblemServer.pm -Llib/ProblemServer.pm -u -r1.10 -r1.11
--- lib/ProblemServer.pm
+++ lib/ProblemServer.pm
@@ -51,7 +51,7 @@
     #Construct the Server Environment
     my $serverEnviron = new ProblemServer::Environment();
 
-    $SIG{__WARN__} = sub { $self->{warnings} .= shift };
+    #$SIG{__WARN__} = sub { $self->{warnings} .= shift };
 
     #Keep the Default Server Environment
     $self->{serverEnviron} = $serverEnviron;