[system] / branches / rel-2-4-dev / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / SetMaker.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-4-dev/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3518 Revision 3519
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.50 2005/08/11 20:27:07 sh002i Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.51 2005/08/11 21:40:55 sh002i Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
… …
807 807
808 my $urlpath = $self->r->urlpath; 808 my $urlpath = $self->r->urlpath;
809 my $problem_output = $pg->{flags}->{error_flag} ? 809 my $problem_output = $pg->{flags}->{error_flag} ?
810 CGI::div({class=>"ResultsWithError"}, CGI::em("This problem produced an error")) 810 CGI::div({class=>"ResultsWithError"}, CGI::em("This problem produced an error"))
811 : CGI::div({class=>"RenderSolo"}, $pg->{body_text}); 811 : CGI::div({class=>"RenderSolo"}, $pg->{body_text});
812 $problem_output .= $pg->{flags}->{comment} if($pg->{flags}->{comment});
812 813
813 814
814 #if($self->{r}->param('browse_which') ne 'browse_library') { 815 #if($self->{r}->param('browse_which') ne 'browse_library') {
815 my $problem_seed = $self->{r}->param('problem_seed') || 0; 816 my $problem_seed = $self->{r}->param('problem_seed') || 0;
816 my $edit_link = CGI::a({href=>$self->systemLink( 817 my $edit_link = CGI::a({href=>$self->systemLink(
Legend:
Removed from v.3518  
changed lines
  Added in v.3519
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9