[BACK]Return to slotrequest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/slotrequest.pm between versions 1.23 and 1.27

version 1.23, 2005/10/17 18:23:46 version 1.27, 2005/10/27 15:11:03
Line 521  sub show_table { Line 521  sub show_table {
     my (undef,$id)=split("\0",$entry);      my (undef,$id)=split("\0",$entry);
     $ids.= $id.'-> '.$consumed{$entry}->{'name'}.'<br />';      $ids.= $id.'-> '.$consumed{$entry}->{'name'}.'<br />';
  }   }
  my $start=&Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'});   my $start=($slots{$slot}->{'starttime'}?
  my $end=&Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'});     &Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'}):'');
  my $start_reserve=&Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'});   my $end=($slots{$slot}->{'endtime'}?
    &Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'}):'');
    my $start_reserve=($slots{$slot}->{'endtime'}?
      &Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'}):'');
   
  my $unique;   my $unique;
  if (ref($slots{$slot}{'uniqueperiod'})) {   if (ref($slots{$slot}{'uniqueperiod'})) {
     $unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.      $unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.
Line 544  sub show_table { Line 548  sub show_table {
  my $proctors=join(', ',@proctors);   my $proctors=join(', ',@proctors);
   
  my $edit=(<<EDITFORM);   my $edit=(<<EDITFORM);
 <form method="POST">  <form method="POST" action="/adm/helper/newslot.helper">
   <input type="hidden" name="command" value="editslot" />    <input type="hidden" name="name" value="$slot" />
   <input type="hidden" name="slot" value="$slot" />  
   <input type="submit" name="Edit" value="Edit" />    <input type="submit" name="Edit" value="Edit" />
 </form>  </form>
 EDITFORM  EDITFORM
Removed from v.1.23  
changed lines
  Added in v.1.27

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>