--- loncom/publisher/loncleanup.pm	2011/11/14 00:20:31	1.16
+++ loncom/publisher/loncleanup.pm	2012/12/14 00:27:08	1.19
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to cleanup XML files
 #
-# $Id: loncleanup.pm,v 1.16 2011/11/14 00:20:31 raeburn Exp $
+# $Id: loncleanup.pm,v 1.19 2012/12/14 00:27:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -34,13 +34,13 @@ use strict;
 use Apache::File;
 use File::Copy;
 use Apache::Constants qw(:common :http :methods);
-use Apache::loncacc;
 use Apache::loncommon();
 use Apache::lonhtmlcommon();
 use Apache::lonlocal;
 use Apache::lonnet;
 use lib '/home/httpd/lib/perl/';
 use LONCAPA;
+use HTML::Entities();
  
 
 sub latextrans {
@@ -252,17 +252,22 @@ sub phaseone {
     $r->print(
         &Apache::lonhtmlcommon::start_pick_box()
        .&Apache::lonhtmlcommon::row_title(&mt('Select actions to attempt'))
+       .'<label>'
        .'<input type="checkbox" name="linefeed" checked="checked" /> '
        .&mt('Linefeeds, formfeeds, and carriage returns')
-       .'<br />'
+       .'</label><br />'
+       .'<label>'
        .'<input type="checkbox" name="empty" checked="checked" /> '
        .&mt('Empty tags')
-       .'<br />'
+       .'</label><br />'
+       .'<label>'
        .'<input type="checkbox" name="lower" checked="checked" /> '
        .&mt('Lower casing')
-       .'<br />'
+       .'</label><br />'
+       .'<label>'
        .'<input type="checkbox" name="symbol" checked="checked" /> '
        .&mt('Symbol font')
+       .'</label>'
        .&Apache::lonhtmlcommon::row_closure(1)
        .&Apache::lonhtmlcommon::end_pick_box()
     );
@@ -286,6 +291,20 @@ sub phasetwo {
         }
         close(IN);
     }
+    # Check if any selection was made
+    if ($env{'form.linefeed'} ne 'on' &&
+        $env{'form.empty'} ne 'on' &&
+        $env{'form.lower'} ne 'on' &&
+        $env{'form.symbol'} ne 'on') {
+        $r->print(
+            '<p class="LC_warning">'
+           .&mt('Please select at least one option.')
+           .'</p>'
+           .'<p><a href="javascript:history.back();">'.&mt('Back').'</p>'
+        );
+        return;
+    }
+
     my $uri="/priv/$udom/$uname".$fn;
     my $result=&Apache::lonnet::ssi_body($uri,
 					 ('grade_target'=>'web',
@@ -340,8 +359,11 @@ sub phasetwo {
        .'<li><a href="'.$newuri.'" target="prev">'
        .&mt('Open (and edit) cleaned up file in new window')
        .'</a></li>'
-       .'<li><a href="/adm/diff?filename='.&escape($uri)
-       .'&versionone=priv&filetwo='.&escape($newuri).'" target="prev">'
+       .'<li><a href="'
+       .&HTML::Entities::encode(
+            '/adm/diff?filename='.&escape($uri)
+           .'&versionone=priv&filetwo='.&escape($newuri))
+       .'" target="prev">'
        .&mt('Show diffs in new window')
        .'</a></li>'
        .'</ul>'
@@ -364,20 +386,24 @@ sub phasethree {
     my $newfn=$main.'_Auto_Cleaned_Up.'.$ext;
     my $new=$r->dir_config('lonDocRoot')."/priv/$udom/$uname".$newfn;
     if ($env{'form.accept'}) {
-	$r->print(
+        $r->print(
         '<p class="LC_info">'
-       .&mt('Accepting changes')
+       .&mt('Accepting changes...')
        .'</p>'
     );
         move($new,$old);
     } else {
-	$r->print(
+        $r->print(
         '<p class="LC_info">'
-       .&mt('Rejecting changes')
+       .&mt('Rejecting changes...')
        .'</p>'
-    );
+        );
         unlink($new);
     }
+    $r->print(
+        '<p>'
+       .&Apache::lonhtmlcommon::confirm_success(&mt('Done')));
+        '</p>'
 }
 
 # ---------------------------------------------------------------- Main Handler
@@ -410,7 +436,7 @@ sub handler {
     my $uname;
     my $udom;
 
-    ($uname,$udom)=&Apache::loncacc::constructaccess($fn);
+    ($uname,$udom)=&Apache::lonnet::constructaccess($fn);
     unless (($uname) && ($udom)) {
 	$r->log_reason($uname.' at '.$udom.
 		       ' trying to cleanup file '.$env{'form.filename'}.
@@ -437,7 +463,7 @@ sub handler {
               '<form action="/adm/cleanup" method="post">'.
               '<input type="hidden" name="filename" value="'.$env{'form.filename'}.'" />');
     unless ($fn=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) {
-	$r->print(&mt('Cannot cleanup this filetype'));
+	$r->print('<p class="LC_warning">'.&mt('Cannot cleanup this filetype').'</p>');
     } else {
 	if ($env{'form.phase'} eq 'three') {
 	    &phasethree($r,$fn,$uname,$udom);
@@ -451,12 +477,11 @@ sub handler {
     $dir=~s{[^/]+$}{};
     $r->print(
         '</form>'
-       .&Apache::lonhtmlcommon::start_funclist()
-       .&Apache::lonhtmlcommon::add_item_funclist(
-            '<a href="/priv/'.$udom.'/'.$uname.$fn.'">'.&mt('Back to Source File').'</a>')
-       .&Apache::lonhtmlcommon::add_item_funclist(
-            '<a href="/priv/'.$udom.'/'.$uname.$dir.'">'.&mt('Back to Source Directory').'</a>')
-       .&Apache::lonhtmlcommon::end_funclist()
+       .&Apache::lonhtmlcommon::actionbox(
+            ['<a href="/priv/'.$udom.'/'.$uname.$fn.'">'.
+                 &mt('Back to Source File').'</a>',
+            '<a href="/priv/'.$udom.'/'.$uname.$dir.'">'.
+                &mt('Back to Source Directory').'</a>'])
        .&Apache::loncommon::end_page()
     );