version 1.52, 2001/12/04 14:53:18
|
version 1.54, 2001/12/07 23:59:08
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# various response type definitons response definition |
# various response type definitons response definition |
|
# |
|
# $Id$ |
|
# |
|
# 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/ |
|
# |
# 11/23,11/24,11/28 Gerd Kortemeyer |
# 11/23,11/24,11/28 Gerd Kortemeyer |
# Guy Albertelli |
# Guy Albertelli |
# 08/04,08/07 Gerd Kortemeyer |
# 08/04,08/07 Gerd Kortemeyer |
Line 169 sub check_for_previous {
|
Line 193 sub check_for_previous {
|
return %previous; |
return %previous; |
} |
} |
|
|
|
sub handle_previous { |
|
my ($previous,$ad)=@_; |
|
if ($$previous{'used'} && ($$previous{'award'} eq $ad) ) { |
|
if ($$previous{'last'}) { |
|
push(@Apache::inputtags::previous,'PREVIOUSLY_LAST'); |
|
} else { |
|
push(@Apache::inputtags::previous,'PREVIOUSLY_USED'); |
|
} |
|
} |
|
} |
|
|
sub start_caparesponse { |
sub start_caparesponse { |
require Apache::caparesponse; |
require Apache::caparesponse; |
import Apache::caparesponse; |
import Apache::caparesponse; |