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

[albertel]

albertel		Mon Jan 22 23:25:57 2007 EDT

  Modified files:              
    /loncom/interface	lonmeta.pm 
  Log:
  - BUG5151 - clear all message add in link back to the directory too.
  
  
  
Index: loncom/interface/lonmeta.pm
diff -u loncom/interface/lonmeta.pm:1.202 loncom/interface/lonmeta.pm:1.203
--- loncom/interface/lonmeta.pm:1.202	Mon Jan 22 15:04:46 2007
+++ loncom/interface/lonmeta.pm	Mon Jan 22 23:25:56 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.202 2007/01/22 20:04:46 raeburn Exp $
+# $Id: lonmeta.pm,v 1.203 2007/01/23 04:25:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -638,7 +638,7 @@
             }
              $cur_values_stu =~ s/,$//;
             my @key_order = sort(keys(%meta_options));
-            unshift (@key_order,'');
+            unshift(@key_order,'');
             $meta_options{''} = 'Not specified';
             $meta_options{'select_form_order'} = \@key_order;
         } else {
@@ -1210,7 +1210,12 @@
 <input type="submit" name="clearmsg" value="$clear" />
 ENDDEL
         } else {
-            $r->print('<a href="'.$disuri.'" />'.$goback.'</a>');
+            $r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>');
+	    if ($env{'form.clearmsg'}) {
+		my ($diruri) = ($disuri =~ m{(.*/)[^/]*});
+		$r->print('<p><a href="'.$diruri.'" />'.
+			  &mt('Back To Directory').'</a></p>');
+	    }
 	}
 	$r->print('<br />'.$bombs);
     } else {