| … | |
… | |
| 534 | # merge file fragment and message text area field |
534 | # merge file fragment and message text area field |
| 535 | ############################################################################################# |
535 | ############################################################################################# |
| 536 | my @tmp2; |
536 | my @tmp2; |
| 537 | eval{ @tmp2= @{$rh_merge_data->{ $db->getUser($preview_user)->student_id } };}; |
537 | eval{ @tmp2= @{$rh_merge_data->{ $db->getUser($preview_user)->student_id } };}; |
| 538 | if ($@) { |
538 | if ($@) { |
| 539 | print CGI::p( "Couldn't get merge data for $preview_user", CGI::br(), $@) ; |
539 | # print CGI::p( "Couldn't get merge data for $preview_user", CGI::br(), $@) ; |
|
|
540 | print "No merge data for $preview_user in merge file: <$merge_file>",CGI::br(); |
| 540 | } else { |
541 | } else { |
| 541 | print CGI::pre("",data_format(0..($#tmp2)),"\n", data_format(@tmp2)); |
542 | print CGI::pre("",data_format(0..($#tmp2)),"\n", data_format(@tmp2)); |
| 542 | } |
543 | } |
| 543 | #create a textbox with the subject and a textarea with the message |
544 | #create a textbox with the subject and a textarea with the message |
| 544 | #print actual body of message |
545 | #print actual body of message |
Parent Directory
| 
Revision Log
| 
Patch