version 1.108, 2010/06/06 02:40:30
|
version 1.109, 2010/10/31 15:32:10
|
Line 562 sub release_reservation {
|
Line 562 sub release_reservation {
|
if ($mgr eq 'F') { |
if ($mgr eq 'F') { |
$msg = &mt('Released Reservation for user: [_1]',"$uname:$udom"); |
$msg = &mt('Released Reservation for user: [_1]',"$uname:$udom"); |
} else { |
} else { |
$msg = &mt('Released Reservation: [_1]',$description); |
$msg = '<span style="font-weight: bold;">'.&mt('Released reservation: [_1]',$description).'</span><br /><br />'; |
|
my $person = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}); |
|
my $subject = &mt('Reservation change: [_1]',$description); |
|
my $msgbody = &mt('Reservation released by [_1] for [_2].',$person,$description); |
|
$msg .= &slot_change_messaging($slot{'reservationmsg'},$subject,$msgbody,'release'); |
} |
} |
return (1,$msg); |
return (1,$msg); |
} |
} |
Line 629 sub get_slot {
|
Line 633 sub get_slot {
|
my $description1=&get_description($slot_name,\%slot); |
my $description1=&get_description($slot_name,\%slot); |
%slot=&Apache::lonnet::get_slot($env{'form.slotname'}); |
%slot=&Apache::lonnet::get_slot($env{'form.slotname'}); |
my $description2=&get_description($env{'form.slotname'},\%slot); |
my $description2=&get_description($env{'form.slotname'},\%slot); |
$r->print('<p>'.&mt('Already have a reservation: [_1].',$description1).'</p>'); |
|
if ($slot_name ne $env{'form.slotname'}) { |
if ($slot_name ne $env{'form.slotname'}) { |
$r->print(<<STUFF); |
$r->print(<<STUFF); |
<form method="post" action="/adm/slotrequest"> |
<form method="post" action="/adm/slotrequest"> |
Line 638 sub get_slot {
|
Line 641 sub get_slot {
|
<input type="hidden" name="releaseslot" value="$slot_name" /> |
<input type="hidden" name="releaseslot" value="$slot_name" /> |
<input type="hidden" name="command" value="change" /> |
<input type="hidden" name="command" value="change" /> |
STUFF |
STUFF |
$r->print('<p>' |
$r->print('<p class="LC_error">'.&mt('Reservation currently unchanged').'</p>'. |
.&mt('You can either [_1]Change[_2] your reservation from [_3] to [_4] or' |
'<p class="LC_warning">'); |
,'<input type="submit" name="change" value="' |
if ($slot_name ne '') { |
,'" />' |
$r->print(&mt('To complete the transaction you [_1]must[_2] confirm you want the change to [_3] to be processed.' |
,'<b>'.$description1.'</b>' |
,'<b>','</b>','<b>'.$description2.'</b>').'<br />' |
,'<b>'.$description2.'</b>') |
.'<input type="submit" name="change" value="'.&mt('Process change').'" /></p>' |
.'<br /></p>' |
.&mt('or').'<br /><p>'.&mt('you will continue with the reservation you already had: [_1]' |
); |
,'<b>'.$description1.'</b>').'</p>'); |
|
} |
&return_link($r); |
&return_link($r); |
$r->print(<<STUFF); |
$r->print(<<STUFF); |
</form> |
</form> |
STUFF |
STUFF |
} else { |
} else { |
|
$r->print('<p>'.&mt('Already have a reservation: [_1].',$description1).'</p>'); |
&return_link($r); |
&return_link($r); |
} |
} |
return 0; |
return 0; |
Line 667 STUFF
|
Line 672 STUFF
|
.&mt('An error occurred while attempting to make a reservation. ([_1])',$1) |
.&mt('An error occurred while attempting to make a reservation. ([_1])',$1) |
.'</span></p>'); |
.'</span></p>'); |
} elsif ($reserved > -1) { |
} elsif ($reserved > -1) { |
$r->print('<p>'.&mt('Success: [_1]',$description).'</p>'); |
$r->print('<p style="font-weight: bold;">'.&mt('Successfully signed up: [_1]',$description).'</p>'); |
$retvalue = 1; |
$retvalue = 1; |
|
my $person = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'}); |
|
my $subject = &mt('Reservation change: [_1]',$description); |
|
my $msgbody = &mt('Successful reservation by [_1] for [_2].',$person,$description); |
|
my $msg = &slot_change_messaging($slot{'reservationmsg'},$subject,$msgbody,'reserve'); |
|
if ($msg) { |
|
$r->print($msg); |
|
} |
} elsif ($reserved < 0) { |
} elsif ($reserved < 0) { |
$r->print('<p>'.&mt('Already reserved: [_1]',$description).'</p>'); |
$r->print('<p>'.&mt('Already reserved: [_1]',$description).'</p>'); |
} |
} |
Line 1081 sub show_table {
|
Line 1093 sub show_table {
|
'starttime' => 'Start time', |
'starttime' => 'Start time', |
'endtime' => 'End Time', |
'endtime' => 'End Time', |
'startreserve' => 'Time students can start reserving', |
'startreserve' => 'Time students can start reserving', |
|
'reservationmsg' => 'Message triggered by reservation', |
'secret' => 'Secret Word', |
'secret' => 'Secret Word', |
'space' => '# of students/max', |
'space' => '# of students/max', |
'ip' => 'IP or DNS restrictions', |
'ip' => 'IP or DNS restrictions', |
Line 1095 sub show_table {
|
Line 1108 sub show_table {
|
$show_fields{'scheduled'} = &mt('Scheduled Members'); |
$show_fields{'scheduled'} = &mt('Scheduled Members'); |
} |
} |
my @show_order=('name','description','type','starttime','endtime', |
my @show_order=('name','description','type','starttime','endtime', |
'startreserve','secret','space','ip','symb', |
'startreserve','reservationmsg','secret','space','ip','symb', |
'allowedsections','allowedusers','uniqueperiod', |
'allowedsections','allowedusers','uniqueperiod', |
'scheduled','proctor'); |
'scheduled','proctor'); |
my @show = |
my @show = |
Line 1207 sub show_table {
|
Line 1220 sub show_table {
|
|
|
my %name_cache; |
my %name_cache; |
my $slotsort = sub { |
my $slotsort = sub { |
if ($env{'form.order'}=~/^(type|description|endtime|startreserve|ip|symb|allowedsections|allowedusers)$/) { |
if ($env{'form.order'}=~/^(type|description|endtime|startreserve|ip|symb|allowedsections|allowedusers|reservationmsg)$/) { |
if (lc($slots{$a}->{$env{'form.order'}}) |
if (lc($slots{$a}->{$env{'form.order'}}) |
ne lc($slots{$b}->{$env{'form.order'}})) { |
ne lc($slots{$b}->{$env{'form.order'}})) { |
return (lc($slots{$a}->{$env{'form.order'}}) |
return (lc($slots{$a}->{$env{'form.order'}}) |
Line 1244 sub show_table {
|
Line 1257 sub show_table {
|
if ($tmp =~ /^error: /) { undef(%consumed); } |
if ($tmp =~ /^error: /) { undef(%consumed); } |
} |
} |
|
|
|
my %msgops = &slot_reservationmsg_options(); |
|
|
foreach my $slot (sort $slotsort (keys(%slots))) { |
foreach my $slot (sort $slotsort (keys(%slots))) { |
if (!&to_show($slot,$slots{$slot},$when, |
if (!&to_show($slot,$slots{$slot},$when, |
$env{'form.deleted'},$name_filter)) { next; } |
$env{'form.deleted'},$name_filter)) { next; } |
|
my $reservemsg; |
if (defined($slots{$slot}->{'type'}) |
if (defined($slots{$slot}->{'type'}) |
&& $slots{$slot}->{'type'} ne 'schedulable_student') { |
&& $slots{$slot}->{'type'} eq 'schedulable_student') { |
#next; |
$reservemsg = $msgops{$slots{$slot}->{'reservationmsg'}}; |
} |
} |
my $description=&get_description($slot,$slots{$slot}); |
my $description=&get_description($slot,$slots{$slot}); |
my ($id_count,$ids); |
my ($id_count,$ids); |
Line 1393 LOGLINK
|
Line 1409 LOGLINK
|
if (exists($show{'startreserve'})) { |
if (exists($show{'startreserve'})) { |
$colspan++;$r->print("<td>$start_reserve</td>\n"); |
$colspan++;$r->print("<td>$start_reserve</td>\n"); |
} |
} |
|
if (exists($show{'reservationmsg'})) { |
|
$colspan++;$r->print("<td>$reservemsg</td>\n"); |
|
} |
if (exists($show{'secret'})) { |
if (exists($show{'secret'})) { |
$colspan++;$r->print("<td>$slots{$slot}{'secret'}</td>\n"); |
$colspan++;$r->print("<td>$slots{$slot}{'secret'}</td>\n"); |
} |
} |
Line 2119 sub display_filter {
|
Line 2138 sub display_filter {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub slot_change_messaging { |
|
my ($setting,$subject,$msg,$action) = @_; |
|
my $user = $env{'user.name'}; |
|
my $domain = $env{'user.domain'}; |
|
my ($message_status,$comment_status); |
|
if ($setting eq 'only_student' |
|
|| $setting eq 'student_and_user_notes_screen') { |
|
$message_status = |
|
&Apache::lonmsg::user_normal_msg($user,$domain,$subject,$msg); |
|
$message_status = '<li>'.&mt('Sent to you: [_1]', |
|
$message_status).' </li>'; |
|
} |
|
if ($setting eq 'student_and_user_notes_screen') { |
|
$comment_status = |
|
&Apache::lonmsg::store_instructor_comment($subject.'<br />'. |
|
$msg,$user,$domain); |
|
$comment_status = '<li>'.&mt('Entry added to course record (viewable by instructor): [_1]', |
|
$comment_status).'</li>'; |
|
} |
|
if ($message_status || $comment_status) { |
|
my $msgtitle; |
|
if ($action eq 'reserve') { |
|
$msgtitle = &mt('Status of messages about saved reservation'); |
|
} elsif ($action eq 'release') { |
|
$msgtitle = &mt('Status of messages about dropped reservation'); |
|
} |
|
return '<span class="LC_info">'.$msgtitle.'</span>' |
|
.'<ul>' |
|
.$message_status |
|
.$comment_status |
|
.'</ul><hr />'; |
|
} |
|
} |
|
|
sub upload_start { |
sub upload_start { |
my ($r)=@_; |
my ($r)=@_; |
$r->print( |
$r->print( |
Line 2289 sub csvupload_fields {
|
Line 2342 sub csvupload_fields {
|
['starttime','Start Time of slot'], |
['starttime','Start Time of slot'], |
['endtime','End Time of slot'], |
['endtime','End Time of slot'], |
['startreserve','Reservation Start Time'], |
['startreserve','Reservation Start Time'], |
|
['reservationmsg','Message when reservation changed'], |
['ip','IP or DNS restriction'], |
['ip','IP or DNS restriction'], |
['proctor','List of proctor ids'], |
['proctor','List of proctor ids'], |
['description','Slot Description'], |
['description','Slot Description'], |
Line 2370 sub csv_upload_assign {
|
Line 2424 sub csv_upload_assign {
|
next; |
next; |
} |
} |
|
|
|
if ($slot{'type'} eq 'schedulable_student') { |
|
if ($entries{$fields{'reservationmsg'}}) { |
|
if (($entries{$fields{'reservationmsg'}} eq 'only_student') || |
|
($entries{$fields{'reservationmsg'}} eq 'student_and_user_notes_screen')) { |
|
$slot{'reservationmsg'}=$entries{$fields{'reservationmsg'}}; |
|
} else { |
|
unless (($entries{$fields{'reservationmsg'}} eq 'none') || |
|
($entries{$fields{'reservationmsg'}} eq '')) { |
|
push(@errors,"$name -- Slot's reservationmsg setting ignored - not one of: 'only_student', 'student_and_user_notes_screen', 'none' or ''"); |
|
} |
|
} |
|
} |
|
} |
|
|
foreach my $key ('ip','proctor','description','maxspace', |
foreach my $key ('ip','proctor','description','maxspace', |
'secret','symb') { |
'secret','symb') { |
if ($entries{$fields{$key}}) { |
if ($entries{$fields{$key}}) { |
Line 2419 sub slot_command_titles {
|
Line 2487 sub slot_command_titles {
|
return %titles; |
return %titles; |
} |
} |
|
|
|
sub slot_reservationmsg_options { |
|
my %options = &Apache::lonlocal::texthash ( |
|
only_student => 'Sent to student', |
|
student_and_user_notes_screen => 'Sent to student and added to user notes', |
|
none => 'None sent and no record in user notes', |
|
); |
|
return %options; |
|
} |
|
|
sub handler { |
sub handler { |
my $r=shift; |
my $r=shift; |
|
|