--- loncom/interface/slotrequest.pm 2007/04/10 23:28:20 1.75 +++ loncom/interface/slotrequest.pm 2007/04/11 16:07:51 1.78 @@ -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.75 2007/04/10 23:28:20 albertel Exp $ +# $Id: slotrequest.pm,v 1.78 2007/04/11 16:07:51 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -334,7 +334,7 @@ sub remove_registration { my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum, "^$slot_name\0"); if (&Apache::lonnet::error(%consumed)) { - $r->print("<p>".&mt('A network error has occured.').'</p>'); + $r->print("<p><span class=\"LC_error\">".&mt('A network error has occured.').'</span></p>'); return; } if (!%consumed) { @@ -527,7 +527,7 @@ sub delete_slot { if ($ret eq 'ok') { $r->print("<p>Slot <tt>$slot_name</tt> marked as deleted.</p>"); } else { - $r->print("<p> An error ($ret) occurse when attempting to delete Slot <tt>$slot_name</tt>.</p>"); + $r->print("<p><span class=\"LC_error\"> An error ($ret) occurse when attempting to delete Slot <tt>$slot_name</tt>.</span></p>"); } } else { if (%consumed) { @@ -554,7 +554,7 @@ sub get_slot { my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot); if ($slot_name =~ /^error: (.*)/) { - $r->print("<p>An error occured while attempting to make a reservation. ($1)</p>"); + $r->print("<p><span class=\"LC_error\">An error occured while attempting to make a reservation. ($1)</span></p>"); &return_link($r); return 0; } @@ -595,7 +595,7 @@ STUFF if (defined($reserved)) { my $retvalue = 0; if ($slot_name =~ /^error: (.*)/) { - $r->print("<p>An error occured while attempting to make a reservation. ($1)</p>"); + $r->print("<p><span class=\"LC_error\">An error occured while attempting to make a reservation. ($1)</span></p>"); } elsif ($reserved > -1) { $r->print("<p>Success: $description</p>"); $retvalue = 1; @@ -616,7 +616,7 @@ STUFF } $r->print(<<STUFF); -<p> <font color="red">Failed</font> to reserve a spot for $description. </p> +<p> <span class="LC_warning">Failed</span> to reserve a spot for $description. </p> <p> <form method="post" action="/adm/slotrequest"> <input type="submit" name="Try Again" value="$lt{'try'}" /> @@ -646,8 +646,7 @@ sub allowed_slot { #already started if ($slot->{'starttime'} < time) { - # all open slot to be schedulable - #return 0; + return 0; } &Apache::lonxml::debug("$slot_name starttime good"); @@ -1548,7 +1547,7 @@ sub csv_upload_assign { } $r->print("<p>Created $countdone slots\n</p>"); foreach my $error (@errors) { - $r->print("<p>$error\n</p>"); + $r->print("<p><span class=\"LC_warning\">$error</span></p>\n"); } &show_table($r,$mgr); return '';