[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /homework inputtags.pm
From: albertel <lon-capa-cvs-allow () mail ! lon-capa ! org>
Date: 2007-05-29 21:14:46
Message-ID: cvsalbertel1180473286 () cvsserver
[Download RAW message or body]
albertel Tue May 29 17:14:46 2007 EDT
Modified files:
/loncom/homework inputtags.pm
Log:
- bug#5282, add a close window button
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.225 loncom/homework/inputtags.pm:1.226
--- loncom/homework/inputtags.pm:1.225 Mon May 21 19:09:57 2007
+++ loncom/homework/inputtags.pm Tue May 29 17:14:45 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.225 2007/05/21 23:09:57 albertel Exp $
+# $Id: inputtags.pm,v 1.226 2007/05/29 21:14:45 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1180,7 +1180,7 @@
my ($match,$which) = &find_which_previous($i);
$message=$previousmsg;
my $previous = $count_lookup{$which};
- $message =~ s{(</td>)}{ as submission # $previous $1};
+ $message =~ s{(</td>)}{ as submission \# $previous $1};
} elsif ($Apache::lonhomework::history{"$prefix.tries"}) {
if (!(lc($Apache::lonhomework::problemstatus) eq 'no'
&& $Apache::inputtags::status[-1] ne 'SHOW_ANSWER')
@@ -1228,6 +1228,8 @@
$output=~s/\\/\\\\/g;
$output=~s/\'/\\\'/g;
$output=~s/\s+/ /g;
+ $output.='<br /><form action=""><center><input type="button" name="close" \
value="'.&mt('Close Window').'" onClick="window.close()" /></center></form>'; +
my $windowopen=&Apache::lonhtmlcommon::javascript_docopen();
my $start_page =
&Apache::loncommon::start_page('Previous Tries', undef,
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic