Skip to content

A
acs-admin
Commit b51c9dd1 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- upgrade to OpenACS 5.6

parent 7b3d66d8
Hide whitespace changes
Inline Side-by-side
Showing with 317 additions and 0 deletions
catalog/acs-admin.el_GR.utf-8.xml 0 → 100644
View file @ b51c9dd1
<?xml version="1.0" encoding="utf-8"?>
<message_catalog package_key="acs-admin" locale="el_GR" charset="utf-8">
<msg key="Account_reg_URL_help_text">URL δήλωσης νέου λογαριασμού</msg>
<msg key="Account_Registration">Δήλωση Λογαριασμού</msg>
<msg key="Account_registration_URL">URL Δήλωσης Λογαριασμού</msg>
<msg key="Actions">Ενέργειες</msg>
<msg key="Actions_Minute">Ενέργειες/Θέματα</msg>
<msg key="Add_callback">Προσθήκη ειδοποίησης</msg>
<msg key="Administration">Διαχείριση</msg>
<msg key="Are_you_sure_you_want_to_delete_authority_authorities_pretty_name">Είστε σίγουροι οτι θέλετε να διαγράψετε τη</msg>
<msg key="Authentication">Ταυτοποίηση</msg>
<msg key="Authority_name">Τίτλος αρχής</msg>
<msg key="Authority_short_name_help_text">Αυτό χρησιμοποιείται όταν γίνεται αναφορά στην Αρχή με παραμέτρους κλπ. Ακόμα και εαν χρειαστεί να αλλάξετε το όνομα που εμφανίζεται παραπάνω, το συγκεκριμένο δεν πρέπει να αλλαχθεί. </msg>
<msg key="Batch_sync_enabled">Ενεργοποίηση συγχρονισμού πακέτου</msg>
<msg key="Batch_Synchronization">Συγχρονισμός πακέτου</msg>
<msg key="Change_password_URL">URL αλλαγής κωδικού</msg>
<msg key="Change_password_URL_help_text">Αντί για έναν οδηγό διαχείρησης κωδικού, μπορείτε να δώσετε ένα URL στο οποίο οι χρήστες πηγαίνουν για να αλλάξουν κωδικό χρήσης. Κάθε όνομα χρήστη σε αυτό το URL πρέπει να συντάσεται foo={username} και το {username} να αντικαθίσταται με το πραγματικό όνομα χρήστη.</msg>
<msg key="Creation_user">Δημιουργία χρήστη</msg>
<msg key="Delete">Διαγραφή</msg>
<msg key="Delete_callback">Διαγραφή ειδοποίησης</msg>
<msg key="Disable_this_authority">Διαγρφή Αρχής</msg>
<msg key="Document">Έγγραφο</msg>
<msg key="Document_end_time">Χρόνος λήξης εγγράφου</msg>
<msg key="Document_message">Μήνυμα εγγράφου</msg>
<msg key="Document_start_time">Χρόνος έναρξης εγγράφου</msg>
<msg key="Document_status">Κατάσταση εγγράφου</msg>
<msg key="download">κατέβασμα</msg>
<msg key="Edit_callback">Επεξεργασία ειδοποίησης</msg>
<msg key="Enable_this_authority">Εναργοποίηση αυτής της δυνατότητας</msg>
<msg key="Enabled">Ενεργοποιημένο</msg>
<msg key="End_time">Τέλος χρόνου</msg>
<msg key="General">Γενικά</msg>
<msg key="GetDocument_implementation">Ενσωμάτωση λήψης εγγράφου</msg>
<msg key="Help_contact_help_text">Πληροφορίες επαφής (τηλ, email κλπ) θα εμφανίζονται σαν τελευταία λύση όταν οι χρήστες έχουν πρόβλημα με κάποια από τις δυνατότητες.</msg>
<msg key="Help_contact_text">Βοήθεια κειμένου επαφής </msg>
<msg key="Interactive">Διαδραστικό</msg>
<msg key="Invoke">Επίκληση</msg>
<msg key="Invoke_this_callback_proc_now_Be_careful">Άμεση επίκληση της διαδικασίας ειδοποίησης. Προσοχή!</msg>
<msg key="Make_this_the_authority_for_registering_new_users">Διαμορφώστε αυτή τη δυνατότητα για εγγραφή νέων χρηστών</msg>
<msg key="Message">Μήνυμα</msg>
<msg key="Move_this_authority_down">Μετακίνηση αυτής της δυνατότητας κάτω</msg>
<msg key="Move_this_authority_up">Μετακίνηση αυτής της δυνατότητας επάνω</msg>
<msg key="Name">Όνομα</msg>
<msg key="No">Όχι</msg>
<msg key="Number_of_actions">Αριθμός ενεργειών</msg>
<msg key="Number_of_problems">Αριθμός προβλημάτων</msg>
<msg key="On-Demand_Sync">Συγχρονισμός κατ' απαίτηση</msg>
<msg key="One_batch_job">Εργασία ενός πακέτου</msg>
<msg key="Operation">Διαδικασία</msg>
<msg key="Order">Εντολή</msg>
<msg key="Package_Manager">Διαχειριστής πακέτου</msg>
<msg key="Pages">Σελίδες</msg>
<msg key="Parameters">Παράμετροι</msg>
<msg key="Password">Κωδικός</msg>
<msg key="Password_Management">Διαχείρηση κωδικών</msg>
<msg key="Problems">Προβλήματα</msg>
<msg key="ProcessDocument_implementation">Ενσωμάτωση επεξεργασίας εγγράφου</msg>
<msg key="Recover_password_URL">URL ανάκτησης κωδικού</msg>
<msg key="Recover_password_URL_help_text">Αντί του οδηγού διαχείρησης κωδικών είναι δυνατό να εισάγετε ένα URL στο οποίο οι χρήστες θα πηγαίνουν εαν χρειάζονται βοήθεια στην ανάκτηση του κωδικού τους. Κάθε όνομα χρήστη θα ακολουθεί τη σύνταξη foo={username} και το {username} θα αντικαθίσταται από το πραγματικό όνομα χρήστη. </msg>
<msg key="Registration">Εγγραφή</msg>
<msg key="Run_time">τρέχον χρόνος</msg>
<msg key="Running_time">Ενεργός χρόνος</msg>
<msg key="seconds">δευτερόλεπτα</msg>
<msg key="Service">Service</msg>
<msg key="Service_administration">Διαχείρηση Service</msg>
<msg key="Service_parameters">Παράμετροι Service</msg>
<msg key="Short_Name">Σύντομο όνομα</msg>
<msg key="Site-Wide_Admin">Διαχειρηστής Ιστοχώρου</msg>
<msg key="Snapshot">Στιγμιότυπο</msg>
<msg key="Start_time">Έναρξη χρόνου </msg>
<msg key="Success">Επιτυχία</msg>
<msg key="Tcl_Callbacks">Ειδοποιήσεις Tcl</msg>
<msg key="Tcl_Proc">Διαδικασία Tcl</msg>
<msg key="Timestamp">Σφραγίδα χρόνου</msg>
<msg key="Type">Τύπος</msg>
<msg key="User_Info">πληροφορίες χρήστη</msg>
<msg key="User_Info_help_text">Η ενσωμάτωση της διαδικασίας λήψης πληροφοριών χρήστη από μια δυνατότητα σε πραγματικό χρόνο</msg>
<msg key="Username">Όνομα χρήστη</msg>
<msg key="View_log_entry">Προβολή καταχώρησης στο log </msg>
<msg key="Visit_service_pages">Επισκευθείτε τις σελίδες service</msg>
<msg key="Yes">Ναι</msg>
<msg key="You_are_changing_all_user_registrations_to_be_in_authority_authorities_pretty_name">Αλλάζετε όλες τις εγγραφές του χρήστη για την διαδικασία %authorities.pretty_name%</msg>
</message_catalog>
tcl/acs-admin-callback-procs.tcl 0 → 100644
View file @ b51c9dd1
# packages/acs-admin/tcl/acs-admin-callback-procs.tcl
ad_library {
Callback procs for acs-admin
@author Malte Sussdorff (sussdorff@sussdorff.de)
@creation-date 2007-06-15
@arch-tag: 4267c818-0019-4222-8a50-64edbe7563d1
}
namespace eval acs_admin {}
ad_proc -public -callback acs_admin::member_state_change {
-user_id
-member_state
} {
Callback which is executed after a successful change of member state. Allows other software to do additional tasks
upon the user.
@param user_id User ID of the user upon whom the state change was done
@param member_state New state of the user
} -
tcl/merge-procs.tcl 0 → 100644
View file @ b51c9dd1
ad_library {
Definitions of procs for the merge process
@creation-date 15 APR 2005
@author Enrique Catalan (quio@galileo.edu)
@cvs-id $Id$
}
namespace eval merge {}
ad_proc -public merge::MergeUserInfo {
-from_user_id:required
-to_user_id:required
} {
Merge user info. Revokes permissions for from_user_id and grants
them to to_user_id.
@param from_user_id From user ID.
@param to_user_id To user ID.
} {
ns_log Notice "Running merge::MergeUserInfo"
db_transaction {
if { ![db_0or1row to_user_portrait {*SQL*}] && [db_0or1row from_user_portrait {*SQL*}] } {
db_dml upd_portrait {*SQL*}
}
# get the permissions of the from_user_id
# and grant them to the to_user_id
db_foreach getfromobjs {*SQL*} {
# revoke the permissions of from_user_id
permission::revoke -object_id $from_oid -party_id $from_user_id -privilege $from_priv
if { ![db_string touserhas {*SQL*} ] } {
# grant the permissions to to_user_id
permission::grant -object_id $from_oid -party_id $to_user_id -privilege $from_priv
}
}
ns_log notice " Merging acs_objects"
db_dml acs_objs_upd {*SQL*}
}
ns_log Notice "Finishing merge::MergeUserInfo"
}
ad_proc -callback merge::MergePackageUser {
-from_user_id:required
-to_user_id:required
} {
Merge two accounts
} -
ad_proc -callback merge::MergeShowUserInfo {
-user_id:required
} {
Show information of accounts to merge
} -
tcl/merge-procs.xql 0 → 100644
View file @ b51c9dd1
<?xml version="1.0"?>
<queryset>
<fullquery name="merge::MergeUserInfo.to_user_portrait">
<querytext>
select c.item_id
from acs_rels a, cr_items c
where a.object_id_two = c.item_id
and a.object_id_one = :to_user_id
and a.rel_type = 'user_portrait_rel'
</querytext>
</fullquery>
<fullquery name="merge::MergeUserInfo.from_user_portrait">
<querytext>
select c.item_id
from acs_rels a, cr_items c
where a.object_id_two = c.item_id
and a.object_id_one = :from_user_id
and a.rel_type = 'user_portrait_rel'
</querytext>
</fullquery>
<fullquery name="merge::MergeUserInfo.upd_portrait">
<querytext>
update acs_rels
set object_id_one = :to_user_id
where object_id_one = :from_user_id
and rel_type = 'user_portrait_rel'
</querytext>
</fullquery>
<fullquery name="merge::MergeUserInfo.getfromobjs">
<querytext>
select object_id as from_oid, privilege as from_priv from acs_permissions where grantee_id = :from_user_id
</querytext>
</fullquery>
<fullquery name="merge::MergeUserInfo.touserhas">
<querytext>
select count(*) from acs_permissions where object_id = :from_oid and grantee_id = :to_user_id
</querytext>
</fullquery>
<fullquery name="merge::MergeUserInfo.acs_objs_upd">
<querytext>
update acs_objects
set creation_user = :to_user_id
where creation_user = :from_user_id
</querytext>
</fullquery>
</queryset>
\ No newline at end of file
www/users/bouncing-users.adp 0 → 100644
View file @ b51c9dd1
<master>
<property name="title">#acs-mail-lite.Bouncing_users#</property>
<property name="context">@context;noquote@</property>
<h2>#acs-mail-lite.Bouncing_users#</h2>
<listtemplate name="bouncing_users"></listtemplate>
</center>
www/users/bouncing-users.tcl 0 → 100644
View file @ b51c9dd1
ad_page_contract {
top level list of forums
@author Ben Adida (ben@openforce.net)
@creation-date 2002-05-24
@cvs-id $Id$
} {
{page ""}
{page_size 25}
{orderby "username,asc"}
}
set user_id [ad_conn user_id]
template::list::create \
-name bouncing_users \
-multirow bouncing_users \
-key forum_id \
-elements {
username {
label "[_ acs-subsite.Username]"
}
full_name {
label "[_ acs-subsite.Name]"
display_template {<pre>@bouncing_users.full_name;noquote@</pre>}
}
unbounce_link {
label ""
display_template {<a href="@bouncing_users.unbounce_link;noquote@">[_ acs-mail-lite.Unbounce]</a>}
}
} -orderby {
username {
orderby_asc "username asc"
orderby_desc "username desc"
default_direction asc
}
full_name {
orderby_asc "full_name asc"
orderby_desc "full_name desc"
default_direction asc
}
}
db_multirow -extend {unbounce_link} bouncing_users select_bouncing_users {} {
set return_url [ad_return_url]
set unbounce_link [export_vars -base "/register/restore-bounce" -url {user_id return_url}]
}
set context [list [list "." "Users"] "[_ acs_mail_lite.Bouncing_users]"]
www/users/bouncing-users.xql 0 → 100644
View file @ b51c9dd1
<?xml version="1.0"?>
<queryset>
<fullquery name="select_bouncing_users">
<querytext>
select username, (first_names || ' ' || last_name) as full_name, user_id
from cc_users u
where u.email_bouncing_p = 't'
[template::list::orderby_clause -name bouncing_users -orderby]
</querytext>
</fullquery>
</queryset>
www/users/delete-user.tcl 0 → 100644
View file @ b51c9dd1
ad_page_contract {
Delete a single user
@author Gustaf Neumann <neumann@wu-wien.ac.at>
@creation-date 23 Dez 2008
@cvs-id $Id$
} {
user_id:integer
{return_url .}
{permanent:boolean f}
}
set site_wide_admin_p [acs_user::site_wide_admin_p -user_id [ad_conn user_id]]
if {!$site_wide_admin_p} {
ad_return_warning "Insufficient Permissions" \
"Only side wide admins are allowed to delete a user!"
ad_script_abort
}
if {$permanent} {
acs_user::delete -user_id $user_id -permanent
} else {
acs_user::delete -user_id $user_id
}
ad_returnredirect $return_url
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment