[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 11 Apr 2006 21:08:29 -0000
albertel Tue Apr 11 17:08:29 2006 EDT
Modified files:
/loncom/homework lonhomework.pm
Log:
- eliminating old dead code
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.238 loncom/homework/lonhomework.pm:1.239
--- loncom/homework/lonhomework.pm:1.238 Tue Apr 11 17:05:54 2006
+++ loncom/homework/lonhomework.pm Tue Apr 11 17:08:29 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.238 2006/04/11 21:05:54 albertel Exp $
+# $Id: lonhomework.pm,v 1.239 2006/04/11 21:08:29 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -941,25 +941,6 @@
return '';
}
-sub view_or_edit_menu {
- my ($request) = @_;
- my $url=&HTML::Entities::encode($request->uri,'<>&"');
- my %lt=&Apache::lonlocal::texthash( 'would' => 'Would you like to',
- 'view' => 'View',
- 'Edit' => 'edit',
- 'or' => 'or',
- 'the problem' => 'the problem');
- $request->print(<<EDITMENU);
-<body bgcolor="#FFFFFF">
-<form action="$url" method="POST">
-$lt{'would'} <input type="submit" name="problemmode" accesskey="v" value="<{'view'}">
-<{'or'} <input type="submit" name="problemmode" accesskey="e" value="<{'Edit'}">
-<{'the problem'}.
-</form>
-</body>
-EDITMENU
-}
-
sub handler {
#my $t0 = [&gettimeofday()];
my $request=$_[0];
@@ -997,7 +978,6 @@
['problemmode']);
if (!(defined $env{'form.problemmode'})) {
#first visit to problem in construction space
- #&view_or_edit_menu($request);
$env{'form.problemmode'}='View';
&renderpage($request,$file);
} elsif ($env{'form.problemmode'} eq &mt('EditXML') ||