[BACK]Return to lonpage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.109 and 1.110

version 1.109, 2015/07/09 00:11:56 version 1.110, 2015/07/17 19:00:47
Line 216  sub handler { Line 216  sub handler {
                   my $contents=0;                    my $contents=0;
                   my $nforms=0;                    my $nforms=0;
                   my $nuploads=0;                    my $nuploads=0;
                     my $ntimers=0;
                   my %turninpaths;                    my %turninpaths;
                   my %multiresps;                    my %multiresps;
                   my $turninparent;                    my $turninparent;
Line 369  ENDEXT Line 370  ENDEXT
                               }                                }
                               $output=~s/\<\/body\>.*//si;                                $output=~s/\<\/body\>.*//si;
                               if ($output=~/\<form/si) {                                if ($output=~/\<form/si) {
                                     my $hastimer; 
   $nforms++;    $nforms++;
                                   $output=~s/\<form[^\>]*\>//gsi;                                    $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;                                    $output=~s/\<\/form[^\>]*\>//gsi;
                                   if ($output=~/\<input[^\>]+name\s*=\s*[\'\"]*HWFILE/) {                                    if ($output=~/\<input[^\>]+name\s*=\s*[\'\"]*HWFILE/) {
                                       $nuploads++;                                        $nuploads++;
                                   }                                    }
                                     if ($output=~/\<input[^\>]+name\s*=\s*[\'\"]*accessbutton/) {
                                         $ntimers++;
                                         $hastimer = 1;
                                     }
                                   $output=~                                    $output=~
       s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;        s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                                   $output=~                                    $output=~
                                       s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi;                                        s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi;
                                     if ($hastimer) {
                                         $output=~
                                             s/\<(input[^\>]+name=\Q"$prefix\Eaccessbutton"[^\>]+)(?:\Qdocument.markaccess.submit();\E)([^\>]*)\>/\<$1pageTimer(this.form,'$prefix')$2\>/gsi;
                                         $output=~  s/\<(input[^\>]+name=\Q"$prefix\Emarkaccess"[^\>]+value=["'])(?:yes)(['"][^\>]*)\>/\<$1$2\>/gsi;
                                     }
                                   if ($matheditor eq 'dragmath') {                                    if ($matheditor eq 'dragmath') {
                                       $output=~                                        $output=~
                                           s/(\Qjavascript:LC_mathedit_\E)(HWVAL_)([^'"]+?)(\(['"]*)(\QHWVAL_\E\3['"]\)\;void\(0\)\;)/$1$idprefix$2$3$4$idprefix$5/g;                                            s/(\Qjavascript:LC_mathedit_\E)(HWVAL_)([^'"]+?)(\(['"]*)(\QHWVAL_\E\3['"]\)\;void\(0\)\;)/$1$idprefix$2$3$4$idprefix$5/g;
Line 462  ENDEXT Line 473  ENDEXT
                               );                                );
                               $allscript .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);                                $allscript .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
                           }                            }
                             if ($ntimers) {
                                 $allscript .= '<script type="text/javascript">'."\n".
                                               '// <![CDATA['."\n".
                                               'function pageTimer(form,prefix) {'."\n".
                                               "   form.elements[prefix+'markaccess'].value = 'yes';\n".
                                               "   form.submit();\n".
                                               '}'."\n".
                                               '// ]]>'.
                                               "\n</script>\n";
                             }
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
   $r->print(&Apache::loncommon::start_page(undef,$allscript,    $r->print(&Apache::loncommon::start_page(undef,$allscript,
    {'force_register' => 1,     {'force_register' => 1,
Line 593  ENDEXT Line 614  ENDEXT
                           my $class;                            my $class;
                           if ($nforms > 1) {                            if ($nforms > 1) {
                               $class = ' class="LC_hwk_submit"';                                $class = ' class="LC_hwk_submit"';
                                 if ($ntimers) {
                                     $nforms = 1;
                                     $class = '';
                                 }
                           }                            }
                           $r->print(                            $r->print(
                   '<input name="all_submit" value="'.&mt('Submit All').'" type="'.                    '<input name="all_submit" value="'.&mt('Submit All').'" type="'.
Removed from v.1.109  
changed lines
  Added in v.1.110

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>