[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm grades.pm lonsimpleproblemedit.pm /imspackages imsimport.pm /interface loncoursegroups.pm loncreatecourse.pm loncreateuser.pm lonfeedback.pm lonmsgdisplay.pm lonparmset.pm lonpickstudent.pm lonpreferences.pm lonsupportreq.pm /interface/spreadsheet lonspreadsheet.pm /publisher lonpublisher.pm /xml lonxml.pm
bisitz
bisitz at source.lon-capa.org
Mon Jul 15 12:13:36 EDT 2013
bisitz Mon Jul 15 16:13:36 2013 EDT
Modified files:
/loncom/homework bridgetask.pm grades.pm lonsimpleproblemedit.pm
/loncom/imspackages imsimport.pm
/loncom/interface loncreatecourse.pm loncreateuser.pm
lonfeedback.pm lonmsgdisplay.pm
loncoursegroups.pm lonparmset.pm lonsupportreq.pm
lonpreferences.pm lonpickstudent.pm
/loncom/interface/spreadsheet lonspreadsheet.pm
/loncom/publisher lonpublisher.pm
/loncom/xml lonxml.pm
Log:
XHTML: action attribute in <form> tag required (dummy attribute added)
-------------- next part --------------
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.261 loncom/homework/bridgetask.pm:1.262
--- loncom/homework/bridgetask.pm:1.261 Tue Dec 18 16:57:23 2012
+++ loncom/homework/bridgetask.pm Mon Jul 15 16:13:12 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.261 2012/12/18 16:57:23 raeburn Exp $
+# $Id: bridgetask.pm,v 1.262 2013/07/15 16:13:12 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1796,7 +1796,7 @@
$result.=(<<FORM);
<td>$status</td>
<td>
-<form style="display: inline" method="post">
+<form style="display: inline" method="post" action="">
<input type="hidden" name="gradingkey" value="$ekey" />
<input type="hidden" name="queue" value="$queue" />
<input type="hidden" name="gradingaction" value="$action" />
@@ -2215,7 +2215,7 @@
$result.=&Apache::loncommon::start_data_table_row();
$result.=<<RESULT;
<td>
- <form style="display: inline" method="post">
+ <form style="display: inline" method="post" action="">
<input type="hidden" name="gradingkey" value="$todo" />
<input type="hidden" name="queue" value="$queue" />
<input type="hidden" name="webgrade" value="no" />
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.693 loncom/homework/grades.pm:1.694
--- loncom/homework/grades.pm:1.693 Fri Jun 28 22:40:04 2013
+++ loncom/homework/grades.pm Mon Jul 15 16:13:12 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.693 2013/06/28 22:40:04 raeburn Exp $
+# $Id: grades.pm,v 1.694 2013/07/15 16:13:12 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -736,7 +736,7 @@
sub initialverifyreceipt {
my ($request,$symb) = @_;
&commonJSfunctions($request);
- return '<form name="gradingMenu"><input type="submit" value="'.&mt('Verify Receipt Number.').'" />'.
+ return '<form name="gradingMenu" action=""><input type="submit" value="'.&mt('Verify Receipt Number.').'" />'.
&Apache::lonnet::recprefix($env{'request.course.id'}).
'-<input type="text" name="receipt" size="4" />'.
'<input type="hidden" name="symb" value="'.&Apache::lonenc::check_encrypt($symb).'" />'."\n".
@@ -5513,7 +5513,7 @@
&Apache::lonpickcode::code_list($r,2);
- $r->print('<br /><form method="post" name="checkscantron">'.
+ $r->print('<br /><form method="post" name="checkscantron" action="">'.
$default_form_data."\n".
&Apache::loncommon::start_data_table('LC_scantron_action')."\n".
&Apache::loncommon::start_data_table_header_row()."\n".
Index: loncom/homework/lonsimpleproblemedit.pm
diff -u loncom/homework/lonsimpleproblemedit.pm:1.35 loncom/homework/lonsimpleproblemedit.pm:1.36
--- loncom/homework/lonsimpleproblemedit.pm:1.35 Fri May 10 12:48:48 2013
+++ loncom/homework/lonsimpleproblemedit.pm Mon Jul 15 16:13:12 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Simple Problem Parameter Setting "Editor"
#
-# $Id: lonsimpleproblemedit.pm,v 1.35 2013/05/10 12:48:48 raeburn Exp $
+# $Id: lonsimpleproblemedit.pm,v 1.36 2013/07/15 16:13:12 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -315,7 +315,7 @@
.&rawrendering($symb)
.'</div>'
);
- $r->print('<form name="simpleedit" method="post">');
+ $r->print('<form name="simpleedit" method="post" action="">');
# Question Type
my %questiontypes=(
'radio' => '1 out of N multiple choice (radio button)',
Index: loncom/imspackages/imsimport.pm
diff -u loncom/imspackages/imsimport.pm:1.41 loncom/imspackages/imsimport.pm:1.42
--- loncom/imspackages/imsimport.pm:1.41 Mon Jul 15 14:32:51 2013
+++ loncom/imspackages/imsimport.pm Mon Jul 15 16:13:16 2013
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: imsimport.pm,v 1.41 2013/07/15 14:32:51 bisitz Exp $
+# $Id: imsimport.pm,v 1.42 2013/07/15 16:13:16 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -286,7 +286,7 @@
# ---------------------------------------------------------------- Display One
sub display_one {
my ($r,$fn,$fullpath,$formname) = @_;
- $r->print('<form name="'.$formname.'" method="post">'.
+ $r->print('<form name="'.$formname.'" method="post" action="">'.
&Apache::lonhtmlcommon::topic_bar(1,&mt('Specify the Course Management system used to create the package')).
&mt('Choose the CMS used to create your IMS content package.').'
<select name="source">
@@ -396,7 +396,7 @@
$conditions = 'none';
}
- $r->print('<form name="pickoptions" method="post">'.
+ $r->print('<form name="pickoptions" method="post" action="">'.
&Apache::lonhtmlcommon::topic_bar(3,$lt{'cont'}).
&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.148 loncom/interface/loncreatecourse.pm:1.149
--- loncom/interface/loncreatecourse.pm:1.148 Mon Jul 15 14:32:45 2013
+++ loncom/interface/loncreatecourse.pm Mon Jul 15 16:13:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.148 2013/07/15 14:32:45 bisitz Exp $
+# $Id: loncreatecourse.pm,v 1.149 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -280,7 +280,7 @@
'Create_Courses');
$r->print($start_page.$crumbs);
- $r->print('<form action="/adm/createcourse" method="post" name="ccrs"><div class="LC_createcourse">'
+ $r->print('<form action="/adm/createcourse" method="post" name="ccrs" action=""><div class="LC_createcourse">'
.&Apache::lonhtmlcommon::start_pick_box()
.&Apache::lonhtmlcommon::row_headline()
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.379 loncom/interface/loncreateuser.pm:1.380
--- loncom/interface/loncreateuser.pm:1.379 Wed Jul 3 04:04:13 2013
+++ loncom/interface/loncreateuser.pm Mon Jul 15 16:13:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.379 2013/07/03 04:04:13 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.380 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -988,7 +988,7 @@
$r->print('</h3>');
}
}
- $r->print('<form name="usersrchform" method="post">'.
+ $r->print('<form name="usersrchform" method="post" action="">'.
&Apache::loncommon::start_data_table()."\n".
&Apache::loncommon::start_data_table_header_row()."\n".
' <th> </th>'."\n");
@@ -4124,7 +4124,7 @@
$r->print('<br clear="all" />');
$r->print(<<ENDCCF);
-<form name="form1" method="post">
+<form name="form1" method="post" action="">
<input type="hidden" name="phase" value="set_custom_roles" />
<input type="hidden" name="rolename" value="$rolename" />
ENDCCF
@@ -4320,8 +4320,13 @@
$env{'user.name'},
$rolename,undef,undef,undef,$context));
}
- $r->print('<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'.&mt('Create or edit another custom role').'</a></p><form name="customresult" method="post">');
- $r->print(&Apache::lonhtmlcommon::echo_form_input([]).'</form>');
+ $r->print(
+ '<p><a href="javascript:backPage(document.customresult,'."'pickrole'".')">'
+ .&mt('Create or edit another custom role')
+ .'</a></p>'
+ .'<form name="customresult" method="post" action="">'
+ .&Apache::lonhtmlcommon::echo_form_input([]).'</form>'
+ );
}
# ================================================================ Main Handler
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.365 loncom/interface/lonfeedback.pm:1.366
--- loncom/interface/lonfeedback.pm:1.365 Mon Mar 18 23:21:16 2013
+++ loncom/interface/lonfeedback.pm Mon Jul 15 16:13:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.365 2013/03/18 23:21:16 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.366 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2582,7 +2582,7 @@
my $table_start =&Apache::loncommon::start_data_table();
$r->print(<<END);
$start_page
- <form name="pickpostersform" method="post">
+ <form name="pickpostersform" method="post" action="">
<br />
$table_start
<tr>
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.162 loncom/interface/lonmsgdisplay.pm:1.163
--- loncom/interface/lonmsgdisplay.pm:1.162 Fri Nov 30 14:57:17 2012
+++ loncom/interface/lonmsgdisplay.pm Mon Jul 15 16:13:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.162 2012/11/30 14:57:17 bisitz Exp $
+# $Id: lonmsgdisplay.pm,v 1.163 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -548,7 +548,7 @@
$result .= '<fieldset id="LC_activeusers"><legend>'
.$bcc_curr_hdr
.'</legend>'
- .'<form name="activeusers">';
+ .'<form name="activeusers" action="">';
$result .= $tmptext.'</form></fieldset><br />';
if (ref($statushash) eq 'HASH') {
$statushash->{'active'} = 1;
@@ -569,7 +569,7 @@
$result .= '<fieldset id="LC_previoususers"><legend>'
.$bcc_prev_hdr
.'</legend>'
- .'<form name="previoususers">';
+ .'<form name="previoususers" action="">';
$result .= $tmptext.'</form></fieldset><br />';
if (ref($statushash) eq 'HASH') {
$statushash->{'previous'} = 1;
@@ -592,7 +592,7 @@
$result .= '<fieldset id="LC_futureusers"><legend>'
.$bcc_future_hdr
.'</legend>'
- .'<form name="futureusers">';
+ .'<form name="futureusers" action="">';
$result .= $tmptext.'</form></fieldset>';
if (ref($statushash) eq 'HASH') {
$statushash->{'future'} = 1;
@@ -667,7 +667,7 @@
}
$r->print('<fieldset>'.
'<legend>'.$lt{$status}.'</legend>'.
- '<form name="'.$formname.'">'.
+ '<form name="'.$formname.'" action="">'.
'<span class="LC_nobreak">'.
'<input type="button" value="'.&mt('Check All').'" '.
'onclick="javascript:toggleAll('."this.form,'check'".')" />'.
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.116 loncom/interface/loncoursegroups.pm:1.117
--- loncom/interface/loncoursegroups.pm:1.116 Mon Dec 17 17:27:20 2012
+++ loncom/interface/loncoursegroups.pm Mon Jul 15 16:13:21 2013
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.116 2012/12/17 17:27:20 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.117 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1492,7 +1492,7 @@
{'add_entries' => $loaditems,});
my $output = <<"END";
$start_page
-<form method="post" name="$state">
+<form method="post" name="$state" action="">
END
if ($action eq 'create' || $action eq 'modify') {
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.537 loncom/interface/lonparmset.pm:1.538
--- loncom/interface/lonparmset.pm:1.537 Mon Jul 15 14:32:44 2013
+++ loncom/interface/lonparmset.pm Mon Jul 15 16:13:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.537 2013/07/15 14:32:44 bisitz Exp $
+# $Id: lonparmset.pm,v 1.538 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3635,7 +3635,7 @@
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print($start_page.$breadcrumbs);
&startSettingsScreen($r,'parmset',$crstype);
- $r->print('<form name="shiftform" method="post">'.
+ $r->print('<form name="shiftform" method="post" action="">'.
'<table><tr><td>'.&mt('Currently set date:').'</td><td>'.
&Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.
'<tr><td>'.&mt('Shifted date:').'</td><td>'.
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.72 loncom/interface/lonsupportreq.pm:1.73
--- loncom/interface/lonsupportreq.pm:1.72 Fri Jan 4 18:35:12 2013
+++ loncom/interface/lonsupportreq.pm Mon Jul 15 16:13:21 2013
@@ -1,5 +1,5 @@
#
-# $Id: lonsupportreq.pm,v 1.72 2013/01/04 18:35:12 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.73 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -744,7 +744,7 @@
$r->print(<<"END");
$start_page
-<form name="logproblem">
+<form name="logproblem" action="">
<input type="hidden" name="command" value="result" />
</form>
END
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.206 loncom/interface/lonpreferences.pm:1.207
--- loncom/interface/lonpreferences.pm:1.206 Thu Jul 4 16:35:12 2013
+++ loncom/interface/lonpreferences.pm Mon Jul 15 16:13:21 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.206 2013/07/04 16:35:12 bisitz Exp $
+# $Id: lonpreferences.pm,v 1.207 2013/07/15 16:13:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1228,7 +1228,7 @@
');
$r->print(<<ENDCOL);
-<form name="parmform">
+<form name="parmform" action="">
<input type="hidden" name="pres_marker" />
<input type="hidden" name="pres_type" />
<input type="hidden" name="pres_value" />
@@ -1458,7 +1458,7 @@
'changepass' => 'Save',
);
- my $output = '<form name="client">'
+ my $output = '<form name="client" action="">'
.&Apache::lonhtmlcommon::start_pick_box();
if ($caller eq 'reset_by_email') {
$output .= &Apache::lonhtmlcommon::row_title(
Index: loncom/interface/lonpickstudent.pm
diff -u loncom/interface/lonpickstudent.pm:1.31 loncom/interface/lonpickstudent.pm:1.32
--- loncom/interface/lonpickstudent.pm:1.31 Mon Jul 15 14:32:45 2013
+++ loncom/interface/lonpickstudent.pm Mon Jul 15 16:13:22 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a student from the classlist
#
-# $Id: lonpickstudent.pm,v 1.31 2013/07/15 14:32:45 bisitz Exp $
+# $Id: lonpickstudent.pm,v 1.32 2013/07/15 16:13:22 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -108,7 +108,7 @@
</script>
ENDSCRIPT
- $r->print('<form>');
+ $r->print('<form action="">');
if ($allowed && (!$env{'form.roles'})) {
# -------------------------------------------------------- Get course personnel
$r->print('<h3>'.$env{'course.'.$env{'request.course.id'}.'.description'}.
Index: loncom/interface/spreadsheet/lonspreadsheet.pm
diff -u loncom/interface/spreadsheet/lonspreadsheet.pm:1.64 loncom/interface/spreadsheet/lonspreadsheet.pm:1.65
--- loncom/interface/spreadsheet/lonspreadsheet.pm:1.64 Mon Jul 15 14:33:06 2013
+++ loncom/interface/spreadsheet/lonspreadsheet.pm Mon Jul 15 16:13:26 2013
@@ -1,5 +1,5 @@
#
-# $Id: lonspreadsheet.pm,v 1.64 2013/07/15 14:33:06 bisitz Exp $
+# $Id: lonspreadsheet.pm,v 1.65 2013/07/15 16:13:26 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -377,7 +377,7 @@
// cellformula may contain less-than and greater-than symbols, so
// we need to escape them?
edit_text +='$cell_edit_start';
- edit_text += '<form name="editwinform">';
+ edit_text += '<form name="editwinform" action="">';
edit_text += '<center><h3>$lt{'ce'} '+cellname+'</h3>';
edit_text += '<textarea id="LC_newformula" name="newformula" ';
edit_text += ' cols="60" rows="12"; wrap="off" style="width:100%">';
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.282 loncom/publisher/lonpublisher.pm:1.283
--- loncom/publisher/lonpublisher.pm:1.282 Tue Jun 4 22:20:16 2013
+++ loncom/publisher/lonpublisher.pm Mon Jul 15 16:13:31 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.282 2013/06/04 22:20:16 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.283 2013/07/15 16:13:31 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1899,7 +1899,7 @@
$r->print(&Apache::lonhtmlcommon::row_closure()
.&Apache::lonhtmlcommon::row_title(&mt('Options'))
);
- $r->print('<form name="pubdirpref" method="post">'.
+ $r->print('<form name="pubdirpref" method="post" action="">'.
&hiddenfield('phase','two').
&hiddenfield('filename',$env{'form.filename'}).
&checkbox('pubrec','include subdirectories').
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.541 loncom/xml/lonxml.pm:1.542
--- loncom/xml/lonxml.pm:1.541 Tue Jun 4 22:20:20 2013
+++ loncom/xml/lonxml.pm Mon Jul 15 16:13:36 2013
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# XML Parser Module
#
-# $Id: lonxml.pm,v 1.541 2013/06/04 22:20:20 raeburn Exp $
+# $Id: lonxml.pm,v 1.542 2013/07/15 16:13:36 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1596,7 +1596,7 @@
my $editfooter=(<<ENDFOOTER);
$initialize
<a name="editsection" />
-<form $form_events method="post" name="xmledit">
+<form $form_events method="post" name="xmledit" action="">
<div class="LC_edit_problem_editxml_header">
<table class="LC_edit_problem_header_title"><tr><td>
$filename
More information about the LON-CAPA-cvs
mailing list