[LON-CAPA-cvs] cvs: loncom /interface groupsort.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Wed, 11 Jul 2007 23:53:59 -0000


albertel		Wed Jul 11 19:53:59 2007 EDT

  Modified files:              
    /loncom/interface	groupsort.pm 
  Log:
  - fixup headings when doing a recovery
  
  
Index: loncom/interface/groupsort.pm
diff -u loncom/interface/groupsort.pm:1.55 loncom/interface/groupsort.pm:1.56
--- loncom/interface/groupsort.pm:1.55	Wed Jul 11 19:51:19 2007
+++ loncom/interface/groupsort.pm	Wed Jul 11 19:53:59 2007
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.55 2007/07/11 23:51:19 albertel Exp $
+# $Id: groupsort.pm,v 1.56 2007/07/11 23:53:59 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -349,10 +349,11 @@
 		'pa' => 'Path',
                 'in' => 'Include'
 		);
-	$r->print(&Apache::loncommon::start_page('Sort Imported Resources',
-						 $js));
+	my $title = ($env{'form.recover'}) ? 'Recover Removed Resources'
+                                           : 'Sort Imported Resources';
+	$r->print(&Apache::loncommon::start_page($title, $js));
+
 	$r->print(<<END);
-<b><font color="#888888">$lt{'fin'}</font></b>
 <form method='post' action='/adm/groupsort' name='groupsort'
       enctype='application/x-www-form-urlencoded'>
 <input type="hidden" name="fnum" value="$clen" />
@@ -378,6 +379,7 @@
 	    my $resurl = 
 		&Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());
 	    $r->print(<<END);
+<b><font color="#888888">$lt{'fin'}</font></b>
 <input type="button" name="alter" value="$lt{'ci'}"
  onClick="window.location='$resurl?inhibitmenu=yes&amp;catalogmode=import'" />&nbsp;
 <input type="button" name="altersearch" value="$lt{'cs'}"