--- loncom/interface/lonhtmlcommon.pm	2010/03/15 05:37:47	1.269
+++ loncom/interface/lonhtmlcommon.pm	2010/04/12 01:22:49	1.270
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.269 2010/03/15 05:37:47 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.270 2010/04/12 01:22:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1767,7 +1767,6 @@ ENDTWO
 
 } # End: row_count block for pick_box
 
-
 sub role_select_row {
     my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_;
     my $crstype = 'Course';
@@ -1990,6 +1989,30 @@ sub course_custom_roles {
 }
 
 
+sub resource_info_box {
+   my ($symb,$onlyfolderflag)=@_;
+   my $return='';
+   if ($symb) {
+       my $title=&Apache::lonnet::gettitle($symb);
+       $return=&Apache::loncommon::start_data_table();
+       unless ($onlyfolderflag) {
+          $return.=&Apache::loncommon::start_data_table_row().
+                    '<th>'.&mt('Resource:').'</th><td>'.$title.'</td>'.
+                    &Apache::loncommon::end_data_table_row();
+       }
+       my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb);
+       my $folder=&Apache::lonnet::gettitle($map);
+       $return.=&Apache::loncommon::start_data_table_row().
+                    '<th>'.&mt('Folder:').'</th><td>'.$folder.'</td>'.
+                    &Apache::loncommon::end_data_table_row().
+                    &Apache::loncommon::end_data_table();
+    } else {
+       $return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>';
+    }
+    return $return;
+
+}
+
 ##############################################
 ##############################################