[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Wed, 01 Aug 2007 23:57:36 -0000


albertel		Wed Aug  1 19:57:36 2007 EDT

  Modified files:              
    /loncom/homework	bridgetask.pm 
  Log:
  - add in return link when viewinggrading queues
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.233 loncom/homework/bridgetask.pm:1.234
--- loncom/homework/bridgetask.pm:1.233	Thu May  3 12:51:47 2007
+++ loncom/homework/bridgetask.pm	Wed Aug  1 19:57:35 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.233 2007/05/03 16:51:47 albertel Exp $
+# $Id: bridgetask.pm,v 1.234 2007/08/01 23:57:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1559,19 +1559,25 @@
 	}
     }
 
+    $result .= 
+	'<p><a href="/adm/flip?postdata=return:">'.
+	&mt('Return to resource').'</a></p><hr />'.
+	"\n<h3>Current Queue - $queue</h3>";
     my $regexp="^$symb\0";
     my %queue=&Apache::lonnet::dump($queue,$cdom,$cnum,$regexp);
     my ($tmp)=%queue;
     if ($tmp=~/^error: 2 /) {
-	return "\n<h3>Current Queue - $queue</h3>".
+	$result.=
+	    
 	    &Apache::loncommon::start_data_table().
 	    &Apache::loncommon::start_data_table_row().
 	    '<td>'.&mt('Empty').'</td>'.
 	    &Apache::loncommon::end_data_table_row().
 	    &Apache::loncommon::end_data_table();
+	return $result;
     }
     my $title=&Apache::lonnet::gettitle($symb);
-    $result.="\n<h3>Current Queue - $title $queue </h3>".
+    $result.=
 	&Apache::loncommon::start_data_table().
 	&Apache::loncommon::start_data_table_header_row();
     if ($with_selects) { $result.="<th>Status</th><th></th>"; }