Index: openacs-4/packages/chat/www/transcript-entry.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-entry.adp,v diff -u -N --- openacs-4/packages/chat/www/transcript-entry.adp 17 Mar 2020 14:06:38 -0000 1.11.2.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,72 +0,0 @@ - - -@context;literal@ -@title;literal@ - -
-
- - -
-
-
- -
-
- -
-
-
-
- -
-
- -
-
- Help text - #chat.delete_messages_after_transcript# -
-
- -
-
- -
-
- -
-
- Help text - #chat.deactivate_room_after_transcript# -
-
- -
-
- -
-
- -
-
-
-
#chat.Contents#
-
-
- - @messages:item@
- -
-
-
-
- -
-
Index: openacs-4/packages/chat/www/transcript-new-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new-2.tcl,v diff -u -N --- openacs-4/packages/chat/www/transcript-new-2.tcl 17 Mar 2020 14:06:38 -0000 1.5.2.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,42 +0,0 @@ -#/chat/www/transcript-new-2.tcl -ad_page_contract { - Save transcript. -} { - room_id:naturalnum,notnull - transcript_name:trim,notnull - {description:trim ""} - {delete_messages:optional "off"} - {deactivate_room:optional "off"} -} - -permission::require_permission -object_id $room_id -privilege chat_transcript_create - -set user_id [ad_conn user_id] -set creation_ip [ad_conn peeraddr] - -set r [::xo::db::Class get_instance_from_db -id $room_id] - -set transcript_id [$r create_transcript \ - -pretty_name $transcript_name \ - -description $description \ - -creation_user $user_id \ - -creation_ip $creation_ip] - -if { $delete_messages eq "on" } { - $r delete_messages - # forward the information to AJAX - ::chat::Chat flush_messages -chat_id $room_id -} - -if { $deactivate_room eq "on" } { - $r set active_p false - $r save -} - -ad_returnredirect "chat-transcript?room_id=$room_id&transcript_id=$transcript_id" - -# Local variables: -# mode: tcl -# tcl-indent-level: 4 -# indent-tabs-mode: nil -# End: Index: openacs-4/packages/chat/www/transcript-new.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-new.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/chat/www/transcript-new.adp 12 May 2021 09:42:38 -0000 1.1.2.1 @@ -0,0 +1,8 @@ + + +@context;literal@ +@title;literal@ + + \ No newline at end of file Index: openacs-4/packages/chat/www/transcript-new.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new.tcl,v diff -u -N -r1.8.2.3 -r1.8.2.4 --- openacs-4/packages/chat/www/transcript-new.tcl 17 Mar 2020 14:06:38 -0000 1.8.2.3 +++ openacs-4/packages/chat/www/transcript-new.tcl 12 May 2021 09:42:38 -0000 1.8.2.4 @@ -23,15 +23,78 @@ set transcript_name "[_ chat.transcript_of_date] [clock format [clock seconds] -format "%d.%m.%y %H:%M:%S"]" set description "" set contents "" -set action "transcript-new-2" set submit_label "[_ chat.Create_transcript]" set r [::xo::db::Class get_instance_from_db -id $room_id] set active_p [$r set active_p] set messages [$r transcript_messages] +set messages_html "
"
+foreach m $messages {
+    append messages_html "$m
"
+}
+append messages_html "
" -ad_return_template "transcript-entry" +ad_form \ + -name transcript_entry \ + -export {transcript_id room_id} \ + -has_submit 1 \ + -actions {$action} \ + -form { + {transcript_name:text(text) + {label {[_ chat.Transcript_name]}} + {help_text {}} + {html {size 60}} + {value {$transcript_name}} + } + {delete_messages:text(checkbox),optional + {label {[_ chat.Delete_messages]}} + {options {{"#chat.delete_messages_after_transcript#" t}}} + } + {deactivate_room:text(checkbox),optional + {label {[_ chat.Room_deactivate]}} + {options {{"#chat.deactivate_room_after_transcript#" t}}} + } + {description:text(textarea),optional + {label {[_ chat.Description]}} + } + {messages:text(inform),optional,noquote + {label {[_ chat.Contents]}} + {value {$messages_html}} + } + {submit:text(submit) + {label $submit_label} + } + } -on_submit { + permission::require_permission -object_id $room_id -privilege chat_transcript_create + + set user_id [ad_conn user_id] + set creation_ip [ad_conn peeraddr] + + set r [::xo::db::Class get_instance_from_db -id $room_id] + + set transcript_id [$r create_transcript \ + -pretty_name $transcript_name \ + -description $description \ + -creation_user $user_id \ + -creation_ip $creation_ip] + ns_log notice "DELETE MESSAGES: $delete_messages" + if { $delete_messages eq "t" } { + $r delete_messages + # forward the information to AJAX + ::chat::Chat flush_messages -chat_id $room_id + } + + if { $deactivate_room eq "t" } { + $r set active_p false + $r save + } + + ad_returnredirect "chat-transcript?room_id=$room_id&transcript_id=$transcript_id" + ad_script_abort + } + + # Local variables: # mode: tcl # tcl-indent-level: 4