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

[albertel]

albertel		Fri Feb  3 13:53:10 2006 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - more use of &return_link()
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.41 loncom/interface/slotrequest.pm:1.42
--- loncom/interface/slotrequest.pm:1.41	Fri Feb  3 13:51:15 2006
+++ loncom/interface/slotrequest.pm	Fri Feb  3 13:53:08 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.41 2006/02/03 18:51:15 albertel Exp $
+# $Id: slotrequest.pm,v 1.42 2006/02/03 18:53:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -47,8 +47,7 @@
 	$r->print('<p>'.&mt('Failed.').'</p>');
     }
     
-    $r->print('<p><a href="/adm/flip?postdata=return:">'.
-	      &mt('Return to last resource').'</a></p>');
+    &return_link($r);
     &end_page($r);
 }
 
@@ -308,8 +307,7 @@
     if ($mgr ne 'F') {
 	if ($slot{$slot_name}{'starttime'} < time) {
 	    $r->print("<p>Not allowed to release Reservation: $description, as it has already ended.</p>");
-	    $r->print('<p><a href="/adm/flip?postdata=return:">'.
-		      &mt('Return to last resource').'</a></p>');
+	    &return_link($r);
 	    return 0;
 	}
     }
@@ -345,10 +343,7 @@
 	$r->print('<p><a href="/adm/slotrequest?command=showslots">'.
 		  &mt('Return to slot list').'</a></p>');
     }
-    if (!$inhibit_return_link) {
-	$r->print('<p><a href="/adm/flip?postdata=return:">'.
-		  &mt('Return to last resource').'</a></p>');
-    }
+    if (!$inhibit_return_link) { &return_link($r);  }
     return 1;
 }
 
@@ -382,8 +377,7 @@
     }
     $r->print('<p><a href="/adm/slotrequest?command=showslots">'.
 	      &mt('Return to slot list').'</a></p>');
-    $r->print('<p><a href="/adm/flip?postdata=return:">'.
-	      &mt('Return to last resource').'</a></p>');
+    &return_link($r);
 }
 
 sub return_link {
@@ -472,8 +466,8 @@
 </p>
 or
 STUFF
-    $r->print('<p><a href="/adm/flip?postdata=return:">'.
-	      &mt('Return to last resource').'</a></p>');
+
+    &return_link($r);
     return;
 }